140 lines
2.2 KiB
Plaintext
140 lines
2.2 KiB
Plaintext
;
|
|
; S:COMMON
|
|
;
|
|
TMP EPZ $F0
|
|
TMP0 EPZ TMP
|
|
TMP1 EPZ TMP+1
|
|
TMP2 EPZ TMP+2
|
|
TMP3 EPZ TMP+3
|
|
TMP4 EPZ TMP+4
|
|
TMP5 EPZ TMP+5
|
|
;
|
|
TMPLO EPZ TMP0
|
|
TMPHI EPZ TMP1
|
|
;
|
|
FLASHLO EPZ $4E
|
|
FLASHHI EPZ $4F
|
|
;
|
|
ESC = 27
|
|
;-----------
|
|
;
|
|
; MAIN MENU routines
|
|
;
|
|
MM = $0800
|
|
;
|
|
MAINMENU = MM
|
|
FGETMAIN = MM+3
|
|
FGETPSD = MM+6
|
|
FGETCD = MM+9
|
|
;
|
|
HAS128K = $27F
|
|
;-----------
|
|
;
|
|
; Subroutine package
|
|
;
|
|
SP = $E000
|
|
;
|
|
PRINT = SP
|
|
CLSCREEN = SP+3
|
|
WITEBORD = SP+6
|
|
ESCBACK = SP+9
|
|
PICDRAW = SP+12
|
|
;
|
|
DEVICENW = SP+15
|
|
DEVICEON = SP+18
|
|
DEVICEOF = SP+21
|
|
DEVICERD = SP+24
|
|
DEVICEST = SP+27
|
|
SCALING = SP+30
|
|
;
|
|
POLEBTN = SP+31
|
|
POLEKEY = SP+34
|
|
GETKEY = SP+37
|
|
SELECT = SP+40
|
|
;
|
|
SETTYPE = SP+43
|
|
GETFILE = SP+46
|
|
SAVEFILE = SP+49
|
|
TYPELEN = SP+52
|
|
FLSTART = SP+53
|
|
FLLENGTH = SP+55
|
|
BLOAD = SP+57
|
|
BSAVE = SP+60
|
|
DOSCR = SP+63
|
|
ERROR = SP+66
|
|
;
|
|
MUSIC = SP+69
|
|
FLSHINIT = SP+72
|
|
JMPVECTS = SP+75
|
|
LINES = SP+78
|
|
PARSE = SP+81
|
|
SHOWAROW = SP+84
|
|
NUMBER = SP+87
|
|
WAITPSD = SP+90
|
|
WAITCD = SP+93
|
|
ANYKEY = SP+96
|
|
CHKPRINT = SP+99
|
|
BOOP = SP+102
|
|
GETINIT = SP+105
|
|
GETBYTE = SP+108
|
|
INPUT = SP+111
|
|
CLS1 = SP+114
|
|
PRINTGRP = SP+117
|
|
RTOS = SP+120
|
|
SPACEBAR = SP+123
|
|
GETPDISK = SP+126
|
|
ESCMAIN = SP+129
|
|
TESTPAPR = SP+132
|
|
GETANUMB = SP+135
|
|
ANYKEY2 = SP+138
|
|
DEVICECH = SP+141
|
|
;
|
|
WITE = $FF
|
|
GRAY = $AA
|
|
GRAY2 = $55
|
|
BLAK = $00
|
|
;
|
|
PRNORM = 1
|
|
PRINVR = 2
|
|
PRLEFT = 3
|
|
PRRITE = 4
|
|
PRCNTR = 5
|
|
PRLOC = 6
|
|
PRSMAL = 7
|
|
PRBIG = 8
|
|
PRSTR = 9
|
|
PRSPC = 10
|
|
PRHTAB = 11
|
|
PRVTAB = 12
|
|
CR = 13
|
|
NOCR = 14
|
|
RTOSBLAK = 15
|
|
RTOSWITE = 16
|
|
RTOSANY = 17
|
|
PRCSPACE = 18
|
|
PRPIC = 19
|
|
PRRTAB = 20
|
|
PRRTAB2 = 21
|
|
PRKERN = 22
|
|
RTOSINV = 23
|
|
;-----------
|
|
;
|
|
; Monitor routines
|
|
;
|
|
WAIT = $FCA8
|
|
RTS = $FF58
|
|
;-----------
|
|
;
|
|
; SYSLIB stuff
|
|
;
|
|
FLIPPER = $9080
|
|
YBASEHI = $9100
|
|
YBASELO = $91C0
|
|
XBYTE = $9398
|
|
XBIT = $94B0
|
|
;-----------
|
|
;
|
|
;
|
|
;
|
|
END
|