*
* LBLALST
*
*LiSTing save for LBLA
*
*[
*...
*] can ommit
*
*
*
*MM First Free,+4 by sym
FF EQU >7CD8+4+4+4+4+4+4+4+4+4+4
*Top,-8 by def
TF EQU >7FF0
*[
AORG >701C
DATA FF
DATA TF
*]
*
*
*
*seems ok
AORG >703A
HN MOV R11,R14 from mod
*NEw
NE EQU >71A6
LI R15,NE to NEw
JMP EX
*
HO MOV R11,R14
*OLd
OL EQU >71AC
LI R15,OL
MOVB R12,R4
JMP $+8
*
*User Workspace
UW EQU >70B8
BA LWPI UW
MOV R14,R15 to mod
*
MOV R12,R0
*vMbW
MW EQU >6028
BLWP @MW copy
MOV R8,@>8354
MOV R9,@>834A
MOVB R10,@>834C
MOV R3,@>8356
MOVB @UW+21,@>836D
CLR @>83D0
MOVB R2,@>837C clr GPLST
*GplLnk
GL EQU >6018
*[
BLWP @GL
DATA >6D0E mod VDP init
*]
BLWP @GL
DATA >3D K7
*
*EXit hook
EX MOVB R13,R4
LI R11,BA BAck to hook
B *R15 to LBLA NEW/OLD/mod
*
*
AORG UW+2
DATA UW+8 R1 src at R4
DATA >D R2 # bytes
DATA >50D R3 name end in VDP
*PAB
DATA >FF02 R4 I/O;error;fixed;internal;sequential
DATA >1000 R5 buffer
DATA >4000 R6 record length;count
*+>3C0 by PaGes,max 12
PG EQU >3C0+>3C0+>3C0+>3C0+>3C0+>3C0+>3C0+>3C0+>3C0+>3C0
DATA PG R7 # bytes
DATA >0003 R8 screen offset,name length
DATA >4353,>3108 R9,R10 'CS1';;8=DSR call
AORG $+2
DATA >500 R12 load/dst in VDP
DATA >600 R13 save
*
*
AORG NE+2
DATA UW R0 as flag
AORG OL+2
DATA UW
*
*
*after LBLA VDP init
AORG >71E2
LWPI >7118 main WS
SOC @UW,@UW
JNE >723A main Loop
*
MOV @$+12,@>7186 page
LWPI >7138 subs WS
JMP >7200 copyright
*
DATA >1000
*
*
*
*[
AORG >722C+2
DATA FF
*]
*
*
*
*[
*END exit
AORG >74FC
MOVB @>7943,@>83D4 VR1 for KSCAN
*]
*
*
*
*[
*new line vector
AORG >79C2+2
DATA >79DA+4 don't clear
*]
*
*
*
*[
*page up/down
AORG >7B2E
DATA >C40+PG
AORG >7B4C
DATA >C68+PG
*]
*
*
*
AORG TF
* TEXT 'DUMMY1'
* DATA D1
AORG $+6
DATA HO def Hook OLD
AORG $+6
DATA HN