mirror of
https://github.com/Tolik-Trek/2D-Studio.git
synced 2026-06-15 09:31:35 +03:00
242 lines
3.6 KiB
NASM
242 lines
3.6 KiB
NASM
|
|
;ORG_ ORG #0000
|
|
; DISP #0000
|
|
INTA EQU #80
|
|
; ROM__
|
|
; A0000 JP NULL_0
|
|
; DB #FF,#FF,#FF,#FF,#FF
|
|
; A0008 PUSH AF ;INT BIOS
|
|
; LD A,#00
|
|
; OUT (#7C),A
|
|
; POP AF
|
|
; RET
|
|
; RET
|
|
; A0010 JP NULL_0 ;INT DOS
|
|
; DB #FF,#FF,#FF,#FF,#FF
|
|
; A0018 JP NULL_0 ;INT DISK
|
|
; DB #FF,#FF,#FF,#FF,#FF
|
|
; A0020 JP RST_20 ;
|
|
; DB #FF,#FF,#FF,#FF,#FF
|
|
; A0028 JP NULL_0 ;
|
|
; DB #FF,#FF,#FF,#FF,#FF
|
|
; A0030 JP NULL_0 ;INT MOUSE
|
|
; DB #FF,#FF,#FF,#FF,#FF
|
|
; A0038 JP RST_38 ;INTERRUPT
|
|
|
|
; DS 197
|
|
; ORG #0200
|
|
JP INIT
|
|
JP DLGinit
|
|
JP GETPARM
|
|
JP POPUP
|
|
JP RECTAN
|
|
JP BPUSH
|
|
JP BPOP
|
|
JP POINT
|
|
JP HZ2LINE
|
|
JP HRUBBER
|
|
JP VRUBBER
|
|
JP PLACE
|
|
JP CHARS
|
|
JP OPTIMIZ
|
|
JP SAVERG
|
|
JP RESTRG
|
|
JP CONST
|
|
JP DESTR
|
|
JP LCONST
|
|
JP LDESTR
|
|
JP LOBJECT
|
|
JP WAITMSG
|
|
JP INTMOUS
|
|
JP INTON
|
|
JP INTOFF
|
|
|
|
JP LST_INI
|
|
JP LST_CLR
|
|
JP SBV_WRK
|
|
JP EDITBOX
|
|
|
|
JP SBODY
|
|
JP SBMAX
|
|
JP SBWIN
|
|
JP SBVAL
|
|
JP POSSX
|
|
JP POSSY
|
|
JP RSBMAX
|
|
JP RSBWIN
|
|
JP RSBVAL
|
|
JP RPOSSX
|
|
JP RPOSSY
|
|
JP PCHARX
|
|
|
|
JP DLGopen
|
|
JP DLGclos
|
|
|
|
JP XFRAME
|
|
|
|
JP HBAR
|
|
JP SBH_WRK
|
|
JP SBLEN
|
|
JP RSBLEN
|
|
JP SBHGT
|
|
JP RSBHGT
|
|
JP INITSPR
|
|
JP NONE
|
|
JP NONE
|
|
JP NONE
|
|
JP NONE
|
|
JP NONE
|
|
JP NONE
|
|
JP NONE
|
|
JP NONE
|
|
JP NONE
|
|
JP NONE
|
|
JP NONE
|
|
JP NONE
|
|
JP NONE
|
|
JP NONE
|
|
|
|
NONE SCF
|
|
RET
|
|
|
|
RST_38 ;MAIN INTERUPT
|
|
EI
|
|
RET
|
|
|
|
NULL_0 SCF
|
|
RET
|
|
|
|
RST_20 PUSH HL
|
|
PUSH DE
|
|
LD HL,4
|
|
ADD HL,SP
|
|
LD E,(HL)
|
|
INC (HL)
|
|
INC HL
|
|
LD D,(HL)
|
|
JP NZ,RST401
|
|
INC (HL)
|
|
RST401 EX DE,HL
|
|
LD L,(HL)
|
|
LD H,ADRST20/256
|
|
LD E,(HL)
|
|
INC H
|
|
LD D,(HL)
|
|
EX DE,HL
|
|
POP DE
|
|
EX (SP),HL
|
|
RET
|
|
|
|
I500 SCF
|
|
RET
|
|
|
|
USERini LD A,2
|
|
SCF
|
|
RET
|
|
|
|
SBODY LD (BODY),A
|
|
RET
|
|
|
|
SBMAX LD (SB_MAX),HL
|
|
RET
|
|
|
|
SBWIN LD (SB_WIN),HL
|
|
RET
|
|
|
|
SBVAL LD (SB_VAL),HL
|
|
RET
|
|
|
|
POSSX LD (POSS_X),HL
|
|
RET
|
|
|
|
POSSY LD (POSS_Y),HL
|
|
RET
|
|
|
|
RSBMAX LD HL,(SB_MAX)
|
|
RET
|
|
|
|
RSBWIN LD HL,(SB_WIN)
|
|
RET
|
|
|
|
RSBVAL LD HL,(SB_VAL)
|
|
RET
|
|
|
|
SBLEN LD (SB_LEN),HL
|
|
RET
|
|
|
|
RSBLEN LD HL,(SB_LEN)
|
|
RET
|
|
|
|
SBHGT LD (SB_HGT),HL
|
|
RET
|
|
|
|
RSBHGT LD HL,(SB_HGT)
|
|
RET
|
|
|
|
|
|
|
|
RPOSSX LD HL,(POSS_X)
|
|
RET
|
|
|
|
RPOSSY LD HL,(POSS_Y)
|
|
RET
|
|
|
|
|
|
INITSPR LD (BSPRADR+1),HL
|
|
RET
|
|
|
|
INCLUDE "WINDOW-H.asm"
|
|
INCLUDE "DLG.ASM"
|
|
INCLUDE "INTMOUSE.ASM"
|
|
INCLUDE "LOBJECT.ASM"
|
|
|
|
ALIGN 256
|
|
; ENT
|
|
; ORG $/256+1*256
|
|
; DISP $-#8000
|
|
FONTSIZ ;DS 32,6
|
|
DB 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
|
|
DB 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
|
|
; ! " # $ % & ' ( ) * + , - . /
|
|
DB 6,3,5,6,6,7,7,3,4,4,6,6,4,6,3,7
|
|
; 0 1 2 3 4 5 6 7 8 9 : ; < = > ?
|
|
DB 6,4,6,6,6,6,6,6,6,6,3,4,6,7,6,6
|
|
; @ A B C D E F G H I J K L M N O
|
|
DB 7,6,6,6,6,6,6,6,6,3,5,6,6,8,6,6
|
|
; P Q R S T U PE W X Y Z [ \ ] ^ _
|
|
DB 6,6,6,6,6,6,6,8,6,6,6,4,6,4,5,6
|
|
; ` a b c d e f g h i j k l m n o
|
|
DB 3,6,6,6,6,6,4,6,6,2,5,6,2,8,6,6
|
|
; p q r s t u v w x y z { | } ~
|
|
DB 6,6,3,5,3,6,6,8,6,6,6,4,3,4,6,6
|
|
|
|
; A B PE G D E J Z I J K L M N O P
|
|
DB 6,6,6,6,7,6,8,6,6,6,6,6,8,6,6,6
|
|
; R S T U F H C h W W X Y X E U Q
|
|
DB 6,6,6,6,8,6,6,6,8,8,7,7,6,6,8,6
|
|
; a b v g d e j z i j k l m n o p
|
|
DB 6,6,6,6,7,6,8,6,6,6,6,6,8,6,6,6
|
|
; DS 48,6
|
|
DB 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
|
|
DB 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
|
|
DB 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
|
|
|
|
; r s t u f h c h w w x y x e u q
|
|
DB 6,6,6,5,8,5,6,6,8,8,7,7,6,6,7,6
|
|
DB 6,6,6,6,6,6,6,6,5,6,6,6,5,5,6,1
|
|
|
|
FONTER INCBIN "IFFWIN2.BIN"
|
|
|
|
ADRST20;
|
|
DB I500&#FF,I500&#FF,I500&#FF,I500&#FF,I500&#FF,I500&#FF,I500&#FF,I500&#FF
|
|
DB I500&#FF,I500&#FF,I500&#FF,I500&#FF,I500&#FF,I500&#FF,I500&#FF,I500&#FF
|
|
DS #F0
|
|
|
|
DB I500/256,I500/256,I500/256,I500/256,I500/256,I500/256,I500/256,I500/256
|
|
DB I500/256,I500/256,I500/256,I500/256,I500/256,I500/256,I500/256,I500/256
|
|
DS #F0
|
|
|
|
; ENT
|
|
_______
|
|
|