Merge 0ab09c9c05 into fb6ea91e95

with some updates

cauchemarhouse/en/en.s

@@ -8,9 +8,9 @@
 	mx	%11
 	lst	off
 
-* Les caract<EFBFBD>res en standard : @ { } ] ! (pipe)
-* Les caract<EFBFBD>res en fran<EFBFBD>ais : ˆ Ž <EFBFBD> <EFBFBD> <EFBFBD>
-* Les Žquivalents en ASCII   : C0 FB FD DC FC
+* Les caractres en standard : @ { } ] ! (pipe)
+* Les caractres en franais : ˆ Ž   
+* Les Žquivalents en ASCII   : C0 FB FD DC FC
 
 *-----------------------------------
 * LES CHAINES

diskotape/data/DOT.LOADER#060200

@@ -0,0 +1 @@
+²°°®²΄°<EFBFBD> µ°°°®µ΄¶°<EFBFBD> µ±°³Η<EFBFBD>ΓΟΠΩ<EFBFBD>ΙΗΘΤ ¨Γ© ±ΉΈ° ΒΩ ΔΑΞΞ ΝΓΓ<EFBFBD>ΕΑ<EFBFBD>Ω
ΔΙΣ

diskotape/diskotape.s

@@ -0,0 +1,624 @@
+*
+* Disk-o-Tape
+* (c) 1980, Dann McCreary
+*
+
+            TYP   BIN
+            ORG   $005100
+            MX    %11
+
+*-----------------------------------
+
+CSWL	=	$36
+CSWH	=	$37
+A1L	=	$3C
+A1H	=	$3D
+
+KBD         =	$C000
+KBDSTROBE   =	$C010
+PRBL2       =	$F94A
+HOME        =	$FC58
+WAIT        =	$FCA8
+RDCHAR      =	$FD35
+GETLN       =	$FD6A
+CROUT       =	$FD8E
+PRBYTE      =	$FDDA
+COUT        =	$FDED
+COUT1	=	$FDF0
+WRITE       =	$FECD
+READ        =	$FEFD
+BELL        =	$FF3A
+
+L1000	=	$1000
+L5000	=	$5000	; Where the VTOC is loaded
+
+*-----------------------------------
+
+L5100       JMP   L510A	; read entry point
+
+            LDY   $8034	; write entry point
+            LDA   #$02
+            BNE   L510C
+
+L510A       LDA   #$01	; Read command
+L510C       PHA
+            LDX   #$14	; copy default IOB table
+L510F       LDA   IOB_DFT,X
+            STA   IOB,X
+            DEX
+            BNE   L510F
+            PLA
+            STA   IOB_COMMAND
+
+            JSR   resetCOUT
+            JSR   HOME
+            LDA   IOB_COMMAND
+            LSR
+            BNE   L5131	; go write
+            JSR   L54E1	; go read
+            JSR   CROUT
+            JMP   L514D
+
+L5131       LDY   #$0A	; COPY TAPE -> DISK
+            JSR   PRINTSTRING
+            JSR   CROUT
+            LDY   #$25	; wait
+L513B       LDA   #$FF
+            JSR   WAIT
+            DEY
+            BNE   L513B
+	
+            LDY   #$1A	; DISK NAME
+            JSR   PRINTSTRING
+            LDY   #$1E	; :
+            JSR   PRINTSTRING
+
+L514D       LDY   #$1C	; The disk name
+            JSR   PRINTSTRING
+
+            JSR   L52AA	; handle VTOC
+            LDA   #$01
+            STA   L55FB
+            JSR   CROUT
+            LDY   #$0C	; TK/SC
+            JSR   PRINTSTRING
+L5162       JSR   L51D8	; read/write buffer
+            JSR   L51A5	; write/read it
+
+            LDA   IOB_TRACK	; are we done?
+            BMI   L5175
+            CLC
+            ADC   IOB_SECTOR
+            CMP   #$00
+            BNE   L5162
+
+L5175       LDA   IOB_COMMAND
+            LSR
+            BNE   L517E	; go write
+            JMP   L554E	; go verify/read
+
+L517E       JSR   CROUT
+            LDY   #$08	; COPY DONE
+L5183       JSR   CROUT
+            JSR   PRINTSTRING
+            JSR   L518F	; wait for key
+            JMP   $03D0	; return to DOS
+
+L518F       BIT   KBDSTROBE
+L5192       LDY   #$07
+L5194       LDA   #$FF
+            JSR   WAIT
+            DEY
+            BNE   L5194
+            JSR   BELL
+            LDA   KBD
+            BPL   L5192
+            RTS
+
+*----------
+
+L51A5       LDA   IOB_COMMAND
+            LSR
+            BNE   L51DE	; go write
+
+L51AB       LDY   #$00
+
+*-----------------------------------
+
+doTAPECMD   LDX   #$03	; move tape parms to A1/A2
+L51AF       LDA   L52FC,Y
+            STA   A1L,X
+            INY
+            DEX
+            BPL   L51AF
+
+            LDA   IOB_COMMAND ; either read from or write to tape
+            AND   #$01
+            BNE   L51D5
+            JSR   setCOUT	; modify COUT
+            JSR   READ	; read from tape
+            PHP
+            JSR   resetCOUT	; reset COUT
+            PLP
+            BEQ   L51D4
+            JSR   CROUT
+            LDY   #$18	; TAPE READ ERROR
+            JMP   L52A2
+L51D4       RTS
+L51D5       JMP   WRITE	; write to tape
+
+*-----------------------------------
+
+L51D8       LDA   IOB_COMMAND
+            LSR
+            BNE   L51AB	; go write
+
+L51DE       LDA   #>L1000	; set buffer at $1000
+            STA   IOB_BUFFER+1
+            STA   A1H
+            LDA   #<L1000
+            STA   IOB_BUFFER
+            STA   A1L
+
+            LDA   IOB_COMMAND	; command?
+            LSR
+            BNE   L5206
+
+*-- Read
+
+            LDA   #$20	; read means clear $1000..$2FFF
+            STA   nbPAGES
+            LDY   #$00
+            TYA
+L51FA       STA   (A1L),Y
+            INY
+            BNE   L51FA
+            INC   A1H
+            DEC   nbPAGES	; page--
+            BNE   L51FA
+
+*-- Write means do not erase buffer
+
+L5206       LDA   #$20
+            STA   nbPAGES
+            LDA   L55FB	; check pass
+            BEQ   L5215
+            DEC   L55FB	; tell we've been there
+            BEQ   L522F	; handle first case
+
+L5215       JSR   L52D5	; get sector usage
+            LDA   IOB_TRACK
+            SEC
+            SBC   #$00
+            BPL   L522F
+            STA   IOB_TRACK
+
+            LDY   nbPAGES	; wait again
+L5226       LDA   #$D7
+            JSR   WAIT
+            DEY
+            BNE   L5226
+            RTS
+
+L522F       JSR   GO_RWTS
+            LDA   IOB_TRACK	; show T
+            JSR   PRBYTE
+            LDX   #$01
+            JSR   PRBL2
+            LDA   IOB_SECTOR	; show S
+            JSR   PRBYTE
+            LDA   #$00
+            STA   $24
+            INC   IOB_BUFFER+1
+            DEC   nbPAGES	; nb pages
+            BNE   L5215
+            RTS
+
+*---------- Redirect COUT vector
+
+setCOUT     LDA   #<L5262
+            STA   CSWL
+            LDA   #>L5262
+            STA   CSWH
+            RTS
+
+*---------- Reset COUT vector
+
+resetCOUT   LDA   #<COUT1
+            STA   CSWL
+            LDA   #>COUT1
+            STA   CSWH
+            RTS
+
+*---------- My COUT routine
+
+L5262       CMP   #$87
+            BEQ   L526A
+            PLA
+            PLA
+            LDA   #$FF
+L526A       RTS
+
+*-----------------------------------
+
+PRINTSTRING LDA   L5329,Y	; PRINT STRING
+            STA   $01
+            LDA   L532A,Y
+            STA   $00
+            LDY   #$FF
+L5277       INY
+            LDA   ($00),Y
+            ORA   #$80
+            JSR   COUT
+            LDA   ($00),Y
+            BMI   L5277
+            RTS
+
+*-----------------------------------
+
+GO_RWTS     LDA   #>IOB	; execute a RWTS call
+            LDY   #<IOB
+            JSR   $03D9
+            BCC   L5290
+            JSR   L5291
+L5290       RTS
+
+*---------- Handle error
+
+L5291       LDA   IOB_ERRCODE
+            LDY   #$0E	; DISK WRITE PROTECTED
+            CMP   #$10	;
+            BEQ   L52A2
+            LDY   #$10	; DISK READ ERROR
+            CMP   #$80	;
+            BEQ   L52A2
+            LDY   #$12	; DISK DRIVE ERROR
+L52A2       JSR   PRINTSTRING
+            LDY   #$16	; COPY ABORT
+            JMP   L5183
+
+*-----------------------------------
+* See the DOS 3.3 manual, page 132
+
+L52AA       LDA   #$23	; last track
+            NOP
+            STA   IOB_TRACK
+            ASL	; *2
+            ASL	; *4
+            CLC
+            ADC   #$38	; C4
+            STA   L55F9
+L52B8       LDA   #$00
+            STA   L55F8
+            LDA   L55F9	; C4 - 4 = C0 => T22 bitmap
+            SEC
+            SBC   #$04
+            TAX
+            STX   L55F9
+            STX   L55FA
+
+            DEC   IOB_TRACK
+            BMI   L52FB
+	
+            LDA   #$10	; last sector
+            NOP
+            STA   IOB_SECTOR
+
+*---------- The VTOC is at $5000
+* Bitmap starts at $5038
+* Each bit set means a free sector
+*        Byte 1   Byte 2
+*    Bit 76543210 76543210
+* Sector FEDCBA98 76543210
+
+L52D5       LDX   L55FA	; index within T22..
+            DEC   IOB_SECTOR
+            BMI   L52B8	; next track please
+
+L52DD       CLC	; return bit sector usage within bitmap
+            LDA   L55F8
+            BNE   L52E4
+            SEC
+L52E4       ROR
+            BNE   L52EB
+            INX
+            STX   L55FA
+L52EB       STA   L55F8
+            LDA   L55F8
+            BEQ   L52DD
+            AND   $5000,X	; The VTOC  lies at $5000
+            NOP
+            NOP
+            STX   L55FA
+L52FB       RTS
+
+*---------- Read/Write Tape commands
+* Put at A1/A2 ($3C..$3F): FROM..TO
+* Code puts it inverted
+
+L52FC       DB    $2F         ;  0 1000..2FFF
+            DB    $FF
+            DB    $10
+            DB    $00
+            DB    $4F         ;  4 3000..4FFF
+            DB    $FF
+            DB    $30
+            DB    $00
+            DB    $54         ;  8 5000..5460
+            DB    $60
+            DB    $50
+            DB    $00
+            DB    $34         ;  C 3000..3460
+            DB    $60
+            DB    $30
+            DB    $00
+            DB    $54         ; 10 53FE..543E
+            DB    $3E
+            DB    $53
+            DB    $FE
+            DB    $30         ; 14 3000..3040
+            DB    $40
+            DB    $30
+            DB    $00
+
+*---------- Default IOB table
+
+IOB_DFT     DB    $01
+            DB    $60
+            DB    $01
+            DB    $00
+            DB    $00
+            DB    $00
+            DA    $54DD
+            DA    $1000
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $60
+            DB    $01
+            DB    $00
+            DB    $01
+            DB    $EF
+            DB    $D8
+
+*---------- Pointers to strings (all inverted...)
+
+L5329       DB    >L53C3	;  0 DISK-O-TAPE/PASCAL
+L532A       DB    <L53C3
+            DB    >L543C	;  2 PLEASE INSERT DISK TO BE COPIED
+            DB    <L543C
+            DB    >L5418	;  4 COPYRIGHT
+            DB    <L5418
+            DB    >L5498	;  6 PLEASE REWIND TAPE...
+            DB    <L5498
+            DB    >L536A	;  8 COPY DONE
+            DB    <L536A
+            DB    >L5374	;  A COPY TAPE -> DISK
+            DB    <L5374
+            DB    >L5386	;  C TK/SC
+            DB    <L5386
+            DB    >L538C	;  E DISK WRITE PROTECTED
+            DB    <L538C
+            DB    >L53A1	; 10 DISK READ ERROR
+            DB    <L53A1
+            DB    >L53B1	; 12 DISK DRIVE ERROR
+            DB    <L53B1
+            DB    >L545C	; 14 COPY DISK -> TAPE
+            DB    <L545C
+            DB    >L534F	; 16 COPY ABORT
+            DB    <L534F
+            DB    >L535A	; 18 TAPE READ ERROR
+            DB    <L535A
+            DB    >L53D6	; 1A DISK NAME
+            DB    <L53D6
+            DB    >L53DF	; 1C " "
+            DB    <L53DF
+            DB    >L53C2	; 1E :
+            DB    <L53C2
+            DB    >L546E	; 20 ERROR DURING
+            DB    <L546E
+            DB    >L547B	; 22 TAPE VERIFY
+            DB    <L547B
+            DB    >L5488	; 24 VERIFY COMPLETE
+            DB    >L5488
+
+L534F       ASC   "COPY ABORT"0D
+L535A       ASC   "TAPE READ ERROR"0D
+L536A       ASC   "COPY DONE"0D
+L5374       ASC   "COPY TAPE -> DISK"0D
+L5386       ASC   "TK/SC"0D
+L538C       ASC   "DISK WRITE PROTECTED"0D
+L53A1       ASC   "DISK READ ERROR"0D
+L53B1       ASC   "DISK DRIVE ERROR"0D
+L53C2       ASC   ':'
+L53C3       ASC   "DISK-O-TAPE/PASCAL"0D
+L53D6       ASC   "DISK NAM"
+            ASC   'E'
+L53DF       ASC   " "
+L53E0       ASC   "SPACE RESERVED FOR DISK NAME "0D
+L53FE       ASC   "200.240R 5000.5460R 5103G"8D
+L5418       ASC   "COPYRIGHT (C) 1980 BY DANN MCCREARY"0D
+L543C       ASC   "PLEASE INSERT DISK TO BE COPIED"0D
+L545C       ASC   "COPY DISK -> TAPE"0D
+L546E       ASC   "ERROR DURING "
+L547B       ASC   "TAPE VERIFY"8D0D
+L5488       ASC   "VERIFY COMPLETE"0D
+L5498       ASC   "PLEASE REWIND TAPE, START"8D
+            ASC   "RECORDER AND PRESS RETURN"0D
+
+*-----------------------------------
+
+IOB         DB    $01	; 0 IOB type
+            DB    $60	; 1 Slot number * 16
+            DB    $01	; 2 Disk drive
+            DB    $00	; 3 Expected volume number
+IOB_TRACK   DB    $00	; 4 Track
+IOB_SECTOR  DB    $00	; 5 Sector
+            DA    L54DD
+IOB_BUFFER  DA    $1000	; 8 Buffer
+            DB    $00
+            DB    $00
+IOB_COMMAND DB    $00	; Command
+IOB_ERRCODE DB    $00	; Error code
+            DB    $00
+            DB    $60
+            DB    $01
+L54DD       DB    $00	; DCT
+            DB    $01
+            DB    $EF
+            DB    $D8
+
+*-----------------------------------
+
+            MX    %11
+
+L54E1       LDY   #$00	; DISK-O-TAPE PASCAL
+            JSR   PRINTSTRING
+            LDY   #$04	; COPYRIGHT
+            JSR   PRINTSTRING
+            JSR   CROUT
+            LDY   #$02	; PLEASE INSERT DISK TO BE COPIED
+            JSR   PRINTSTRING
+            JSR   CROUT
+            LDY   #$1A	; DISK NAME
+            JSR   PRINTSTRING
+            LDA   #$BF	; cursor
+            STA   |$0033
+            JSR   GETLN
+            CPX   #$1D	; length of string
+            BCC   L5509
+            LDX   #$1D	; put a final CR
+L5509       LDA   #$0D
+            STA   L53E0,X
+L550E       LDA   $0200,X ; copy disk name
+            STA   L53DF,X
+            DEX
+            BPL   L550E
+            JSR   CROUT
+            LDY   #$06	; PLEASE REWIND TAPE
+            JSR   PRINTSTRING
+            JSR   RDCHAR
+            JSR   CROUT
+            LDY   #$14	; COPY DISK -> TAPE
+            JSR   PRINTSTRING
+            LDY   #$10	; 53FE..543E -> 200.240R 5000.5460R 5103G + COPYRIGHT (C) 1980 BY DANN MCCREARY
+            JSR   doTAPECMD
+            JSR   L5537	; read VTOC
+            LDY   #$08	; 
+            JMP   doTAPECMD
+
+*---------- Read (write?) VTOC
+
+L5537       LDA   #$00
+            STA   IOB_SECTOR
+            LDA   #$11
+            STA   IOB_TRACK
+            LDA   #>L5000
+            STA   IOB_BUFFER+1
+            LDA   #<L5000
+            STA   IOB_BUFFER
+            JMP   GO_RWTS
+
+*----------
+
+L554E       JSR   HOME
+            LDY   #$22	; TAPE VERIFY
+            JSR   PRINTSTRING
+            LDY   #$06	; PLEASE REWIND TAPE...
+            JSR   PRINTSTRING
+            JSR   L518F
+            LDA   #$01	; read
+            STA   IOB_COMMAND
+            JSR   L5537
+            LDY   #$14	; 3000..3040
+            JSR   L55B9
+            LDY   #$0C	; 3000..3460
+            JSR   L55B9
+            JSR   L52AA
+            LDA   #$01
+            STA   L55FB
+            JSR   CROUT
+            LDY   #$1C	; " "
+            JSR   PRINTSTRING
+            LDY   #$0C	; TK/SC
+            JSR   PRINTSTRING
+L5585       LDA   #$01	; read
+            STA   IOB_COMMAND
+            JSR   L51DE
+            LDY   #$04	; 3000..4FFF
+            JSR   L55B9
+            LDA   IOB_TRACK
+            BMI   L559F
+            CLC
+            ADC   IOB_SECTOR
+            CMP   #$00
+            BNE   L5585
+L559F       JSR   CROUT
+            LDY   #$24	; VERIFY COMPLETE
+            JMP   L5183
+
+L55A7       LDX   #$07
+L55A9       CPX   #$05
+            BNE   L55AF
+            DEX
+            DEX
+L55AF       LDA   L52FC,Y
+            STA   A1L,X
+            INY
+            DEX
+            BPL   L55A9
+            RTS
+
+L55B9       STY   L55FE
+            LDA   #$02	; write
+            STA   IOB_COMMAND
+            JSR   doTAPECMD
+            LDY   L55FE
+            DEY
+            DEY
+            JSR   L55A7
+            JSR   L55E4
+            LDY   #$00
+            JSR   $FE36	; ROM entry point VFY for verify
+            PHP
+            JSR   resetCOUT
+            PLP
+            BCS   L55E3
+            JSR   CROUT
+            LDY   #$20
+            JMP   L52A2
+L55E3       RTS
+
+*---------- Set my COUT vector
+
+L55E4       LDA   #<L55ED
+            STA   CSWL
+            LDA   #>L55ED
+            STA   CSWH
+            RTS
+
+*---------- My second COUT routine
+
+L55ED       CMP   #$87
+            BEQ   L55F5
+            PLA
+            PLA
+            PLA
+            PLA
+L55F5       CLC
+            RTS
+
+*---------- 
+
+nbPAGES     DB    $00
+L55F8       DB    $00
+L55F9       DB    $00
+L55FA       DB    $00
+L55FB       DB    $00
+            DB    $00
+            DB    $00
+L55FE       DB    $00
+            DB    $51
+

dlld/control your laserdisc.txt

@@ -0,0 +1,19 @@
+31000  IF  NOT DISC THEN  RETURN : REM  SET UP SERIAL PORT FOR LASERDISC
+31010  PRINT  CHR$ (4);"PR#2": REM  INITIALIZE SERIAL PORT
+31020  POKE 49322,11: REM  COMMAND-NO PARITY, NO ECHO, ACTIVATE RTS, NO INTERRUPTS, ACTIVATE DTR
+31030  POKE 49323,28: REM  CONTROL-1 STOP BIT, 8 DATA BITS, BAUD RATE GENERATOR ENABLED, 4800 BPS
+31040  PRINT  CHR$ (4);"PR#0"
+31999  REM  KS: EVERYTHING I KNOW ABOUT APPLE 2 SERIAL COMM I LEARNED FROM https://groups.google.com/forum/#!topic/comp.sys.apple2.programmer/ZF9iyC6vVQo
+32000  RETURN 
+
+40000  REM  PLAY VIDEO CLIP
+40010  IF  NOT DISC THEN  RETURN 
+40020  FOR I = 1 TO  LEN (VC$)
+40030  IF  MID$ (VC$,I,1) = "/" THEN  POKE 49320,13: WAIT 49321,8:J =  PEEK (49320): GOTO 40060
+40040  POKE 49320, ASC ( MID$ (VC$,I,1))
+40060  NEXT I
+40070  RETURN 
+
+34016 VC$ = "FR30032SE/FR30214PL/": GOSUB 40000
+	goes to fram 30032
+	play until frame 30214

dlld/rollercoaster/ROLLERCOASTER-2018.BAS

@@ -0,0 +1,272 @@
+0  REM  ADVENTURES IN VIDEOLAND - ROLLERCOASTER. BY @DAVIDLUBAR. PUBLISHED IN CREATIVE COMPUTING MAGAINE V8N1, JANUARY 1982. UPGRADES BY @KEVINSAVETZ, 2018. ORIG. GAME AND UPGRADES ARE IN THE PUBLIC DOMAIN.
+1 DISC = 1: REM  SET DISC=0 FOR NO LASERDISC. DISC=1 FOR PIONEER LD-V2200 OR COMPATIBLE LASERDISC PLAYER CONNECTED TO SLOT 2
+2  GOSUB 30000: REM  INITIALIZE
+3  GOSUB 34000: REM  INSTRUCTIONS
+4  GOSUB 22000: REM  DISPLAY 1ST ROOM
+10  GOSUB 1000: REM  INPUT ROUTINE
+30  IF  NOT SPACE THEN V$ = A$
+40  IF A$ = " " THEN 10
+45  PRINT : PRINT 
+50  IF  ASC (V$) = 32 AND  LEN (V$) > 1 THEN V$ =  RIGHT$ (V$, LEN (V$) - 1):A$ =  RIGHT$ (A$, LEN (A$) - 1): GOTO 50
+60  IF  LEN (V$) =  LEN (A$) THEN NFLAG = 0: GOTO 90
+70 N$ =  RIGHT$ (A$, LEN (A$) -  LEN (V$))
+80  IF  ASC (N$) = 32 AND  LEN (N$) > 1 THEN N$ =  RIGHT$ (N$, LEN (N$) - 1): GOTO 80
+85  IF N$ = " " THEN NFLAG = 0
+90 A =  ASC (V$) - 64
+100  IF A < 1 OR A > 26 THEN 10
+110  ON A GOSUB 10100,10200,10300,10400,10500,10600,10700,10800,10900,11000,11100,11200,11300,11400,11500,11600,11700,11800,11900,12000,12100,12200,12300,12400,12500,12600
+120  IF  NOT KW THEN  PRINT "I DON'T KNOW HOW TO DO THAT":KW = 1
+125 T = T + 1: IF T > 150 THEN  INVERSE : PRINT "I THINK TIME JUST RAN OUT": NORMAL :T = 0:VC$ = "FR19801SE/FR20007PL/": GOSUB 40000: GOTO 50000
+130  PRINT : GOTO 10
+1000 A$ = " ":SPACE = 0:N$ = " ":V$ = " ":NFLAG = 1
+1010  GET B$: IF  ASC (B$) = 13 THEN  RETURN 
+1020  IF  ASC (B$) = 8 AND SPACE AND  RIGHT$ (A$,1) = " " THEN SPACE = 0
+1025  IF  LEN (A$) = 1 AND B$ = " " THEN 1010
+1030  IF  ASC (B$) = 8 AND  LEN (A$) > 1 THEN A$ =  LEFT$ (A$, LEN (A$) - 1): PRINT B$;" ";B$;: GOTO 1010
+1040  IF B$ = " " AND  NOT SPACE THEN V$ = A$:SPACE = 1: GOTO 1060
+1050  IF  ASC (B$) < 65 OR  ASC (B$) > 91 THEN 1010
+1060  PRINT B$;
+1070 A$ = A$ + B$
+1080  GOTO 1010
+9999  REM  FOLLOWING ROUTINES ACT ON THE INPUT. KW IS KEYWORD FLAG
+10100 KW = 0: RETURN 
+10200  IF A$ = "BREAK BOX" THEN 53000
+10210  IF A$ = "BREAK DOOR" THEN  PRINT "TOO SOLID TO EVEN TRY": RETURN 
+10299 KW = 0: RETURN 
+10300 KW = 0: RETURN 
+10400  IF V$ = "DROP" AND NFLAG THEN 26000
+10499 KW = 0: RETURN 
+10500  IF A$ = "E" THEN D = 2: GOTO 20000
+10501  IF V$ = "EXAMINE" AND NFLAG THEN 27000
+10599 KW = 0: RETURN 
+10600  IF A$ = "FIND BATTERIES" THEN  PRINT "TRY THE BEAR": RETURN 
+10610  IF V$ = "FIND" THEN  PRINT "I CAN'T HELP YOU": RETURN 
+10699 KW = 0: RETURN 
+10700  IF V$ = "GO" THEN 19000
+10710  IF A$ = "GIVE COINS" AND L = 5 THEN 43000
+10720  IF A$ = "GIVE TICKET" AND L = 16 THEN 48000
+10799 KW = 0: RETURN 
+10800  IF V$ = "HELP" THEN  PRINT "JUST KEEP MOVING AND EXAMINING THINGS,  AND AVOID DANGEROUS PLACES.": RETURN 
+10899 KW = 0: RETURN 
+10900  IF A$ = "I" OR A$ = "INV" OR A$ = "INVENTORY" THEN 24000
+10999 KW = 0: RETURN 
+11000  IF V$ = "JAM" THEN 54000
+11099 KW = 0: RETURN 
+11100  IF V$ = "KILL" THEN  PRINT "THAT IS BEYOND MY POWER.": RETURN 
+11199 KW = 0: RETURN 
+11200  IF A$ = "LOOK" THEN 22000
+11210  IF V$ = "LOOK" AND NFLAG THEN 27000
+11299 KW = 0: RETURN 
+11300  IF A$ = "MAKE JAMMER" THEN 55000
+11399 KW = 0: RETURN 
+11400  IF A$ = "N" THEN D = 1: GOTO 20000
+11499 KW = 0: RETURN 
+11500  IF A$ = "OPEN BEAR" THEN  PRINT "TWO BATTERIES JUST FELL ": PRINT "OUT OF THE BACK.": PRINT "THEY'RE ON THE GROUND":OB(11) = L: RETURN 
+11599 KW = 0: RETURN 
+11600  IF (V$ = "PUT" OR V$ = "PLACE") AND NFLAG THEN 28000
+11610  IF V$ = "PLAY" AND L = 6 THEN 43000
+11620  IF V$ = "PLAY" AND L = 16 THEN 48000
+11630  IF (A$ = "PUSH BUTTON" OR A$ = "PRESS BUTTON") AND L = 2 THEN 53000
+11699 KW = 0: RETURN 
+11700  IF A$ = "QUIT" THEN  END 
+11799 KW = 0: RETURN 
+11800  IF (A$ = "READ BOOK") AND (OB(4) = 0 OR OB(4) = L) THEN  PRINT "YOU NOW KNOW HOU TO MAKE A": PRINT "JAMMER FROM A RADIO":BK = 1: RETURN 
+11810  IF A$ = "READ TICKET" THEN A$ = "LOOK TICKET": GOTO 27000
+11899 KW = 0: RETURN 
+11900  IF A$ = "S" THEN D = 3: GOTO 20000
+11910  IF V$ = "SHOOT" THEN 43000
+11920  IF A$ = "SHOW TICKET" AND L = 16 THEN 48000
+11999 KW = 0: RETURN 
+12000  IF V$ = "TAKE" AND NFLAG THEN 25000
+12010  IF (A$ = "TURN KNOB" OR A$ = "TURN DIAL") AND L = 2 THEN 53000
+12099 KW = 0: RETURN 
+12100  IF A$ = "USE JAMMER" THEN 54000
+12199 KW = 0: RETURN 
+12200  IF A$ = "VISIT DANCER" THEN  PRINT "SHE DOESN'T WANT TO SEE YOU": RETURN 
+12299 KW = 0: RETURN 
+12300  IF A$ = "W" THEN D = 4: GOTO 20000
+12310  IF (A$ = "WEAR UNIFORM") AND (OB(9) = 0 OR OB(9) = L) THEN VC$ = "FR5890SE/": GOSUB 40000: PRINT "IT FITS WELL AND MAKES A GOOD": PRINT "DISGUISE":KW = 1:OB(9) = 0: RETURN 
+12399 KW = 0: RETURN 
+12400 KW = 0: RETURN 
+12500 KW = 0: RETURN 
+12600  POP : STOP : REM  DEBUGGING AID. INPUT OF Z STOPS PROGRAM.
+19000  REM  PARSER FOR DIRECTION
+20000  REM  MOVE ROUTINE:D=DIRECTION:R=ROOM MOVED INTO:L=PRESENT LOCATION
+20060 R =  ASC ( MID$ (R$(L),D,1)) - 64
+20070  IF  NOT R THEN  PRINT "YOU CAN'T GO THAT WAY": RETURN 
+20080 L = R
+22000  IF DISC AND  RND (1) > .6 AND A$ = "LOOK" THEN VC$ = "FR2550SE/": GOSUB 40000
+22001  IF V$(L) <  > "" THEN VC$ = V$(L): GOSUB 40000:V$(L) = ""
+22005  PRINT "YOU ARE IN ";
+22010  PRINT RM$(L): PRINT RD$(L): PRINT "THIS LOCATION CONTAINS ";:F1 = 0
+22020  FOR I = 1 TO NO
+22030  IF OB(I) = L THEN  PRINT OB$(I):F1 = 1
+22040  NEXT I: IF  NOT F1 THEN  PRINT "NOTHING"
+22050  PRINT "VISIBLE EXITS: ";
+22060  FOR I = 1 TO 4
+22070  IF  MID$ (R$(L),I,1) <  > "@" THEN  PRINT DIR$(I);"  ";:F1 = 1
+22080  NEXT I: IF  NOT F1 THEN  PRINT "DON'T EXIST"
+22081  PRINT : IF L = 5 THEN 41000
+22082  IF L = 8 THEN 47000
+22083  IF L = 15 THEN 47100
+22084  IF L = 18 THEN  PRINT "YOU FOLLOW A WINDING PATH, FINALLY": PRINT "RETURNING TO FAMILIAR GROUND":L = 1: GOTO 22000
+22085  IF L = 9 THEN 49000
+22090  RETURN 
+24000 F1 = 0: PRINT "YOU ARE CARRYING": FOR I = 1 TO NO
+24010  IF OB(I) = 0 THEN  PRINT OB$(I):F1 = 1
+24020  NEXT I: IF  NOT F1 THEN  PRINT "NOTHING"
+24030  RETURN 
+25000 F1 = 0:F2 = 0: FOR I = 1 TO NO
+25005  IF N$ = OB$(I) AND OB(I) = 0 THEN  PRINT "YOU ALREADY HAVE THE ";N$: RETURN 
+25010  IF (N$ = OB$(I) OR N$ = "ALL" OR N$ = "EVERYTHING") AND (OB(I) = (L)) THEN OB(I) = 0: PRINT OB$(I);" TAKEN":F1 = 1
+25020  IF N$ = OB$(I) THEN F2 = 1
+25025  NEXT I
+25030  IF F1 = 0 AND F2 = 0 AND N$ <  > "ALL" AND N$ <  > "EVERVTHING" THEN  PRINT "I CAN'T TAKE THE ";N$: RETURN 
+25035  IF F1 = 0 AND F2 = 0 THEN  PRINT "THERE IS NOTHING HERE I CAN TAKE."
+25040  IF F1 = 0 AND F2 = 1 THEN  PRINT "I DON'T SEE IT HERE."
+25060  RETURN 
+26000 F1 = 0: FOR I = 1 TO NO
+26010  IF ((OB$(I) = N$ OR N$ = "ALL" OR N$ = "EVERYTHING") AND (OB(I) = 0)) THEN OB(I) = L:F1 = 1
+26020  NEXT I
+26030  IF  NOT F1 THEN  PRINT "YOU CAN'T DROP WHAT YOU AREN'T CARRYING": RETURN 
+26040  PRINT "OK": RETURN 
+27000 F1 = 0: FOR I = 1 TO NO
+27010  IF (OB(I) = 0 OR OB(I) = L) AND (OB$(I) = N$) THEN F1 = 1: PRINT OD$(I): IF OD$(I) = "" THEN  PRINT "I SEE NOTHING IMPORTANT.": RETURN 
+27020  IF (FL(I) = (L) OR FL(I) = 0) AND (FR$(I) = N$) THEN F1 = 1: PRINT FD$(I): IF FD$(I) = "" THEN  PRINT "NOTHING EXTRAORDINARY HERE": RETURN 
+27030  IF F1 THEN  RETURN 
+27040  NEXT I
+27050  PRINT "I CAN'T DESCRIBE THAT"
+27060  RETURN 
+28000  FOR I = 1 TO NO
+28010  IF N$ <  > OB$(I) OR OB(I) <  > 0 THEN  NEXT I: PRINT "YOU AREN'T CARRYING THE ";N$: RETURN 
+28090  PRINT "WHERE?"
+28095 T$ = N$
+28100  GOSUB 1000
+28102 N$ = T$
+28105  PRINT 
+28106  IF A$ = " DOWN" THEN 26000
+28110  IF V$ <  > " IN" AND V$ <  > " ON" THEN  PRINT "I CAN'T DO THAT": RETURN 
+28115 T$ =  RIGHT$ (A$, LEN (A$) -  LEN (V$))
+28116  IF  LEFT$ (T$,1) = " " AND  LEN (T$) > 1 THEN T$ =  RIGHT$ (T$, LEN (T$) - 1)
+28117  IF T$ = "FLOOR" OR T$ = "TABLE" THEN 26000
+28120  FOR I = 1 TO NO
+28130  IF T$ <  > OB$(I) OR (OB(I) <  > L AND OB(I) <  > 0) THEN  NEXT I: PRINT "THE ";T$;" ISN'T HERE": RETURN 
+28140  PRINT "OK": IF (T$ = "RADIO" OR T$ = "JAMMER") AND N$ = "BATTERIES" THEN B = 1
+28200  RETURN 
+30000  DIM OB(12),OB$(12),RM$(18),RD$(18),R$(18),OD$(12),FR$(12),FL(12),FD$(12),V$(18)
+30001 RM$(1) = "THE MIDWAY":RM$(2) = "THE FIRST AID STATION":RM$(3) = "THE MIDWAY":RM$(4) = "THE MIDWAY":RM$(5) = "A RESTAURANT":RM$(6) = "A SHOOTING GALLERY"
+30002 RM$(7) = "A MAINTAINANCE ROOM":RM$(8) = "THE BELLY DANCER'S TENT":RM$(9) = "THE TOP OF THE ROLLER COASTER":RM$(10) = "A CLOSET"
+30003 RM$(11) = "AN ALLEY":RM$(12) = "THE OBSERVATION TOWER":RM$(13) = "A CRAWLWAY":RM$(14) = "A STORAGE ROOM":RM$(15) = "A SMALL SHACK":RM$(16) = "A GAME BOOTH":RM$(17) = "A NARROW TUNNEL":RM$(18) = "A DARK, TWISTING PATH"
+30010 R$(1) = "EDKC":R$(2) = "@JC@":R$(3) = "BAFG":R$(4) = "@PHA":R$(5) = "@@A@":R$(6) = "C@@@":R$(7) = "MCQ@":R$(8) = "D@N@":R$(9) = "@@M@"
+30011 R$(10) = "@@@B":R$(11) = "A@O@":R$(12) = "Q@@@":R$(13) = "I@G@":R$(14) = "@@@R":R$(15) = "K@@@":R$(16) = "@@@D":R$(17) = "G@L@":R$(18) = "@@@@"
+30020 L = 1:NO = 12
+30030 OB$(1) = "COINS":OB$(2) = "TOOLKIT":OB$(3) = "TICKET":OB$(4) = "BOOK":OB$(5) = "LAMP":OB$(6) = "TOWELS":OB$(7) = "POSTER":OB$(8) = "BEAR"
+30031 OB$(9) = "UNIFORM":OB$(10) = "RADIO":OB$(11) = "BATTERIES":OB$(12) = "JAMMER"
+30040 OB(1) = 4:OB(2) = 7:OB(3) = 14:OB(4) = 15:OB(5) =  - 1:OB(6) =  - 1:OB(7) =  - 1:OB(8) =  - 1
+30045 OB(9) = 10:OB(10) =  - 1:OB(11) =  - 1:OB(12) =  - 1
+30050 DIR$(1) = "NORTH":DIR$(3) = "SOUTH":DIR$(2) = "EAST":DIR$(4) = "WEST"
+30060 RD$(1) = "WHICH STRETCHES TO THE EAST AND WEST. A RESTAURANT IS TO THE NORTH"
+30061 RD$(2) = "CONTAINING STRANGE EQUIPMENT. LIGHTS    FLASH FROM AN ELECTRONIC BOX"
+30062 RD$(3) = "AN AID STATION IS TO THE NORTH. THE     SOUND OF GUNFIRE COMES FROM A SHOOTING  GALLERY TO THE SOUTH."
+30063 RD$(4) = "FROM A TENT TO THE SOUTH YOU HEAR EXOTICMUSIC
+30064 RD$(5) = "THE ROOM IS CROWDED BUT YOU SEE AN EMPTYTABLE IN THE CORNER"
+30065 RD$(6) = "A SIGN READS '3 SHOTS FOR 25 CENTS'"
+30066 RD$(7) = "THERE ARE DOORS TO THE NORTH AND SOUTH. THE NORTHERN DOOR IS OPEN. YOU CAN HEAR THE ROLLER COASTER."
+30067 RD$(8) = "SHE STOPS AND LOOKS AT YOU"
+30068 RD$(9) = "A DANGEROUS PLACE TO BE."
+30069 RD$(10) = "":RD$(11) = "THERE IS A DOOR LEADING TO A SMALL ROOM TO THE SOUTH"
+30070 RD$(12) = "BELOW, YOU CAN SEE THE WHOLE CARNIVAL.  THE TOP OF THE ROLLER COASTER IS IN     SIGHT."
+30071 RD$(13) = "THE PASSAGE LEADS NORTH TO THE TOP OF   THE ROLLER COASTER. THE NOISE IS QUITE  LOUD"
+30072 RD$(14) = "THE DOOR IS LOCKED BEHIND YOU, BUT THEREIS A WINDOW TO THE WEST"
+30073 RD$(15) = "THE ROOM IS LITTERED WITH FRAGMENTS OF  ELECTRONIC PARTS, BUT NONE OF IT IS     SALVAGEABLE. A GUARD BLOCKS YOUR PATH"
+30074 RD$(16) = "A SIGN SAYS, '50 CENTS A BALL. WINNER'S CHOICE.'"
+30075 RD$(17) = "THE PASSAGE LEADS SOUTH TO THE TOP OF   THE OBSERVATION TOWER"
+30100 OD$(1) = "TWO DIMES AND A NICKEL":OD$(2) = "IT CONTAINS EVERYTHING NEEDED FOR SMALL ELECTRONIC REPAIRS"
+30101 OD$(4) = "THE TITLE IS 'RADIO FREQUENCY JAMMING   TECHNIQUES'":OD$(5) = "IT IS VERY GAUDY":OD$(6) = "NICE AND FLUFFY":OD$(7) = "WHOOPIE--IT'S THE DALLAS CHEERLEADERS":OD$(8) = "WHEN YOU PUSH THE BUTTON ON ITS BACK, ITSAYS 'I WUV YOU'"
+30102 OD$(3) = "IT SAYS, 'GOOD FOR 1 FREE GAME AT THE   BALL TOSS, COURTESY OF CREATIVE         COMPUTING, THE #1 MAGAZINE OF SOFTUARE  AND APPLICATIONS.'"
+30200 FR$(1) = "BOX":FD$(1) = "IT IS FIRMLY ATTACHED TO THE TABLE.     THERE ARE KNOBS AND A BUTTON ON IT"
+30201 FR$(2) = "RIFLE":FL(2) = 6:FD$(2) = "IT IS CHAINED TO THE COUNTER"
+30202 FR$(3) = "GUN":FL(3) = 6:FD$(3) = "IT IS CHAINED TO THE COUNTER"
+30300 V$(1) = "FR4002SE/":V$(2) = "FR21130SE/":V$(3) = "FR4627SE/":V$(4) = "FR4750SE/"
+30310 V$(5) = "FR23100SE/":V$(6) = "FR11000SE/":V$(7) = "FR14038SE/FR14100PL/":V$(8) = "FR11818SE/FR11907PL/":V$(9) = "FR15362SE/"
+30320 V$(10) = "":V$(12) = "FR8300SE/FR8488PL/":V$(13) = "FR14724SE/FR14855PL/":V$(14) = "FR33900SE/":V$(15) = "FR28322SE/":V$(16) = "FR7343SE/"
+30330 V$(17) = "":V$(18) = ""
+30400 KW = 1
+31000  IF  NOT DISC THEN  RETURN : REM  SET UP SERIAL PORT FOR LASERDISC
+31010  PRINT  CHR$ (4);"PR#2": REM  INITIALIZE SERIAL PORT
+31020  POKE 49322,11: REM  COMMAND-NO PARITY, NO ECHO, ACTIVATE RTS, NO INTERRUPTS, ACTIVATE DTR
+31030  POKE 49323,28: REM  CONTROL-1 STOP BIT, 8 DATA BITS, BAUD RATE GENERATOR ENABLED, 4800 BPS
+31040  PRINT  CHR$ (4);"PR#0"
+31999  REM  KS: EVERYTHING I KNOW ABOUT APPLE 2 SERIAL COMM I LEARNED FROM https://groups.google.com/forum/#!topic/comp.sys.apple2.programmer/ZF9iyC6vVQo
+32000  RETURN 
+34000 VC$ = "FR2818SE/": GOSUB 40000: TEXT : HOME 
+34001  PRINT "WHAT IS YOUR FIRST NAME?": GOSUB 1000:NA$ = A$
+34010  PRINT : PRINT "YOU HAVE JUST RECEIVED AN ANONYMOUS": PRINT "TIP THAT A BOMB HAS BEEN PLANTED": PRINT "ON A ROLLER COASTER.": FOR I = 1 TO 1000: NEXT I
+34011 VC$ = "FR6726SE/FR6959PL/": GOSUB 40000
+34015  PRINT : PRINT "YOU ARE CALLED TO INVESTIGATE AND FLY": PRINT "OFF TO STOP THE SABOTEUR.": FOR I = 1 TO 1000: NEXT I
+34016 VC$ = "FR30032SE/FR30214PL/": GOSUB 40000
+34018  PRINT 
+34020  PRINT "ON HIS SIDE, HE HAS THE BRILLIANCE OF": PRINT "AN INSANE MIND, AND THE AID OF ALLIES": PRINT "WHO ARE DETERMINED TO SEE THAT YOU FAIL"
+34030  PRINT : PRINT "ON YOUR SIDE, YOU HAVE CUNNING, ": PRINT "TRAINING, AND DEDICATION"
+34055  PRINT : PRINT "YOU HAVE INFILTRATED THE PARK WITH": PRINT "THE KNOWLEDGE THAT THE SABOTEUR": PRINT "WILL STRIKE SOMETIME TONIGHT": PRINT : PRINT "ALL YOU NEED DO IS STOP HIM."
+34056  PRINT : INVERSE : PRINT "PRESS ANY KEY TO CONTINUE";: GET A$: NORMAL : HOME 
+34060  PRINT "BY GIVING THE RIGHT COMMAND, YOU CAN ": PRINT "MOVE, EXAMINE OBJECTS, AND PERFORM ": PRINT "OTHER ACTIONS"
+34070  PRINT : PRINT "I UNDERSTAND TWO-WORD COMMANDS SUCH AS": PRINT "'DROP BOOK' OR 'TAKE KNIFE'.": PRINT "TO MOVE, YOU CAN SIMPLY ENTER 'N' FOR": PRINT "NORTH, ETC."
+34080  PRINT : PRINT "AT TIMES, I WILL AWAIT YOUR COMMAND": PRINT "IN OTHER SITUATIONS, I WILL PRESENT YOU": PRINT "WITH A CHOICE OF ACTIONS": PRINT : PRINT "BUT SUCCESS OR FAILURE IS UP TO YOU."
+34090  PRINT : INVERSE : PRINT "PRESS ANY KEY TO BEGIN. MAY LUCK BE": PRINT "WITH YOU,";NA$;: GET A$: NORMAL : PRINT : RETURN 
+40000  REM  PLAY VIDEO CLIP
+40010  IF  NOT DISC THEN  RETURN 
+40020  FOR I = 1 TO  LEN (VC$)
+40030  IF  MID$ (VC$,I,1) = "/" THEN  POKE 49320,13: WAIT 49321,8:J =  PEEK (49320): GOTO 40060
+40040  POKE 49320, ASC ( MID$ (VC$,I,1))
+40060  NEXT I
+40070  RETURN 
+41000  PRINT : PRINT "A WAITER APPROACHES AND ASKS IF YOU": PRINT "WOULD LIKE A SEAT": PRINT : PRINT "SINCE YOU MISSED LUNCH TODAY, YOU": PRINT "ARE HUNGRY"
+41010  PRINT : PRINT "DO YOU WANT TO EAT?": GOSUB 1000
+41020  IF A$ <  > " NO" AND A$ <  > " YES" THEN  PRINT "PLEASE ANSWER YES OR NO": GOTO 41010
+41025  PRINT 
+41030  IF A$ = " NO" THEN  PRINT "THE WAITER CALLED YOU A STIFF": PRINT "AND THREW YOU OUT":L = 3: GOTO 22000
+41040  PRINT : PRINT "YOU ARE SERVED A DELICIOUS MEAL": PRINT "UNFORTUNATELY, THE SERVICE IS": PRINT "RATHER SLOW":VC$ = "FR19453SE/FR19799PL/": GOSUB 40000
+41045  PRINT 
+41050  PRINT "THE BOMB WENT OFF AND THE BOMBER ESCAPED": FOR I = 1 TO 3000: NEXT I: GOTO 50000
+43000  IF OB(1) <  > 0 THEN  PRINT "THE MAN BEHIND THE COUNTER TELLS": PRINT "YOU, 'IF YOU WANNA PLAY YOU GOTTA PAY.'": RETURN 
+43010  PRINT "YOU HAND OVER THE COINS AND PICK": PRINT "UP THE GUN":OB(1) =  - 1
+43020 VC$ = "FR10960SE/FR11107PL/": GOSUB 40000
+43030  PRINT "GOOD SHOOTING": PRINT "HE HANDS YOU A TEDDY BEAR":OB(8) = 0
+43035  PRINT "A PASSERBY LOOKS AT THE BEAR AND": PRINT "SAYS, 'MODERN NONSENSE. WHAT EVER       HAPPENED TO SIMPLE STUFFED ANIMALS?'": PRINT "HE SHAKES HIS HEAD AND LEAVES."
+43040  RETURN 
+47000  PRINT : IF OB(8) <  > 0 AND OB(8) <  >  - 2 THEN  PRINT "SHE SAYS YOU CAN'T COME IN UNLESS YOU": PRINT "HAVE A PRESENT FOR HER. SHE PUSHES YOU  OUT.":L = 4: GOTO 22000
+47005  IF OB(8) =  - 2 THEN  PRINT "SHE SAYS, 'YOU THINK ONE PRESENT": PRINT "ENTITLES YOU TO COME IN HERE ANY TIME": PRINT "YOU WANT?' SHE TURNS HER BACK AND       IGNORES YOU.": RETURN 
+47010  PRINT "SHE LETS YOU IN AND EYES THE BEAR.": PRINT "DO YOU WANT TO GIVE IT TO HER? ": GOSUB 1000
+47020  PRINT : IF A$ <  > " Y" AND A$ <  > " YES" THEN  PRINT "SHE THROWS YOU OUT":L = 4: GOTO 22000
+47030 OB(8) =  - 2: PRINT "SHE UNLOCKS THE DOOR TO THE SOUTH"
+47040  RETURN 
+47100  IF OB(9) <  > 0 THEN  PRINT "HE SAYS, 'EMPLOYEES ONLY' AND THROWS YOU OUT":L = 11: GOTO 22000
+47110  PRINT "HE SEES YOUR UNIFORM AND LETS YOU IN"
+47120  RETURN 
+48000  IF OB(3) <  > 0 THEN  PRINT "YOU CAN'T AFFORD THE GAME": RETURN 
+48010  PRINT "YOU HAND OVER THE TICKET AND THROW THE  BALL.": PRINT  CHR$ (7); CHR$ (7); CHR$ (7): PRINT "IT'S A WINNER.": PRINT "YOU HAVE A CHOICE OF FOUR PRIZES!"
+48020  PRINT "A LAMP, TOWELS, RADIO, OR POSTER."
+48025 OB(3) =  - 2
+48030  PRINT "WHICH DO YOU WANT?": GOSUB 1000
+48040 A$ =  RIGHT$ (A$, LEN (A$) - 1): FOR I = 5 TO 10
+48050  IF OB$(I) = A$ THEN OB(I) = 0: PRINT : PRINT "IT'S YOURS": IF A$ = "RADIO" THEN VC$ = "FR1234SE/": GOSUB 40000: RETURN 
+48055  IF OB$(I) = A$ THEN  RETURN 
+48060  NEXT I: PRINT : PRINT "PLEASE ANSWER WITH LAMP, POSTER, RADIO  OR TOWELS.": GOTO 48030
+49000  INVERSE : SPEED= 200: PRINT "IF YOU LOOK BACK, YOU'LL NOTICE": PRINT "A CAR SPEEDING TOWARD YOU":VC$ = "FR16185SE/FR16223PL/"
+49010  NORMAL : SPEED= 255: GOSUB 40000: GOTO 50000
+50000  HOME : VTAB 10: PRINT "IT IS ONE YEAR LATER": PRINT "THE ROLLER COASTER HAS BEEN REBUILT": PRINT "THE SABOTEUR PLANS TO DESTROY IT AGAIN": PRINT "WOULD YOU LIKE TO TRY TO SAVE IT?"
+50010  GOSUB 1000: PRINT 
+50020  IF A$ = " YES" OR A$ = " Y" THEN  GOSUB 30001: GOTO 22000
+50030  IF A$ <  > " N" AND A$ <  > " NO" THEN  PRINT "YES OR NO";: GOSUB 1000: PRINT : GOTO 50020
+50040  END 
+53000  PRINT "UH OH, I THINK THAT WAS A MISTAKE":VC$ = "FR18722SE/FR18807PL/": GOSUB 40000: PRINT "YOU SET OFF THE BOMB": FOR I = 1 TO 2000: NEXT I: GOTO 50000
+54000  IF L <  > 12 THEN  PRINT "YOU AREN'T IN LINE OF SIGHT WITH": PRINT "THE ROLLER COASTER": RETURN 
+54010  IF OB(12) THEN  PRINT "YOU DON'T HAVE A JAMMER": RETURN 
+54020  IF  NOT B THEN  PRINT "IT DOESN'T WORK, MAYBE IT NEEDS BATTERIES": RETURN 
+54030 VC$ = "FR12169SE/FR12227PL/": GOSUB 40000
+54040  HOME : VTAB 10: HTAB 12: INVERSE : SPEED= 100: PRINT "CONGRATULATIONS": NORMAL : PRINT : HTAB 6: PRINT "YOU SAVED THE ROLLER COASTER": SPEED= 255: END 
+55000  IF  NOT BK THEN  PRINT "YOU DON'T KNOW HOW": RETURN 
+55010  IF OB(10) <  > 0 THEN  PRINT "SOMETHING VITAL IS MISSING": RETURN 
+55020  IF OB(2) <  > 0 THEN  PRINT "YOU DON'T HAVE THE REQUIRED TOOLS": RETURN 
+55030  PRINT "CONGRATULATIONS, YOU NOW HAVE A ": PRINT "JAMMER":OB(10) =  - 1:OB(12) = 0: RETURN 

dlld/rom/comprehension.txt

@@ -0,0 +1,429 @@
+825	1B55
+855	
+8A5	
+
+ECHELLE DES SCORES
+DL A U2
+0    1    2    3    4    5    6    7    8    9    A    B    C    D    E    F
+0000 3100 7C00 FB00 7B01 EF01 9303 2E05 9307 8F08 730A B70C DF0D BA0F 8E12 8813
+0    49   124  251  379  495  915  1326 1939 2191 2675 3255 3551 4026 4750 5000
+l'index de score est le 3<>me octet avant la fin
+
+0 - LEVEL INTRODUCTION
+5705 0003AB0000
+
+1 - Castle Entrance & Vestibule
+DL_A_U5.BIN / $10C8
+9005 0081460000
+1F07 00023B0000
+F30F 920103803B3C980103803B3C9A0103803B3C8101053B3C8401054A2C01057700 00
+5F07 9801048000 1D81010500 1D84010500 1D03051500 00
+AC07 03852A0000
+D807 1007310000
+2508 10073A0000
+6C08 20005D0000
+A508 00023B0000
+
+DL_A_U2.BIN / $1AFF
+9005 0081460000
+1F07 00023B0000
+F30F 920103803B3C980103803B3C9A0103803B3C8101053B3C8401054A2C01057700 00
+5F07 9801048000 1D81010500 1D84010500 1D03051500 00
+AC07 03852A0000
+D807 1007310000
+2508 10073A0000
+6C08 20005D0000
+A508 00023B0000
+
+
+1b - Fire Pit (ropes) (reversed)
+DL_A_U5.BIN / $18A2
+B531 B41209034000 460E81010900 5682010900 5600094E00 00
+F231 B41209044000 290C88010900 3781010900 3782010900 3704082F00 00
+3932 B41209054000 270E88010900 3781010900 3782010900 3705082F00 00
+6732 B41209064000 240F81010900 3482010900 3488010900 3400072C00 00
+9532 00821F0000
+C132 100B2C0000
+F132 100B520000
+2133 100B1F0000
+4733 20005E0000
+6B33 00023C0000
+
+DL_A_U5_BIN / $0158
+B531 B41209034000 371F81010900 5682010900 5600094E00 00
+F231 B41209044000 280F88010900 3781010900 3782010900 3704082F00 00
+3932 B41209054000 280F88010900 3781010900 3782010900 3705082F00 00
+6732 B41209064000 1A1A81010900 3482010900 3488010900 3400072C00 00
+9532 00821F0000
+C132 100B2C0000
+F132 100B520000
+2133 100B1F0000
+4733 20005E0000
+6B33 00023C0000
+
+
+2 - Bower (bedroom / closing wall)
+DL_A_U3.BIN / $0AF9
+8523 9111038000 2A01042200 00
+DD23 0482480000
+FF23 10060F0000
+5524 1006410000
+AD24 20005E0000
+AD24 00023C0000
+
+DL_A_U4.BIN / $1B11
+8523 9111038000 1F88010500 1F84010500 1F01041200 00
+E623 0483480000
+FF23 10060F0000
+5524 1006400000
+7124 20005E0000
+AD24 00023C0000
+
+
+3a - Flying Barding
+DL_A_U3.BIN / $0BCE
+ED26 990103807116980103807116810109711684010B711601098700 00
+2527 940104801613810109161388010B161305092900 00
+9327 9801058024138101091A1D84010B241305093700 00
+B427 94010680271488010B27148101091F1C05093B00 00
+E127 94010780271181010A1D1B88010A1D1B050A3800 00
+1128 94010880161488010B16148101090C1E07092A00 00
+3F28 0583870000
+6128 100C310000
+D528 100C450000
+0529 100C230000
+4529 20005E0000
+6929 00023C0000
+
+DL_A_U4.BIN / $1BEE
+ED26 B912090340670917B812090340670A16810109711684010B711601097D00 00
+2527 B4120904400C0914810109161388010B161305092200 00
+9327 B8120905401A09148101091A1D84010B241305093000 00
+B427 B4120906401D091588010B27148101091F1C05093400 00
+E127 B4120907401D091281010A1D1B88010A1D1B050A3200 00
+1128 B4120908400C091588010B16148101090C1E07092300 00
+3F28 0583870000
+6128 100C310000
+D528 100C450000
+0529 100C230000
+4529 20005E0000
+6929 00023C0000
+
+
+3b - Flying Barding (reversed)
+DL_A_U3.BIN / $153A
+6840 B512090340660A16B412090340660A168101097115A812090B660A1501098600 00
+A040 B81209044000 16108101091611A412090B00 161106092600 00
+0D41 B41209054000 2714A812090B00 27148101091A2106093B00 00
+2C41 B81209064000 2714A412090B00 27148101091F1C05093B00 00
+5C41 B81209074000 251181010A1D1984010A1D19050A3600 00
+8C41 B81209084000 1814A412090B00 18148101090C2008092C00 00
+B841 0583870000
+DC41 100C300000
+5042 100C450000
+8042 100C230000
+C042 20005E0000
+E442 00023A0000
+
+DL_A_U5.BIN / $0545
+6840 B512090340660A16B412090340660A168101097115A812090B660A1501097E00 00
+A040 B81209044000 16108101091611A412090B00 161106092200 00
+0D41 B41209054000 2714A812090B00 27148101091A2106093300 00
+2C41 B81209064000 2714A412090B00 27148101091F1C05093400 00
+5C41 B81209074000 251181010A1D1984010A1D19050A3100 00
+8C41 B81209084000 1814A412090B00 18148101090C2008092800 00
+B841 0583870000
+DC41 100C300000
+5042 100C450000
+8042 100C230000
+C042 20005E0000
+E442 00023A0000
+
+DL_A_U5.BIN / $1A6D
+6840 B512090340660818B4120903406608188101097115A812090B660A1501097E00 00
+A040 B81209044000 180E8101091611A412090B00 161106092200 00
+0D41 B41209054000 290FA812090B00 27148101091A2106093300 00
+2C41 B81209064000 2811A412090B00 27148101091F1C05093400 00
+5C41 B81209074000 231181010A1D1984010A1D19050A3100 00
+8C41 B81209084000 1B0FA412090B00 18148101090C2008092800 00
+B841 0583870000
+DC41 100C300000
+5042 100C450000
+8042 100C230000
+C042 20005E0000
+E442 00023B0000
+
+
+4 - Wizard's kitchen "drink me"
+DL_A_U3.BIN / $173A
+3247 9801038000 3D81010400 3D8201052716840105271601053D00 00
+6A47 04832B0000
+9E47 10067C0000
+CA47 1006230000
+3648 20005E0000
+5A48 00023C0000
+
+DL_A_U4.BIN / $173A
+3247 9801038000 3D81010400 3D8201052716840105271601053D00 00
+6A47 04832B0000
+9E47 10067C0000
+CA47 1006230000
+3648 20005E0000
+5A48 00023C0000
+
+DL_A_U5.BIN / $078D
+3247 9801038000 3D81010400 3D8201052716840105271601053D00 00
+6A47 04822B0000
+9E47 10067C0000
+CA47 1006230000
+3648 20005E0000
+5A48 00023C0000
+
+
+5a - Mausoleum (Crypt Creeps)
+DL_A_U3.BIN / $0D0C
+A92C 91010380421E800109421D82010A421D88010A421D84010A421D010A6000 00
+E12C 90010480151281010B1C0B82010A002784010B1512050B2700 00
+302D 910105801F2282010A1F2188010C1F2184010C1F21060C4100 00
+512D 90010680121281010B121182010C002488010B1211050B2400 00
+862D 940107800D2A82010C003788010C0B2C060C3700 00
+A42D 90010880152281010D201782010D152288010D201784010D2017050D3700 00
+D12D 05847D0000
+FD2D 100A230000
+692E 100E070000
+802E 100E130000
+8D2E 100E240000
+A42E 100E490000
+CF2E 2000540000
+102F 00023C0000
+
+DL_A_U4.BIN / $1DAF
+A92C 91010380451B800109421D82010A421D88010A421D84010A421D010A6000 00
+E12C B0120A044000151281010B1C0B82010A002784010B1512050B2700 00
+302D 91010580231E82010A1F2188010C1F2184010C1F21060C4100 00
+512D B0120A064000121281010B121182010C002488010B1211050B2400 00
+862D 94010780172082010C003788010C0B2C060C3700 00
+A42D 90010880181F81010D201782010D152288010D201784010D2017050D3700 00
+D12D 05847D0000
+FD2D 100A230000
+692E 100E070000
+802E 100E130000
+8D2E 100E240000
+A42E 100E490000
+CF2E 2000540000
+102F 00023C0000
+
+DL_A_U5.BIN / $1DAF
+A92C 91010380451B800109421D82010A421D88010A421D84010A421D010A600000
+E12C B0120A044000151281010B1C0B82010A002784010B1512050B270000
+302D 91010580231E82010A1F2188010C1F2184010C1F21060C410000
+512D B0120A064000121281010B121182010C002488010B1211050B240000
+862D 94010780172082010C003788010C0B2C060C370000
+A42D 90010880181F81010D201782010D152288010D201784010D2017050D370000
+D12D 05847D0000
+FD2D 100A230000
+692E 100E070000
+802E 100E130000
+8D2E 100E240000
+A42E 100E490000
+CF2E 2000540000
+102F 00023C0000
+
+
+6 - Pirates of the Caribbean
+DL_A_U3.BIN + DL_A_U4.BIN / $1E7F
+9A58 00184F0000D25894010380001E810110001E880110001E01101E00 00
+9859 980104801D1D8101111D1D8401111D1D04113A00 00
+B059 940105801F1D8101121F1D8801121F1D04123C00 00
+DF59 980106801D1E8101131D1E8401131D1E04133B00 00
+105A D193FF14072000 751213B8120714806F1912840114821804149A00 00
+405A D193FF14082000 241314880114241DB41208148020191205144B00 00
+BD5A D193FF14092000 270F14B8120914801E1A12840114222805144A00 00
+FA5A D193FF140A2000 2819138801143024B4120A148028191305145400 00
+365B 98010B80723199010B807231810115723184011572310515A300 00
+7A5B 94010C802A2795010C802A278101152A278801152A2703155100 00
+FE5B 98010D80282299010D8028228101152822840115282203154A00 00
+405C 94010E802B2695010E802B268101152B268801152B2603155100 00
+7C5C 99010F80732691010F807326820116732698010F807326840116732603169900 00
+BE5C 05844E0000
+3A5D 1017150000
+825D 1017150000
+9A5D 1017150000
+B25D 1017150000
+CA5D 1017410000
+E25D 1017440000
+1E5E 1017340000	CHECK
+7B5E 20005D0000	CHECK
+AE5E 00023C0000
+
+DL_A_U5.BIN / $0F91
+9A58 00184F0000D25894010380001E810110001E880110001E01101E0000
+9859 980104801D1D8101111D1D8401111D1D04113A0000
+B059 940105801F1D8101121F1D8801121F1D04123C0000
+DF59 980106801D1E8101131D1E8401131D1E04133B0000
+105A D193FF14072000751213B8120714806F1912840114821804149A0000
+405A D193FF14082000241314880114241DB41208148020191205144B0000
+BD5A D193FF14092000270F14B8120914801E1A12840114222805144A0000
+FA5A D193FF140A20002819138801143024B4120A14802819130514540000
+365B 020B6700007A5B94010C80001295010C800012810115001288011500120315120000
+315C 98010D80361499010D8036148101152822840115282203154A0000
+405C 94010E803D1495010E803D148101152B268801152B260315510000
+7C5C 99010F80732691010F807326820116732698010F80732684011673260316990000
+BE5C 05854E0000
+3A5D 1017150000
+825D 1017150000
+9A5D 1017150000
+B25D 1017150000
+CA5D 1017410000
+E25D 1017440000
+1E5E 1017340000
+7B5E 20005D0000
+AE5E 00023C0000
+
+
+9 - Boulder Trench
+DL_A_U4.BIN / $0225
+BA65 B21209034091081881010A9918010AB100 00
+F265 B2120904401A071781010A0038030A3800 00
+8366 B2120905401B0A1681010A003B040A3B00 00
+B166 B2120906401B081881010A003B040A3B00 00
+E166 B2120907401B081881010A003B040A3B00 00
+1167 B212090C401B071781010A0039040A3900 00
+4167 0486350000
+9F67 100B140000
+F567 100B0C0000
+E467 20005F0000
+0D68 B1120A0840001818040D300000
+7167 100B190000B25700023C0000
+
+DL_A_U5.BIN / $1348
+BA65 B21209034091081881010A9918010AA900 00
+F265 B2120904401A071781010A0038030A3200 00
+8366 B2120905401B0A1681010A003B040A3200 00
+B166 B2120906401B081881010A003B040A3400 00
+E166 B2120907401B081881010A003B040A3400 00
+1167 B212090C401B091581010A0039040A3400 00
+4167 0484440000
+9467 100B140000
+F567 100B0C0000
+E467 20005F0000
+0D68 B1120A0840001A11040D2B0000
+7167 100B190000
+B257 00023C0000
+
+
+11 - Knight & Light (Black Knight / horse)
+DL_A_U4.BIN / $01B1
+8863 9401038050198801065D0C810107501B01076900 00
+C063 940104805C178101095C15880106676408097300 00
+1864 980105804917840106491681010949168201063B1608096000 00
+7664 0A86380000
+C564 1008230000
+FA64 1008400000
+2A65 20005E0000
+6565 1008280000
+3E65 00023C0000
+
+DL_A_U5.BIN / $12BA
+8863 98010A80001991010A800019010B1100 00
+C063 940103803519880106420C810107351B04074E00 00
+D663 940104805C178101095C15880106676408097300 00
+1864 980105804917840106491681010949168201063B1608096000 00
+7664 0A8A380000
+C564 1008230000
+FA64 1008400000
+2A65 20005E0000
+6565 1008280000
+3E65 1008190000
+
+
+13 - Pot of Gold (Lizard King)
+DL_A_U3.BIN / $160C
+3843 940103800E32910103800E32950103800E328201110E328801100040010F4000 00
+7043 980104806A1A8401106A1A82010F6A1A08118400 00
+A443 980105804F198401104F1982010F4F1907116800 00
+0F44 98010680241A840110003E82010F003E07113E00 00
+6444 98010780721D840110721D82010F008F07118F00 00
+9644 980108802A168401102A1682010F2A1607114000 00
+0A45 910109800E34900109800E3409114200 00
+3E45 90010A80191682010F19160B0F2F00 00
+7445 90010B800A1392010B800A13000B1D00 80
+9A45 90010C800519000C1E00 80
+B245 90010D800F0D880111001C82010D0F0D84010F0F0D000D1C00 80
+CA45 90010E801110000E2100 80
+E145 00878C0000
+FC45 1012140000
+7446 1012590000
+8C46 10123F0000
+A246 20005E0000
+DE46 00023C0000
+
+DL_A_U5.BIN / $0617
+3843 B412100340002F0E810110231D950103802F0E8201110E328801100040010F4000 00
+7043 980104806A1A8801101F468401101E648101106A1A82010F1E6408118200 00
+A443 980105805017880110143B840110145382010F1453810110501707116700 00
+0E44 980106802F148801100F1F8401100F348101102F1482010F0F3407114300 00
+6244 980107807614880110363F8401103654810110761482010F365407118A00 00
+9844 980108802F148801100F208401100F348101102F1482010F0F3407114300 00
+0845 910109800C36900109800C368801100C368401100C3682010F0C3609114200 00
+3E45 90010A80191682010F19160B0F2F00 00
+7445 90010B80061A84010F061A000F2000 00
+9A45 90010C80001188010F0011000F1E00 00
+B445 90010D80002692010D80002696010D800026000F2600 00
+C245 90010E80001F88010F001F000F1F00 00
+E145 00878B0000
+FA45 1012140000
+7446 1012590000
+8C46 10123F0000
+A246 20005E0000
+DE46 00023C0000
+
+
+26 - Throne Room
+DL_A_U3.BIN / $1C0F
+8A50 980103803B1781010830428201083042840108304201085200 00
+C250 9101048000 159901048000 159801048000 1584010800 1582010800 1507081500 00
+0651 98010580041784010700 1B81010800 1B82010800 1B0B081B00 00
+1751 D893FFFF062000 24411DC493FFFF0800 24411DC293FFFF0800 2441150A097F00 00
+2E51 088D280000
+9851 100A4F0000
+C051 100A1C0000
+0852 100A290000
+2652 20004A0000
+5052 00023C0000
+
+DL_A_U5.BIN / $0D1B
+8A50 B812070340003B1781010830428201083042840108304201085200 00 
+C250 910104800A0B990104800A0B8801080A0B8401080A0B82010800 1507081500 00
+0651 98010580051684010705168001070516810108051682010805160B081B00 00
+1751 D893FFFF062000 24411DC493FFFF0800 24411DC293FFFF0800 2441150A097700 00
+2E51 088B280000
+9851 100A4F0000
+C051 100A1C0000
+0852 100A290000
+2652 20004A0000
+5052 00023C0000
+
+
+27 - Tilting Room
+DL_A_U3.BIN / $1902
+A24E 9201038070168401065333880107701601068400 00
+DB4E B1120604400A11148401060A258201070A2508072F00 00
+484F 940105800F118101080F118201070A168801070A160A071800 00
+6F4F 088D140000
+884F 1009230000
+E24F 1009310000
+0650 1009480000
+A04F 20005E0000
+3650 00023C0000
+
+DL_A_U5.BIN / $1BE8
+A24E 920103807C088401065333880107701601068400 00
+DB4E B1120604400A11148401060A258201070A2508072F00 00
+484F 940105800E0D8101080F118201070A168801070A160A071800 00
+6F4F 088D140000
+884F 1009230000
+E24F 1009310000
+0650 1009480000
+A04F 20005E0000
+3650 00023C0000

dlld/source/_FileInformation.txt

@@ -0,0 +1 @@
+dlld2=Type(06),AuxType(2000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)

dlld/source/dlld.s

@@ -0,0 +1,446 @@
+*
+* DLLD
+* Let's play Dragon's Lair :-)
+*
+* (c) 2024, Brutal Deluxe Software
+*
+
+	mx	%11
+	org	$2000
+	lst	off
+
+*-----------------------------------
+* MACROS
+*-----------------------------------
+
+_sendLD	mac
+	ldx	#>]1
+	ldy	#<]1
+	jsr	sendSERIAL
+	eom
+
+_receiveLD mac
+	ldx	#>]1
+	ldy	#<]1
+	jsr	receiveSERIAL
+	eom
+
+_sendLDCommand mac
+	ldx	#>]1
+	ldy	#<]1
+	jsr	sendLDCommand
+	eom
+
+_sendreceiveLD mac
+	ldx	#>]1
+	ldy	#<]1
+	jsr	sendreceiveLD
+	eom
+
+_readSTRING	mac
+	ldx	#>]1
+	ldy	#<]1
+	jsr	receiveSERIAL
+	eom
+	
+_sendSTRING	mac
+	ldx	#>]1
+	ldy	#<]1
+	jsr	sendSerialString
+	eom
+
+*-----------------------------------
+* EQUATES
+*-----------------------------------
+
+dpFROM	=	$fc
+dpTO	=	dpFROM+2
+
+KBD	=	$c000
+KBDSTROBE	=	$c010
+RDVBLBAR	=	$c019
+
+HOME	=	$fc58
+WAIT	=	$fca8
+COUT	=	$fded
+
+chrCTRLA	=	$01
+chrLINEFEED	=	$0a
+chrRETURN	=	$0d
+chrSPACE	=	$20
+
+*-----------------------------------
+* CODE
+*-----------------------------------
+
+	jsr	initSERIAL	; set the serial addresses
+	jsr	initPORT	; init the serial port for LD support
+	jsr	initLDDS	; show text
+	jsr	initLDCO	; close the door
+	jsr	initLDSA	; spin the disc
+	jmp	initLDPL	; start playing
+	jmp	initLDC	; get register C
+
+	jmp	resetSERIAL ; do not activate it when code is light
+			; or all commands will not be handled
+
+*-----------------------------------
+* LASERDISC
+*-----------------------------------
+
+initLDDS	_sendLDCommand #strDS	; 4-28 DISPLAY TEXT
+	_sendLDCommand #strAV	; 4-28 DISPLAY TEXT
+	rts
+initLDCO	_sendLDCommand #strCO	; 4-11 CLOSE
+	rts
+initLDSA	_sendLDCommand #strSA	; 4-12 START
+	rts
+initLDPL	_sendLDCommand #strPL	; 4-13 PLAY
+	rts
+initLDC	_sendLDCommand #strC	; 4-45 $C
+	rts
+
+*---------- Send LD command and Receive answer
+
+sendreceiveLD
+	jsr	sendSERIAL
+	
+	nop
+	lda	#150
+	jsr	WAIT
+	nop
+
+	_readSTRING	#responseBUF
+	rts
+
+*-----------------------------------
+* SERIAL PORT (MODEM)
+*-----------------------------------
+
+*---------- Init modem port for LD support
+
+initPORT	jsr	resetSERIAL
+	_sendSTRING	#strED	; Don't echo output
+	_sendSTRING	#strBE	; Input buffering: on
+	_sendSTRING	#str12B	; Baud rate: 4800 BPS
+	_sendSTRING	#str0D	; Data/Stop bits: 8/1
+	_sendSTRING	#str0P	; Parity: none
+	_sendSTRING	#str0N	; Line length: 0
+	_sendSTRING	#strAD	; Do not implement basic tabs
+	_sendSTRING	#strCD	; Disable line formatting
+	_sendSTRING	#strXD	; Ignore XOFF
+	_sendSTRING	#strFD	; Disable keyboard input
+	_sendSTRING	#strLD	; Do not add line feeds after CR
+	_sendSTRING	#strME	; Mask line feed in
+	_sendSTRING	#strZ	; Suppress control characters
+	jsr	checkSerialInputReady
+	rts
+
+*---------- Check serial input is ready
+
+checkSerialInputReady
+]lp	lda	#1	; is input ready?
+	jsr	statusSERIAL
+	beq	checkSIR9
+
+	jsr	readSERIAL	; exit when nothing to read
+	bcs	]lp
+
+checkSIR9	rts
+
+*---------- Check the input is ready
+
+checkInputReady
+]lp	jsr	getSerialInputStatus
+	bne	checkIR1
+
+	lda	#0
+	jsr	WAIT
+	jsr	WAIT
+	
+	lda	KBD
+	bpl	]lp
+	bit	KBDSTROBE
+	lda	#1
+	rts
+checkIR1	lda	#0
+	rts
+
+*---------- Get serial output status
+
+getSerialOutputStatus
+	lda	#0
+	jsr	statusSERIAL
+	rts
+
+*---------- Get serial input status
+
+getSerialInputStatus
+	lda	#1
+	jsr	statusSERIAL
+	rts
+
+*---------- Set all addressses
+
+initSERIAL
+	lda	$c10d
+	sta	resetSERIAL+5
+	lda	$c10e
+	sta	readSERIAL+5
+	lda	$c10f
+	sta	writeSERIAL+5
+	lda	$c110
+	sta	statusSERIAL+5
+	rts
+
+*---------- Reset port, restore control panel defaults
+
+resetSERIAL
+	ldx	#$c2
+	ldy	#$20
+	jsr	$c10d
+	bcs	resetSER1
+	lda	#0	; carry clear, not ready
+	beq	resetSER2
+resetSER1	lda	#1	; carry set, ready
+
+resetSER2	cpx	#0	; check error code
+	beq	resetSER3
+	lda	#2	; reset error!
+resetSER3	rts
+
+*---------- Wait for and get next character
+
+readSERIAL
+	ldx	#$c2	; yes
+	ldy	#$20
+	jsr	$c10e
+	cpx	#0	; carry holds the error
+	beq	readSER1	; and A the character
+	sec
+	hex	24
+readSER1	clc
+	rts
+
+*---------- Send a LD command
+
+sendLDCommand
+	sty	dpFROM
+	stx	dpFROM+1
+
+	jsr	checkSerialInputReady
+	bne	sendLDC9
+
+	jsr	sendCRString
+	bne	sendLDC9
+	
+	jsr	receiveLDAnswer
+
+sendLDC9	rts
+
+*---------- Send a serial string (it begins with a 1)
+
+sendSerialString
+	sty	dpFROM
+	stx	dpFROM+1
+
+	lda	#chrCTRLA
+	jsr	sendSerialCharacter
+	bne	sendCRS9	; on error, jump to the end
+			; or goes below to sendCRString
+
+*---------- Send CR string
+
+sendCRString
+]lp	lda	(dpFROM)
+	beq	sendCRS1	; end of string?
+	jsr	sendSerialCharacter
+	bne	sendCRS9	; error!
+
+	inc	dpFROM
+	bne	]lp
+	inc	dpFROM+1
+	bne	]lp
+
+sendCRS1	lda	#chrRETURN	; yes, add a final CR
+	jsr	sendSerialCharacter
+sendCRS9	rts
+
+*---------- Send serial character
+
+sendSerialCharacter
+	pha
+	
+]lp	jsr	getSerialOutputStatus
+	bne	sensSC1
+
+	pla
+	lda	#1	; return busy
+	rts
+
+sensSC1	pla
+	jsr	writeSERIAL
+	
+*---------- Send character
+
+writeSERIAL
+	ldx	#$c2
+	ldy	#$20
+	jsr	$c10f
+	cpx	#0
+	beq	writeSER1
+	ldx	#2
+writeSER1	txa
+	rts
+
+*---------- Inquire if character has been received
+
+statusSERIAL
+	ldx	#$c2
+	ldy	#$20
+	jsr	$c110
+	cpx	#0
+	beq	statusSER1
+	ldx	#2
+statusSER1	txa
+	rts
+
+*---------- Receive a LD answer
+
+receiveLDAnswer
+	ldx	#>responseBUF
+	ldy	#<responseBUF
+	jsr	receiveSTRING
+
+	lda	responseBUF
+	ora	#$80
+	jsr	COUT
+	rts
+
+*---------- Receive String
+
+receiveSTRING
+	sty	dpTO
+	stx	dpTO+1
+	
+]lp	jsr	checkInputReady
+	cmp	#1
+	bne	receiveSTR1
+	rts
+
+receiveSTR1	jsr	readSERIAL
+	bcc	receiveSTR2
+	lda	#2
+	rts
+
+receiveSTR2	sta	(dpTO)
+	cmp	#chrRETURN
+	beq	receiveSTR3
+	
+	inc	dpTO
+	bne	]lp
+	inc	dpTO+1
+	bne	]lp
+
+receiveSTR3	lda	#0
+	rts
+
+*---------- Receive string
+
+receiveSERIAL
+	sty	dpTO
+	stx	dpTO+1
+
+]lp	nop
+	nop
+	lda	#1
+	jsr	statusSERIAL
+	bcc	]lp
+
+	nop
+	clc
+	jsr	readSERIAL
+	and	#$7f
+	pha
+	ora	#$80
+	jsr	COUT
+	pla
+	cmp	#chrSPACE
+	bcs	]lp
+	rts
+
+	ldy	#0
+receiveSER1	phy
+]lp	lda	#1	; Do you have input ready?
+	jsr	statusSERIAL
+	bcc	]lp	; no
+	jsr	readSERIAL	; yes, jump below
+	ply
+	sta	(dpTO),y
+	cmp	#chrRETURN
+	beq	receiveSER9
+	cmp	#chrLINEFEED
+	beq	receiveSER9
+	iny
+	bne	receiveSER1	
+receiveSER9	rts
+
+*---------- Send string
+
+sendSERIAL	sty	dpFROM
+	stx	dpFROM+1
+
+	ldy	#0
+sendSERIAL1	lda	(dpFROM),y
+	beq	sendSERIAL9
+	phy
+	pha
+
+]lp	lda	#0	; Are you ready to accept output?
+	jsr	statusSERIAL
+	bcc	]lp	; no
+	
+	pla
+	jsr	writeSERIAL
+	ply
+	iny
+	bne	sendSERIAL1	; limit to 256 characters
+sendSERIAL9	rts
+
+*-----------------------------------
+* DATA
+*-----------------------------------
+
+*---------- Serial data
+
+strED	asc	'ED'00	; *Don't echo output
+strBE	asc	'BE'00	; *Input buffering: on
+str12B	asc	'12B'00	; *Baud rate: 4800 BPS
+str0D	asc	'0D'00	; *Data/Stop bits: 8/1
+str0P	asc	'0P'00	; *Parity: none
+str0N	asc	'0N'00	; Line length: 0
+strAD	asc	'AD'00	; *Do not implement basic tabs
+strCD	asc	'CD'00	; *Disable line formatting
+strXD	asc	'XD'00	; *Ignore XOFF
+strFD	asc	'FD'00	; *Disable keyboard input
+strLD	asc	'LD'00	; Do not add line feeds after CR
+strME	asc	'ME'00	; Mask line feed in
+strZ	asc	'Z'00	; *Suppress control characters
+
+*---------- Laserdisc
+
+strDS	asc	'1DS CS'00
+strAV	asc	'ANTOINE'00
+strCO	asc	'CO'00
+strSA	asc	'SA'00
+strPL	asc	'PL'00
+strC	asc	'$C'00
+
+	ds	\
+	
+responseBUF	ds	256	; LD player response
+	
+*-----------------------------------
+* END OF CODE
+*-----------------------------------
+

dlld/source/dlld2.s

@@ -0,0 +1,529 @@
+*
+* DLLD
+* Let's play Dragon's Lair :-)
+*
+* (c) 2024, Brutal Deluxe Software
+*
+
+	mx	%11
+	org	$2000
+	lst	off
+
+	use	4/Int.Macs
+	use	4/Util.Macs
+	
+*-----------------------------------
+* MACROS
+*-----------------------------------
+
+_sendSTRING	mac
+	ldx	#>]1
+	ldy	#<]1
+	jsr	sendString
+	eom
+
+*-----------------------------------
+* EQUATES
+*-----------------------------------
+
+SLOT	=	2
+N0	=	SLOT*16
+CN	=	SLOT!$C0
+
+dpFROM	=	$fc
+dpTO	=	dpFROM+2
+
+chrRETURN	=	$0d
+
+KBD	=	$c000
+KBDSTROBE	=	$c010
+
+HOME	=	$fc58
+COUT	=	$fded
+
+*-----------------------------------
+* CODE
+*-----------------------------------
+
+	jsr	showME
+	jsr	initSERIAL	; set the serial addresses
+	jsr	initPORT	; init the serial port for LD support
+
+	jsr	showFRAME
+
+	ldx	#>strSA	; start the player
+	ldy	#<strSA
+	jsr	sendLDCommand
+
+*---
+
+mainLOOP	
+]lp	lda	KBD	; wait for a key
+	bpl	]lp
+	bit	KBDSTROBE
+	sta	$427
+	
+	ldx	#0	; quelle touche ?
+]lp	cmp	tblKEY,x
+	beq	foundIT
+	inx
+	cpx	#19+1
+	bcc	]lp
+	bra	mainLOOP
+foundIT	txa
+	asl
+	tax
+	lda	tblADR,x
+	sta	gotoIT+1
+	lda	tblADR+1,x
+	sta	gotoIT+2
+	
+gotoIT	jsr	$bdbd
+	bcc	doIT
+
+	ldx	#>strRJ	; It's the end!
+	ldy	#<strRJ
+	jsr	sendLDCommand
+	rts
+
+doIT	ldx	#>strFR	; Set frame and search
+	ldy	#<strFR
+	jsr	sendLDCommand
+	bra	mainLOOP
+
+*---
+
+doESC	sec
+	rts
+
+*--- Move backwards
+
+doQ	ldx	#>1800	; 1 minute
+	lda	#<1800
+	bra	doREVERSE
+doW	ldx	#>900	; 30 secondes
+	lda	#<900
+	bra	doREVERSE
+doE	ldx	#>300	; 10 secondes
+	lda	#<300
+	bra	doREVERSE
+doR	ldx	#>150	; 5 secondes
+	lda	#<150
+	bra	doREVERSE
+doT	ldx	#>90	; 3 secondes
+	lda	#<90
+	bra	doREVERSE
+doA	ldx	#>30	; 30 frames = 1 seconde
+	lda	#<30
+	bra	doREVERSE
+doS	ldx	#>15	; 15 frames
+	lda	#<15
+	bra	doREVERSE
+doD	ldx	#>3	; 3 frames
+	lda	#<3
+	bra	doREVERSE
+doF	ldx	#>1	; 1 frame
+	lda	#<1
+
+doREVERSE	sta	theINDEX
+
+	clc
+	xce
+	rep	#$30
+	
+	lda	theFRAME
+	sec
+	sbc	theINDEX
+	beq	revONE
+	bpl	revOK
+revONE	lda	#1
+revOK	sta	theFRAME
+
+	pha
+	lda	#'00'
+	sta	strFRAME
+	sta	strFRAME+2
+	sta	strFRAME+3
+	PushLong	#strFRAME
+	PushWord	#5
+	PushWord	#0
+	_Int2Dec
+
+	sec
+	xce
+	sep	#$30
+	clc
+	rts
+
+*--- Move forwards
+
+doY	ldx	#>90	; 3 secondes
+	lda	#<90
+	bra	doFORWARD
+doU	ldx	#>150	; 5 secondes
+	lda	#<150
+	bra	doFORWARD
+doI	ldx	#>300	; 10 secondes
+	lda	#<300
+	bra	doFORWARD
+doO	ldx	#>900	; 30 secondes
+	lda	#<900
+	bra	doFORWARD
+doP	ldx	#>1800	; 1 minute
+	lda	#<1800
+	bra	doFORWARD
+doH	ldx	#>1	; 1 frame
+	lda	#<1
+	bra	doFORWARD
+doJ	ldx	#>3	; 3 frames
+	lda	#<3
+	bra	doFORWARD
+doK	ldx	#>15	; 15 frames
+	lda	#<15
+	bra	doFORWARD
+doL	ldx	#>30	; 30 frames
+	lda	#<30
+
+doFORWARD	sta	theINDEX
+	stx	theINDEX+1
+
+	clc
+	xce
+	rep	#$30
+	
+	lda	theFRAME
+	clc
+	adc	theINDEX
+	bcc	ffOK
+	lda	#65535
+ffOK	sta	theFRAME
+
+	pha
+	lda	#'00'
+	sta	strFRAME
+	sta	strFRAME+2
+	sta	strFRAME+3
+	PushLong	#strFRAME
+	PushWord	#5
+	PushWord	#0
+	_Int2Dec
+
+	sec
+	xce
+	sep	#$30
+	clc
+	rts
+
+*---
+
+showFRAME	ldx	#>strDS	; on veut la frame number
+	ldy	#<strDS
+	jsr	sendLDCommand
+	clc
+	rts
+
+*--- Data
+
+strDS	asc	'1DS'00	; display frame number
+strCO	asc	'CO'00	; close the door
+strSA	asc	'SA'00	; start player
+strRJ	asc	'RJ'00	; stop the player
+
+strFR	asc	'FR'	; set frame...
+strFRAME	asc	'00001'
+	asc	'SE'00	; ...and search
+
+*---
+
+theINDEX	dw	0	; variation en nombre de frames
+theFRAME	dw	1	; the frame number (1.65535)
+
+tblKEY	asc	9B"V"
+	asc	"QWERTYUIOP"	; 
+	asc	"ASDFHJKL"
+	
+tblADR	da	doESC	; 0
+	da	showFRAME	; 1
+	da	doQ	; 2
+	da	doW	; 3
+	da	doE	; 4
+	da	doR	; 5
+	da	doT	; 6
+	da	doY	; 7
+	da	doU	; 8
+	da	doI	; 9
+	da	doO	; 10
+	da	doP	; 11
+	da	doA	; 12
+	da	doS	; 13
+	da	doD	; 14
+	da	doF	; 15
+	da	doH	; 16
+	da	doJ	; 17
+	da	doK	; 18
+	da	doL	; 19
+
+*-----------------------------------
+* TEXT
+*-----------------------------------
+
+showME	jsr	HOME
+	ldx	#>myTEXT
+	stx	dpFROM+1
+	ldy	#<myTEXT
+	sty	dpFROM
+	
+]lp	lda	(dpFROM)
+	beq	showDONE
+	jsr	COUT
+	inc	dpFROM
+	bne	]lp
+	inc	dpFROM+1
+	bne	]lp
+showDONE	rts
+
+*----------
+
+*	asc	"0123456789012345678901234567890123456789"
+
+myTEXT	asc	"DLLD Browser  (c) 2024, Brutal Deluxe > "
+	asc	"----------------------------------------"
+	asc	8d
+	asc	8d
+	asc	"<<              Seconds               >>"
+	asc	"----------------------------------------"
+	asc	"60  30  10  5  3  -  +  3  5  10  30  60"
+	asc	" Q   W   E  R  T        Y  U   I   O   P"
+	asc	8d
+	asc	8d
+	asc	"<<               Frames               >>"
+	asc	"----------------------------------------"
+	asc	"    30  15  3  1  -  +  1  3  15  30    "
+	asc	"     A   S  D  F        H  J   K   L    "
+	asc	8d
+	asc	8d
+	asc	"V to show the frame number"8d
+	asc	"Press ESC to quit"00
+	
+*-----------------------------------
+* SERIAL PORT (MODEM)
+*-----------------------------------
+
+*---------- Set all addressses
+
+initSERIAL
+	lda	$c20d
+	sta	doinit+1
+	lda	$c20e
+	sta	doread+1
+	lda	$c20f
+	sta	dowrite+1
+	lda	$c210
+	sta	dostatus+1
+	rts
+
+doinit	jmp	$c20d
+doread	jmp	$c20e
+dowrite	jmp	$c20f
+dostatus	jmp	$c210
+
+*---------- Init modem port for LD support
+
+initPORT	ldx	#CN
+	ldy	#N0
+	jsr	doinit
+
+	_sendSTRING	#strED	; Don't echo output
+	_sendSTRING	#strBE	; Input buffering: on
+	_sendSTRING	#str12B	; Baud rate: 4800 BPS
+	_sendSTRING	#str0D	; Data/Stop bits: 8/1
+	_sendSTRING	#str0P	; Parity: none
+	_sendSTRING	#str0N	; Line length: 0
+	_sendSTRING	#strAD	; Do not implement basic tabs
+	_sendSTRING	#strCD	; Disable line formatting
+	_sendSTRING	#strXD	; Ignore XOFF
+	_sendSTRING	#strFD	; Disable keyboard input
+	_sendSTRING	#strLD	; Do not add line feeds after CR
+	_sendSTRING	#strME	; Mask line feed in
+	_sendSTRING	#strZ	; Suppress control characters
+	jsr	checkInputReady
+	rts
+
+*---------- Check the input is ready
+
+checkInputReady
+	ldx	#8
+	ldy	#0
+	
+]lp	phx
+	phy
+
+*	lda	#"I"
+*	sta	$427
+	
+	ldx	#CN
+	ldy	#N0
+	lda	#1
+	jsr	dostatus
+	bcs	checkIR1
+
+	ply
+	plx
+	dey
+	bne	]lp
+	dex
+	bne	]lp
+
+	sec
+	rts
+checkIR1	ply
+	plx
+	clc
+	rts
+
+*---------- Check the output is ready
+
+checkOutputReady
+	ldx	#8
+	ldy	#0
+	
+]lp	phx
+	phy
+
+*	lda	#"O"
+*	sta	$427
+	
+	ldx	#CN
+	ldy	#N0
+	lda	#0
+	jsr	dostatus
+	bcs	checkOR1
+
+	ply
+	plx
+	dey
+	bne	]lp
+	dex
+	bne	]lp
+
+	sec
+	rts
+checkOR1	ply
+	plx
+	clc
+	rts
+
+*---------- Send a LD command
+
+sendLDCommand
+	jsr	sendString
+	bcs	sendLDError
+	jsr	receiveString
+sendLDError	rts
+
+*---------- Send a string
+
+sendString
+*	lda	#"S"
+*	sta	$426
+
+	sty	dpFROM
+	stx	dpFROM+1
+
+]lp	lda	(dpFROM)
+	beq	sendCRS1	; end of string?
+	jsr	sendCharacter
+	bcs	sendError	; error!
+
+	inc	dpFROM
+	bne	]lp
+	inc	dpFROM+1
+	bne	]lp
+
+sendCRS1	lda	#chrRETURN	; yes, add a final CR
+	jsr	sendCharacter
+
+sendError	rts
+
+*---------- Send serial character
+
+sendCharacter
+	pha
+
+]lp	jsr	checkOutputReady
+	bcc	sensSC1
+	pla
+	sec
+	rts
+
+sensSC1	pla
+	ldx	#CN
+	ldy	#N0
+	jsr	dowrite
+	clc
+	rts
+	
+*---------- Receive string
+
+receiveString
+*	lda	#"R"
+*	sta	$426
+
+	ldx	#>responseBUF
+	ldy	#<responseBUF
+	sty	dpTO
+	stx	dpTO+1
+
+	ldy	#0
+receiveSTR1	phy
+]lp	jsr	checkInputReady
+	bcs	receiveSTR9
+
+	ldx	#CN
+	ldy	#N0
+	jsr	doread
+	cpx	#0
+	bne	receiveSTR9
+
+	ply
+	sta	(dpTO),y
+	cmp	#chrRETURN
+	beq	receiveSTR8
+	iny
+	bne	receiveSTR1
+receiveSTR8	clc
+	rts
+receiveSTR9	ply
+	sec
+	rts
+
+*-----------------------------------
+* DATA
+*-----------------------------------
+
+*---------- Serial data
+
+strED	asc	01'ED'00	; *Don't echo output
+strBE	asc	01'BE'00	; *Input buffering: on
+str12B	asc	01'12B'00	; *Baud rate: 4800 BPS
+str0D	asc	01'0D'00	; *Data/Stop bits: 8/1
+str0P	asc	01'0P'00	; *Parity: none
+str0N	asc	01'0N'00	; Line length: 0
+strAD	asc	01'AD'00	; *Do not implement basic tabs
+strCD	asc	01'CD'00	; *Disable line formatting
+strXD	asc	01'XD'00	; *Ignore XOFF
+strFD	asc	01'FD'00	; *Disable keyboard input
+strLD	asc	01'LD'00	; Do not add line feeds after CR
+strME	asc	01'ME'00	; Mask line feed in
+strZ	asc	01'Z'00	; *Suppress control characters
+
+*---------- Laserdisc
+
+	ds	\
+	
+responseBUF	ds	256	; LD player response
+	
+*-----------------------------------
+* END OF CODE
+*-----------------------------------
+

dlld/source/dlld2_Output.txt

@@ -0,0 +1,763 @@
+------+-------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
+ Line | # File       Line | Line Type   | MX |  Reloc  | Size | Address   Object Code |  Source Code                                                      
+------+-------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
+    1 |  1 dlld2.s      1 | Comment     | 11 |         |    0 | 00/8000               | *
+    2 |  1 dlld2.s      2 | Comment     | 11 |         |    0 | 00/8000               | * DLLD
+    3 |  1 dlld2.s      3 | Comment     | 11 |         |    0 | 00/8000               | * Let's play Dragon's Lair :-)
+    4 |  1 dlld2.s      4 | Comment     | 11 |         |    0 | 00/8000               | *
+    5 |  1 dlld2.s      5 | Comment     | 11 |         |    0 | 00/8000               | * (c) 2024, Brutal Deluxe Software
+    6 |  1 dlld2.s      6 | Comment     | 11 |         |    0 | 00/8000               | *
+    7 |  1 dlld2.s      7 | Empty       | 11 |         |    0 | 00/8000               |                                               
+    8 |  1 dlld2.s      8 | Directive   | 11 |         |    0 | 00/8000               |                   mx           %11            
+    9 |  1 dlld2.s      9 | Directive   | 11 |         |    0 | 00/8000               |                   org          $2000          
+   10 |  1 dlld2.s     10 | Directive   | 11 |         |    0 | 00/2000               |                   lst          off            
+   11 |  1 dlld2.s     11 | Empty       | 11 |         |    0 | 00/2000               |                                               
+   12 |  1 dlld2.s     12 | Directive   | 11 |         |    0 | 00/2000               |                   use          4/Int.Macs     
+   13 |  1 dlld2.s     13 | Directive   | 11 |         |    0 | 00/2000               |                   use          4/Util.Macs    
+   14 |  1 dlld2.s     14 | Empty       | 11 |         |    0 | 00/2000               |                                               
+   15 |  1 dlld2.s     15 | Comment     | 11 |         |    0 | 00/2000               | *-----------------------------------
+   16 |  1 dlld2.s     16 | Comment     | 11 |         |    0 | 00/2000               | * MACROS
+   17 |  1 dlld2.s     17 | Comment     | 11 |         |    0 | 00/2000               | *-----------------------------------
+   18 |  1 dlld2.s     18 | Empty       | 11 |         |    0 | 00/2000               |                                               
+   19 |  1 dlld2.s     19 | Directive   | 11 |         |    0 | 00/2000               | _sendSTRING       mac                         
+   20 |  1 dlld2.s     20 | Directive   | 11 |         |    0 | 00/2000               |                   ldx          #>]1           
+   21 |  1 dlld2.s     21 | Directive   | 11 |         |    0 | 00/2000               |                   ldy          #<]1           
+   22 |  1 dlld2.s     22 | Directive   | 11 |         |    0 | 00/2000               |                   jsr          sendString     
+   23 |  1 dlld2.s     23 | Directive   | 11 |         |    0 | 00/2000               |                   eom                         
+   24 |  1 dlld2.s     24 | Empty       | 11 |         |    0 | 00/2000               |                                               
+   25 |  1 dlld2.s     25 | Comment     | 11 |         |    0 | 00/2000               | *-----------------------------------
+   26 |  1 dlld2.s     26 | Comment     | 11 |         |    0 | 00/2000               | * EQUATES
+   27 |  1 dlld2.s     27 | Comment     | 11 |         |    0 | 00/2000               | *-----------------------------------
+   28 |  1 dlld2.s     28 | Empty       | 11 |         |    0 | 00/2000               |                                               
+   29 |  1 dlld2.s     29 | Equivalence | 11 |         |    0 | 00/2000               | SLOT              =            2              
+   30 |  1 dlld2.s     30 | Equivalence | 11 |         |    0 | 00/2000               | N0                =            {2}*16         
+   31 |  1 dlld2.s     31 | Equivalence | 11 |         |    0 | 00/2000               | CN                =            {2}!$C0        
+   32 |  1 dlld2.s     32 | Empty       | 11 |         |    0 | 00/2000               |                                               
+   33 |  1 dlld2.s     33 | Equivalence | 11 |         |    0 | 00/2000               | dpFROM            =            $fc            
+   34 |  1 dlld2.s     34 | Equivalence | 11 |         |    0 | 00/2000               | dpTO              =            {$fc}+2        
+   35 |  1 dlld2.s     35 | Empty       | 11 |         |    0 | 00/2000               |                                               
+   36 |  1 dlld2.s     36 | Equivalence | 11 |         |    0 | 00/2000               | chrRETURN         =            $0d            
+   37 |  1 dlld2.s     37 | Empty       | 11 |         |    0 | 00/2000               |                                               
+   38 |  1 dlld2.s     38 | Equivalence | 11 |         |    0 | 00/2000               | KBD               =            $c000          
+   39 |  1 dlld2.s     39 | Equivalence | 11 |         |    0 | 00/2000               | KBDSTROBE         =            $c010          
+   40 |  1 dlld2.s     40 | Empty       | 11 |         |    0 | 00/2000               |                                               
+   41 |  1 dlld2.s     41 | Equivalence | 11 |         |    0 | 00/2000               | HOME              =            $fc58          
+   42 |  1 dlld2.s     42 | Equivalence | 11 |         |    0 | 00/2000               | COUT              =            $fded          
+   43 |  1 dlld2.s     43 | Empty       | 11 |         |    0 | 00/2000               |                                               
+   44 |  1 dlld2.s     44 | Comment     | 11 |         |    0 | 00/2000               | *-----------------------------------
+   45 |  1 dlld2.s     45 | Comment     | 11 |         |    0 | 00/2000               | * CODE
+   46 |  1 dlld2.s     46 | Comment     | 11 |         |    0 | 00/2000               | *-----------------------------------
+   47 |  1 dlld2.s     47 | Empty       | 11 |         |    0 | 00/2000               |                                               
+   48 |  1 dlld2.s     48 | Code        | 11 |         |    3 | 00/2000 : 20 98 21    |                   jsr          showME         
+   49 |  1 dlld2.s     49 | Code        | 11 |         |    3 | 00/2003 : 20 76 23    |                   jsr          initSERIAL     ; set the serial addresses
+   50 |  1 dlld2.s     50 | Code        | 11 |         |    3 | 00/2006 : 20 9B 23    |                   jsr          initPORT       ; init the serial port for LD support
+   51 |  1 dlld2.s     51 | Empty       | 11 |         |    0 | 00/2009               |                                               
+   52 |  1 dlld2.s     52 | Code        | 11 |         |    3 | 00/2009 : 20 38 21    |                   jsr          showFRAME      
+   53 |  1 dlld2.s     53 | Empty       | 11 |         |    0 | 00/200C               |                                               
+   54 |  1 dlld2.s     54 | Code        | 11 |         |    2 | 00/200C : A2 21       |                   ldx          #>strSA        ; start the player
+   55 |  1 dlld2.s     55 | Code        | 11 |         |    2 | 00/200E : A0 48       |                   ldy          #<strSA        
+   56 |  1 dlld2.s     56 | Code        | 11 |         |    3 | 00/2010 : 20 3F 24    |                   jsr          sendLDCommand  
+   57 |  1 dlld2.s     57 | Empty       | 11 |         |    0 | 00/2013               |                                               
+   58 |  1 dlld2.s     58 | Comment     | 11 |         |    0 | 00/2013               | *---
+   59 |  1 dlld2.s     59 | Empty       | 11 |         |    0 | 00/2013               |                                               
+   60 |  1 dlld2.s     60 | Empty       | 11 |         |    0 | 00/2013               | mainLOOP                                      
+   61 |  1 dlld2.s     61 | Code        | 11 |         |    3 | 00/2013 : AD 00 C0    | ozunid_1          lda          {$c000}        ; wait for a key
+   62 |  1 dlld2.s     62 | Code        | 11 |         |    2 | 00/2016 : 10 FB       |                   bpl          ozunid_1       
+   63 |  1 dlld2.s     63 | Code        | 11 |         |    3 | 00/2018 : 2C 10 C0    |                   bit          {$c010}        
+   64 |  1 dlld2.s     64 | Code        | 11 |         |    3 | 00/201B : 8D 27 04    |                   sta          $427           
+   65 |  1 dlld2.s     65 | Empty       | 11 |         |    0 | 00/201E               |                                               
+   66 |  1 dlld2.s     66 | Code        | 11 |         |    2 | 00/201E : A2 00       |                   ldx          #0             ; quelle touche ?
+   67 |  1 dlld2.s     67 | Code        | 11 |         |    3 | 00/2020 : DD 5C 21    | ozunid_2          cmp          tblKEY,x       
+   68 |  1 dlld2.s     68 | Code        | 11 |         |    2 | 00/2023 : F0 07       |                   beq          foundIT        
+   69 |  1 dlld2.s     69 | Code        | 11 |         |    1 | 00/2025 : E8          |                   inx                         
+   70 |  1 dlld2.s     70 | Code        | 11 |         |    2 | 00/2026 : E0 14       |                   cpx          #19+1          
+   71 |  1 dlld2.s     71 | Code        | 11 |         |    2 | 00/2028 : 90 F6       |                   bcc          ozunid_2       
+   72 |  1 dlld2.s     72 | Code        | 11 |         |    2 | 00/202A : 80 E7       |                   bra          mainLOOP       
+   73 |  1 dlld2.s     73 | Code        | 11 |         |    1 | 00/202C : 8A          | foundIT           txa                         
+   74 |  1 dlld2.s     74 | Code        | 11 |         |    1 | 00/202D : 0A          |                   asl                         
+   75 |  1 dlld2.s     75 | Code        | 11 |         |    1 | 00/202E : AA          |                   tax                         
+   76 |  1 dlld2.s     76 | Code        | 11 |         |    3 | 00/202F : BD 70 21    |                   lda          tblADR,x       
+   77 |  1 dlld2.s     77 | Code        | 11 |         |    3 | 00/2032 : 8D 3C 20    |                   sta          gotoIT+1       
+   78 |  1 dlld2.s     78 | Code        | 11 |         |    3 | 00/2035 : BD 71 21    |                   lda          tblADR+1,x     
+   79 |  1 dlld2.s     79 | Code        | 11 |         |    3 | 00/2038 : 8D 3D 20    |                   sta          gotoIT+2       
+   80 |  1 dlld2.s     80 | Empty       | 11 |         |    0 | 00/203B               |                                               
+   81 |  1 dlld2.s     81 | Code        | 11 |         |    3 | 00/203B : 20 BD BD    | gotoIT            jsr          $bdbd          
+   82 |  1 dlld2.s     82 | Code        | 11 |         |    2 | 00/203E : 90 08       |                   bcc          doIT           
+   83 |  1 dlld2.s     83 | Empty       | 11 |         |    0 | 00/2040               |                                               
+   84 |  1 dlld2.s     84 | Code        | 11 |         |    2 | 00/2040 : A2 21       |                   ldx          #>strRJ        ; It's the end!
+   85 |  1 dlld2.s     85 | Code        | 11 |         |    2 | 00/2042 : A0 4B       |                   ldy          #<strRJ        
+   86 |  1 dlld2.s     86 | Code        | 11 |         |    3 | 00/2044 : 20 3F 24    |                   jsr          sendLDCommand  
+   87 |  1 dlld2.s     87 | Code        | 11 |         |    1 | 00/2047 : 60          |                   rts                         
+   88 |  1 dlld2.s     88 | Empty       | 11 |         |    0 | 00/2048               |                                               
+   89 |  1 dlld2.s     89 | Code        | 11 |         |    2 | 00/2048 : A2 21       | doIT              ldx          #>strFR        ; Set frame and search
+   90 |  1 dlld2.s     90 | Code        | 11 |         |    2 | 00/204A : A0 4E       |                   ldy          #<strFR        
+   91 |  1 dlld2.s     91 | Code        | 11 |         |    3 | 00/204C : 20 3F 24    |                   jsr          sendLDCommand  
+   92 |  1 dlld2.s     92 | Code        | 11 |         |    2 | 00/204F : 80 C2       |                   bra          mainLOOP       
+   93 |  1 dlld2.s     93 | Empty       | 11 |         |    0 | 00/2051               |                                               
+   94 |  1 dlld2.s     94 | Comment     | 11 |         |    0 | 00/2051               | *---
+   95 |  1 dlld2.s     95 | Empty       | 11 |         |    0 | 00/2051               |                                               
+   96 |  1 dlld2.s     96 | Code        | 11 |         |    1 | 00/2051 : 38          | doESC             sec                         
+   97 |  1 dlld2.s     97 | Code        | 11 |         |    1 | 00/2052 : 60          |                   rts                         
+   98 |  1 dlld2.s     98 | Empty       | 11 |         |    0 | 00/2053               |                                               
+   99 |  1 dlld2.s     99 | Comment     | 11 |         |    0 | 00/2053               | *--- Move backwards
+  100 |  1 dlld2.s    100 | Empty       | 11 |         |    0 | 00/2053               |                                               
+  101 |  1 dlld2.s    101 | Code        | 11 |         |    2 | 00/2053 : A2 07       | doQ               ldx          #>1800         ; 1 minute
+  102 |  1 dlld2.s    102 | Code        | 11 |         |    2 | 00/2055 : A9 08       |                   lda          #<1800         
+  103 |  1 dlld2.s    103 | Code        | 11 |         |    2 | 00/2057 : 80 2E       |                   bra          doREVERSE      
+  104 |  1 dlld2.s    104 | Code        | 11 |         |    2 | 00/2059 : A2 03       | doW               ldx          #>900          ; 30 secondes
+  105 |  1 dlld2.s    105 | Code        | 11 |         |    2 | 00/205B : A9 84       |                   lda          #<900          
+  106 |  1 dlld2.s    106 | Code        | 11 |         |    2 | 00/205D : 80 28       |                   bra          doREVERSE      
+  107 |  1 dlld2.s    107 | Code        | 11 |         |    2 | 00/205F : A2 01       | doE               ldx          #>300          ; 10 secondes
+  108 |  1 dlld2.s    108 | Code        | 11 |         |    2 | 00/2061 : A9 2C       |                   lda          #<300          
+  109 |  1 dlld2.s    109 | Code        | 11 |         |    2 | 00/2063 : 80 22       |                   bra          doREVERSE      
+  110 |  1 dlld2.s    110 | Code        | 11 |         |    2 | 00/2065 : A2 00       | doR               ldx          #>150          ; 5 secondes
+  111 |  1 dlld2.s    111 | Code        | 11 |         |    2 | 00/2067 : A9 96       |                   lda          #<150          
+  112 |  1 dlld2.s    112 | Code        | 11 |         |    2 | 00/2069 : 80 1C       |                   bra          doREVERSE      
+  113 |  1 dlld2.s    113 | Code        | 11 |         |    2 | 00/206B : A2 00       | doT               ldx          #>90           ; 3 secondes
+  114 |  1 dlld2.s    114 | Code        | 11 |         |    2 | 00/206D : A9 5A       |                   lda          #<90           
+  115 |  1 dlld2.s    115 | Code        | 11 |         |    2 | 00/206F : 80 16       |                   bra          doREVERSE      
+  116 |  1 dlld2.s    116 | Code        | 11 |         |    2 | 00/2071 : A2 00       | doA               ldx          #>30           ; 30 frames = 1 seconde
+  117 |  1 dlld2.s    117 | Code        | 11 |         |    2 | 00/2073 : A9 1E       |                   lda          #<30           
+  118 |  1 dlld2.s    118 | Code        | 11 |         |    2 | 00/2075 : 80 10       |                   bra          doREVERSE      
+  119 |  1 dlld2.s    119 | Code        | 11 |         |    2 | 00/2077 : A2 00       | doS               ldx          #>15           ; 15 frames
+  120 |  1 dlld2.s    120 | Code        | 11 |         |    2 | 00/2079 : A9 0F       |                   lda          #<15           
+  121 |  1 dlld2.s    121 | Code        | 11 |         |    2 | 00/207B : 80 0A       |                   bra          doREVERSE      
+  122 |  1 dlld2.s    122 | Code        | 11 |         |    2 | 00/207D : A2 00       | doD               ldx          #>3            ; 3 frames
+  123 |  1 dlld2.s    123 | Code        | 11 |         |    2 | 00/207F : A9 03       |                   lda          #<3            
+  124 |  1 dlld2.s    124 | Code        | 11 |         |    2 | 00/2081 : 80 04       |                   bra          doREVERSE      
+  125 |  1 dlld2.s    125 | Code        | 11 |         |    2 | 00/2083 : A2 00       | doF               ldx          #>1            ; 1 frame
+  126 |  1 dlld2.s    126 | Code        | 11 |         |    2 | 00/2085 : A9 01       |                   lda          #<1            
+  127 |  1 dlld2.s    127 | Empty       | 11 |         |    0 | 00/2087               |                                               
+  128 |  1 dlld2.s    128 | Code        | 11 |         |    3 | 00/2087 : 8D 58 21    | doREVERSE         sta          theINDEX       
+  129 |  1 dlld2.s    129 | Empty       | 11 |         |    0 | 00/208A               |                                               
+  130 |  1 dlld2.s    130 | Code        | 11 |         |    1 | 00/208A : 18          |                   clc                         
+  131 |  1 dlld2.s    131 | Code        | 11 |         |    1 | 00/208B : FB          |                   xce                         
+  132 |  1 dlld2.s    132 | Code        | 00 |         |    2 | 00/208C : C2 30       |                   rep          #$30           
+  133 |  1 dlld2.s    133 | Empty       | 00 |         |    0 | 00/208E               |                                               
+  134 |  1 dlld2.s    134 | Code        | 00 |         |    3 | 00/208E : AD 5A 21    |                   lda          theFRAME       
+  135 |  1 dlld2.s    135 | Code        | 00 |         |    1 | 00/2091 : 38          |                   sec                         
+  136 |  1 dlld2.s    136 | Code        | 00 |         |    3 | 00/2092 : ED 58 21    |                   sbc          theINDEX       
+  137 |  1 dlld2.s    137 | Code        | 00 |         |    2 | 00/2095 : F0 02       |                   beq          revONE         
+  138 |  1 dlld2.s    138 | Code        | 00 |         |    2 | 00/2097 : 10 03       |                   bpl          revOK          
+  139 |  1 dlld2.s    139 | Code        | 00 |         |    3 | 00/2099 : A9 01 00    | revONE            lda          #1             
+  140 |  1 dlld2.s    140 | Code        | 00 |         |    3 | 00/209C : 8D 5A 21    | revOK             sta          theFRAME       
+  141 |  1 dlld2.s    141 | Empty       | 00 |         |    0 | 00/209F               |                                               
+  142 |  1 dlld2.s    142 | Code        | 00 |         |    1 | 00/209F : 48          |                   pha                         
+  143 |  1 dlld2.s    143 | Code        | 00 |         |    3 | 00/20A0 : A9 30 30    |                   lda          #'00'          
+  144 |  1 dlld2.s    144 | Code        | 00 |         |    3 | 00/20A3 : 8D 50 21    |                   sta          strFRAME       
+  145 |  1 dlld2.s    145 | Code        | 00 |         |    3 | 00/20A6 : 8D 52 21    |                   sta          strFRAME+2     
+  146 |  1 dlld2.s    146 | Code        | 00 |         |    3 | 00/20A9 : 8D 53 21    |                   sta          strFRAME+3     
+  147 |  1 dlld2.s    147 | Macro       | 00 |         |    0 | 00/20AC               |                   PushLong     #strFRAME      
+  151 |  1 dlld2.s    147 | Code        | 00 |         |    3 | 00/20AC : F4 00 00    |                   PEA          #^#strFRAME    
+  158 |  1 dlld2.s    147 | Code        | 00 |         |    3 | 00/20AF : F4 50 21    |                   PEA          #strFRAME      
+  161 |  1 dlld2.s    148 | Macro       | 00 |         |    0 | 00/20B2               |                   PushWord     #5             
+  163 |  1 dlld2.s    148 | Code        | 00 |         |    3 | 00/20B2 : F4 05 00    |                   PEA          #5             
+  166 |  1 dlld2.s    149 | Macro       | 00 |         |    0 | 00/20B5               |                   PushWord     #0             
+  168 |  1 dlld2.s    149 | Code        | 00 |         |    3 | 00/20B5 : F4 00 00    |                   PEA          #0             
+  171 |  1 dlld2.s    150 | Macro       | 00 |         |    0 | 00/20B8               |                   _Int2Dec                    
+  173 |  1 dlld2.s    150 | Code        | 00 |         |    3 | 00/20B8 : A2 0B 26    |                   LDX          #$260B         ; load tool call #
+  174 |  1 dlld2.s    150 | Code        | 00 |         |    4 | 00/20BB : 22 00 00 E1 |                   JSL          $E10000        ; go to dispatcher
+  175 |  1 dlld2.s    151 | Empty       | 00 |         |    0 | 00/20BF               |                                               
+  176 |  1 dlld2.s    152 | Code        | 00 |         |    1 | 00/20BF : 38          |                   sec                         
+  177 |  1 dlld2.s    153 | Code        | 11 |         |    1 | 00/20C0 : FB          |                   xce                         
+  178 |  1 dlld2.s    154 | Code        | 11 |         |    2 | 00/20C1 : E2 30       |                   sep          #$30           
+  179 |  1 dlld2.s    155 | Code        | 11 |         |    1 | 00/20C3 : 18          |                   clc                         
+  180 |  1 dlld2.s    156 | Code        | 11 |         |    1 | 00/20C4 : 60          |                   rts                         
+  181 |  1 dlld2.s    157 | Empty       | 11 |         |    0 | 00/20C5               |                                               
+  182 |  1 dlld2.s    158 | Comment     | 11 |         |    0 | 00/20C5               | *--- Move forwards
+  183 |  1 dlld2.s    159 | Empty       | 11 |         |    0 | 00/20C5               |                                               
+  184 |  1 dlld2.s    160 | Code        | 11 |         |    2 | 00/20C5 : A2 00       | doY               ldx          #>90           ; 3 secondes
+  185 |  1 dlld2.s    161 | Code        | 11 |         |    2 | 00/20C7 : A9 5A       |                   lda          #<90           
+  186 |  1 dlld2.s    162 | Code        | 11 |         |    2 | 00/20C9 : 80 2E       |                   bra          doFORWARD      
+  187 |  1 dlld2.s    163 | Code        | 11 |         |    2 | 00/20CB : A2 00       | doU               ldx          #>150          ; 5 secondes
+  188 |  1 dlld2.s    164 | Code        | 11 |         |    2 | 00/20CD : A9 96       |                   lda          #<150          
+  189 |  1 dlld2.s    165 | Code        | 11 |         |    2 | 00/20CF : 80 28       |                   bra          doFORWARD      
+  190 |  1 dlld2.s    166 | Code        | 11 |         |    2 | 00/20D1 : A2 01       | doI               ldx          #>300          ; 10 secondes
+  191 |  1 dlld2.s    167 | Code        | 11 |         |    2 | 00/20D3 : A9 2C       |                   lda          #<300          
+  192 |  1 dlld2.s    168 | Code        | 11 |         |    2 | 00/20D5 : 80 22       |                   bra          doFORWARD      
+  193 |  1 dlld2.s    169 | Code        | 11 |         |    2 | 00/20D7 : A2 03       | doO               ldx          #>900          ; 30 secondes
+  194 |  1 dlld2.s    170 | Code        | 11 |         |    2 | 00/20D9 : A9 84       |                   lda          #<900          
+  195 |  1 dlld2.s    171 | Code        | 11 |         |    2 | 00/20DB : 80 1C       |                   bra          doFORWARD      
+  196 |  1 dlld2.s    172 | Code        | 11 |         |    2 | 00/20DD : A2 07       | doP               ldx          #>1800         ; 1 minute
+  197 |  1 dlld2.s    173 | Code        | 11 |         |    2 | 00/20DF : A9 08       |                   lda          #<1800         
+  198 |  1 dlld2.s    174 | Code        | 11 |         |    2 | 00/20E1 : 80 16       |                   bra          doFORWARD      
+  199 |  1 dlld2.s    175 | Code        | 11 |         |    2 | 00/20E3 : A2 00       | doH               ldx          #>1            ; 1 frame
+  200 |  1 dlld2.s    176 | Code        | 11 |         |    2 | 00/20E5 : A9 01       |                   lda          #<1            
+  201 |  1 dlld2.s    177 | Code        | 11 |         |    2 | 00/20E7 : 80 10       |                   bra          doFORWARD      
+  202 |  1 dlld2.s    178 | Code        | 11 |         |    2 | 00/20E9 : A2 00       | doJ               ldx          #>3            ; 3 frames
+  203 |  1 dlld2.s    179 | Code        | 11 |         |    2 | 00/20EB : A9 03       |                   lda          #<3            
+  204 |  1 dlld2.s    180 | Code        | 11 |         |    2 | 00/20ED : 80 0A       |                   bra          doFORWARD      
+  205 |  1 dlld2.s    181 | Code        | 11 |         |    2 | 00/20EF : A2 00       | doK               ldx          #>15           ; 15 frames
+  206 |  1 dlld2.s    182 | Code        | 11 |         |    2 | 00/20F1 : A9 0F       |                   lda          #<15           
+  207 |  1 dlld2.s    183 | Code        | 11 |         |    2 | 00/20F3 : 80 04       |                   bra          doFORWARD      
+  208 |  1 dlld2.s    184 | Code        | 11 |         |    2 | 00/20F5 : A2 00       | doL               ldx          #>30           ; 30 frames
+  209 |  1 dlld2.s    185 | Code        | 11 |         |    2 | 00/20F7 : A9 1E       |                   lda          #<30           
+  210 |  1 dlld2.s    186 | Empty       | 11 |         |    0 | 00/20F9               |                                               
+  211 |  1 dlld2.s    187 | Code        | 11 |         |    3 | 00/20F9 : 8D 58 21    | doFORWARD         sta          theINDEX       
+  212 |  1 dlld2.s    188 | Code        | 11 |         |    3 | 00/20FC : 8E 59 21    |                   stx          theINDEX+1     
+  213 |  1 dlld2.s    189 | Empty       | 11 |         |    0 | 00/20FF               |                                               
+  214 |  1 dlld2.s    190 | Code        | 11 |         |    1 | 00/20FF : 18          |                   clc                         
+  215 |  1 dlld2.s    191 | Code        | 11 |         |    1 | 00/2100 : FB          |                   xce                         
+  216 |  1 dlld2.s    192 | Code        | 00 |         |    2 | 00/2101 : C2 30       |                   rep          #$30           
+  217 |  1 dlld2.s    193 | Empty       | 00 |         |    0 | 00/2103               |                                               
+  218 |  1 dlld2.s    194 | Code        | 00 |         |    3 | 00/2103 : AD 5A 21    |                   lda          theFRAME       
+  219 |  1 dlld2.s    195 | Code        | 00 |         |    1 | 00/2106 : 18          |                   clc                         
+  220 |  1 dlld2.s    196 | Code        | 00 |         |    3 | 00/2107 : 6D 58 21    |                   adc          theINDEX       
+  221 |  1 dlld2.s    197 | Code        | 00 |         |    2 | 00/210A : 90 03       |                   bcc          ffOK           
+  222 |  1 dlld2.s    198 | Code        | 00 |         |    3 | 00/210C : A9 FF FF    |                   lda          #65535         
+  223 |  1 dlld2.s    199 | Code        | 00 |         |    3 | 00/210F : 8D 5A 21    | ffOK              sta          theFRAME       
+  224 |  1 dlld2.s    200 | Empty       | 00 |         |    0 | 00/2112               |                                               
+  225 |  1 dlld2.s    201 | Code        | 00 |         |    1 | 00/2112 : 48          |                   pha                         
+  226 |  1 dlld2.s    202 | Code        | 00 |         |    3 | 00/2113 : A9 30 30    |                   lda          #'00'          
+  227 |  1 dlld2.s    203 | Code        | 00 |         |    3 | 00/2116 : 8D 50 21    |                   sta          strFRAME       
+  228 |  1 dlld2.s    204 | Code        | 00 |         |    3 | 00/2119 : 8D 52 21    |                   sta          strFRAME+2     
+  229 |  1 dlld2.s    205 | Code        | 00 |         |    3 | 00/211C : 8D 53 21    |                   sta          strFRAME+3     
+  230 |  1 dlld2.s    206 | Macro       | 00 |         |    0 | 00/211F               |                   PushLong     #strFRAME      
+  234 |  1 dlld2.s    206 | Code        | 00 |         |    3 | 00/211F : F4 00 00    |                   PEA          #^#strFRAME    
+  241 |  1 dlld2.s    206 | Code        | 00 |         |    3 | 00/2122 : F4 50 21    |                   PEA          #strFRAME      
+  244 |  1 dlld2.s    207 | Macro       | 00 |         |    0 | 00/2125               |                   PushWord     #5             
+  246 |  1 dlld2.s    207 | Code        | 00 |         |    3 | 00/2125 : F4 05 00    |                   PEA          #5             
+  249 |  1 dlld2.s    208 | Macro       | 00 |         |    0 | 00/2128               |                   PushWord     #0             
+  251 |  1 dlld2.s    208 | Code        | 00 |         |    3 | 00/2128 : F4 00 00    |                   PEA          #0             
+  254 |  1 dlld2.s    209 | Macro       | 00 |         |    0 | 00/212B               |                   _Int2Dec                    
+  256 |  1 dlld2.s    209 | Code        | 00 |         |    3 | 00/212B : A2 0B 26    |                   LDX          #$260B         ; load tool call #
+  257 |  1 dlld2.s    209 | Code        | 00 |         |    4 | 00/212E : 22 00 00 E1 |                   JSL          $E10000        ; go to dispatcher
+  258 |  1 dlld2.s    210 | Empty       | 00 |         |    0 | 00/2132               |                                               
+  259 |  1 dlld2.s    211 | Code        | 00 |         |    1 | 00/2132 : 38          |                   sec                         
+  260 |  1 dlld2.s    212 | Code        | 11 |         |    1 | 00/2133 : FB          |                   xce                         
+  261 |  1 dlld2.s    213 | Code        | 11 |         |    2 | 00/2134 : E2 30       |                   sep          #$30           
+  262 |  1 dlld2.s    214 | Code        | 11 |         |    1 | 00/2136 : 18          |                   clc                         
+  263 |  1 dlld2.s    215 | Code        | 11 |         |    1 | 00/2137 : 60          |                   rts                         
+  264 |  1 dlld2.s    216 | Empty       | 11 |         |    0 | 00/2138               |                                               
+  265 |  1 dlld2.s    217 | Comment     | 11 |         |    0 | 00/2138               | *---
+  266 |  1 dlld2.s    218 | Empty       | 11 |         |    0 | 00/2138               |                                               
+  267 |  1 dlld2.s    219 | Code        | 11 |         |    2 | 00/2138 : A2 21       | showFRAME         ldx          #>strDS        ; on veut la frame number
+  268 |  1 dlld2.s    220 | Code        | 11 |         |    2 | 00/213A : A0 41       |                   ldy          #<strDS        
+  269 |  1 dlld2.s    221 | Code        | 11 |         |    3 | 00/213C : 20 3F 24    |                   jsr          sendLDCommand  
+  270 |  1 dlld2.s    222 | Code        | 11 |         |    1 | 00/213F : 18          |                   clc                         
+  271 |  1 dlld2.s    223 | Code        | 11 |         |    1 | 00/2140 : 60          |                   rts                         
+  272 |  1 dlld2.s    224 | Empty       | 11 |         |    0 | 00/2141               |                                               
+  273 |  1 dlld2.s    225 | Comment     | 11 |         |    0 | 00/2141               | *--- Data
+  274 |  1 dlld2.s    226 | Empty       | 11 |         |    0 | 00/2141               |                                               
+  275 |  1 dlld2.s    227 | Data        | 11 |         |    4 | 00/2141 : 31 44 53 00 | strDS             asc          '1DS'00        ; display frame number
+  276 |  1 dlld2.s    228 | Data        | 11 |         |    3 | 00/2145 : 43 4F 00    | strCO             asc          'CO'00         ; close the door
+  277 |  1 dlld2.s    229 | Data        | 11 |         |    3 | 00/2148 : 53 41 00    | strSA             asc          'SA'00         ; start player
+  278 |  1 dlld2.s    230 | Data        | 11 |         |    3 | 00/214B : 52 4A 00    | strRJ             asc          'RJ'00         ; stop the player
+  279 |  1 dlld2.s    231 | Empty       | 11 |         |    0 | 00/214E               |                                               
+  280 |  1 dlld2.s    232 | Data        | 11 |         |    2 | 00/214E : 46 52       | strFR             asc          'FR'           ; set frame...
+  281 |  1 dlld2.s    233 | Data        | 11 |         |    5 | 00/2150 : 30 30 30 30 | strFRAME          asc          '00001'        
+      |                   |             |    |         |      |           31          |
+  282 |  1 dlld2.s    234 | Data        | 11 |         |    3 | 00/2155 : 53 45 00    |                   asc          'SE'00         ; ...and search
+  283 |  1 dlld2.s    235 | Empty       | 11 |         |    0 | 00/2158               |                                               
+  284 |  1 dlld2.s    236 | Comment     | 11 |         |    0 | 00/2158               | *---
+  285 |  1 dlld2.s    237 | Empty       | 11 |         |    0 | 00/2158               |                                               
+  286 |  1 dlld2.s    238 | Data        | 11 |         |    2 | 00/2158 : 00 00       | theINDEX          dw           0              ; variation en nombre de frames
+  287 |  1 dlld2.s    239 | Data        | 11 |         |    2 | 00/215A : 01 00       | theFRAME          dw           1              ; the frame number (1.65535)
+  288 |  1 dlld2.s    240 | Empty       | 11 |         |    0 | 00/215C               |                                               
+  289 |  1 dlld2.s    241 | Data        | 11 |         |    2 | 00/215C : 9B D6       | tblKEY            asc          9B"V"          
+  290 |  1 dlld2.s    242 | Data        | 11 |         |   10 | 00/215E : D1 D7 C5 D2 |                   asc          "QWERTYUIOP"   ;
+      |                   |             |    |         |      |           D4 D9 D5 C9 |
+      |                   |             |    |         |      |           CF D0       |
+  291 |  1 dlld2.s    243 | Data        | 11 |         |    8 | 00/2168 : C1 D3 C4 C6 |                   asc          "ASDFHJKL"     
+      |                   |             |    |         |      |           C8 CA CB CC |
+  292 |  1 dlld2.s    244 | Empty       | 11 |         |    0 | 00/2170               |                                               
+  293 |  1 dlld2.s    245 | Data        | 11 |         |    2 | 00/2170 : 51 20       | tblADR            da           doESC          ; 0
+  294 |  1 dlld2.s    246 | Data        | 11 |         |    2 | 00/2172 : 38 21       |                   da           showFRAME      ; 1
+  295 |  1 dlld2.s    247 | Data        | 11 |         |    2 | 00/2174 : 53 20       |                   da           doQ            ; 2
+  296 |  1 dlld2.s    248 | Data        | 11 |         |    2 | 00/2176 : 59 20       |                   da           doW            ; 3
+  297 |  1 dlld2.s    249 | Data        | 11 |         |    2 | 00/2178 : 5F 20       |                   da           doE            ; 4
+  298 |  1 dlld2.s    250 | Data        | 11 |         |    2 | 00/217A : 65 20       |                   da           doR            ; 5
+  299 |  1 dlld2.s    251 | Data        | 11 |         |    2 | 00/217C : 6B 20       |                   da           doT            ; 6
+  300 |  1 dlld2.s    252 | Data        | 11 |         |    2 | 00/217E : C5 20       |                   da           doY            ; 7
+  301 |  1 dlld2.s    253 | Data        | 11 |         |    2 | 00/2180 : CB 20       |                   da           doU            ; 8
+  302 |  1 dlld2.s    254 | Data        | 11 |         |    2 | 00/2182 : D1 20       |                   da           doI            ; 9
+  303 |  1 dlld2.s    255 | Data        | 11 |         |    2 | 00/2184 : D7 20       |                   da           doO            ; 10
+  304 |  1 dlld2.s    256 | Data        | 11 |         |    2 | 00/2186 : DD 20       |                   da           doP            ; 11
+  305 |  1 dlld2.s    257 | Data        | 11 |         |    2 | 00/2188 : 71 20       |                   da           doA            ; 12
+  306 |  1 dlld2.s    258 | Data        | 11 |         |    2 | 00/218A : 77 20       |                   da           doS            ; 13
+  307 |  1 dlld2.s    259 | Data        | 11 |         |    2 | 00/218C : 7D 20       |                   da           doD            ; 14
+  308 |  1 dlld2.s    260 | Data        | 11 |         |    2 | 00/218E : 83 20       |                   da           doF            ; 15
+  309 |  1 dlld2.s    261 | Data        | 11 |         |    2 | 00/2190 : E3 20       |                   da           doH            ; 16
+  310 |  1 dlld2.s    262 | Data        | 11 |         |    2 | 00/2192 : E9 20       |                   da           doJ            ; 17
+  311 |  1 dlld2.s    263 | Data        | 11 |         |    2 | 00/2194 : EF 20       |                   da           doK            ; 18
+  312 |  1 dlld2.s    264 | Data        | 11 |         |    2 | 00/2196 : F5 20       |                   da           doL            ; 19
+  313 |  1 dlld2.s    265 | Empty       | 11 |         |    0 | 00/2198               |                                               
+  314 |  1 dlld2.s    266 | Comment     | 11 |         |    0 | 00/2198               | *-----------------------------------
+  315 |  1 dlld2.s    267 | Comment     | 11 |         |    0 | 00/2198               | * TEXT
+  316 |  1 dlld2.s    268 | Comment     | 11 |         |    0 | 00/2198               | *-----------------------------------
+  317 |  1 dlld2.s    269 | Empty       | 11 |         |    0 | 00/2198               |                                               
+  318 |  1 dlld2.s    270 | Code        | 11 |         |    3 | 00/2198 : 20 58 FC    | showME            jsr          {$fc58}        
+  319 |  1 dlld2.s    271 | Code        | 11 |         |    2 | 00/219B : A2 21       |                   ldx          #>myTEXT       
+  320 |  1 dlld2.s    272 | Code        | 11 |         |    2 | 00/219D : 86 FD       |                   stx          {$fc}+1        
+  321 |  1 dlld2.s    273 | Code        | 11 |         |    2 | 00/219F : A0 B3       |                   ldy          #<myTEXT       
+  322 |  1 dlld2.s    274 | Code        | 11 |         |    2 | 00/21A1 : 84 FC       |                   sty          {$fc}          
+  323 |  1 dlld2.s    275 | Empty       | 11 |         |    0 | 00/21A3               |                                               
+  324 |  1 dlld2.s    276 | Code        | 11 |         |    2 | 00/21A3 : B2 FC       | ozunid_3          lda          ({$fc})        
+  325 |  1 dlld2.s    277 | Code        | 11 |         |    2 | 00/21A5 : F0 0B       |                   beq          showDONE       
+  326 |  1 dlld2.s    278 | Code        | 11 |         |    3 | 00/21A7 : 20 ED FD    |                   jsr          {$fded}        
+  327 |  1 dlld2.s    279 | Code        | 11 |         |    2 | 00/21AA : E6 FC       |                   inc          {$fc}          
+  328 |  1 dlld2.s    280 | Code        | 11 |         |    2 | 00/21AC : D0 F5       |                   bne          ozunid_3       
+  329 |  1 dlld2.s    281 | Code        | 11 |         |    2 | 00/21AE : E6 FD       |                   inc          {$fc}+1        
+  330 |  1 dlld2.s    282 | Code        | 11 |         |    2 | 00/21B0 : D0 F1       |                   bne          ozunid_3       
+  331 |  1 dlld2.s    283 | Code        | 11 |         |    1 | 00/21B2 : 60          | showDONE          rts                         
+  332 |  1 dlld2.s    284 | Empty       | 11 |         |    0 | 00/21B3               |                                               
+  333 |  1 dlld2.s    285 | Comment     | 11 |         |    0 | 00/21B3               | *----------
+  334 |  1 dlld2.s    286 | Empty       | 11 |         |    0 | 00/21B3               |                                               
+  335 |  1 dlld2.s    287 | Comment     | 11 |         |    0 | 00/21B3               | *	asc	"0123456789012345678901234567890123456789"
+  336 |  1 dlld2.s    288 | Empty       | 11 |         |    0 | 00/21B3               |                                               
+  337 |  1 dlld2.s    289 | Data        | 11 |         |   40 | 00/21B3 : C4 CC CC C4 | myTEXT            asc          "DLLD Browser  (c) 2024, Brutal Deluxe > "
+      |                   |             |    |         |      |           A0 C2 F2 EF |
+      |                   |             |    |         |      |           F7 F3 E5 F2 |
+      |                   |             |    |         |      |           A0 A0 A8 E3 |
+      |                   |             |    |         |      |           A9 A0 B2 B0 |
+      |                   |             |    |         |      |           B2 B4 AC A0 |
+      |                   |             |    |         |      |           C2 F2 F5 F4 |
+      |                   |             |    |         |      |           E1 EC A0 C4 |
+      |                   |             |    |         |      |           E5 EC F5 F8 |
+      |                   |             |    |         |      |           E5 A0 BE A0 |
+  338 |  1 dlld2.s    290 | Data        | 11 |         |   40 | 00/21DB : AD AD AD AD |                   asc          "----------------------------------------"
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+  339 |  1 dlld2.s    291 | Data        | 11 |         |    1 | 00/2203 : 8D          |                   asc          8d             
+  340 |  1 dlld2.s    292 | Data        | 11 |         |    1 | 00/2204 : 8D          |                   asc          8d             
+  341 |  1 dlld2.s    293 | Data        | 11 |         |   40 | 00/2205 : BC BC A0 A0 |                   asc          "<<              Seconds               >>"
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+      |                   |             |    |         |      |           D3 E5 E3 EF |
+      |                   |             |    |         |      |           EE E4 F3 A0 |
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+      |                   |             |    |         |      |           A0 A0 BE BE |
+  342 |  1 dlld2.s    294 | Data        | 11 |         |   40 | 00/222D : AD AD AD AD |                   asc          "----------------------------------------"
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+  343 |  1 dlld2.s    295 | Data        | 11 |         |   40 | 00/2255 : B6 B0 A0 A0 |                   asc          "60  30  10  5  3  -  +  3  5  10  30  60"
+      |                   |             |    |         |      |           B3 B0 A0 A0 |
+      |                   |             |    |         |      |           B1 B0 A0 A0 |
+      |                   |             |    |         |      |           B5 A0 A0 B3 |
+      |                   |             |    |         |      |           A0 A0 AD A0 |
+      |                   |             |    |         |      |           A0 AB A0 A0 |
+      |                   |             |    |         |      |           B3 A0 A0 B5 |
+      |                   |             |    |         |      |           A0 A0 B1 B0 |
+      |                   |             |    |         |      |           A0 A0 B3 B0 |
+      |                   |             |    |         |      |           A0 A0 B6 B0 |
+  344 |  1 dlld2.s    296 | Data        | 11 |         |   40 | 00/227D : A0 D1 A0 A0 |                   asc          " Q   W   E  R  T        Y  U   I   O   P"
+      |                   |             |    |         |      |           A0 D7 A0 A0 |
+      |                   |             |    |         |      |           A0 C5 A0 A0 |
+      |                   |             |    |         |      |           D2 A0 A0 D4 |
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+      |                   |             |    |         |      |           D9 A0 A0 D5 |
+      |                   |             |    |         |      |           A0 A0 A0 C9 |
+      |                   |             |    |         |      |           A0 A0 A0 CF |
+      |                   |             |    |         |      |           A0 A0 A0 D0 |
+  345 |  1 dlld2.s    297 | Data        | 11 |         |    1 | 00/22A5 : 8D          |                   asc          8d             
+  346 |  1 dlld2.s    298 | Data        | 11 |         |    1 | 00/22A6 : 8D          |                   asc          8d             
+  347 |  1 dlld2.s    299 | Data        | 11 |         |   40 | 00/22A7 : BC BC A0 A0 |                   asc          "<<               Frames               >>"
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+      |                   |             |    |         |      |           A0 C6 F2 E1 |
+      |                   |             |    |         |      |           ED E5 F3 A0 |
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+      |                   |             |    |         |      |           A0 A0 BE BE |
+  348 |  1 dlld2.s    300 | Data        | 11 |         |   40 | 00/22CF : AD AD AD AD |                   asc          "----------------------------------------"
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+      |                   |             |    |         |      |           AD AD AD AD |
+  349 |  1 dlld2.s    301 | Data        | 11 |         |   40 | 00/22F7 : A0 A0 A0 A0 |                   asc          "    30  15  3  1  -  +  1  3  15  30    "
+      |                   |             |    |         |      |           B3 B0 A0 A0 |
+      |                   |             |    |         |      |           B1 B5 A0 A0 |
+      |                   |             |    |         |      |           B3 A0 A0 B1 |
+      |                   |             |    |         |      |           A0 A0 AD A0 |
+      |                   |             |    |         |      |           A0 AB A0 A0 |
+      |                   |             |    |         |      |           B1 A0 A0 B3 |
+      |                   |             |    |         |      |           A0 A0 B1 B5 |
+      |                   |             |    |         |      |           A0 A0 B3 B0 |
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+  350 |  1 dlld2.s    302 | Data        | 11 |         |   40 | 00/231F : A0 A0 A0 A0 |                   asc          "     A   S  D  F        H  J   K   L    "
+      |                   |             |    |         |      |           A0 C1 A0 A0 |
+      |                   |             |    |         |      |           A0 D3 A0 A0 |
+      |                   |             |    |         |      |           C4 A0 A0 C6 |
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+      |                   |             |    |         |      |           C8 A0 A0 CA |
+      |                   |             |    |         |      |           A0 A0 A0 CB |
+      |                   |             |    |         |      |           A0 A0 A0 CC |
+      |                   |             |    |         |      |           A0 A0 A0 A0 |
+  351 |  1 dlld2.s    303 | Data        | 11 |         |    1 | 00/2347 : 8D          |                   asc          8d             
+  352 |  1 dlld2.s    304 | Data        | 11 |         |    1 | 00/2348 : 8D          |                   asc          8d             
+  353 |  1 dlld2.s    305 | Data        | 11 |         |   27 | 00/2349 : D6 A0 F4 EF |                   asc          "V to show the frame number"8d
+      |                   |             |    |         |      |           A0 F3 E8 EF |
+      |                   |             |    |         |      |           F7 A0 F4 E8 |
+      |                   |             |    |         |      |           E5 A0 E6 F2 |
+      |                   |             |    |         |      |           E1 ED E5 A0 |
+      |                   |             |    |         |      |           EE F5 ED E2 |
+      |                   |             |    |         |      |           E5 F2 8D    |
+  354 |  1 dlld2.s    306 | Data        | 11 |         |   18 | 00/2364 : D0 F2 E5 F3 |                   asc          "Press ESC to quit"00
+      |                   |             |    |         |      |           F3 A0 C5 D3 |
+      |                   |             |    |         |      |           C3 A0 F4 EF |
+      |                   |             |    |         |      |           A0 F1 F5 E9 |
+      |                   |             |    |         |      |           F4 00       |
+  355 |  1 dlld2.s    307 | Empty       | 11 |         |    0 | 00/2376               |                                               
+  356 |  1 dlld2.s    308 | Comment     | 11 |         |    0 | 00/2376               | *-----------------------------------
+  357 |  1 dlld2.s    309 | Comment     | 11 |         |    0 | 00/2376               | * SERIAL PORT (MODEM)
+  358 |  1 dlld2.s    310 | Comment     | 11 |         |    0 | 00/2376               | *-----------------------------------
+  359 |  1 dlld2.s    311 | Empty       | 11 |         |    0 | 00/2376               |                                               
+  360 |  1 dlld2.s    312 | Comment     | 11 |         |    0 | 00/2376               | *---------- Set all addressses
+  361 |  1 dlld2.s    313 | Empty       | 11 |         |    0 | 00/2376               |                                               
+  362 |  1 dlld2.s    314 | Empty       | 11 |         |    0 | 00/2376               | initSERIAL                                    
+  363 |  1 dlld2.s    315 | Code        | 11 |         |    3 | 00/2376 : AD 0D C2    |                   lda          $c20d          
+  364 |  1 dlld2.s    316 | Code        | 11 |         |    3 | 00/2379 : 8D 90 23    |                   sta          doinit+1       
+  365 |  1 dlld2.s    317 | Code        | 11 |         |    3 | 00/237C : AD 0E C2    |                   lda          $c20e          
+  366 |  1 dlld2.s    318 | Code        | 11 |         |    3 | 00/237F : 8D 93 23    |                   sta          doread+1       
+  367 |  1 dlld2.s    319 | Code        | 11 |         |    3 | 00/2382 : AD 0F C2    |                   lda          $c20f          
+  368 |  1 dlld2.s    320 | Code        | 11 |         |    3 | 00/2385 : 8D 96 23    |                   sta          dowrite+1      
+  369 |  1 dlld2.s    321 | Code        | 11 |         |    3 | 00/2388 : AD 10 C2    |                   lda          $c210          
+  370 |  1 dlld2.s    322 | Code        | 11 |         |    3 | 00/238B : 8D 99 23    |                   sta          dostatus+1     
+  371 |  1 dlld2.s    323 | Code        | 11 |         |    1 | 00/238E : 60          |                   rts                         
+  372 |  1 dlld2.s    324 | Empty       | 11 |         |    0 | 00/238F               |                                               
+  373 |  1 dlld2.s    325 | Code        | 11 |         |    3 | 00/238F : 4C 0D C2    | doinit            jmp          $c20d          
+  374 |  1 dlld2.s    326 | Code        | 11 |         |    3 | 00/2392 : 4C 0E C2    | doread            jmp          $c20e          
+  375 |  1 dlld2.s    327 | Code        | 11 |         |    3 | 00/2395 : 4C 0F C2    | dowrite           jmp          $c20f          
+  376 |  1 dlld2.s    328 | Code        | 11 |         |    3 | 00/2398 : 4C 10 C2    | dostatus          jmp          $c210          
+  377 |  1 dlld2.s    329 | Empty       | 11 |         |    0 | 00/239B               |                                               
+  378 |  1 dlld2.s    330 | Comment     | 11 |         |    0 | 00/239B               | *---------- Init modem port for LD support
+  379 |  1 dlld2.s    331 | Empty       | 11 |         |    0 | 00/239B               |                                               
+  380 |  1 dlld2.s    332 | Code        | 11 |         |    2 | 00/239B : A2 C2       | initPORT          ldx          #{{2}!$C0}     
+  381 |  1 dlld2.s    333 | Code        | 11 |         |    2 | 00/239D : A0 20       |                   ldy          #{{2}*16}      
+  382 |  1 dlld2.s    334 | Code        | 11 |         |    3 | 00/239F : 20 8F 23    |                   jsr          doinit         
+  383 |  1 dlld2.s    335 | Empty       | 11 |         |    0 | 00/23A2               |                                               
+  384 |  1 dlld2.s    336 | Macro       | 11 |         |    0 | 00/23A2               |                   _sendSTRING  #strED         ; Don't echo output
+  385 |  1 dlld2.s    336 | Code        | 11 |         |    2 | 00/23A2 : A2 24       |                   ldx          #>#strED       
+  386 |  1 dlld2.s    336 | Code        | 11 |         |    2 | 00/23A4 : A0 A0       |                   ldy          #<#strED       
+  387 |  1 dlld2.s    336 | Code        | 11 |         |    3 | 00/23A6 : 20 48 24    |                   jsr          sendString     
+  388 |  1 dlld2.s    337 | Macro       | 11 |         |    0 | 00/23A9               |                   _sendSTRING  #strBE         ; Input buffering: on
+  389 |  1 dlld2.s    337 | Code        | 11 |         |    2 | 00/23A9 : A2 24       |                   ldx          #>#strBE       
+  390 |  1 dlld2.s    337 | Code        | 11 |         |    2 | 00/23AB : A0 A4       |                   ldy          #<#strBE       
+  391 |  1 dlld2.s    337 | Code        | 11 |         |    3 | 00/23AD : 20 48 24    |                   jsr          sendString     
+  392 |  1 dlld2.s    338 | Macro       | 11 |         |    0 | 00/23B0               |                   _sendSTRING  #str12B        ; Baud rate: 4800 BPS
+  393 |  1 dlld2.s    338 | Code        | 11 |         |    2 | 00/23B0 : A2 24       |                   ldx          #>#str12B      
+  394 |  1 dlld2.s    338 | Code        | 11 |         |    2 | 00/23B2 : A0 A8       |                   ldy          #<#str12B      
+  395 |  1 dlld2.s    338 | Code        | 11 |         |    3 | 00/23B4 : 20 48 24    |                   jsr          sendString     
+  396 |  1 dlld2.s    339 | Macro       | 11 |         |    0 | 00/23B7               |                   _sendSTRING  #str0D         ; Data/Stop bits: 8/1
+  397 |  1 dlld2.s    339 | Code        | 11 |         |    2 | 00/23B7 : A2 24       |                   ldx          #>#str0D       
+  398 |  1 dlld2.s    339 | Code        | 11 |         |    2 | 00/23B9 : A0 AD       |                   ldy          #<#str0D       
+  399 |  1 dlld2.s    339 | Code        | 11 |         |    3 | 00/23BB : 20 48 24    |                   jsr          sendString     
+  400 |  1 dlld2.s    340 | Macro       | 11 |         |    0 | 00/23BE               |                   _sendSTRING  #str0P         ; Parity: none
+  401 |  1 dlld2.s    340 | Code        | 11 |         |    2 | 00/23BE : A2 24       |                   ldx          #>#str0P       
+  402 |  1 dlld2.s    340 | Code        | 11 |         |    2 | 00/23C0 : A0 B1       |                   ldy          #<#str0P       
+  403 |  1 dlld2.s    340 | Code        | 11 |         |    3 | 00/23C2 : 20 48 24    |                   jsr          sendString     
+  404 |  1 dlld2.s    341 | Macro       | 11 |         |    0 | 00/23C5               |                   _sendSTRING  #str0N         ; Line length: 0
+  405 |  1 dlld2.s    341 | Code        | 11 |         |    2 | 00/23C5 : A2 24       |                   ldx          #>#str0N       
+  406 |  1 dlld2.s    341 | Code        | 11 |         |    2 | 00/23C7 : A0 B5       |                   ldy          #<#str0N       
+  407 |  1 dlld2.s    341 | Code        | 11 |         |    3 | 00/23C9 : 20 48 24    |                   jsr          sendString     
+  408 |  1 dlld2.s    342 | Macro       | 11 |         |    0 | 00/23CC               |                   _sendSTRING  #strAD         ; Do not implement basic tabs
+  409 |  1 dlld2.s    342 | Code        | 11 |         |    2 | 00/23CC : A2 24       |                   ldx          #>#strAD       
+  410 |  1 dlld2.s    342 | Code        | 11 |         |    2 | 00/23CE : A0 B9       |                   ldy          #<#strAD       
+  411 |  1 dlld2.s    342 | Code        | 11 |         |    3 | 00/23D0 : 20 48 24    |                   jsr          sendString     
+  412 |  1 dlld2.s    343 | Macro       | 11 |         |    0 | 00/23D3               |                   _sendSTRING  #strCD         ; Disable line formatting
+  413 |  1 dlld2.s    343 | Code        | 11 |         |    2 | 00/23D3 : A2 24       |                   ldx          #>#strCD       
+  414 |  1 dlld2.s    343 | Code        | 11 |         |    2 | 00/23D5 : A0 BD       |                   ldy          #<#strCD       
+  415 |  1 dlld2.s    343 | Code        | 11 |         |    3 | 00/23D7 : 20 48 24    |                   jsr          sendString     
+  416 |  1 dlld2.s    344 | Macro       | 11 |         |    0 | 00/23DA               |                   _sendSTRING  #strXD         ; Ignore XOFF
+  417 |  1 dlld2.s    344 | Code        | 11 |         |    2 | 00/23DA : A2 24       |                   ldx          #>#strXD       
+  418 |  1 dlld2.s    344 | Code        | 11 |         |    2 | 00/23DC : A0 C1       |                   ldy          #<#strXD       
+  419 |  1 dlld2.s    344 | Code        | 11 |         |    3 | 00/23DE : 20 48 24    |                   jsr          sendString     
+  420 |  1 dlld2.s    345 | Macro       | 11 |         |    0 | 00/23E1               |                   _sendSTRING  #strFD         ; Disable keyboard input
+  421 |  1 dlld2.s    345 | Code        | 11 |         |    2 | 00/23E1 : A2 24       |                   ldx          #>#strFD       
+  422 |  1 dlld2.s    345 | Code        | 11 |         |    2 | 00/23E3 : A0 C5       |                   ldy          #<#strFD       
+  423 |  1 dlld2.s    345 | Code        | 11 |         |    3 | 00/23E5 : 20 48 24    |                   jsr          sendString     
+  424 |  1 dlld2.s    346 | Macro       | 11 |         |    0 | 00/23E8               |                   _sendSTRING  #strLD         ; Do not add line feeds after CR
+  425 |  1 dlld2.s    346 | Code        | 11 |         |    2 | 00/23E8 : A2 24       |                   ldx          #>#strLD       
+  426 |  1 dlld2.s    346 | Code        | 11 |         |    2 | 00/23EA : A0 C9       |                   ldy          #<#strLD       
+  427 |  1 dlld2.s    346 | Code        | 11 |         |    3 | 00/23EC : 20 48 24    |                   jsr          sendString     
+  428 |  1 dlld2.s    347 | Macro       | 11 |         |    0 | 00/23EF               |                   _sendSTRING  #strME         ; Mask line feed in
+  429 |  1 dlld2.s    347 | Code        | 11 |         |    2 | 00/23EF : A2 24       |                   ldx          #>#strME       
+  430 |  1 dlld2.s    347 | Code        | 11 |         |    2 | 00/23F1 : A0 CD       |                   ldy          #<#strME       
+  431 |  1 dlld2.s    347 | Code        | 11 |         |    3 | 00/23F3 : 20 48 24    |                   jsr          sendString     
+  432 |  1 dlld2.s    348 | Macro       | 11 |         |    0 | 00/23F6               |                   _sendSTRING  #strZ          ; Suppress control characters
+  433 |  1 dlld2.s    348 | Code        | 11 |         |    2 | 00/23F6 : A2 24       |                   ldx          #>#strZ        
+  434 |  1 dlld2.s    348 | Code        | 11 |         |    2 | 00/23F8 : A0 D1       |                   ldy          #<#strZ        
+  435 |  1 dlld2.s    348 | Code        | 11 |         |    3 | 00/23FA : 20 48 24    |                   jsr          sendString     
+  436 |  1 dlld2.s    349 | Code        | 11 |         |    3 | 00/23FD : 20 01 24    |                   jsr          checkInputReady
+  437 |  1 dlld2.s    350 | Code        | 11 |         |    1 | 00/2400 : 60          |                   rts                         
+  438 |  1 dlld2.s    351 | Empty       | 11 |         |    0 | 00/2401               |                                               
+  439 |  1 dlld2.s    352 | Comment     | 11 |         |    0 | 00/2401               | *---------- Check the input is ready
+  440 |  1 dlld2.s    353 | Empty       | 11 |         |    0 | 00/2401               |                                               
+  441 |  1 dlld2.s    354 | Empty       | 11 |         |    0 | 00/2401               | checkInputReady                               
+  442 |  1 dlld2.s    355 | Code        | 11 |         |    2 | 00/2401 : A2 08       |                   ldx          #8             
+  443 |  1 dlld2.s    356 | Code        | 11 |         |    2 | 00/2403 : A0 00       |                   ldy          #0             
+  444 |  1 dlld2.s    357 | Empty       | 11 |         |    0 | 00/2405               |                                               
+  445 |  1 dlld2.s    358 | Code        | 11 |         |    1 | 00/2405 : DA          | ozunid_4          phx                         
+  446 |  1 dlld2.s    359 | Code        | 11 |         |    1 | 00/2406 : 5A          |                   phy                         
+  447 |  1 dlld2.s    360 | Empty       | 11 |         |    0 | 00/2407               |                                               
+  448 |  1 dlld2.s    361 | Comment     | 11 |         |    0 | 00/2407               | *	lda	#"I"
+  449 |  1 dlld2.s    362 | Comment     | 11 |         |    0 | 00/2407               | *	sta	$427
+  450 |  1 dlld2.s    363 | Empty       | 11 |         |    0 | 00/2407               |                                               
+  451 |  1 dlld2.s    364 | Code        | 11 |         |    2 | 00/2407 : A2 C2       |                   ldx          #{{2}!$C0}     
+  452 |  1 dlld2.s    365 | Code        | 11 |         |    2 | 00/2409 : A0 20       |                   ldy          #{{2}*16}      
+  453 |  1 dlld2.s    366 | Code        | 11 |         |    2 | 00/240B : A9 01       |                   lda          #1             
+  454 |  1 dlld2.s    367 | Code        | 11 |         |    3 | 00/240D : 20 98 23    |                   jsr          dostatus       
+  455 |  1 dlld2.s    368 | Code        | 11 |         |    2 | 00/2410 : B0 0A       |                   bcs          checkIR1       
+  456 |  1 dlld2.s    369 | Empty       | 11 |         |    0 | 00/2412               |                                               
+  457 |  1 dlld2.s    370 | Code        | 11 |         |    1 | 00/2412 : 7A          |                   ply                         
+  458 |  1 dlld2.s    371 | Code        | 11 |         |    1 | 00/2413 : FA          |                   plx                         
+  459 |  1 dlld2.s    372 | Code        | 11 |         |    1 | 00/2414 : 88          |                   dey                         
+  460 |  1 dlld2.s    373 | Code        | 11 |         |    2 | 00/2415 : D0 EE       |                   bne          ozunid_4       
+  461 |  1 dlld2.s    374 | Code        | 11 |         |    1 | 00/2417 : CA          |                   dex                         
+  462 |  1 dlld2.s    375 | Code        | 11 |         |    2 | 00/2418 : D0 EB       |                   bne          ozunid_4       
+  463 |  1 dlld2.s    376 | Empty       | 11 |         |    0 | 00/241A               |                                               
+  464 |  1 dlld2.s    377 | Code        | 11 |         |    1 | 00/241A : 38          |                   sec                         
+  465 |  1 dlld2.s    378 | Code        | 11 |         |    1 | 00/241B : 60          |                   rts                         
+  466 |  1 dlld2.s    379 | Code        | 11 |         |    1 | 00/241C : 7A          | checkIR1          ply                         
+  467 |  1 dlld2.s    380 | Code        | 11 |         |    1 | 00/241D : FA          |                   plx                         
+  468 |  1 dlld2.s    381 | Code        | 11 |         |    1 | 00/241E : 18          |                   clc                         
+  469 |  1 dlld2.s    382 | Code        | 11 |         |    1 | 00/241F : 60          |                   rts                         
+  470 |  1 dlld2.s    383 | Empty       | 11 |         |    0 | 00/2420               |                                               
+  471 |  1 dlld2.s    384 | Comment     | 11 |         |    0 | 00/2420               | *---------- Check the output is ready
+  472 |  1 dlld2.s    385 | Empty       | 11 |         |    0 | 00/2420               |                                               
+  473 |  1 dlld2.s    386 | Empty       | 11 |         |    0 | 00/2420               | checkOutputReady                              
+  474 |  1 dlld2.s    387 | Code        | 11 |         |    2 | 00/2420 : A2 08       |                   ldx          #8             
+  475 |  1 dlld2.s    388 | Code        | 11 |         |    2 | 00/2422 : A0 00       |                   ldy          #0             
+  476 |  1 dlld2.s    389 | Empty       | 11 |         |    0 | 00/2424               |                                               
+  477 |  1 dlld2.s    390 | Code        | 11 |         |    1 | 00/2424 : DA          | ozunid_5          phx                         
+  478 |  1 dlld2.s    391 | Code        | 11 |         |    1 | 00/2425 : 5A          |                   phy                         
+  479 |  1 dlld2.s    392 | Empty       | 11 |         |    0 | 00/2426               |                                               
+  480 |  1 dlld2.s    393 | Comment     | 11 |         |    0 | 00/2426               | *	lda	#"O"
+  481 |  1 dlld2.s    394 | Comment     | 11 |         |    0 | 00/2426               | *	sta	$427
+  482 |  1 dlld2.s    395 | Empty       | 11 |         |    0 | 00/2426               |                                               
+  483 |  1 dlld2.s    396 | Code        | 11 |         |    2 | 00/2426 : A2 C2       |                   ldx          #{{2}!$C0}     
+  484 |  1 dlld2.s    397 | Code        | 11 |         |    2 | 00/2428 : A0 20       |                   ldy          #{{2}*16}      
+  485 |  1 dlld2.s    398 | Code        | 11 |         |    2 | 00/242A : A9 00       |                   lda          #0             
+  486 |  1 dlld2.s    399 | Code        | 11 |         |    3 | 00/242C : 20 98 23    |                   jsr          dostatus       
+  487 |  1 dlld2.s    400 | Code        | 11 |         |    2 | 00/242F : B0 0A       |                   bcs          checkOR1       
+  488 |  1 dlld2.s    401 | Empty       | 11 |         |    0 | 00/2431               |                                               
+  489 |  1 dlld2.s    402 | Code        | 11 |         |    1 | 00/2431 : 7A          |                   ply                         
+  490 |  1 dlld2.s    403 | Code        | 11 |         |    1 | 00/2432 : FA          |                   plx                         
+  491 |  1 dlld2.s    404 | Code        | 11 |         |    1 | 00/2433 : 88          |                   dey                         
+  492 |  1 dlld2.s    405 | Code        | 11 |         |    2 | 00/2434 : D0 EE       |                   bne          ozunid_5       
+  493 |  1 dlld2.s    406 | Code        | 11 |         |    1 | 00/2436 : CA          |                   dex                         
+  494 |  1 dlld2.s    407 | Code        | 11 |         |    2 | 00/2437 : D0 EB       |                   bne          ozunid_5       
+  495 |  1 dlld2.s    408 | Empty       | 11 |         |    0 | 00/2439               |                                               
+  496 |  1 dlld2.s    409 | Code        | 11 |         |    1 | 00/2439 : 38          |                   sec                         
+  497 |  1 dlld2.s    410 | Code        | 11 |         |    1 | 00/243A : 60          |                   rts                         
+  498 |  1 dlld2.s    411 | Code        | 11 |         |    1 | 00/243B : 7A          | checkOR1          ply                         
+  499 |  1 dlld2.s    412 | Code        | 11 |         |    1 | 00/243C : FA          |                   plx                         
+  500 |  1 dlld2.s    413 | Code        | 11 |         |    1 | 00/243D : 18          |                   clc                         
+  501 |  1 dlld2.s    414 | Code        | 11 |         |    1 | 00/243E : 60          |                   rts                         
+  502 |  1 dlld2.s    415 | Empty       | 11 |         |    0 | 00/243F               |                                               
+  503 |  1 dlld2.s    416 | Comment     | 11 |         |    0 | 00/243F               | *---------- Send a LD command
+  504 |  1 dlld2.s    417 | Empty       | 11 |         |    0 | 00/243F               |                                               
+  505 |  1 dlld2.s    418 | Empty       | 11 |         |    0 | 00/243F               | sendLDCommand                                 
+  506 |  1 dlld2.s    419 | Code        | 11 |         |    3 | 00/243F : 20 48 24    |                   jsr          sendString     
+  507 |  1 dlld2.s    420 | Code        | 11 |         |    2 | 00/2442 : B0 03       |                   bcs          sendLDError    
+  508 |  1 dlld2.s    421 | Code        | 11 |         |    3 | 00/2444 : 20 76 24    |                   jsr          receiveString  
+  509 |  1 dlld2.s    422 | Code        | 11 |         |    1 | 00/2447 : 60          | sendLDError       rts                         
+  510 |  1 dlld2.s    423 | Empty       | 11 |         |    0 | 00/2448               |                                               
+  511 |  1 dlld2.s    424 | Comment     | 11 |         |    0 | 00/2448               | *---------- Send a string
+  512 |  1 dlld2.s    425 | Empty       | 11 |         |    0 | 00/2448               |                                               
+  513 |  1 dlld2.s    426 | Empty       | 11 |         |    0 | 00/2448               | sendString                                    
+  514 |  1 dlld2.s    427 | Comment     | 11 |         |    0 | 00/2448               | *	lda	#"S"
+  515 |  1 dlld2.s    428 | Comment     | 11 |         |    0 | 00/2448               | *	sta	$426
+  516 |  1 dlld2.s    429 | Empty       | 11 |         |    0 | 00/2448               |                                               
+  517 |  1 dlld2.s    430 | Code        | 11 |         |    2 | 00/2448 : 84 FC       |                   sty          {$fc}          
+  518 |  1 dlld2.s    431 | Code        | 11 |         |    2 | 00/244A : 86 FD       |                   stx          {$fc}+1        
+  519 |  1 dlld2.s    432 | Empty       | 11 |         |    0 | 00/244C               |                                               
+  520 |  1 dlld2.s    433 | Code        | 11 |         |    2 | 00/244C : B2 FC       | ozunid_6          lda          ({$fc})        
+  521 |  1 dlld2.s    434 | Code        | 11 |         |    2 | 00/244E : F0 0D       |                   beq          sendCRS1       ; end of string?
+  522 |  1 dlld2.s    435 | Code        | 11 |         |    3 | 00/2450 : 20 63 24    |                   jsr          sendCharacter  
+  523 |  1 dlld2.s    436 | Code        | 11 |         |    2 | 00/2453 : B0 0D       |                   bcs          sendError      ; error!
+  524 |  1 dlld2.s    437 | Empty       | 11 |         |    0 | 00/2455               |                                               
+  525 |  1 dlld2.s    438 | Code        | 11 |         |    2 | 00/2455 : E6 FC       |                   inc          {$fc}          
+  526 |  1 dlld2.s    439 | Code        | 11 |         |    2 | 00/2457 : D0 F3       |                   bne          ozunid_6       
+  527 |  1 dlld2.s    440 | Code        | 11 |         |    2 | 00/2459 : E6 FD       |                   inc          {$fc}+1        
+  528 |  1 dlld2.s    441 | Code        | 11 |         |    2 | 00/245B : D0 EF       |                   bne          ozunid_6       
+  529 |  1 dlld2.s    442 | Empty       | 11 |         |    0 | 00/245D               |                                               
+  530 |  1 dlld2.s    443 | Code        | 11 |         |    2 | 00/245D : A9 0D       | sendCRS1          lda          #{$0d}         ; yes, add a final CR
+  531 |  1 dlld2.s    444 | Code        | 11 |         |    3 | 00/245F : 20 63 24    |                   jsr          sendCharacter  
+  532 |  1 dlld2.s    445 | Empty       | 11 |         |    0 | 00/2462               |                                               
+  533 |  1 dlld2.s    446 | Code        | 11 |         |    1 | 00/2462 : 60          | sendError         rts                         
+  534 |  1 dlld2.s    447 | Empty       | 11 |         |    0 | 00/2463               |                                               
+  535 |  1 dlld2.s    448 | Comment     | 11 |         |    0 | 00/2463               | *---------- Send serial character
+  536 |  1 dlld2.s    449 | Empty       | 11 |         |    0 | 00/2463               |                                               
+  537 |  1 dlld2.s    450 | Empty       | 11 |         |    0 | 00/2463               | sendCharacter                                 
+  538 |  1 dlld2.s    451 | Code        | 11 |         |    1 | 00/2463 : 48          |                   pha                         
+  539 |  1 dlld2.s    452 | Empty       | 11 |         |    0 | 00/2464               |                                               
+  540 |  1 dlld2.s    453 | Code        | 11 |         |    3 | 00/2464 : 20 20 24    | ozunid_7          jsr          checkOutputReady
+  541 |  1 dlld2.s    454 | Code        | 11 |         |    2 | 00/2467 : 90 03       |                   bcc          sensSC1        
+  542 |  1 dlld2.s    455 | Code        | 11 |         |    1 | 00/2469 : 68          |                   pla                         
+  543 |  1 dlld2.s    456 | Code        | 11 |         |    1 | 00/246A : 38          |                   sec                         
+  544 |  1 dlld2.s    457 | Code        | 11 |         |    1 | 00/246B : 60          |                   rts                         
+  545 |  1 dlld2.s    458 | Empty       | 11 |         |    0 | 00/246C               |                                               
+  546 |  1 dlld2.s    459 | Code        | 11 |         |    1 | 00/246C : 68          | sensSC1           pla                         
+  547 |  1 dlld2.s    460 | Code        | 11 |         |    2 | 00/246D : A2 C2       |                   ldx          #{{2}!$C0}     
+  548 |  1 dlld2.s    461 | Code        | 11 |         |    2 | 00/246F : A0 20       |                   ldy          #{{2}*16}      
+  549 |  1 dlld2.s    462 | Code        | 11 |         |    3 | 00/2471 : 20 95 23    |                   jsr          dowrite        
+  550 |  1 dlld2.s    463 | Code        | 11 |         |    1 | 00/2474 : 18          |                   clc                         
+  551 |  1 dlld2.s    464 | Code        | 11 |         |    1 | 00/2475 : 60          |                   rts                         
+  552 |  1 dlld2.s    465 | Empty       | 11 |         |    0 | 00/2476               |                                               
+  553 |  1 dlld2.s    466 | Comment     | 11 |         |    0 | 00/2476               | *---------- Receive string
+  554 |  1 dlld2.s    467 | Empty       | 11 |         |    0 | 00/2476               |                                               
+  555 |  1 dlld2.s    468 | Empty       | 11 |         |    0 | 00/2476               | receiveString                                 
+  556 |  1 dlld2.s    469 | Comment     | 11 |         |    0 | 00/2476               | *	lda	#"R"
+  557 |  1 dlld2.s    470 | Comment     | 11 |         |    0 | 00/2476               | *	sta	$426
+  558 |  1 dlld2.s    471 | Empty       | 11 |         |    0 | 00/2476               |                                               
+  559 |  1 dlld2.s    472 | Code        | 11 |         |    2 | 00/2476 : A2 25       |                   ldx          #>responseBUF  
+  560 |  1 dlld2.s    473 | Code        | 11 |         |    2 | 00/2478 : A0 00       |                   ldy          #<responseBUF  
+  561 |  1 dlld2.s    474 | Code        | 11 |         |    2 | 00/247A : 84 FE       |                   sty          {{$fc}+2}      
+  562 |  1 dlld2.s    475 | Code        | 11 |         |    2 | 00/247C : 86 FF       |                   stx          {{$fc}+2}+1    
+  563 |  1 dlld2.s    476 | Empty       | 11 |         |    0 | 00/247E               |                                               
+  564 |  1 dlld2.s    477 | Code        | 11 |         |    2 | 00/247E : A0 00       |                   ldy          #0             
+  565 |  1 dlld2.s    478 | Code        | 11 |         |    1 | 00/2480 : 5A          | receiveSTR1       phy                         
+  566 |  1 dlld2.s    479 | Code        | 11 |         |    3 | 00/2481 : 20 01 24    | ozunid_8          jsr          checkInputReady
+  567 |  1 dlld2.s    480 | Code        | 11 |         |    2 | 00/2484 : B0 17       |                   bcs          receiveSTR9    
+  568 |  1 dlld2.s    481 | Empty       | 11 |         |    0 | 00/2486               |                                               
+  569 |  1 dlld2.s    482 | Code        | 11 |         |    2 | 00/2486 : A2 C2       |                   ldx          #{{2}!$C0}     
+  570 |  1 dlld2.s    483 | Code        | 11 |         |    2 | 00/2488 : A0 20       |                   ldy          #{{2}*16}      
+  571 |  1 dlld2.s    484 | Code        | 11 |         |    3 | 00/248A : 20 92 23    |                   jsr          doread         
+  572 |  1 dlld2.s    485 | Code        | 11 |         |    2 | 00/248D : E0 00       |                   cpx          #0             
+  573 |  1 dlld2.s    486 | Code        | 11 |         |    2 | 00/248F : D0 0C       |                   bne          receiveSTR9    
+  574 |  1 dlld2.s    487 | Empty       | 11 |         |    0 | 00/2491               |                                               
+  575 |  1 dlld2.s    488 | Code        | 11 |         |    1 | 00/2491 : 7A          |                   ply                         
+  576 |  1 dlld2.s    489 | Code        | 11 |         |    2 | 00/2492 : 91 FE       |                   sta          ({{$fc}+2}),y  
+  577 |  1 dlld2.s    490 | Code        | 11 |         |    2 | 00/2494 : C9 0D       |                   cmp          #{$0d}         
+  578 |  1 dlld2.s    491 | Code        | 11 |         |    2 | 00/2496 : F0 03       |                   beq          receiveSTR8    
+  579 |  1 dlld2.s    492 | Code        | 11 |         |    1 | 00/2498 : C8          |                   iny                         
+  580 |  1 dlld2.s    493 | Code        | 11 |         |    2 | 00/2499 : D0 E5       |                   bne          receiveSTR1    
+  581 |  1 dlld2.s    494 | Code        | 11 |         |    1 | 00/249B : 18          | receiveSTR8       clc                         
+  582 |  1 dlld2.s    495 | Code        | 11 |         |    1 | 00/249C : 60          |                   rts                         
+  583 |  1 dlld2.s    496 | Code        | 11 |         |    1 | 00/249D : 7A          | receiveSTR9       ply                         
+  584 |  1 dlld2.s    497 | Code        | 11 |         |    1 | 00/249E : 38          |                   sec                         
+  585 |  1 dlld2.s    498 | Code        | 11 |         |    1 | 00/249F : 60          |                   rts                         
+  586 |  1 dlld2.s    499 | Empty       | 11 |         |    0 | 00/24A0               |                                               
+  587 |  1 dlld2.s    500 | Comment     | 11 |         |    0 | 00/24A0               | *-----------------------------------
+  588 |  1 dlld2.s    501 | Comment     | 11 |         |    0 | 00/24A0               | * DATA
+  589 |  1 dlld2.s    502 | Comment     | 11 |         |    0 | 00/24A0               | *-----------------------------------
+  590 |  1 dlld2.s    503 | Empty       | 11 |         |    0 | 00/24A0               |                                               
+  591 |  1 dlld2.s    504 | Comment     | 11 |         |    0 | 00/24A0               | *---------- Serial data
+  592 |  1 dlld2.s    505 | Empty       | 11 |         |    0 | 00/24A0               |                                               
+  593 |  1 dlld2.s    506 | Data        | 11 |         |    4 | 00/24A0 : 01 45 44 00 | strED             asc          01'ED'00       ; *Don't echo output
+  594 |  1 dlld2.s    507 | Data        | 11 |         |    4 | 00/24A4 : 01 42 45 00 | strBE             asc          01'BE'00       ; *Input buffering: on
+  595 |  1 dlld2.s    508 | Data        | 11 |         |    5 | 00/24A8 : 01 31 32 42 | str12B            asc          01'12B'00      ; *Baud rate: 4800 BPS
+      |                   |             |    |         |      |           00          |
+  596 |  1 dlld2.s    509 | Data        | 11 |         |    4 | 00/24AD : 01 30 44 00 | str0D             asc          01'0D'00       ; *Data/Stop bits: 8/1
+  597 |  1 dlld2.s    510 | Data        | 11 |         |    4 | 00/24B1 : 01 30 50 00 | str0P             asc          01'0P'00       ; *Parity: none
+  598 |  1 dlld2.s    511 | Data        | 11 |         |    4 | 00/24B5 : 01 30 4E 00 | str0N             asc          01'0N'00       ; Line length: 0
+  599 |  1 dlld2.s    512 | Data        | 11 |         |    4 | 00/24B9 : 01 41 44 00 | strAD             asc          01'AD'00       ; *Do not implement basic tabs
+  600 |  1 dlld2.s    513 | Data        | 11 |         |    4 | 00/24BD : 01 43 44 00 | strCD             asc          01'CD'00       ; *Disable line formatting
+  601 |  1 dlld2.s    514 | Data        | 11 |         |    4 | 00/24C1 : 01 58 44 00 | strXD             asc          01'XD'00       ; *Ignore XOFF
+  602 |  1 dlld2.s    515 | Data        | 11 |         |    4 | 00/24C5 : 01 46 44 00 | strFD             asc          01'FD'00       ; *Disable keyboard input
+  603 |  1 dlld2.s    516 | Data        | 11 |         |    4 | 00/24C9 : 01 4C 44 00 | strLD             asc          01'LD'00       ; Do not add line feeds after CR
+  604 |  1 dlld2.s    517 | Data        | 11 |         |    4 | 00/24CD : 01 4D 45 00 | strME             asc          01'ME'00       ; Mask line feed in
+  605 |  1 dlld2.s    518 | Data        | 11 |         |    3 | 00/24D1 : 01 5A 00    | strZ              asc          01'Z'00        ; *Suppress control characters
+  606 |  1 dlld2.s    519 | Empty       | 11 |         |    0 | 00/24D4               |                                               
+  607 |  1 dlld2.s    520 | Comment     | 11 |         |    0 | 00/24D4               | *---------- Laserdisc
+  608 |  1 dlld2.s    521 | Empty       | 11 |         |    0 | 00/24D4               |                                               
+  609 |  1 dlld2.s    522 | Data        | 11 |         |   44 | 00/24D4 : 00 00 00 00 |                   ds           \              
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+  610 |  1 dlld2.s    523 | Empty       | 11 |         |    0 | 00/2500               |                                               
+  611 |  1 dlld2.s    524 | Data        | 11 |         |  256 | 00/2500 : 00 00 00 00 | responseBUF       ds           256            ; LD player response
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+      |                   |             |    |         |      |           00 00 00 00 |
+  612 |  1 dlld2.s    525 | Empty       | 11 |         |    0 | 00/2600               |                                               
+  613 |  1 dlld2.s    526 | Comment     | 11 |         |    0 | 00/2600               | *-----------------------------------
+  614 |  1 dlld2.s    527 | Comment     | 11 |         |    0 | 00/2600               | * END OF CODE
+  615 |  1 dlld2.s    528 | Comment     | 11 |         |    0 | 00/2600               | *-----------------------------------
+  616 |  1 dlld2.s    529 | Empty       | 11 |         |    0 | 00/2600               |                                               
+  617 |  1 dlld2.s    530 | Empty       | 11 |         |    0 | 00/2600               |                                               
+------+-------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------

dlld/source/dlld_Output.txt

@@ -0,0 +1,616 @@
+------+------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
+ Line | # File      Line | Line Type   | MX |  Reloc  | Size | Address   Object Code |  Source Code                                                      
+------+------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
+    1 |  1 dlld.s      1 | Comment     | 11 |         |    0 | 00/8000               | *
+    2 |  1 dlld.s      2 | Comment     | 11 |         |    0 | 00/8000               | * DLLD
+    3 |  1 dlld.s      3 | Comment     | 11 |         |    0 | 00/8000               | * Let's play Dragon's Lair :-)
+    4 |  1 dlld.s      4 | Comment     | 11 |         |    0 | 00/8000               | *
+    5 |  1 dlld.s      5 | Comment     | 11 |         |    0 | 00/8000               | * (c) 2024, Brutal Deluxe Software
+    6 |  1 dlld.s      6 | Comment     | 11 |         |    0 | 00/8000               | *
+    7 |  1 dlld.s      7 | Empty       | 11 |         |    0 | 00/8000               |                                                       
+    8 |  1 dlld.s      8 | Directive   | 11 |         |    0 | 00/8000               |                        mx              %11            
+    9 |  1 dlld.s      9 | Directive   | 11 |         |    0 | 00/8000               |                        org             $2000          
+   10 |  1 dlld.s     10 | Directive   | 11 |         |    0 | 00/2000               |                        lst             off            
+   11 |  1 dlld.s     11 | Empty       | 11 |         |    0 | 00/2000               |                                                       
+   12 |  1 dlld.s     12 | Comment     | 11 |         |    0 | 00/2000               | *-----------------------------------
+   13 |  1 dlld.s     13 | Comment     | 11 |         |    0 | 00/2000               | * MACROS
+   14 |  1 dlld.s     14 | Comment     | 11 |         |    0 | 00/2000               | *-----------------------------------
+   15 |  1 dlld.s     15 | Empty       | 11 |         |    0 | 00/2000               |                                                       
+   16 |  1 dlld.s     16 | Directive   | 11 |         |    0 | 00/2000               | _sendLD                mac                            
+   17 |  1 dlld.s     17 | Directive   | 11 |         |    0 | 00/2000               |                        ldx             #>]1           
+   18 |  1 dlld.s     18 | Directive   | 11 |         |    0 | 00/2000               |                        ldy             #<]1           
+   19 |  1 dlld.s     19 | Directive   | 11 |         |    0 | 00/2000               |                        jsr             sendSERIAL     
+   20 |  1 dlld.s     20 | Directive   | 11 |         |    0 | 00/2000               |                        eom                            
+   21 |  1 dlld.s     21 | Empty       | 11 |         |    0 | 00/2000               |                                                       
+   22 |  1 dlld.s     22 | Directive   | 11 |         |    0 | 00/2000               | _receiveLD             mac                            
+   23 |  1 dlld.s     23 | Directive   | 11 |         |    0 | 00/2000               |                        ldx             #>]1           
+   24 |  1 dlld.s     24 | Directive   | 11 |         |    0 | 00/2000               |                        ldy             #<]1           
+   25 |  1 dlld.s     25 | Directive   | 11 |         |    0 | 00/2000               |                        jsr             receiveSERIAL  
+   26 |  1 dlld.s     26 | Directive   | 11 |         |    0 | 00/2000               |                        eom                            
+   27 |  1 dlld.s     27 | Empty       | 11 |         |    0 | 00/2000               |                                                       
+   28 |  1 dlld.s     28 | Directive   | 11 |         |    0 | 00/2000               | _sendLDCommand         mac                            
+   29 |  1 dlld.s     29 | Directive   | 11 |         |    0 | 00/2000               |                        ldx             #>]1           
+   30 |  1 dlld.s     30 | Directive   | 11 |         |    0 | 00/2000               |                        ldy             #<]1           
+   31 |  1 dlld.s     31 | Directive   | 11 |         |    0 | 00/2000               |                        jsr             sendLDCommand  
+   32 |  1 dlld.s     32 | Directive   | 11 |         |    0 | 00/2000               |                        eom                            
+   33 |  1 dlld.s     33 | Empty       | 11 |         |    0 | 00/2000               |                                                       
+   34 |  1 dlld.s     34 | Directive   | 11 |         |    0 | 00/2000               | _sendreceiveLD         mac                            
+   35 |  1 dlld.s     35 | Directive   | 11 |         |    0 | 00/2000               |                        ldx             #>]1           
+   36 |  1 dlld.s     36 | Directive   | 11 |         |    0 | 00/2000               |                        ldy             #<]1           
+   37 |  1 dlld.s     37 | Directive   | 11 |         |    0 | 00/2000               |                        jsr             sendreceiveLD  
+   38 |  1 dlld.s     38 | Directive   | 11 |         |    0 | 00/2000               |                        eom                            
+   39 |  1 dlld.s     39 | Empty       | 11 |         |    0 | 00/2000               |                                                       
+   40 |  1 dlld.s     40 | Directive   | 11 |         |    0 | 00/2000               | _readSTRING            mac                            
+   41 |  1 dlld.s     41 | Directive   | 11 |         |    0 | 00/2000               |                        ldx             #>]1           
+   42 |  1 dlld.s     42 | Directive   | 11 |         |    0 | 00/2000               |                        ldy             #<]1           
+   43 |  1 dlld.s     43 | Directive   | 11 |         |    0 | 00/2000               |                        jsr             receiveSERIAL  
+   44 |  1 dlld.s     44 | Directive   | 11 |         |    0 | 00/2000               |                        eom                            
+   45 |  1 dlld.s     45 | Empty       | 11 |         |    0 | 00/2000               |                                                       
+   46 |  1 dlld.s     46 | Directive   | 11 |         |    0 | 00/2000               | _sendSTRING            mac                            
+   47 |  1 dlld.s     47 | Directive   | 11 |         |    0 | 00/2000               |                        ldx             #>]1           
+   48 |  1 dlld.s     48 | Directive   | 11 |         |    0 | 00/2000               |                        ldy             #<]1           
+   49 |  1 dlld.s     49 | Directive   | 11 |         |    0 | 00/2000               |                        jsr             sendSerialString
+   50 |  1 dlld.s     50 | Directive   | 11 |         |    0 | 00/2000               |                        eom                            
+   51 |  1 dlld.s     51 | Empty       | 11 |         |    0 | 00/2000               |                                                       
+   52 |  1 dlld.s     52 | Comment     | 11 |         |    0 | 00/2000               | *-----------------------------------
+   53 |  1 dlld.s     53 | Comment     | 11 |         |    0 | 00/2000               | * EQUATES
+   54 |  1 dlld.s     54 | Comment     | 11 |         |    0 | 00/2000               | *-----------------------------------
+   55 |  1 dlld.s     55 | Empty       | 11 |         |    0 | 00/2000               |                                                       
+   56 |  1 dlld.s     56 | Equivalence | 11 |         |    0 | 00/2000               | dpFROM                 =               $fc            
+   57 |  1 dlld.s     57 | Equivalence | 11 |         |    0 | 00/2000               | dpTO                   =               {$fc}+2        
+   58 |  1 dlld.s     58 | Empty       | 11 |         |    0 | 00/2000               |                                                       
+   59 |  1 dlld.s     59 | Equivalence | 11 |         |    0 | 00/2000               | KBD                    =               $c000          
+   60 |  1 dlld.s     60 | Equivalence | 11 |         |    0 | 00/2000               | KBDSTROBE              =               $c010          
+   61 |  1 dlld.s     61 | Equivalence | 11 |         |    0 | 00/2000               | RDVBLBAR               =               $c019          
+   62 |  1 dlld.s     62 | Empty       | 11 |         |    0 | 00/2000               |                                                       
+   63 |  1 dlld.s     63 | Equivalence | 11 |         |    0 | 00/2000               | HOME                   =               $fc58          
+   64 |  1 dlld.s     64 | Equivalence | 11 |         |    0 | 00/2000               | WAIT                   =               $fca8          
+   65 |  1 dlld.s     65 | Equivalence | 11 |         |    0 | 00/2000               | COUT                   =               $fded          
+   66 |  1 dlld.s     66 | Empty       | 11 |         |    0 | 00/2000               |                                                       
+   67 |  1 dlld.s     67 | Equivalence | 11 |         |    0 | 00/2000               | chrCTRLA               =               $01            
+   68 |  1 dlld.s     68 | Equivalence | 11 |         |    0 | 00/2000               | chrLINEFEED            =               $0a            
+   69 |  1 dlld.s     69 | Equivalence | 11 |         |    0 | 00/2000               | chrRETURN              =               $0d            
+   70 |  1 dlld.s     70 | Equivalence | 11 |         |    0 | 00/2000               | chrSPACE               =               $20            
+   71 |  1 dlld.s     71 | Empty       | 11 |         |    0 | 00/2000               |                                                       
+   72 |  1 dlld.s     72 | Comment     | 11 |         |    0 | 00/2000               | *-----------------------------------
+   73 |  1 dlld.s     73 | Comment     | 11 |         |    0 | 00/2000               | * CODE
+   74 |  1 dlld.s     74 | Comment     | 11 |         |    0 | 00/2000               | *-----------------------------------
+   75 |  1 dlld.s     75 | Empty       | 11 |         |    0 | 00/2000               |                                                       
+   76 |  1 dlld.s     76 | Code        | 11 |         |    3 | 00/2000 : 20 EF 20    |                        jsr             initSERIAL     ; set the serial addresses
+   77 |  1 dlld.s     77 | Code        | 11 |         |    3 | 00/2003 : 20 59 20    |                        jsr             initPORT       ; init the serial port for LD support
+   78 |  1 dlld.s     78 | Code        | 11 |         |    3 | 00/2006 : 20 18 20    |                        jsr             initLDDS       ; show text
+   79 |  1 dlld.s     79 | Code        | 11 |         |    3 | 00/2009 : 20 27 20    |                        jsr             initLDCO       ; close the door
+   80 |  1 dlld.s     80 | Code        | 11 |         |    3 | 00/200C : 20 2F 20    |                        jsr             initLDSA       ; spin the disc
+   81 |  1 dlld.s     81 | Code        | 11 |         |    3 | 00/200F : 4C 37 20    |                        jmp             initLDPL       ; start playing
+   82 |  1 dlld.s     82 | Code        | 11 |         |    3 | 00/2012 : 4C 3F 20    |                        jmp             initLDC        ; get register C
+   83 |  1 dlld.s     83 | Empty       | 11 |         |    0 | 00/2015               |                                                       
+   84 |  1 dlld.s     84 | Code        | 11 |         |    3 | 00/2015 : 4C 08 21    |                        jmp             resetSERIAL    ; do not activate it when code is light
+   85 |  1 dlld.s     85 | Comment     | 11 |         |    0 | 00/2018               | 			; or all commands will not be handled
+   86 |  1 dlld.s     86 | Empty       | 11 |         |    0 | 00/2018               |                                                       
+   87 |  1 dlld.s     87 | Comment     | 11 |         |    0 | 00/2018               | *-----------------------------------
+   88 |  1 dlld.s     88 | Comment     | 11 |         |    0 | 00/2018               | * LASERDISC
+   89 |  1 dlld.s     89 | Comment     | 11 |         |    0 | 00/2018               | *-----------------------------------
+   90 |  1 dlld.s     90 | Empty       | 11 |         |    0 | 00/2018               |                                                       
+   91 |  1 dlld.s     91 | Macro       | 11 |         |    0 | 00/2018               | initLDDS               _sendLDCommand  #strDS         ; 4-28 DISPLAY TEXT
+   92 |  1 dlld.s     91 | Code        | 11 |         |    2 | 00/2018 : A2 22       |                        ldx             #>#strDS       
+   93 |  1 dlld.s     91 | Code        | 11 |         |    2 | 00/201A : A0 41       |                        ldy             #<#strDS       
+   94 |  1 dlld.s     91 | Code        | 11 |         |    3 | 00/201C : 20 2D 21    |                        jsr             sendLDCommand  
+   95 |  1 dlld.s     92 | Macro       | 11 |         |    0 | 00/201F               |                        _sendLDCommand  #strAV         ; 4-28 DISPLAY TEXT
+   96 |  1 dlld.s     92 | Code        | 11 |         |    2 | 00/201F : A2 22       |                        ldx             #>#strAV       
+   97 |  1 dlld.s     92 | Code        | 11 |         |    2 | 00/2021 : A0 48       |                        ldy             #<#strAV       
+   98 |  1 dlld.s     92 | Code        | 11 |         |    3 | 00/2023 : 20 2D 21    |                        jsr             sendLDCommand  
+   99 |  1 dlld.s     93 | Code        | 11 |         |    1 | 00/2026 : 60          |                        rts                            
+  100 |  1 dlld.s     94 | Macro       | 11 |         |    0 | 00/2027               | initLDCO               _sendLDCommand  #strCO         ; 4-11 CLOSE
+  101 |  1 dlld.s     94 | Code        | 11 |         |    2 | 00/2027 : A2 22       |                        ldx             #>#strCO       
+  102 |  1 dlld.s     94 | Code        | 11 |         |    2 | 00/2029 : A0 50       |                        ldy             #<#strCO       
+  103 |  1 dlld.s     94 | Code        | 11 |         |    3 | 00/202B : 20 2D 21    |                        jsr             sendLDCommand  
+  104 |  1 dlld.s     95 | Code        | 11 |         |    1 | 00/202E : 60          |                        rts                            
+  105 |  1 dlld.s     96 | Macro       | 11 |         |    0 | 00/202F               | initLDSA               _sendLDCommand  #strSA         ; 4-12 START
+  106 |  1 dlld.s     96 | Code        | 11 |         |    2 | 00/202F : A2 22       |                        ldx             #>#strSA       
+  107 |  1 dlld.s     96 | Code        | 11 |         |    2 | 00/2031 : A0 53       |                        ldy             #<#strSA       
+  108 |  1 dlld.s     96 | Code        | 11 |         |    3 | 00/2033 : 20 2D 21    |                        jsr             sendLDCommand  
+  109 |  1 dlld.s     97 | Code        | 11 |         |    1 | 00/2036 : 60          |                        rts                            
+  110 |  1 dlld.s     98 | Macro       | 11 |         |    0 | 00/2037               | initLDPL               _sendLDCommand  #strPL         ; 4-13 PLAY
+  111 |  1 dlld.s     98 | Code        | 11 |         |    2 | 00/2037 : A2 22       |                        ldx             #>#strPL       
+  112 |  1 dlld.s     98 | Code        | 11 |         |    2 | 00/2039 : A0 56       |                        ldy             #<#strPL       
+  113 |  1 dlld.s     98 | Code        | 11 |         |    3 | 00/203B : 20 2D 21    |                        jsr             sendLDCommand  
+  114 |  1 dlld.s     99 | Code        | 11 |         |    1 | 00/203E : 60          |                        rts                            
+  115 |  1 dlld.s    100 | Macro       | 11 |         |    0 | 00/203F               | initLDC                _sendLDCommand  #strC          ; 4-45 $C
+  116 |  1 dlld.s    100 | Code        | 11 |         |    2 | 00/203F : A2 22       |                        ldx             #>#strC        
+  117 |  1 dlld.s    100 | Code        | 11 |         |    2 | 00/2041 : A0 59       |                        ldy             #<#strC        
+  118 |  1 dlld.s    100 | Code        | 11 |         |    3 | 00/2043 : 20 2D 21    |                        jsr             sendLDCommand  
+  119 |  1 dlld.s    101 | Code        | 11 |         |    1 | 00/2046 : 60          |                        rts                            
+  120 |  1 dlld.s    102 | Empty       | 11 |         |    0 | 00/2047               |                                                       
+  121 |  1 dlld.s    103 | Comment     | 11 |         |    0 | 00/2047               | *---------- Send LD command and Receive answer
+  122 |  1 dlld.s    104 | Empty       | 11 |         |    0 | 00/2047               |                                                       
+  123 |  1 dlld.s    105 | Empty       | 11 |         |    0 | 00/2047               | sendreceiveLD                                         
+  124 |  1 dlld.s    106 | Code        | 11 |         |    3 | 00/2047 : 20 FE 21    |                        jsr             sendSERIAL     
+  125 |  1 dlld.s    107 | Empty       | 11 |         |    0 | 00/204A               |                                                       
+  126 |  1 dlld.s    108 | Code        | 11 |         |    1 | 00/204A : EA          |                        nop                            
+  127 |  1 dlld.s    109 | Code        | 11 |         |    2 | 00/204B : A9 96       |                        lda             #150           
+  128 |  1 dlld.s    110 | Code        | 11 |         |    3 | 00/204D : 20 A8 FC    |                        jsr             {$fca8}        
+  129 |  1 dlld.s    111 | Code        | 11 |         |    1 | 00/2050 : EA          |                        nop                            
+  130 |  1 dlld.s    112 | Empty       | 11 |         |    0 | 00/2051               |                                                       
+  131 |  1 dlld.s    113 | Macro       | 11 |         |    0 | 00/2051               |                        _readSTRING     #responseBUF   
+  132 |  1 dlld.s    113 | Code        | 11 |         |    2 | 00/2051 : A2 23       |                        ldx             #>#responseBUF 
+  133 |  1 dlld.s    113 | Code        | 11 |         |    2 | 00/2053 : A0 00       |                        ldy             #<#responseBUF 
+  134 |  1 dlld.s    113 | Code        | 11 |         |    3 | 00/2055 : 20 C2 21    |                        jsr             receiveSERIAL  
+  135 |  1 dlld.s    114 | Code        | 11 |         |    1 | 00/2058 : 60          |                        rts                            
+  136 |  1 dlld.s    115 | Empty       | 11 |         |    0 | 00/2059               |                                                       
+  137 |  1 dlld.s    116 | Comment     | 11 |         |    0 | 00/2059               | *-----------------------------------
+  138 |  1 dlld.s    117 | Comment     | 11 |         |    0 | 00/2059               | * SERIAL PORT (MODEM)
+  139 |  1 dlld.s    118 | Comment     | 11 |         |    0 | 00/2059               | *-----------------------------------
+  140 |  1 dlld.s    119 | Empty       | 11 |         |    0 | 00/2059               |                                                       
+  141 |  1 dlld.s    120 | Comment     | 11 |         |    0 | 00/2059               | *---------- Init modem port for LD support
+  142 |  1 dlld.s    121 | Empty       | 11 |         |    0 | 00/2059               |                                                       
+  143 |  1 dlld.s    122 | Code        | 11 |         |    3 | 00/2059 : 20 08 21    | initPORT               jsr             resetSERIAL    
+  144 |  1 dlld.s    123 | Macro       | 11 |         |    0 | 00/205C               |                        _sendSTRING     #strED         ; Don't echo output
+  145 |  1 dlld.s    123 | Code        | 11 |         |    2 | 00/205C : A2 22       |                        ldx             #>#strED       
+  146 |  1 dlld.s    123 | Code        | 11 |         |    2 | 00/205E : A0 1A       |                        ldy             #<#strED       
+  147 |  1 dlld.s    123 | Code        | 11 |         |    3 | 00/2060 : 20 3F 21    |                        jsr             sendSerialString
+  148 |  1 dlld.s    124 | Macro       | 11 |         |    0 | 00/2063               |                        _sendSTRING     #strBE         ; Input buffering: on
+  149 |  1 dlld.s    124 | Code        | 11 |         |    2 | 00/2063 : A2 22       |                        ldx             #>#strBE       
+  150 |  1 dlld.s    124 | Code        | 11 |         |    2 | 00/2065 : A0 1D       |                        ldy             #<#strBE       
+  151 |  1 dlld.s    124 | Code        | 11 |         |    3 | 00/2067 : 20 3F 21    |                        jsr             sendSerialString
+  152 |  1 dlld.s    125 | Macro       | 11 |         |    0 | 00/206A               |                        _sendSTRING     #str12B        ; Baud rate: 4800 BPS
+  153 |  1 dlld.s    125 | Code        | 11 |         |    2 | 00/206A : A2 22       |                        ldx             #>#str12B      
+  154 |  1 dlld.s    125 | Code        | 11 |         |    2 | 00/206C : A0 20       |                        ldy             #<#str12B      
+  155 |  1 dlld.s    125 | Code        | 11 |         |    3 | 00/206E : 20 3F 21    |                        jsr             sendSerialString
+  156 |  1 dlld.s    126 | Macro       | 11 |         |    0 | 00/2071               |                        _sendSTRING     #str0D         ; Data/Stop bits: 8/1
+  157 |  1 dlld.s    126 | Code        | 11 |         |    2 | 00/2071 : A2 22       |                        ldx             #>#str0D       
+  158 |  1 dlld.s    126 | Code        | 11 |         |    2 | 00/2073 : A0 24       |                        ldy             #<#str0D       
+  159 |  1 dlld.s    126 | Code        | 11 |         |    3 | 00/2075 : 20 3F 21    |                        jsr             sendSerialString
+  160 |  1 dlld.s    127 | Macro       | 11 |         |    0 | 00/2078               |                        _sendSTRING     #str0P         ; Parity: none
+  161 |  1 dlld.s    127 | Code        | 11 |         |    2 | 00/2078 : A2 22       |                        ldx             #>#str0P       
+  162 |  1 dlld.s    127 | Code        | 11 |         |    2 | 00/207A : A0 27       |                        ldy             #<#str0P       
+  163 |  1 dlld.s    127 | Code        | 11 |         |    3 | 00/207C : 20 3F 21    |                        jsr             sendSerialString
+  164 |  1 dlld.s    128 | Macro       | 11 |         |    0 | 00/207F               |                        _sendSTRING     #str0N         ; Line length: 0
+  165 |  1 dlld.s    128 | Code        | 11 |         |    2 | 00/207F : A2 22       |                        ldx             #>#str0N       
+  166 |  1 dlld.s    128 | Code        | 11 |         |    2 | 00/2081 : A0 2A       |                        ldy             #<#str0N       
+  167 |  1 dlld.s    128 | Code        | 11 |         |    3 | 00/2083 : 20 3F 21    |                        jsr             sendSerialString
+  168 |  1 dlld.s    129 | Macro       | 11 |         |    0 | 00/2086               |                        _sendSTRING     #strAD         ; Do not implement basic tabs
+  169 |  1 dlld.s    129 | Code        | 11 |         |    2 | 00/2086 : A2 22       |                        ldx             #>#strAD       
+  170 |  1 dlld.s    129 | Code        | 11 |         |    2 | 00/2088 : A0 2D       |                        ldy             #<#strAD       
+  171 |  1 dlld.s    129 | Code        | 11 |         |    3 | 00/208A : 20 3F 21    |                        jsr             sendSerialString
+  172 |  1 dlld.s    130 | Macro       | 11 |         |    0 | 00/208D               |                        _sendSTRING     #strCD         ; Disable line formatting
+  173 |  1 dlld.s    130 | Code        | 11 |         |    2 | 00/208D : A2 22       |                        ldx             #>#strCD       
+  174 |  1 dlld.s    130 | Code        | 11 |         |    2 | 00/208F : A0 30       |                        ldy             #<#strCD       
+  175 |  1 dlld.s    130 | Code        | 11 |         |    3 | 00/2091 : 20 3F 21    |                        jsr             sendSerialString
+  176 |  1 dlld.s    131 | Macro       | 11 |         |    0 | 00/2094               |                        _sendSTRING     #strXD         ; Ignore XOFF
+  177 |  1 dlld.s    131 | Code        | 11 |         |    2 | 00/2094 : A2 22       |                        ldx             #>#strXD       
+  178 |  1 dlld.s    131 | Code        | 11 |         |    2 | 00/2096 : A0 33       |                        ldy             #<#strXD       
+  179 |  1 dlld.s    131 | Code        | 11 |         |    3 | 00/2098 : 20 3F 21    |                        jsr             sendSerialString
+  180 |  1 dlld.s    132 | Macro       | 11 |         |    0 | 00/209B               |                        _sendSTRING     #strFD         ; Disable keyboard input
+  181 |  1 dlld.s    132 | Code        | 11 |         |    2 | 00/209B : A2 22       |                        ldx             #>#strFD       
+  182 |  1 dlld.s    132 | Code        | 11 |         |    2 | 00/209D : A0 36       |                        ldy             #<#strFD       
+  183 |  1 dlld.s    132 | Code        | 11 |         |    3 | 00/209F : 20 3F 21    |                        jsr             sendSerialString
+  184 |  1 dlld.s    133 | Macro       | 11 |         |    0 | 00/20A2               |                        _sendSTRING     #strLD         ; Do not add line feeds after CR
+  185 |  1 dlld.s    133 | Code        | 11 |         |    2 | 00/20A2 : A2 22       |                        ldx             #>#strLD       
+  186 |  1 dlld.s    133 | Code        | 11 |         |    2 | 00/20A4 : A0 39       |                        ldy             #<#strLD       
+  187 |  1 dlld.s    133 | Code        | 11 |         |    3 | 00/20A6 : 20 3F 21    |                        jsr             sendSerialString
+  188 |  1 dlld.s    134 | Macro       | 11 |         |    0 | 00/20A9               |                        _sendSTRING     #strME         ; Mask line feed in
+  189 |  1 dlld.s    134 | Code        | 11 |         |    2 | 00/20A9 : A2 22       |                        ldx             #>#strME       
+  190 |  1 dlld.s    134 | Code        | 11 |         |    2 | 00/20AB : A0 3C       |                        ldy             #<#strME       
+  191 |  1 dlld.s    134 | Code        | 11 |         |    3 | 00/20AD : 20 3F 21    |                        jsr             sendSerialString
+  192 |  1 dlld.s    135 | Macro       | 11 |         |    0 | 00/20B0               |                        _sendSTRING     #strZ          ; Suppress control characters
+  193 |  1 dlld.s    135 | Code        | 11 |         |    2 | 00/20B0 : A2 22       |                        ldx             #>#strZ        
+  194 |  1 dlld.s    135 | Code        | 11 |         |    2 | 00/20B2 : A0 3F       |                        ldy             #<#strZ        
+  195 |  1 dlld.s    135 | Code        | 11 |         |    3 | 00/20B4 : 20 3F 21    |                        jsr             sendSerialString
+  196 |  1 dlld.s    136 | Code        | 11 |         |    3 | 00/20B7 : 20 BB 20    |                        jsr             checkSerialInputReady
+  197 |  1 dlld.s    137 | Code        | 11 |         |    1 | 00/20BA : 60          |                        rts                            
+  198 |  1 dlld.s    138 | Empty       | 11 |         |    0 | 00/20BB               |                                                       
+  199 |  1 dlld.s    139 | Comment     | 11 |         |    0 | 00/20BB               | *---------- Check serial input is ready
+  200 |  1 dlld.s    140 | Empty       | 11 |         |    0 | 00/20BB               |                                                       
+  201 |  1 dlld.s    141 | Empty       | 11 |         |    0 | 00/20BB               | checkSerialInputReady                                 
+  202 |  1 dlld.s    142 | Code        | 11 |         |    2 | 00/20BB : A9 01       | ozunid_1               lda             #1             ; is input ready?
+  203 |  1 dlld.s    143 | Code        | 11 |         |    3 | 00/20BD : 20 7E 21    |                        jsr             statusSERIAL   
+  204 |  1 dlld.s    144 | Code        | 11 |         |    2 | 00/20C0 : F0 05       |                        beq             checkSIR9      
+  205 |  1 dlld.s    145 | Empty       | 11 |         |    0 | 00/20C2               |                                                       
+  206 |  1 dlld.s    146 | Code        | 11 |         |    3 | 00/20C2 : 20 1E 21    |                        jsr             readSERIAL     ; exit when nothing to read
+  207 |  1 dlld.s    147 | Code        | 11 |         |    2 | 00/20C5 : B0 F4       |                        bcs             ozunid_1       
+  208 |  1 dlld.s    148 | Empty       | 11 |         |    0 | 00/20C7               |                                                       
+  209 |  1 dlld.s    149 | Code        | 11 |         |    1 | 00/20C7 : 60          | checkSIR9              rts                            
+  210 |  1 dlld.s    150 | Empty       | 11 |         |    0 | 00/20C8               |                                                       
+  211 |  1 dlld.s    151 | Comment     | 11 |         |    0 | 00/20C8               | *---------- Check the input is ready
+  212 |  1 dlld.s    152 | Empty       | 11 |         |    0 | 00/20C8               |                                                       
+  213 |  1 dlld.s    153 | Empty       | 11 |         |    0 | 00/20C8               | checkInputReady                                       
+  214 |  1 dlld.s    154 | Code        | 11 |         |    3 | 00/20C8 : 20 E9 20    | ozunid_2               jsr             getSerialInputStatus
+  215 |  1 dlld.s    155 | Code        | 11 |         |    2 | 00/20CB : D0 13       |                        bne             checkIR1       
+  216 |  1 dlld.s    156 | Empty       | 11 |         |    0 | 00/20CD               |                                                       
+  217 |  1 dlld.s    157 | Code        | 11 |         |    2 | 00/20CD : A9 00       |                        lda             #0             
+  218 |  1 dlld.s    158 | Code        | 11 |         |    3 | 00/20CF : 20 A8 FC    |                        jsr             {$fca8}        
+  219 |  1 dlld.s    159 | Code        | 11 |         |    3 | 00/20D2 : 20 A8 FC    |                        jsr             {$fca8}        
+  220 |  1 dlld.s    160 | Empty       | 11 |         |    0 | 00/20D5               |                                                       
+  221 |  1 dlld.s    161 | Code        | 11 |         |    3 | 00/20D5 : AD 00 C0    |                        lda             {$c000}        
+  222 |  1 dlld.s    162 | Code        | 11 |         |    2 | 00/20D8 : 10 EE       |                        bpl             ozunid_2       
+  223 |  1 dlld.s    163 | Code        | 11 |         |    3 | 00/20DA : 2C 10 C0    |                        bit             {$c010}        
+  224 |  1 dlld.s    164 | Code        | 11 |         |    2 | 00/20DD : A9 01       |                        lda             #1             
+  225 |  1 dlld.s    165 | Code        | 11 |         |    1 | 00/20DF : 60          |                        rts                            
+  226 |  1 dlld.s    166 | Code        | 11 |         |    2 | 00/20E0 : A9 00       | checkIR1               lda             #0             
+  227 |  1 dlld.s    167 | Code        | 11 |         |    1 | 00/20E2 : 60          |                        rts                            
+  228 |  1 dlld.s    168 | Empty       | 11 |         |    0 | 00/20E3               |                                                       
+  229 |  1 dlld.s    169 | Comment     | 11 |         |    0 | 00/20E3               | *---------- Get serial output status
+  230 |  1 dlld.s    170 | Empty       | 11 |         |    0 | 00/20E3               |                                                       
+  231 |  1 dlld.s    171 | Empty       | 11 |         |    0 | 00/20E3               | getSerialOutputStatus                                 
+  232 |  1 dlld.s    172 | Code        | 11 |         |    2 | 00/20E3 : A9 00       |                        lda             #0             
+  233 |  1 dlld.s    173 | Code        | 11 |         |    3 | 00/20E5 : 20 7E 21    |                        jsr             statusSERIAL   
+  234 |  1 dlld.s    174 | Code        | 11 |         |    1 | 00/20E8 : 60          |                        rts                            
+  235 |  1 dlld.s    175 | Empty       | 11 |         |    0 | 00/20E9               |                                                       
+  236 |  1 dlld.s    176 | Comment     | 11 |         |    0 | 00/20E9               | *---------- Get serial input status
+  237 |  1 dlld.s    177 | Empty       | 11 |         |    0 | 00/20E9               |                                                       
+  238 |  1 dlld.s    178 | Empty       | 11 |         |    0 | 00/20E9               | getSerialInputStatus                                  
+  239 |  1 dlld.s    179 | Code        | 11 |         |    2 | 00/20E9 : A9 01       |                        lda             #1             
+  240 |  1 dlld.s    180 | Code        | 11 |         |    3 | 00/20EB : 20 7E 21    |                        jsr             statusSERIAL   
+  241 |  1 dlld.s    181 | Code        | 11 |         |    1 | 00/20EE : 60          |                        rts                            
+  242 |  1 dlld.s    182 | Empty       | 11 |         |    0 | 00/20EF               |                                                       
+  243 |  1 dlld.s    183 | Comment     | 11 |         |    0 | 00/20EF               | *---------- Set all addressses
+  244 |  1 dlld.s    184 | Empty       | 11 |         |    0 | 00/20EF               |                                                       
+  245 |  1 dlld.s    185 | Empty       | 11 |         |    0 | 00/20EF               | initSERIAL                                            
+  246 |  1 dlld.s    186 | Code        | 11 |         |    3 | 00/20EF : AD 0D C1    |                        lda             $c10d          
+  247 |  1 dlld.s    187 | Code        | 11 |         |    3 | 00/20F2 : 8D 0D 21    |                        sta             resetSERIAL+5  
+  248 |  1 dlld.s    188 | Code        | 11 |         |    3 | 00/20F5 : AD 0E C1    |                        lda             $c10e          
+  249 |  1 dlld.s    189 | Code        | 11 |         |    3 | 00/20F8 : 8D 23 21    |                        sta             readSERIAL+5   
+  250 |  1 dlld.s    190 | Code        | 11 |         |    3 | 00/20FB : AD 0F C1    |                        lda             $c10f          
+  251 |  1 dlld.s    191 | Code        | 11 |         |    3 | 00/20FE : 8D 74 21    |                        sta             writeSERIAL+5  
+  252 |  1 dlld.s    192 | Code        | 11 |         |    3 | 00/2101 : AD 10 C1    |                        lda             $c110          
+  253 |  1 dlld.s    193 | Code        | 11 |         |    3 | 00/2104 : 8D 83 21    |                        sta             statusSERIAL+5 
+  254 |  1 dlld.s    194 | Code        | 11 |         |    1 | 00/2107 : 60          |                        rts                            
+  255 |  1 dlld.s    195 | Empty       | 11 |         |    0 | 00/2108               |                                                       
+  256 |  1 dlld.s    196 | Comment     | 11 |         |    0 | 00/2108               | *---------- Reset port, restore control panel defaults
+  257 |  1 dlld.s    197 | Empty       | 11 |         |    0 | 00/2108               |                                                       
+  258 |  1 dlld.s    198 | Empty       | 11 |         |    0 | 00/2108               | resetSERIAL                                           
+  259 |  1 dlld.s    199 | Code        | 11 |         |    2 | 00/2108 : A2 C2       |                        ldx             #$c2           
+  260 |  1 dlld.s    200 | Code        | 11 |         |    2 | 00/210A : A0 20       |                        ldy             #$20           
+  261 |  1 dlld.s    201 | Code        | 11 |         |    3 | 00/210C : 20 0D C1    |                        jsr             $c10d          
+  262 |  1 dlld.s    202 | Code        | 11 |         |    2 | 00/210F : B0 04       |                        bcs             resetSER1      
+  263 |  1 dlld.s    203 | Code        | 11 |         |    2 | 00/2111 : A9 00       |                        lda             #0             ; carry clear, not ready
+  264 |  1 dlld.s    204 | Code        | 11 |         |    2 | 00/2113 : F0 02       |                        beq             resetSER2      
+  265 |  1 dlld.s    205 | Code        | 11 |         |    2 | 00/2115 : A9 01       | resetSER1              lda             #1             ; carry set, ready
+  266 |  1 dlld.s    206 | Empty       | 11 |         |    0 | 00/2117               |                                                       
+  267 |  1 dlld.s    207 | Code        | 11 |         |    2 | 00/2117 : E0 00       | resetSER2              cpx             #0             ; check error code
+  268 |  1 dlld.s    208 | Code        | 11 |         |    2 | 00/2119 : F0 02       |                        beq             resetSER3      
+  269 |  1 dlld.s    209 | Code        | 11 |         |    2 | 00/211B : A9 02       |                        lda             #2             ; reset error!
+  270 |  1 dlld.s    210 | Code        | 11 |         |    1 | 00/211D : 60          | resetSER3              rts                            
+  271 |  1 dlld.s    211 | Empty       | 11 |         |    0 | 00/211E               |                                                       
+  272 |  1 dlld.s    212 | Comment     | 11 |         |    0 | 00/211E               | *---------- Wait for and get next character
+  273 |  1 dlld.s    213 | Empty       | 11 |         |    0 | 00/211E               |                                                       
+  274 |  1 dlld.s    214 | Empty       | 11 |         |    0 | 00/211E               | readSERIAL                                            
+  275 |  1 dlld.s    215 | Code        | 11 |         |    2 | 00/211E : A2 C2       |                        ldx             #$c2           ; yes
+  276 |  1 dlld.s    216 | Code        | 11 |         |    2 | 00/2120 : A0 20       |                        ldy             #$20           
+  277 |  1 dlld.s    217 | Code        | 11 |         |    3 | 00/2122 : 20 0E C1    |                        jsr             $c10e          
+  278 |  1 dlld.s    218 | Code        | 11 |         |    2 | 00/2125 : E0 00       |                        cpx             #0             ; carry holds the error
+  279 |  1 dlld.s    219 | Code        | 11 |         |    2 | 00/2127 : F0 02       |                        beq             readSER1       ; and A the character
+  280 |  1 dlld.s    220 | Code        | 11 |         |    1 | 00/2129 : 38          |                        sec                            
+  281 |  1 dlld.s    221 | Data        | 11 |         |    1 | 00/212A : 24          |                        hex             24             
+  282 |  1 dlld.s    222 | Code        | 11 |         |    1 | 00/212B : 18          | readSER1               clc                            
+  283 |  1 dlld.s    223 | Code        | 11 |         |    1 | 00/212C : 60          |                        rts                            
+  284 |  1 dlld.s    224 | Empty       | 11 |         |    0 | 00/212D               |                                                       
+  285 |  1 dlld.s    225 | Comment     | 11 |         |    0 | 00/212D               | *---------- Send a LD command
+  286 |  1 dlld.s    226 | Empty       | 11 |         |    0 | 00/212D               |                                                       
+  287 |  1 dlld.s    227 | Empty       | 11 |         |    0 | 00/212D               | sendLDCommand                                         
+  288 |  1 dlld.s    228 | Code        | 11 |         |    2 | 00/212D : 84 FC       |                        sty             {$fc}          
+  289 |  1 dlld.s    229 | Code        | 11 |         |    2 | 00/212F : 86 FD       |                        stx             {$fc}+1        
+  290 |  1 dlld.s    230 | Empty       | 11 |         |    0 | 00/2131               |                                                       
+  291 |  1 dlld.s    231 | Code        | 11 |         |    3 | 00/2131 : 20 BB 20    |                        jsr             checkSerialInputReady
+  292 |  1 dlld.s    232 | Code        | 11 |         |    2 | 00/2134 : D0 08       |                        bne             sendLDC9       
+  293 |  1 dlld.s    233 | Empty       | 11 |         |    0 | 00/2136               |                                                       
+  294 |  1 dlld.s    234 | Code        | 11 |         |    3 | 00/2136 : 20 4A 21    |                        jsr             sendCRString   
+  295 |  1 dlld.s    235 | Code        | 11 |         |    2 | 00/2139 : D0 03       |                        bne             sendLDC9       
+  296 |  1 dlld.s    236 | Empty       | 11 |         |    0 | 00/213B               |                                                       
+  297 |  1 dlld.s    237 | Code        | 11 |         |    3 | 00/213B : 20 8D 21    |                        jsr             receiveLDAnswer
+  298 |  1 dlld.s    238 | Empty       | 11 |         |    0 | 00/213E               |                                                       
+  299 |  1 dlld.s    239 | Code        | 11 |         |    1 | 00/213E : 60          | sendLDC9               rts                            
+  300 |  1 dlld.s    240 | Empty       | 11 |         |    0 | 00/213F               |                                                       
+  301 |  1 dlld.s    241 | Comment     | 11 |         |    0 | 00/213F               | *---------- Send a serial string (it begins with a 1)
+  302 |  1 dlld.s    242 | Empty       | 11 |         |    0 | 00/213F               |                                                       
+  303 |  1 dlld.s    243 | Empty       | 11 |         |    0 | 00/213F               | sendSerialString                                      
+  304 |  1 dlld.s    244 | Code        | 11 |         |    2 | 00/213F : 84 FC       |                        sty             {$fc}          
+  305 |  1 dlld.s    245 | Code        | 11 |         |    2 | 00/2141 : 86 FD       |                        stx             {$fc}+1        
+  306 |  1 dlld.s    246 | Empty       | 11 |         |    0 | 00/2143               |                                                       
+  307 |  1 dlld.s    247 | Code        | 11 |         |    2 | 00/2143 : A9 01       |                        lda             #{$01}         
+  308 |  1 dlld.s    248 | Code        | 11 |         |    3 | 00/2145 : 20 61 21    |                        jsr             sendSerialCharacter
+  309 |  1 dlld.s    249 | Code        | 11 |         |    2 | 00/2148 : D0 16       |                        bne             sendCRS9       ; on error, jump to the end
+  310 |  1 dlld.s    250 | Comment     | 11 |         |    0 | 00/214A               | 			; or goes below to sendCRString
+  311 |  1 dlld.s    251 | Empty       | 11 |         |    0 | 00/214A               |                                                       
+  312 |  1 dlld.s    252 | Comment     | 11 |         |    0 | 00/214A               | *---------- Send CR string
+  313 |  1 dlld.s    253 | Empty       | 11 |         |    0 | 00/214A               |                                                       
+  314 |  1 dlld.s    254 | Empty       | 11 |         |    0 | 00/214A               | sendCRString                                          
+  315 |  1 dlld.s    255 | Code        | 11 |         |    2 | 00/214A : B2 FC       | ozunid_3               lda             ({$fc})        
+  316 |  1 dlld.s    256 | Code        | 11 |         |    2 | 00/214C : F0 0D       |                        beq             sendCRS1       ; end of string?
+  317 |  1 dlld.s    257 | Code        | 11 |         |    3 | 00/214E : 20 61 21    |                        jsr             sendSerialCharacter
+  318 |  1 dlld.s    258 | Code        | 11 |         |    2 | 00/2151 : D0 0D       |                        bne             sendCRS9       ; error!
+  319 |  1 dlld.s    259 | Empty       | 11 |         |    0 | 00/2153               |                                                       
+  320 |  1 dlld.s    260 | Code        | 11 |         |    2 | 00/2153 : E6 FC       |                        inc             {$fc}          
+  321 |  1 dlld.s    261 | Code        | 11 |         |    2 | 00/2155 : D0 F3       |                        bne             ozunid_3       
+  322 |  1 dlld.s    262 | Code        | 11 |         |    2 | 00/2157 : E6 FD       |                        inc             {$fc}+1        
+  323 |  1 dlld.s    263 | Code        | 11 |         |    2 | 00/2159 : D0 EF       |                        bne             ozunid_3       
+  324 |  1 dlld.s    264 | Empty       | 11 |         |    0 | 00/215B               |                                                       
+  325 |  1 dlld.s    265 | Code        | 11 |         |    2 | 00/215B : A9 0D       | sendCRS1               lda             #{$0d}         ; yes, add a final CR
+  326 |  1 dlld.s    266 | Code        | 11 |         |    3 | 00/215D : 20 61 21    |                        jsr             sendSerialCharacter
+  327 |  1 dlld.s    267 | Code        | 11 |         |    1 | 00/2160 : 60          | sendCRS9               rts                            
+  328 |  1 dlld.s    268 | Empty       | 11 |         |    0 | 00/2161               |                                                       
+  329 |  1 dlld.s    269 | Comment     | 11 |         |    0 | 00/2161               | *---------- Send serial character
+  330 |  1 dlld.s    270 | Empty       | 11 |         |    0 | 00/2161               |                                                       
+  331 |  1 dlld.s    271 | Empty       | 11 |         |    0 | 00/2161               | sendSerialCharacter                                   
+  332 |  1 dlld.s    272 | Code        | 11 |         |    1 | 00/2161 : 48          |                        pha                            
+  333 |  1 dlld.s    273 | Empty       | 11 |         |    0 | 00/2162               |                                                       
+  334 |  1 dlld.s    274 | Code        | 11 |         |    3 | 00/2162 : 20 E3 20    | ozunid_4               jsr             getSerialOutputStatus
+  335 |  1 dlld.s    275 | Code        | 11 |         |    2 | 00/2165 : D0 04       |                        bne             sensSC1        
+  336 |  1 dlld.s    276 | Empty       | 11 |         |    0 | 00/2167               |                                                       
+  337 |  1 dlld.s    277 | Code        | 11 |         |    1 | 00/2167 : 68          |                        pla                            
+  338 |  1 dlld.s    278 | Code        | 11 |         |    2 | 00/2168 : A9 01       |                        lda             #1             ; return busy
+  339 |  1 dlld.s    279 | Code        | 11 |         |    1 | 00/216A : 60          |                        rts                            
+  340 |  1 dlld.s    280 | Empty       | 11 |         |    0 | 00/216B               |                                                       
+  341 |  1 dlld.s    281 | Code        | 11 |         |    1 | 00/216B : 68          | sensSC1                pla                            
+  342 |  1 dlld.s    282 | Code        | 11 |         |    3 | 00/216C : 20 6F 21    |                        jsr             writeSERIAL    
+  343 |  1 dlld.s    283 | Empty       | 11 |         |    0 | 00/216F               |                                                       
+  344 |  1 dlld.s    284 | Comment     | 11 |         |    0 | 00/216F               | *---------- Send character
+  345 |  1 dlld.s    285 | Empty       | 11 |         |    0 | 00/216F               |                                                       
+  346 |  1 dlld.s    286 | Empty       | 11 |         |    0 | 00/216F               | writeSERIAL                                           
+  347 |  1 dlld.s    287 | Code        | 11 |         |    2 | 00/216F : A2 C2       |                        ldx             #$c2           
+  348 |  1 dlld.s    288 | Code        | 11 |         |    2 | 00/2171 : A0 20       |                        ldy             #$20           
+  349 |  1 dlld.s    289 | Code        | 11 |         |    3 | 00/2173 : 20 0F C1    |                        jsr             $c10f          
+  350 |  1 dlld.s    290 | Code        | 11 |         |    2 | 00/2176 : E0 00       |                        cpx             #0             
+  351 |  1 dlld.s    291 | Code        | 11 |         |    2 | 00/2178 : F0 02       |                        beq             writeSER1      
+  352 |  1 dlld.s    292 | Code        | 11 |         |    2 | 00/217A : A2 02       |                        ldx             #2             
+  353 |  1 dlld.s    293 | Code        | 11 |         |    1 | 00/217C : 8A          | writeSER1              txa                            
+  354 |  1 dlld.s    294 | Code        | 11 |         |    1 | 00/217D : 60          |                        rts                            
+  355 |  1 dlld.s    295 | Empty       | 11 |         |    0 | 00/217E               |                                                       
+  356 |  1 dlld.s    296 | Comment     | 11 |         |    0 | 00/217E               | *---------- Inquire if character has been received
+  357 |  1 dlld.s    297 | Empty       | 11 |         |    0 | 00/217E               |                                                       
+  358 |  1 dlld.s    298 | Empty       | 11 |         |    0 | 00/217E               | statusSERIAL                                          
+  359 |  1 dlld.s    299 | Code        | 11 |         |    2 | 00/217E : A2 C2       |                        ldx             #$c2           
+  360 |  1 dlld.s    300 | Code        | 11 |         |    2 | 00/2180 : A0 20       |                        ldy             #$20           
+  361 |  1 dlld.s    301 | Code        | 11 |         |    3 | 00/2182 : 20 10 C1    |                        jsr             $c110          
+  362 |  1 dlld.s    302 | Code        | 11 |         |    2 | 00/2185 : E0 00       |                        cpx             #0             
+  363 |  1 dlld.s    303 | Code        | 11 |         |    2 | 00/2187 : F0 02       |                        beq             statusSER1     
+  364 |  1 dlld.s    304 | Code        | 11 |         |    2 | 00/2189 : A2 02       |                        ldx             #2             
+  365 |  1 dlld.s    305 | Code        | 11 |         |    1 | 00/218B : 8A          | statusSER1             txa                            
+  366 |  1 dlld.s    306 | Code        | 11 |         |    1 | 00/218C : 60          |                        rts                            
+  367 |  1 dlld.s    307 | Empty       | 11 |         |    0 | 00/218D               |                                                       
+  368 |  1 dlld.s    308 | Comment     | 11 |         |    0 | 00/218D               | *---------- Receive a LD answer
+  369 |  1 dlld.s    309 | Empty       | 11 |         |    0 | 00/218D               |                                                       
+  370 |  1 dlld.s    310 | Empty       | 11 |         |    0 | 00/218D               | receiveLDAnswer                                       
+  371 |  1 dlld.s    311 | Code        | 11 |         |    2 | 00/218D : A2 23       |                        ldx             #>responseBUF  
+  372 |  1 dlld.s    312 | Code        | 11 |         |    2 | 00/218F : A0 00       |                        ldy             #<responseBUF  
+  373 |  1 dlld.s    313 | Code        | 11 |         |    3 | 00/2191 : 20 9D 21    |                        jsr             receiveSTRING  
+  374 |  1 dlld.s    314 | Empty       | 11 |         |    0 | 00/2194               |                                                       
+  375 |  1 dlld.s    315 | Code        | 11 |         |    3 | 00/2194 : AD 00 23    |                        lda             responseBUF    
+  376 |  1 dlld.s    316 | Code        | 11 |         |    2 | 00/2197 : 09 80       |                        ora             #$80           
+  377 |  1 dlld.s    317 | Code        | 11 |         |    3 | 00/2199 : 20 ED FD    |                        jsr             {$fded}        
+  378 |  1 dlld.s    318 | Code        | 11 |         |    1 | 00/219C : 60          |                        rts                            
+  379 |  1 dlld.s    319 | Empty       | 11 |         |    0 | 00/219D               |                                                       
+  380 |  1 dlld.s    320 | Comment     | 11 |         |    0 | 00/219D               | *---------- Receive String
+  381 |  1 dlld.s    321 | Empty       | 11 |         |    0 | 00/219D               |                                                       
+  382 |  1 dlld.s    322 | Empty       | 11 |         |    0 | 00/219D               | receiveSTRING                                         
+  383 |  1 dlld.s    323 | Code        | 11 |         |    2 | 00/219D : 84 FE       |                        sty             {{$fc}+2}      
+  384 |  1 dlld.s    324 | Code        | 11 |         |    2 | 00/219F : 86 FF       |                        stx             {{$fc}+2}+1    
+  385 |  1 dlld.s    325 | Empty       | 11 |         |    0 | 00/21A1               |                                                       
+  386 |  1 dlld.s    326 | Code        | 11 |         |    3 | 00/21A1 : 20 C8 20    | ozunid_5               jsr             checkInputReady
+  387 |  1 dlld.s    327 | Code        | 11 |         |    2 | 00/21A4 : C9 01       |                        cmp             #1             
+  388 |  1 dlld.s    328 | Code        | 11 |         |    2 | 00/21A6 : D0 01       |                        bne             receiveSTR1    
+  389 |  1 dlld.s    329 | Code        | 11 |         |    1 | 00/21A8 : 60          |                        rts                            
+  390 |  1 dlld.s    330 | Empty       | 11 |         |    0 | 00/21A9               |                                                       
+  391 |  1 dlld.s    331 | Code        | 11 |         |    3 | 00/21A9 : 20 1E 21    | receiveSTR1            jsr             readSERIAL     
+  392 |  1 dlld.s    332 | Code        | 11 |         |    2 | 00/21AC : 90 03       |                        bcc             receiveSTR2    
+  393 |  1 dlld.s    333 | Code        | 11 |         |    2 | 00/21AE : A9 02       |                        lda             #2             
+  394 |  1 dlld.s    334 | Code        | 11 |         |    1 | 00/21B0 : 60          |                        rts                            
+  395 |  1 dlld.s    335 | Empty       | 11 |         |    0 | 00/21B1               |                                                       
+  396 |  1 dlld.s    336 | Code        | 11 |         |    2 | 00/21B1 : 92 FE       | receiveSTR2            sta             ({{$fc}+2})    
+  397 |  1 dlld.s    337 | Code        | 11 |         |    2 | 00/21B3 : C9 0D       |                        cmp             #{$0d}         
+  398 |  1 dlld.s    338 | Code        | 11 |         |    2 | 00/21B5 : F0 08       |                        beq             receiveSTR3    
+  399 |  1 dlld.s    339 | Empty       | 11 |         |    0 | 00/21B7               |                                                       
+  400 |  1 dlld.s    340 | Code        | 11 |         |    2 | 00/21B7 : E6 FE       |                        inc             {{$fc}+2}      
+  401 |  1 dlld.s    341 | Code        | 11 |         |    2 | 00/21B9 : D0 E6       |                        bne             ozunid_5       
+  402 |  1 dlld.s    342 | Code        | 11 |         |    2 | 00/21BB : E6 FF       |                        inc             {{$fc}+2}+1    
+  403 |  1 dlld.s    343 | Code        | 11 |         |    2 | 00/21BD : D0 E2       |                        bne             ozunid_5       
+  404 |  1 dlld.s    344 | Empty       | 11 |         |    0 | 00/21BF               |                                                       
+  405 |  1 dlld.s    345 | Code        | 11 |         |    2 | 00/21BF : A9 00       | receiveSTR3            lda             #0             
+  406 |  1 dlld.s    346 | Code        | 11 |         |    1 | 00/21C1 : 60          |                        rts                            
+  407 |  1 dlld.s    347 | Empty       | 11 |         |    0 | 00/21C2               |                                                       
+  408 |  1 dlld.s    348 | Comment     | 11 |         |    0 | 00/21C2               | *---------- Receive string
+  409 |  1 dlld.s    349 | Empty       | 11 |         |    0 | 00/21C2               |                                                       
+  410 |  1 dlld.s    350 | Empty       | 11 |         |    0 | 00/21C2               | receiveSERIAL                                         
+  411 |  1 dlld.s    351 | Code        | 11 |         |    2 | 00/21C2 : 84 FE       |                        sty             {{$fc}+2}      
+  412 |  1 dlld.s    352 | Code        | 11 |         |    2 | 00/21C4 : 86 FF       |                        stx             {{$fc}+2}+1    
+  413 |  1 dlld.s    353 | Empty       | 11 |         |    0 | 00/21C6               |                                                       
+  414 |  1 dlld.s    354 | Code        | 11 |         |    1 | 00/21C6 : EA          | ozunid_6               nop                            
+  415 |  1 dlld.s    355 | Code        | 11 |         |    1 | 00/21C7 : EA          |                        nop                            
+  416 |  1 dlld.s    356 | Code        | 11 |         |    2 | 00/21C8 : A9 01       |                        lda             #1             
+  417 |  1 dlld.s    357 | Code        | 11 |         |    3 | 00/21CA : 20 7E 21    |                        jsr             statusSERIAL   
+  418 |  1 dlld.s    358 | Code        | 11 |         |    2 | 00/21CD : 90 F7       |                        bcc             ozunid_6       
+  419 |  1 dlld.s    359 | Empty       | 11 |         |    0 | 00/21CF               |                                                       
+  420 |  1 dlld.s    360 | Code        | 11 |         |    1 | 00/21CF : EA          |                        nop                            
+  421 |  1 dlld.s    361 | Code        | 11 |         |    1 | 00/21D0 : 18          |                        clc                            
+  422 |  1 dlld.s    362 | Code        | 11 |         |    3 | 00/21D1 : 20 1E 21    |                        jsr             readSERIAL     
+  423 |  1 dlld.s    363 | Code        | 11 |         |    2 | 00/21D4 : 29 7F       |                        and             #$7f           
+  424 |  1 dlld.s    364 | Code        | 11 |         |    1 | 00/21D6 : 48          |                        pha                            
+  425 |  1 dlld.s    365 | Code        | 11 |         |    2 | 00/21D7 : 09 80       |                        ora             #$80           
+  426 |  1 dlld.s    366 | Code        | 11 |         |    3 | 00/21D9 : 20 ED FD    |                        jsr             {$fded}        
+  427 |  1 dlld.s    367 | Code        | 11 |         |    1 | 00/21DC : 68          |                        pla                            
+  428 |  1 dlld.s    368 | Code        | 11 |         |    2 | 00/21DD : C9 20       |                        cmp             #{$20}         
+  429 |  1 dlld.s    369 | Code        | 11 |         |    2 | 00/21DF : B0 E5       |                        bcs             ozunid_6       
+  430 |  1 dlld.s    370 | Code        | 11 |         |    1 | 00/21E1 : 60          |                        rts                            
+  431 |  1 dlld.s    371 | Empty       | 11 |         |    0 | 00/21E2               |                                                       
+  432 |  1 dlld.s    372 | Code        | 11 |         |    2 | 00/21E2 : A0 00       |                        ldy             #0             
+  433 |  1 dlld.s    373 | Code        | 11 |         |    1 | 00/21E4 : 5A          | receiveSER1            phy                            
+  434 |  1 dlld.s    374 | Code        | 11 |         |    2 | 00/21E5 : A9 01       | ozunid_7               lda             #1             ; Do you have input ready?
+  435 |  1 dlld.s    375 | Code        | 11 |         |    3 | 00/21E7 : 20 7E 21    |                        jsr             statusSERIAL   
+  436 |  1 dlld.s    376 | Code        | 11 |         |    2 | 00/21EA : 90 F9       |                        bcc             ozunid_7       ; no
+  437 |  1 dlld.s    377 | Code        | 11 |         |    3 | 00/21EC : 20 1E 21    |                        jsr             readSERIAL     ; yes, jump below
+  438 |  1 dlld.s    378 | Code        | 11 |         |    1 | 00/21EF : 7A          |                        ply                            
+  439 |  1 dlld.s    379 | Code        | 11 |         |    2 | 00/21F0 : 91 FE       |                        sta             ({{$fc}+2}),y  
+  440 |  1 dlld.s    380 | Code        | 11 |         |    2 | 00/21F2 : C9 0D       |                        cmp             #{$0d}         
+  441 |  1 dlld.s    381 | Code        | 11 |         |    2 | 00/21F4 : F0 07       |                        beq             receiveSER9    
+  442 |  1 dlld.s    382 | Code        | 11 |         |    2 | 00/21F6 : C9 0A       |                        cmp             #{$0a}         
+  443 |  1 dlld.s    383 | Code        | 11 |         |    2 | 00/21F8 : F0 03       |                        beq             receiveSER9    
+  444 |  1 dlld.s    384 | Code        | 11 |         |    1 | 00/21FA : C8          |                        iny                            
+  445 |  1 dlld.s    385 | Code        | 11 |         |    2 | 00/21FB : D0 E7       |                        bne             receiveSER1    
+  446 |  1 dlld.s    386 | Code        | 11 |         |    1 | 00/21FD : 60          | receiveSER9            rts                            
+  447 |  1 dlld.s    387 | Empty       | 11 |         |    0 | 00/21FE               |                                                       
+  448 |  1 dlld.s    388 | Comment     | 11 |         |    0 | 00/21FE               | *---------- Send string
+  449 |  1 dlld.s    389 | Empty       | 11 |         |    0 | 00/21FE               |                                                       
+  450 |  1 dlld.s    390 | Code        | 11 |         |    2 | 00/21FE : 84 FC       | sendSERIAL             sty             {$fc}          
+  451 |  1 dlld.s    391 | Code        | 11 |         |    2 | 00/2200 : 86 FD       |                        stx             {$fc}+1        
+  452 |  1 dlld.s    392 | Empty       | 11 |         |    0 | 00/2202               |                                                       
+  453 |  1 dlld.s    393 | Code        | 11 |         |    2 | 00/2202 : A0 00       |                        ldy             #0             
+  454 |  1 dlld.s    394 | Code        | 11 |         |    2 | 00/2204 : B1 FC       | sendSERIAL1            lda             ({$fc}),y      
+  455 |  1 dlld.s    395 | Code        | 11 |         |    2 | 00/2206 : F0 11       |                        beq             sendSERIAL9    
+  456 |  1 dlld.s    396 | Code        | 11 |         |    1 | 00/2208 : 5A          |                        phy                            
+  457 |  1 dlld.s    397 | Code        | 11 |         |    1 | 00/2209 : 48          |                        pha                            
+  458 |  1 dlld.s    398 | Empty       | 11 |         |    0 | 00/220A               |                                                       
+  459 |  1 dlld.s    399 | Code        | 11 |         |    2 | 00/220A : A9 00       | ozunid_8               lda             #0             ; Are you ready to accept output?
+  460 |  1 dlld.s    400 | Code        | 11 |         |    3 | 00/220C : 20 7E 21    |                        jsr             statusSERIAL   
+  461 |  1 dlld.s    401 | Code        | 11 |         |    2 | 00/220F : 90 F9       |                        bcc             ozunid_8       ; no
+  462 |  1 dlld.s    402 | Empty       | 11 |         |    0 | 00/2211               |                                                       
+  463 |  1 dlld.s    403 | Code        | 11 |         |    1 | 00/2211 : 68          |                        pla                            
+  464 |  1 dlld.s    404 | Code        | 11 |         |    3 | 00/2212 : 20 6F 21    |                        jsr             writeSERIAL    
+  465 |  1 dlld.s    405 | Code        | 11 |         |    1 | 00/2215 : 7A          |                        ply                            
+  466 |  1 dlld.s    406 | Code        | 11 |         |    1 | 00/2216 : C8          |                        iny                            
+  467 |  1 dlld.s    407 | Code        | 11 |         |    2 | 00/2217 : D0 EB       |                        bne             sendSERIAL1    ; limit to 256 characters
+  468 |  1 dlld.s    408 | Code        | 11 |         |    1 | 00/2219 : 60          | sendSERIAL9            rts                            
+  469 |  1 dlld.s    409 | Empty       | 11 |         |    0 | 00/221A               |                                                       
+  470 |  1 dlld.s    410 | Comment     | 11 |         |    0 | 00/221A               | *-----------------------------------
+  471 |  1 dlld.s    411 | Comment     | 11 |         |    0 | 00/221A               | * DATA
+  472 |  1 dlld.s    412 | Comment     | 11 |         |    0 | 00/221A               | *-----------------------------------
+  473 |  1 dlld.s    413 | Empty       | 11 |         |    0 | 00/221A               |                                                       
+  474 |  1 dlld.s    414 | Comment     | 11 |         |    0 | 00/221A               | *---------- Serial data
+  475 |  1 dlld.s    415 | Empty       | 11 |         |    0 | 00/221A               |                                                       
+  476 |  1 dlld.s    416 | Data        | 11 |         |    3 | 00/221A : 45 44 00    | strED                  asc             'ED'00         ; *Don't echo output
+  477 |  1 dlld.s    417 | Data        | 11 |         |    3 | 00/221D : 42 45 00    | strBE                  asc             'BE'00         ; *Input buffering: on
+  478 |  1 dlld.s    418 | Data        | 11 |         |    4 | 00/2220 : 31 32 42 00 | str12B                 asc             '12B'00        ; *Baud rate: 4800 BPS
+  479 |  1 dlld.s    419 | Data        | 11 |         |    3 | 00/2224 : 30 44 00    | str0D                  asc             '0D'00         ; *Data/Stop bits: 8/1
+  480 |  1 dlld.s    420 | Data        | 11 |         |    3 | 00/2227 : 30 50 00    | str0P                  asc             '0P'00         ; *Parity: none
+  481 |  1 dlld.s    421 | Data        | 11 |         |    3 | 00/222A : 30 4E 00    | str0N                  asc             '0N'00         ; Line length: 0
+  482 |  1 dlld.s    422 | Data        | 11 |         |    3 | 00/222D : 41 44 00    | strAD                  asc             'AD'00         ; *Do not implement basic tabs
+  483 |  1 dlld.s    423 | Data        | 11 |         |    3 | 00/2230 : 43 44 00    | strCD                  asc             'CD'00         ; *Disable line formatting
+  484 |  1 dlld.s    424 | Data        | 11 |         |    3 | 00/2233 : 58 44 00    | strXD                  asc             'XD'00         ; *Ignore XOFF
+  485 |  1 dlld.s    425 | Data        | 11 |         |    3 | 00/2236 : 46 44 00    | strFD                  asc             'FD'00         ; *Disable keyboard input
+  486 |  1 dlld.s    426 | Data        | 11 |         |    3 | 00/2239 : 4C 44 00    | strLD                  asc             'LD'00         ; Do not add line feeds after CR
+  487 |  1 dlld.s    427 | Data        | 11 |         |    3 | 00/223C : 4D 45 00    | strME                  asc             'ME'00         ; Mask line feed in
+  488 |  1 dlld.s    428 | Data        | 11 |         |    2 | 00/223F : 5A 00       | strZ                   asc             'Z'00          ; *Suppress control characters
+  489 |  1 dlld.s    429 | Empty       | 11 |         |    0 | 00/2241               |                                                       
+  490 |  1 dlld.s    430 | Comment     | 11 |         |    0 | 00/2241               | *---------- Laserdisc
+  491 |  1 dlld.s    431 | Empty       | 11 |         |    0 | 00/2241               |                                                       
+  492 |  1 dlld.s    432 | Data        | 11 |         |    7 | 00/2241 : 31 44 53 20 | strDS                  asc             '1DS CS'00     
+      |                  |             |    |         |      |           43 53 00    |
+  493 |  1 dlld.s    433 | Data        | 11 |         |    8 | 00/2248 : 41 4E 54 4F | strAV                  asc             'ANTOINE'00    
+      |                  |             |    |         |      |           49 4E 45 00 |
+  494 |  1 dlld.s    434 | Data        | 11 |         |    3 | 00/2250 : 43 4F 00    | strCO                  asc             'CO'00         
+  495 |  1 dlld.s    435 | Data        | 11 |         |    3 | 00/2253 : 53 41 00    | strSA                  asc             'SA'00         
+  496 |  1 dlld.s    436 | Data        | 11 |         |    3 | 00/2256 : 50 4C 00    | strPL                  asc             'PL'00         
+  497 |  1 dlld.s    437 | Data        | 11 |         |    3 | 00/2259 : 24 43 00    | strC                   asc             '$C'00         
+  498 |  1 dlld.s    438 | Empty       | 11 |         |    0 | 00/225C               |                                                       
+  499 |  1 dlld.s    439 | Data        | 11 |         |  164 | 00/225C : 00 00 00 00 |                        ds              \              
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+  500 |  1 dlld.s    440 | Empty       | 11 |         |    0 | 00/2300               |                                                       
+  501 |  1 dlld.s    441 | Data        | 11 |         |  256 | 00/2300 : 00 00 00 00 | responseBUF            ds              256            ; LD player response
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+      |                  |             |    |         |      |           00 00 00 00 |
+  502 |  1 dlld.s    442 | Empty       | 11 |         |    0 | 00/2400               |                                                       
+  503 |  1 dlld.s    443 | Comment     | 11 |         |    0 | 00/2400               | *-----------------------------------
+  504 |  1 dlld.s    444 | Comment     | 11 |         |    0 | 00/2400               | * END OF CODE
+  505 |  1 dlld.s    445 | Comment     | 11 |         |    0 | 00/2400               | *-----------------------------------
+  506 |  1 dlld.s    446 | Empty       | 11 |         |    0 | 00/2400               |                                                       
+  507 |  1 dlld.s    447 | Empty       | 11 |         |    0 | 00/2400               |                                                       
+------+------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------

dlld/source/gsport.s

@@ -0,0 +1,266 @@
+*         XC
+*         TR
+*         TR    ADR
+*
+
+	mx	%11
+	org	$2000
+	lst	off
+
+COUT	=	$fded
+	
+* GS Port Driver Bios
+* written by Andy Nicholas on July 26, 1987
+*
+* History:
+*
+* 11/07/89 AMW
+* 1. History section added
+* 2. Checked and or modified for LLUCE
+* 3. Section titles added
+*
+* 11/10/89 AMW
+* Added interrupt buffers
+*--------------------------
+*         rel
+*SLOT     KBD   'Slot to assemble for (1/2)'
+SLOT	=	2
+N0       =     SLOT*16
+CN       =     SLOT!$C0
+SLTADR   =     SLOT!$C0*256
+FLAG     =     SLOT-1
+
+CR       =     $0d
+LF       =     $0a
+
+	jsr	INIT
+	jsr	SETSPEED
+	ldx	#>strSA
+	ldy	#<strSA
+	jsr	sendSTRING
+	jsr	receiveSTRING
+
+	ldx	#>strPL
+	ldy	#<strPL
+	jsr	sendSTRING
+	jsr	receiveSTRING
+	rts
+
+receiveSTRING
+]lp	jsr	INP
+	beq	receive9
+	cmp	#CR
+	beq	receive9
+	ora	#$80
+	jsr	COUT
+	bra	]lp
+receive9	rts
+	
+sendSTRING	sty	sendstr1+1
+	stx	sendstr1+2
+	
+	ldx	#0
+sendstr1	lda	$bdbd,x
+	beq	sendstr2
+	jsr	OUT
+	inx
+	bne	sendstr1
+	
+sendstr2	lda	#CR
+	jsr	OUT
+	rts
+
+strSA	asc	'SA'00
+strPL	asc	'PL'00
+
+*-------------------------------
+*-------------------------------
+
+MODEM    DB    N0         ;serial card slot * 16
+INITSPD  DB    0          ;init speed for modem
+CALLSPD  DB    0          ;Speed of current call
+
+BYTCNT   DB    0,0,0
+
+DOINIT   JMP   SLTADR
+DOREAD   JMP   SLTADR
+DOWRITE  JMP   SLTADR
+DOSTATUS JMP   SLTADR
+DOEXT    JMP   SLTADR
+
+* init the serial port pascal locations
+*-------------------------------
+
+INIT     LDA   SLTADR+$D  ;get init address
+         STA   DOINIT+1
+         LDA   SLTADR+$E  ;get read address
+         STA   DOREAD+1
+         LDA   SLTADR+$F  ;get write address
+         STA   DOWRITE+1
+         LDA   SLTADR+$10 ;get status address
+         STA   DOSTATUS+1
+         LDA   SLTADR+$12
+         STA   DOEXT+1
+
+         RTS
+
+* input data
+*-------------------------------
+
+INP      PHX              ;Save x
+         PHY
+         LDX   #CN        ;are we ready?
+         LDY   #N0
+         LDA   #1
+         JSR   DOSTATUS
+         BCC   :INP2      ;nope, exit
+
+         LDX   #CN        ;yes, read
+         LDY   #N0
+         JSR   DOREAD
+
+         SEC
+:INP1    PLY
+         PLX              ;Restore & return
+         RTS
+
+:INP2    LDA   #0
+         BRA   :INP1
+
+* output data
+*-------------------------------
+
+OUT      PHX              ;Save x
+         PHY              ;Save y
+         PHA              ;Save a
+
+:OUT1    LDX   #CN        ;ready for send?
+         LDY   #N0
+         LDA   #0
+         JSR   DOSTATUS
+         BCC   :OUT1      ;nope
+
+         PLA              ;Get a
+         LDX   #CN
+         LDY   #N0
+         JSR   DOWRITE    ;send it
+
+         PLY              ;Get y
+         PLX              ;Get x
+         RTS
+
+* wait routine
+*-------------------------------
+
+WAIT     SEC              ;from apple ][+ ref man - pg 147
+:WAIT2   PHA
+:WAIT3   SBC   #1
+         BNE   :WAIT3
+         PLA
+         SBC   #1
+         BNE   :WAIT2
+         RTS
+
+* set the rs-232 speed [speed offset in Y]
+*
+* 0 =   300 baud
+* 1 =  1200 baud
+* 2 =  2400 baud
+* 3 =  4800 baud
+* 4 =  9600 baud
+* 5 = 19200 baud
+*-------------------------------
+
+SETSPEED LDX   #<B4800
+         LDA   #>B4800
+
+:SETBAUD STX   :BAUDRD+1
+         STA   :BAUDRD+2
+
+         LDX   #CN
+         LDY   #N0
+         JSR   DOINIT
+
+         LDX   #0
+:BAUDRD  LDA   -1,X
+         BEQ   :FINISH
+         JSR   OUT
+         INX
+         BRA   :BAUDRD
+
+:FINISH  LDX   #0
+:LOOP    LDA   PORTINIT,X
+         BEQ   :DONE
+         JSR   OUT
+         INX
+         BRA   :LOOP
+
+:DONE    LDA   #<OUT_BUF
+         LDX   #>OUT_BUF
+         LDY   #0
+         JSR   DOEXT
+
+         RTS
+
+PORTINIT DB    1
+         ASC   '0D'       ;8 bits
+         DB    1
+         ASC   '0P'       ;no parity
+*         db    1
+*         asc   '0N'
+         db    1
+         asc   'LD'
+         db    1
+         asc   'ME'
+         DB    1
+         ASC   'AD'       ;auto-tabbing
+         DB    1
+         ASC   'XD'       ;no xoff recognition
+         DB    1
+         ASC   'FD'       ;no find keyboard
+         DB    1
+         ASC   'CD'       ;no column overflow
+         DB    1
+         ASC   'ED'       ;echo disabled
+*         DB    1
+*         ASC   'MD'       ;no lf masking
+         DB    1
+         ASC   'BE'       ;buffering enabled
+         DB    1
+         ASC   'Z'
+         DB    0          ;no more control characters
+
+B4800    DB    1
+         ASC   '12B'00    ;accept 4800 Baud
+
+*-------------------------------
+
+OUT_BUF  DB    4          ;Parameters to set the
+         DB    $13        ;Output buffer
+         DA    0
+         ADRL  BUFFER     ;Buffer it where
+         DA    2          ;Buffer 2 bytes
+
+*-------------------------------
+
+CARRLIST DB    3          ;Parameter list for
+         DB    6          ;detecting carrier drop
+         DA    0
+CARRBITS DA    0          ;Carrier status here
+
+*-------------------------------
+
+DTRLST   DB    3          ;Parameter list for
+         DB    $B         ;setting DTR
+         DA    0
+DTRSTATE DA    0          ;Bit 7 affects DTR
+
+*-------------------------------
+
+FLUSHLST DB    2          ;parameter list for flushing input queue
+         DB    $14
+         DA    0
+
+*-------------------------------
+
+BUFFER	ds	256

dlld/source/gsport_Output.txt

@@ -0,0 +1,334 @@
+------+--------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
+ Line | # File        Line | Line Type   | MX |  Reloc  | Size | Address   Object Code |  Source Code                                                      
+------+--------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
+    1 |  1 gsport.s      1 | Comment     | 11 |         |    0 | 00/8000               | *         XC
+    2 |  1 gsport.s      2 | Comment     | 11 |         |    0 | 00/8000               | *         TR
+    3 |  1 gsport.s      3 | Comment     | 11 |         |    0 | 00/8000               | *         TR    ADR
+    4 |  1 gsport.s      4 | Comment     | 11 |         |    0 | 00/8000               | *
+    5 |  1 gsport.s      5 | Empty       | 11 |         |    0 | 00/8000               |                                       
+    6 |  1 gsport.s      6 | Directive   | 11 |         |    0 | 00/8000               |                mx    %11              
+    7 |  1 gsport.s      7 | Directive   | 11 |         |    0 | 00/8000               |                org   $2000            
+    8 |  1 gsport.s      8 | Directive   | 11 |         |    0 | 00/2000               |                lst   off              
+    9 |  1 gsport.s      9 | Empty       | 11 |         |    0 | 00/2000               |                                       
+   10 |  1 gsport.s     10 | Equivalence | 11 |         |    0 | 00/2000               | COUT           =     $fded            
+   11 |  1 gsport.s     11 | Empty       | 11 |         |    0 | 00/2000               |                                       
+   12 |  1 gsport.s     12 | Comment     | 11 |         |    0 | 00/2000               | * GS Port Driver Bios
+   13 |  1 gsport.s     13 | Comment     | 11 |         |    0 | 00/2000               | * written by Andy Nicholas on July 26, 1987
+   14 |  1 gsport.s     14 | Comment     | 11 |         |    0 | 00/2000               | *
+   15 |  1 gsport.s     15 | Comment     | 11 |         |    0 | 00/2000               | * History:
+   16 |  1 gsport.s     16 | Comment     | 11 |         |    0 | 00/2000               | *
+   17 |  1 gsport.s     17 | Comment     | 11 |         |    0 | 00/2000               | * 11/07/89 AMW
+   18 |  1 gsport.s     18 | Comment     | 11 |         |    0 | 00/2000               | * 1. History section added
+   19 |  1 gsport.s     19 | Comment     | 11 |         |    0 | 00/2000               | * 2. Checked and or modified for LLUCE
+   20 |  1 gsport.s     20 | Comment     | 11 |         |    0 | 00/2000               | * 3. Section titles added
+   21 |  1 gsport.s     21 | Comment     | 11 |         |    0 | 00/2000               | *
+   22 |  1 gsport.s     22 | Comment     | 11 |         |    0 | 00/2000               | * 11/10/89 AMW
+   23 |  1 gsport.s     23 | Comment     | 11 |         |    0 | 00/2000               | * Added interrupt buffers
+   24 |  1 gsport.s     24 | Comment     | 11 |         |    0 | 00/2000               | *--------------------------
+   25 |  1 gsport.s     25 | Comment     | 11 |         |    0 | 00/2000               | *         rel
+   26 |  1 gsport.s     26 | Comment     | 11 |         |    0 | 00/2000               | *SLOT     KBD   'Slot to assemble for (1/2)'
+   27 |  1 gsport.s     27 | Equivalence | 11 |         |    0 | 00/2000               | SLOT           =     2                
+   28 |  1 gsport.s     28 | Equivalence | 11 |         |    0 | 00/2000               | N0             =     {2}*16           
+   29 |  1 gsport.s     29 | Equivalence | 11 |         |    0 | 00/2000               | CN             =     {2}!$C0          
+   30 |  1 gsport.s     30 | Equivalence | 11 |         |    0 | 00/2000               | SLTADR         =     {2}!$C0*256      
+   31 |  1 gsport.s     31 | Equivalence | 11 |         |    0 | 00/2000               | FLAG           =     {2}-1            
+   32 |  1 gsport.s     32 | Empty       | 11 |         |    0 | 00/2000               |                                       
+   33 |  1 gsport.s     33 | Equivalence | 11 |         |    0 | 00/2000               | CR             =     $0d              
+   34 |  1 gsport.s     34 | Equivalence | 11 |         |    0 | 00/2000               | LF             =     $0a              
+   35 |  1 gsport.s     35 | Empty       | 11 |         |    0 | 00/2000               |                                       
+   36 |  1 gsport.s     36 | Code        | 11 |         |    3 | 00/2000 : 20 60 20    |                jsr   INIT             
+   37 |  1 gsport.s     37 | Code        | 11 |         |    3 | 00/2003 : 20 C0 20    |                jsr   SETSPEED         
+   38 |  1 gsport.s     38 | Code        | 11 |         |    2 | 00/2006 : A2 20       |                ldx   #>strSA          
+   39 |  1 gsport.s     39 | Code        | 11 |         |    2 | 00/2008 : A0 45       |                ldy   #<strSA          
+   40 |  1 gsport.s     40 | Code        | 11 |         |    3 | 00/200A : 20 2C 20    |                jsr   sendSTRING       
+   41 |  1 gsport.s     41 | Code        | 11 |         |    3 | 00/200D : 20 1B 20    |                jsr   receiveSTRING    
+   42 |  1 gsport.s     42 | Empty       | 11 |         |    0 | 00/2010               |                                       
+   43 |  1 gsport.s     43 | Code        | 11 |         |    2 | 00/2010 : A2 20       |                ldx   #>strPL          
+   44 |  1 gsport.s     44 | Code        | 11 |         |    2 | 00/2012 : A0 48       |                ldy   #<strPL          
+   45 |  1 gsport.s     45 | Code        | 11 |         |    3 | 00/2014 : 20 2C 20    |                jsr   sendSTRING       
+   46 |  1 gsport.s     46 | Code        | 11 |         |    3 | 00/2017 : 20 1B 20    |                jsr   receiveSTRING    
+   47 |  1 gsport.s     47 | Code        | 11 |         |    1 | 00/201A : 60          |                rts                    
+   48 |  1 gsport.s     48 | Empty       | 11 |         |    0 | 00/201B               |                                       
+   49 |  1 gsport.s     49 | Empty       | 11 |         |    0 | 00/201B               | receiveSTRING                         
+   50 |  1 gsport.s     50 | Code        | 11 |         |    3 | 00/201B : 20 7F 20    | ozunid_1       jsr   INP              
+   51 |  1 gsport.s     51 | Code        | 11 |         |    2 | 00/201E : F0 0B       |                beq   receive9         
+   52 |  1 gsport.s     52 | Code        | 11 |         |    2 | 00/2020 : C9 0D       |                cmp   #{$0d}           
+   53 |  1 gsport.s     53 | Code        | 11 |         |    2 | 00/2022 : F0 07       |                beq   receive9         
+   54 |  1 gsport.s     54 | Code        | 11 |         |    2 | 00/2024 : 09 80       |                ora   #$80             
+   55 |  1 gsport.s     55 | Code        | 11 |         |    3 | 00/2026 : 20 ED FD    |                jsr   {$fded}          
+   56 |  1 gsport.s     56 | Code        | 11 |         |    2 | 00/2029 : 80 F0       |                bra   ozunid_1         
+   57 |  1 gsport.s     57 | Code        | 11 |         |    1 | 00/202B : 60          | receive9       rts                    
+   58 |  1 gsport.s     58 | Empty       | 11 |         |    0 | 00/202C               |                                       
+   59 |  1 gsport.s     59 | Code        | 11 |         |    3 | 00/202C : 8C 35 20    | sendSTRING     sty   sendstr1+1       
+   60 |  1 gsport.s     60 | Code        | 11 |         |    3 | 00/202F : 8E 36 20    |                stx   sendstr1+2       
+   61 |  1 gsport.s     61 | Empty       | 11 |         |    0 | 00/2032               |                                       
+   62 |  1 gsport.s     62 | Code        | 11 |         |    2 | 00/2032 : A2 00       |                ldx   #0               
+   63 |  1 gsport.s     63 | Code        | 11 |         |    3 | 00/2034 : BD BD BD    | sendstr1       lda   $bdbd,x          
+   64 |  1 gsport.s     64 | Code        | 11 |         |    2 | 00/2037 : F0 06       |                beq   sendstr2         
+   65 |  1 gsport.s     65 | Code        | 11 |         |    3 | 00/2039 : 20 9B 20    |                jsr   OUT              
+   66 |  1 gsport.s     66 | Code        | 11 |         |    1 | 00/203C : E8          |                inx                    
+   67 |  1 gsport.s     67 | Code        | 11 |         |    2 | 00/203D : D0 F5       |                bne   sendstr1         
+   68 |  1 gsport.s     68 | Empty       | 11 |         |    0 | 00/203F               |                                       
+   69 |  1 gsport.s     69 | Code        | 11 |         |    2 | 00/203F : A9 0D       | sendstr2       lda   #{$0d}           
+   70 |  1 gsport.s     70 | Code        | 11 |         |    3 | 00/2041 : 20 9B 20    |                jsr   OUT              
+   71 |  1 gsport.s     71 | Code        | 11 |         |    1 | 00/2044 : 60          |                rts                    
+   72 |  1 gsport.s     72 | Empty       | 11 |         |    0 | 00/2045               |                                       
+   73 |  1 gsport.s     73 | Data        | 11 |         |    3 | 00/2045 : 53 41 00    | strSA          asc   'SA'00           
+   74 |  1 gsport.s     74 | Data        | 11 |         |    3 | 00/2048 : 50 4C 00    | strPL          asc   'PL'00           
+   75 |  1 gsport.s     75 | Empty       | 11 |         |    0 | 00/204B               |                                       
+   76 |  1 gsport.s     76 | Comment     | 11 |         |    0 | 00/204B               | *-------------------------------
+   77 |  1 gsport.s     77 | Comment     | 11 |         |    0 | 00/204B               | *-------------------------------
+   78 |  1 gsport.s     78 | Empty       | 11 |         |    0 | 00/204B               |                                       
+   79 |  1 gsport.s     79 | Data        | 11 |         |    1 | 00/204B : 20          | MODEM          DB    {{2}*16}         ;serial card slot * 16
+   80 |  1 gsport.s     80 | Data        | 11 |         |    1 | 00/204C : 00          | INITSPD        DB    0                ;init speed for modem
+   81 |  1 gsport.s     81 | Data        | 11 |         |    1 | 00/204D : 00          | CALLSPD        DB    0                ;Speed of current call
+   82 |  1 gsport.s     82 | Empty       | 11 |         |    0 | 00/204E               |                                       
+   83 |  1 gsport.s     83 | Data        | 11 |         |    3 | 00/204E : 00 00 00    | BYTCNT         DB    0,0,0            
+   84 |  1 gsport.s     84 | Empty       | 11 |         |    0 | 00/2051               |                                       
+   85 |  1 gsport.s     85 | Code        | 11 |         |    3 | 00/2051 : 4C 00 C2    | DOINIT         JMP   {{2}!$C0*256}    
+   86 |  1 gsport.s     86 | Code        | 11 |         |    3 | 00/2054 : 4C 00 C2    | DOREAD         JMP   {{2}!$C0*256}    
+   87 |  1 gsport.s     87 | Code        | 11 |         |    3 | 00/2057 : 4C 00 C2    | DOWRITE        JMP   {{2}!$C0*256}    
+   88 |  1 gsport.s     88 | Code        | 11 |         |    3 | 00/205A : 4C 00 C2    | DOSTATUS       JMP   {{2}!$C0*256}    
+   89 |  1 gsport.s     89 | Code        | 11 |         |    3 | 00/205D : 4C 00 C2    | DOEXT          JMP   {{2}!$C0*256}    
+   90 |  1 gsport.s     90 | Empty       | 11 |         |    0 | 00/2060               |                                       
+   91 |  1 gsport.s     91 | Comment     | 11 |         |    0 | 00/2060               | * init the serial port pascal locations
+   92 |  1 gsport.s     92 | Comment     | 11 |         |    0 | 00/2060               | *-------------------------------
+   93 |  1 gsport.s     93 | Empty       | 11 |         |    0 | 00/2060               |                                       
+   94 |  1 gsport.s     94 | Code        | 11 |         |    3 | 00/2060 : AD 0D C2    | INIT           LDA   {{2}!$C0*256}+$D ;get init address
+   95 |  1 gsport.s     95 | Code        | 11 |         |    3 | 00/2063 : 8D 52 20    |                STA   DOINIT+1         
+   96 |  1 gsport.s     96 | Code        | 11 |         |    3 | 00/2066 : AD 0E C2    |                LDA   {{2}!$C0*256}+$E ;get read address
+   97 |  1 gsport.s     97 | Code        | 11 |         |    3 | 00/2069 : 8D 55 20    |                STA   DOREAD+1         
+   98 |  1 gsport.s     98 | Code        | 11 |         |    3 | 00/206C : AD 0F C2    |                LDA   {{2}!$C0*256}+$F ;get write address
+   99 |  1 gsport.s     99 | Code        | 11 |         |    3 | 00/206F : 8D 58 20    |                STA   DOWRITE+1        
+  100 |  1 gsport.s    100 | Code        | 11 |         |    3 | 00/2072 : AD 10 C2    |                LDA   {{2}!$C0*256}+$10;get status address
+  101 |  1 gsport.s    101 | Code        | 11 |         |    3 | 00/2075 : 8D 5B 20    |                STA   DOSTATUS+1       
+  102 |  1 gsport.s    102 | Code        | 11 |         |    3 | 00/2078 : AD 12 C2    |                LDA   {{2}!$C0*256}+$12
+  103 |  1 gsport.s    103 | Code        | 11 |         |    3 | 00/207B : 8D 5E 20    |                STA   DOEXT+1          
+  104 |  1 gsport.s    104 | Empty       | 11 |         |    0 | 00/207E               |                                       
+  105 |  1 gsport.s    105 | Code        | 11 |         |    1 | 00/207E : 60          |                RTS                    
+  106 |  1 gsport.s    106 | Empty       | 11 |         |    0 | 00/207F               |                                       
+  107 |  1 gsport.s    107 | Comment     | 11 |         |    0 | 00/207F               | * input data
+  108 |  1 gsport.s    108 | Comment     | 11 |         |    0 | 00/207F               | *-------------------------------
+  109 |  1 gsport.s    109 | Empty       | 11 |         |    0 | 00/207F               |                                       
+  110 |  1 gsport.s    110 | Code        | 11 |         |    1 | 00/207F : DA          | INP            PHX                    ;Save x
+  111 |  1 gsport.s    111 | Code        | 11 |         |    1 | 00/2080 : 5A          |                PHY                    
+  112 |  1 gsport.s    112 | Code        | 11 |         |    2 | 00/2081 : A2 C2       |                LDX   #{{2}!$C0}       ;are we ready?
+  113 |  1 gsport.s    113 | Code        | 11 |         |    2 | 00/2083 : A0 20       |                LDY   #{{2}*16}        
+  114 |  1 gsport.s    114 | Code        | 11 |         |    2 | 00/2085 : A9 01       |                LDA   #1               
+  115 |  1 gsport.s    115 | Code        | 11 |         |    3 | 00/2087 : 20 5A 20    |                JSR   DOSTATUS         
+  116 |  1 gsport.s    116 | Code        | 11 |         |    2 | 00/208A : 90 0B       |                BCC   _INP2            ;nope, exit
+  117 |  1 gsport.s    117 | Empty       | 11 |         |    0 | 00/208C               |                                       
+  118 |  1 gsport.s    118 | Code        | 11 |         |    2 | 00/208C : A2 C2       |                LDX   #{{2}!$C0}       ;yes, read
+  119 |  1 gsport.s    119 | Code        | 11 |         |    2 | 00/208E : A0 20       |                LDY   #{{2}*16}        
+  120 |  1 gsport.s    120 | Code        | 11 |         |    3 | 00/2090 : 20 54 20    |                JSR   DOREAD           
+  121 |  1 gsport.s    121 | Empty       | 11 |         |    0 | 00/2093               |                                       
+  122 |  1 gsport.s    122 | Code        | 11 |         |    1 | 00/2093 : 38          |                SEC                    
+  123 |  1 gsport.s    123 | Code        | 11 |         |    1 | 00/2094 : 7A          | _INP1          PLY                    
+  124 |  1 gsport.s    124 | Code        | 11 |         |    1 | 00/2095 : FA          |                PLX                    ;Restore & return
+  125 |  1 gsport.s    125 | Code        | 11 |         |    1 | 00/2096 : 60          |                RTS                    
+  126 |  1 gsport.s    126 | Empty       | 11 |         |    0 | 00/2097               |                                       
+  127 |  1 gsport.s    127 | Code        | 11 |         |    2 | 00/2097 : A9 00       | _INP2          LDA   #0               
+  128 |  1 gsport.s    128 | Code        | 11 |         |    2 | 00/2099 : 80 F9       |                BRA   _INP1            
+  129 |  1 gsport.s    129 | Empty       | 11 |         |    0 | 00/209B               |                                       
+  130 |  1 gsport.s    130 | Comment     | 11 |         |    0 | 00/209B               | * output data
+  131 |  1 gsport.s    131 | Comment     | 11 |         |    0 | 00/209B               | *-------------------------------
+  132 |  1 gsport.s    132 | Empty       | 11 |         |    0 | 00/209B               |                                       
+  133 |  1 gsport.s    133 | Code        | 11 |         |    1 | 00/209B : DA          | OUT            PHX                    ;Save x
+  134 |  1 gsport.s    134 | Code        | 11 |         |    1 | 00/209C : 5A          |                PHY                    ;Save y
+  135 |  1 gsport.s    135 | Code        | 11 |         |    1 | 00/209D : 48          |                PHA                    ;Save a
+  136 |  1 gsport.s    136 | Empty       | 11 |         |    0 | 00/209E               |                                       
+  137 |  1 gsport.s    137 | Code        | 11 |         |    2 | 00/209E : A2 C2       | _OUT1          LDX   #{{2}!$C0}       ;ready for send?
+  138 |  1 gsport.s    138 | Code        | 11 |         |    2 | 00/20A0 : A0 20       |                LDY   #{{2}*16}        
+  139 |  1 gsport.s    139 | Code        | 11 |         |    2 | 00/20A2 : A9 00       |                LDA   #0               
+  140 |  1 gsport.s    140 | Code        | 11 |         |    3 | 00/20A4 : 20 5A 20    |                JSR   DOSTATUS         
+  141 |  1 gsport.s    141 | Code        | 11 |         |    2 | 00/20A7 : 90 F5       |                BCC   _OUT1            ;nope
+  142 |  1 gsport.s    142 | Empty       | 11 |         |    0 | 00/20A9               |                                       
+  143 |  1 gsport.s    143 | Code        | 11 |         |    1 | 00/20A9 : 68          |                PLA                    ;Get a
+  144 |  1 gsport.s    144 | Code        | 11 |         |    2 | 00/20AA : A2 C2       |                LDX   #{{2}!$C0}       
+  145 |  1 gsport.s    145 | Code        | 11 |         |    2 | 00/20AC : A0 20       |                LDY   #{{2}*16}        
+  146 |  1 gsport.s    146 | Code        | 11 |         |    3 | 00/20AE : 20 57 20    |                JSR   DOWRITE          ;send it
+  147 |  1 gsport.s    147 | Empty       | 11 |         |    0 | 00/20B1               |                                       
+  148 |  1 gsport.s    148 | Code        | 11 |         |    1 | 00/20B1 : 7A          |                PLY                    ;Get y
+  149 |  1 gsport.s    149 | Code        | 11 |         |    1 | 00/20B2 : FA          |                PLX                    ;Get x
+  150 |  1 gsport.s    150 | Code        | 11 |         |    1 | 00/20B3 : 60          |                RTS                    
+  151 |  1 gsport.s    151 | Empty       | 11 |         |    0 | 00/20B4               |                                       
+  152 |  1 gsport.s    152 | Comment     | 11 |         |    0 | 00/20B4               | * wait routine
+  153 |  1 gsport.s    153 | Comment     | 11 |         |    0 | 00/20B4               | *-------------------------------
+  154 |  1 gsport.s    154 | Empty       | 11 |         |    0 | 00/20B4               |                                       
+  155 |  1 gsport.s    155 | Code        | 11 |         |    1 | 00/20B4 : 38          | WAIT           SEC                    ;from apple ][+ ref man - pg 147
+  156 |  1 gsport.s    156 | Code        | 11 |         |    1 | 00/20B5 : 48          | _WAIT2         PHA                    
+  157 |  1 gsport.s    157 | Code        | 11 |         |    2 | 00/20B6 : E9 01       | _WAIT3         SBC   #1               
+  158 |  1 gsport.s    158 | Code        | 11 |         |    2 | 00/20B8 : D0 FC       |                BNE   _WAIT3           
+  159 |  1 gsport.s    159 | Code        | 11 |         |    1 | 00/20BA : 68          |                PLA                    
+  160 |  1 gsport.s    160 | Code        | 11 |         |    2 | 00/20BB : E9 01       |                SBC   #1               
+  161 |  1 gsport.s    161 | Code        | 11 |         |    2 | 00/20BD : D0 F6       |                BNE   _WAIT2           
+  162 |  1 gsport.s    162 | Code        | 11 |         |    1 | 00/20BF : 60          |                RTS                    
+  163 |  1 gsport.s    163 | Empty       | 11 |         |    0 | 00/20C0               |                                       
+  164 |  1 gsport.s    164 | Comment     | 11 |         |    0 | 00/20C0               | * set the rs-232 speed [speed offset in Y]
+  165 |  1 gsport.s    165 | Comment     | 11 |         |    0 | 00/20C0               | *
+  166 |  1 gsport.s    166 | Comment     | 11 |         |    0 | 00/20C0               | * 0 =   300 baud
+  167 |  1 gsport.s    167 | Comment     | 11 |         |    0 | 00/20C0               | * 1 =  1200 baud
+  168 |  1 gsport.s    168 | Comment     | 11 |         |    0 | 00/20C0               | * 2 =  2400 baud
+  169 |  1 gsport.s    169 | Comment     | 11 |         |    0 | 00/20C0               | * 3 =  4800 baud
+  170 |  1 gsport.s    170 | Comment     | 11 |         |    0 | 00/20C0               | * 4 =  9600 baud
+  171 |  1 gsport.s    171 | Comment     | 11 |         |    0 | 00/20C0               | * 5 = 19200 baud
+  172 |  1 gsport.s    172 | Comment     | 11 |         |    0 | 00/20C0               | *-------------------------------
+  173 |  1 gsport.s    173 | Empty       | 11 |         |    0 | 00/20C0               |                                       
+  174 |  1 gsport.s    174 | Code        | 11 |         |    2 | 00/20C0 : A2 15       | SETSPEED       LDX   #<B4800          
+  175 |  1 gsport.s    175 | Code        | 11 |         |    2 | 00/20C2 : A9 21       |                LDA   #>B4800          
+  176 |  1 gsport.s    176 | Empty       | 11 |         |    0 | 00/20C4               |                                       
+  177 |  1 gsport.s    177 | Code        | 11 |         |    3 | 00/20C4 : 8E D4 20    | _SETBAUD       STX   _BAUDRD+1        
+  178 |  1 gsport.s    178 | Code        | 11 |         |    3 | 00/20C7 : 8D D5 20    |                STA   _BAUDRD+2        
+  179 |  1 gsport.s    179 | Empty       | 11 |         |    0 | 00/20CA               |                                       
+  180 |  1 gsport.s    180 | Code        | 11 |         |    2 | 00/20CA : A2 C2       |                LDX   #{{2}!$C0}       
+  181 |  1 gsport.s    181 | Code        | 11 |         |    2 | 00/20CC : A0 20       |                LDY   #{{2}*16}        
+  182 |  1 gsport.s    182 | Code        | 11 |         |    3 | 00/20CE : 20 51 20    |                JSR   DOINIT           
+  183 |  1 gsport.s    183 | Empty       | 11 |         |    0 | 00/20D1               |                                       
+  184 |  1 gsport.s    184 | Code        | 11 |         |    2 | 00/20D1 : A2 00       |                LDX   #0               
+  185 |  1 gsport.s    185 | Code        | 11 |         |    2 | 00/20D3 : B5 FF       | _BAUDRD        LDA   -1,X             
+  186 |  1 gsport.s    186 | Code        | 11 |         |    2 | 00/20D5 : F0 06       |                BEQ   _FINISH          
+  187 |  1 gsport.s    187 | Code        | 11 |         |    3 | 00/20D7 : 20 9B 20    |                JSR   OUT              
+  188 |  1 gsport.s    188 | Code        | 11 |         |    1 | 00/20DA : E8          |                INX                    
+  189 |  1 gsport.s    189 | Code        | 11 |         |    2 | 00/20DB : 80 F6       |                BRA   _BAUDRD          
+  190 |  1 gsport.s    190 | Empty       | 11 |         |    0 | 00/20DD               |                                       
+  191 |  1 gsport.s    191 | Code        | 11 |         |    2 | 00/20DD : A2 00       | _FINISH        LDX   #0               
+  192 |  1 gsport.s    192 | Code        | 11 |         |    3 | 00/20DF : BD F4 20    | _LOOP          LDA   PORTINIT,X       
+  193 |  1 gsport.s    193 | Code        | 11 |         |    2 | 00/20E2 : F0 06       |                BEQ   _DONE            
+  194 |  1 gsport.s    194 | Code        | 11 |         |    3 | 00/20E4 : 20 9B 20    |                JSR   OUT              
+  195 |  1 gsport.s    195 | Code        | 11 |         |    1 | 00/20E7 : E8          |                INX                    
+  196 |  1 gsport.s    196 | Code        | 11 |         |    2 | 00/20E8 : 80 F5       |                BRA   _LOOP            
+  197 |  1 gsport.s    197 | Empty       | 11 |         |    0 | 00/20EA               |                                       
+  198 |  1 gsport.s    198 | Code        | 11 |         |    2 | 00/20EA : A9 1A       | _DONE          LDA   #<OUT_BUF        
+  199 |  1 gsport.s    199 | Code        | 11 |         |    2 | 00/20EC : A2 21       |                LDX   #>OUT_BUF        
+  200 |  1 gsport.s    200 | Code        | 11 |         |    2 | 00/20EE : A0 00       |                LDY   #0               
+  201 |  1 gsport.s    201 | Code        | 11 |         |    3 | 00/20F0 : 20 5D 20    |                JSR   DOEXT            
+  202 |  1 gsport.s    202 | Empty       | 11 |         |    0 | 00/20F3               |                                       
+  203 |  1 gsport.s    203 | Code        | 11 |         |    1 | 00/20F3 : 60          |                RTS                    
+  204 |  1 gsport.s    204 | Empty       | 11 |         |    0 | 00/20F4               |                                       
+  205 |  1 gsport.s    205 | Data        | 11 |         |    1 | 00/20F4 : 01          | PORTINIT       DB    1                
+  206 |  1 gsport.s    206 | Data        | 11 |         |    2 | 00/20F5 : 30 44       |                ASC   '0D'             ;8 bits
+  207 |  1 gsport.s    207 | Data        | 11 |         |    1 | 00/20F7 : 01          |                DB    1                
+  208 |  1 gsport.s    208 | Data        | 11 |         |    2 | 00/20F8 : 30 50       |                ASC   '0P'             ;no parity
+  209 |  1 gsport.s    209 | Comment     | 11 |         |    0 | 00/20FA               | *         db    1
+  210 |  1 gsport.s    210 | Comment     | 11 |         |    0 | 00/20FA               | *         asc   '0N'
+  211 |  1 gsport.s    211 | Data        | 11 |         |    1 | 00/20FA : 01          |                db    1                
+  212 |  1 gsport.s    212 | Data        | 11 |         |    2 | 00/20FB : 4C 44       |                asc   'LD'             
+  213 |  1 gsport.s    213 | Data        | 11 |         |    1 | 00/20FD : 01          |                db    1                
+  214 |  1 gsport.s    214 | Data        | 11 |         |    2 | 00/20FE : 4D 45       |                asc   'ME'             
+  215 |  1 gsport.s    215 | Data        | 11 |         |    1 | 00/2100 : 01          |                DB    1                
+  216 |  1 gsport.s    216 | Data        | 11 |         |    2 | 00/2101 : 41 44       |                ASC   'AD'             ;auto-tabbing
+  217 |  1 gsport.s    217 | Data        | 11 |         |    1 | 00/2103 : 01          |                DB    1                
+  218 |  1 gsport.s    218 | Data        | 11 |         |    2 | 00/2104 : 58 44       |                ASC   'XD'             ;no xoff recognition
+  219 |  1 gsport.s    219 | Data        | 11 |         |    1 | 00/2106 : 01          |                DB    1                
+  220 |  1 gsport.s    220 | Data        | 11 |         |    2 | 00/2107 : 46 44       |                ASC   'FD'             ;no find keyboard
+  221 |  1 gsport.s    221 | Data        | 11 |         |    1 | 00/2109 : 01          |                DB    1                
+  222 |  1 gsport.s    222 | Data        | 11 |         |    2 | 00/210A : 43 44       |                ASC   'CD'             ;no column overflow
+  223 |  1 gsport.s    223 | Data        | 11 |         |    1 | 00/210C : 01          |                DB    1                
+  224 |  1 gsport.s    224 | Data        | 11 |         |    2 | 00/210D : 45 44       |                ASC   'ED'             ;echo disabled
+  225 |  1 gsport.s    225 | Comment     | 11 |         |    0 | 00/210F               | *         DB    1
+  226 |  1 gsport.s    226 | Comment     | 11 |         |    0 | 00/210F               | *         ASC   'MD'       ;no lf masking
+  227 |  1 gsport.s    227 | Data        | 11 |         |    1 | 00/210F : 01          |                DB    1                
+  228 |  1 gsport.s    228 | Data        | 11 |         |    2 | 00/2110 : 42 45       |                ASC   'BE'             ;buffering enabled
+  229 |  1 gsport.s    229 | Data        | 11 |         |    1 | 00/2112 : 01          |                DB    1                
+  230 |  1 gsport.s    230 | Data        | 11 |         |    1 | 00/2113 : 5A          |                ASC   'Z'              
+  231 |  1 gsport.s    231 | Data        | 11 |         |    1 | 00/2114 : 00          |                DB    0                ;no more control characters
+  232 |  1 gsport.s    232 | Empty       | 11 |         |    0 | 00/2115               |                                       
+  233 |  1 gsport.s    233 | Data        | 11 |         |    1 | 00/2115 : 01          | B4800          DB    1                
+  234 |  1 gsport.s    234 | Data        | 11 |         |    4 | 00/2116 : 31 32 42 00 |                ASC   '12B'00          ;accept 4800 Baud
+  235 |  1 gsport.s    235 | Empty       | 11 |         |    0 | 00/211A               |                                       
+  236 |  1 gsport.s    236 | Comment     | 11 |         |    0 | 00/211A               | *-------------------------------
+  237 |  1 gsport.s    237 | Empty       | 11 |         |    0 | 00/211A               |                                       
+  238 |  1 gsport.s    238 | Data        | 11 |         |    1 | 00/211A : 04          | OUT_BUF        DB    4                ;Parameters to set the
+  239 |  1 gsport.s    239 | Data        | 11 |         |    1 | 00/211B : 13          |                DB    $13              ;Output buffer
+  240 |  1 gsport.s    240 | Data        | 11 |         |    2 | 00/211C : 00 00       |                DA    0                
+  241 |  1 gsport.s    241 | Data        | 11 |         |    4 | 00/211E : 34 21 00 00 |                ADRL  BUFFER           ;Buffer it where
+  242 |  1 gsport.s    242 | Data        | 11 |         |    2 | 00/2122 : 02 00       |                DA    2                ;Buffer 2 bytes
+  243 |  1 gsport.s    243 | Empty       | 11 |         |    0 | 00/2124               |                                       
+  244 |  1 gsport.s    244 | Comment     | 11 |         |    0 | 00/2124               | *-------------------------------
+  245 |  1 gsport.s    245 | Empty       | 11 |         |    0 | 00/2124               |                                       
+  246 |  1 gsport.s    246 | Data        | 11 |         |    1 | 00/2124 : 03          | CARRLIST       DB    3                ;Parameter list for
+  247 |  1 gsport.s    247 | Data        | 11 |         |    1 | 00/2125 : 06          |                DB    6                ;detecting carrier drop
+  248 |  1 gsport.s    248 | Data        | 11 |         |    2 | 00/2126 : 00 00       |                DA    0                
+  249 |  1 gsport.s    249 | Data        | 11 |         |    2 | 00/2128 : 00 00       | CARRBITS       DA    0                ;Carrier status here
+  250 |  1 gsport.s    250 | Empty       | 11 |         |    0 | 00/212A               |                                       
+  251 |  1 gsport.s    251 | Comment     | 11 |         |    0 | 00/212A               | *-------------------------------
+  252 |  1 gsport.s    252 | Empty       | 11 |         |    0 | 00/212A               |                                       
+  253 |  1 gsport.s    253 | Data        | 11 |         |    1 | 00/212A : 03          | DTRLST         DB    3                ;Parameter list for
+  254 |  1 gsport.s    254 | Data        | 11 |         |    1 | 00/212B : 0B          |                DB    $B               ;setting DTR
+  255 |  1 gsport.s    255 | Data        | 11 |         |    2 | 00/212C : 00 00       |                DA    0                
+  256 |  1 gsport.s    256 | Data        | 11 |         |    2 | 00/212E : 00 00       | DTRSTATE       DA    0                ;Bit 7 affects DTR
+  257 |  1 gsport.s    257 | Empty       | 11 |         |    0 | 00/2130               |                                       
+  258 |  1 gsport.s    258 | Comment     | 11 |         |    0 | 00/2130               | *-------------------------------
+  259 |  1 gsport.s    259 | Empty       | 11 |         |    0 | 00/2130               |                                       
+  260 |  1 gsport.s    260 | Data        | 11 |         |    1 | 00/2130 : 02          | FLUSHLST       DB    2                ;parameter list for flushing input queue
+  261 |  1 gsport.s    261 | Data        | 11 |         |    1 | 00/2131 : 14          |                DB    $14              
+  262 |  1 gsport.s    262 | Data        | 11 |         |    2 | 00/2132 : 00 00       |                DA    0                
+  263 |  1 gsport.s    263 | Empty       | 11 |         |    0 | 00/2134               |                                       
+  264 |  1 gsport.s    264 | Comment     | 11 |         |    0 | 00/2134               | *-------------------------------
+  265 |  1 gsport.s    265 | Empty       | 11 |         |    0 | 00/2134               |                                       
+  266 |  1 gsport.s    266 | Data        | 11 |         |  256 | 00/2134 : 00 00 00 00 | BUFFER         ds    256              
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+      |                    |             |    |         |      |           00 00 00 00 |
+  267 |  1 gsport.s    267 | Empty       | 11 |         |    0 | 00/2234               |                                       
+------+--------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------

dlld/terravision/TerraVision - TERRASIDE1/Applesauce Extraction Log.txt

@@ -0,0 +1,134 @@
+DISK CONTENT EXTRACTION LOG
+Performed by Applesauce v1.88.4
+www.applesaucefdc.com
+
+Timestamp: 12 Mar 2024 at 16:51
+
+    Media: 3.5" Floppy Disk
+   Format: Apple IIgs GS/OS
+
+== STATUS ======================================================================
+
+11 files were detected on the disk.
+No issues were encountered with the extraction process.
+
+== CATALOG =====================================================================
+
+TERRASIDE1
+
+ NAME           TYPE  BLOCKS  MODIFIED          CREATED          ENDFILE SUBTYPE
+
+*WARMUP.GFX      PNT      19  06-APR-92  14:52  06-APR-92  13:20    8818 
+*THEBIGDIG       S16     283  24-MAR-92  15:32  13-AUG-91  08:54  142889 
+*TERRA1.TXT      NON      87  19-FEB-92  11:00  12-AUG-91  15:57   43878 
+*WARMUP.GPT      BIN       1  06-APR-92  14:52  06-APR-92  13:20      32 A=$00C0
+*TERRA1FRM.DAT   NON      53  19-FEB-92  11:17  13-AUG-91  08:55   26568 
+*TERRA1FRM.IND   NON      39  19-FEB-92  11:17  13-AUG-91  08:56   19180 
+*TERRA1.CTL      NON      21  14-AUG-91  10:39  12-AUG-91  15:47    9762 
+*TERRA1.GPT      BIN      17  20-AUG-91  13:38  01-JUL-91  15:47    8096 A=$00C0
+*TERRA1.GFX      PNT     965  20-AUG-91  13:38  20-AUG-91  13:25  491260 
+*TERRA1.VID      NON      10  19-FEB-92  10:58  12-AUG-91  15:42    4138 
+ FINDER.DATA     FND       1  10-APR-92  09:56  06-APR-92  17:29     238 
+
+
+== FILE DETAILS ================================================================
+
+WARMUP.GFX
+PNT - Packed Super Hi-Res Image ($C0)      MD5: f3a7db3b1566c351e920f495063c9023
+
+File Type: $C0       Aux Type: $00C0      Storage: Sapling ($2)                 
+   Sparse: No       Block Qty: 19       File Size: 8818     Index Qty: 1        
+Data Size: 8818     Data Blks: 18       
+
+--------------------------------------------------------------------------------
+
+THEBIGDIG
+S16 - GS/OS Application File ($B3)         MD5: bbc3e5a5a262832e0deb5be722cd9e54
+
+File Type: $B3       Aux Type: $0000      Storage: Tree ($3)
+   Sparse: No       Block Qty: 283      File Size: 142889   Index Qty: 3        
+Data Size: 142889   Data Blks: 280      
+
+--------------------------------------------------------------------------------
+
+TERRA1.TXT
+NON - Unknown File ($00)                   MD5: 4850e3f5ba1203e2de57b04e7b2d4721
+
+File Type: $00       Aux Type: $0000      Storage: Sapling ($2)                 
+   Sparse: No       Block Qty: 87       File Size: 43878    Index Qty: 1        
+Data Size: 43878    Data Blks: 86       
+
+--------------------------------------------------------------------------------
+
+WARMUP.GPT
+BIN - Binary File ($06)                    MD5: 28c1f46b6d53feb46cd33de845a19c79
+
+File Type: $06       Aux Type: $00C0      Storage: Seedling ($1)                
+   Sparse: No       Block Qty: 1        File Size: 32       Index Qty: 0        
+Data Size: 32       Data Blks: 1        
+
+--------------------------------------------------------------------------------
+
+TERRA1FRM.DAT
+NON - Unknown File ($00)                   MD5: e27dd60040d987b8ac40e99e06e2f8fd
+
+File Type: $00       Aux Type: $0000      Storage: Sapling ($2)                 
+   Sparse: No       Block Qty: 53       File Size: 26568    Index Qty: 1        
+Data Size: 26568    Data Blks: 52       
+
+--------------------------------------------------------------------------------
+
+TERRA1FRM.IND
+NON - Unknown File ($00)                   MD5: 5e0eac31770f33ddfb90e7aa92cee07a
+
+File Type: $00       Aux Type: $0000      Storage: Sapling ($2)                 
+   Sparse: No       Block Qty: 39       File Size: 19180    Index Qty: 1        
+Data Size: 19180    Data Blks: 38       
+
+--------------------------------------------------------------------------------
+
+TERRA1.CTL
+NON - Unknown File ($00)                   MD5: 0b0cb1fa99945f5be7f6299113a1631f
+
+File Type: $00       Aux Type: $0000      Storage: Sapling ($2)                 
+   Sparse: No       Block Qty: 21       File Size: 9762     Index Qty: 1        
+Data Size: 9762     Data Blks: 20       
+
+--------------------------------------------------------------------------------
+
+TERRA1.GPT
+BIN - Binary File ($06)                    MD5: b3eba29020668d9dcc27f09fcffd59d6
+
+File Type: $06       Aux Type: $00C0      Storage: Sapling ($2)                 
+   Sparse: No       Block Qty: 17       File Size: 8096     Index Qty: 1        
+Data Size: 8096     Data Blks: 16       
+
+--------------------------------------------------------------------------------
+
+TERRA1.GFX
+PNT - Packed Super Hi-Res Image ($C0)      MD5: b97f3440de9d68a25beac3e71557821d
+
+File Type: $C0       Aux Type: $00C0      Storage: Tree ($3)
+   Sparse: No       Block Qty: 965      File Size: 491260   Index Qty: 5        
+Data Size: 491260   Data Blks: 960      
+
+--------------------------------------------------------------------------------
+
+TERRA1.VID
+NON - Unknown File ($00)                   MD5: ca037a612f1f94d765fb6230370b29ac
+
+File Type: $00       Aux Type: $0000      Storage: Sapling ($2)                 
+   Sparse: No       Block Qty: 10       File Size: 4138     Index Qty: 1        
+Data Size: 4138     Data Blks: 9        
+
+--------------------------------------------------------------------------------
+
+FINDER.DATA
+FND - Finder Data ($C9)                    MD5: 298c90896b37dddb1d803db199705066
+
+File Type: $C9       Aux Type: $0000      Storage: Seedling ($1)                
+   Sparse: No       Block Qty: 1        File Size: 238      Index Qty: 0        
+Data Size: 238      Data Blks: 1        
+
+--------------------------------------------------------------------------------
+

dlld/terravision/TerraVision - TERRASIDE1/TERRA.txt

@@ -0,0 +1,14 @@
+1	MAIN	0000
+2	GLOBALS	4001
+3	ARRAYS	4001
+4	MENUSTUFF	0000
+5	GSDEGUB	4000
+6	VIDEOPEDIA	0000
+7	MEDIACLIP	0000
+8	INTERACT	0000
+9	DOLESSON	0000
+A	HANDLER	0000
+B	ATLASES	0000
+C	IMSFONT	0000
+D	LAB	0000
+E	DIRECT	0012

dlld/terravision/source/ARRAYS.X.S

@@ -0,0 +1,92 @@
+
+* TFBD generated externals
+*     (c) PHC 1992,93
+
+
+            EXT   L012E43
+            EXT   L0A099A
+            EXT   L0A0A89
+            EXT   L0A0C52
+            EXT   L0D10DC
+            EXT   L0A0D20
+            EXT   L01175E
+            EXT   L01179F
+            EXT   L0A0B63
+            EXT   L0118F9
+            EXT   L0A01F0
+            EXT   L011DEB
+            EXT   L020078
+            EXT   L020094
+            EXT   L0200B0
+            EXT   L020084
+            EXT   L0200A0
+            EXT   L0200BC
+            EXT   L020080
+            EXT   L02009C
+            EXT   L0200B8
+            EXT   L02007C
+            EXT   L020098
+            EXT   L0200B4
+            EXT   L020090
+            EXT   L0200A4
+            EXT   L0200C0
+            EXT   L020088
+            EXT   L0200A8
+            EXT   L0200C4
+            EXT   L02008C
+            EXT   L0200AC
+            EXT   L0200C8
+            EXT   L018E9C
+            EXT   L019605
+            EXT   L01A12E
+            EXT   L016D40
+            EXT   L0195C6
+            EXT   L019D47
+            EXT   L017380
+            EXT   L016CC6
+            EXT   L019EA7
+            EXT   L01A48E
+            EXT   L016B46
+            EXT   L01A10B
+            EXT   L0170B4
+            EXT   L01A020
+            EXT   L01A425
+            EXT   L01A50D
+            EXT   L016B81
+            EXT   L0194EA
+            EXT   L0168DF
+            EXT   L019EFD
+            EXT   L01749D
+            EXT   L0173E4
+            EXT   L019ECC
+            EXT   L019915
+            EXT   L019FAA
+            EXT   L01A46B
+            EXT   L018E6E
+            EXT   L017AD2
+            EXT   L018DED
+            EXT   L019946
+            EXT   L01A269
+            EXT   L018EDC
+            EXT   L01A4F6
+            EXT   L01A0F4
+            EXT   L017467
+            EXT   L01A448
+            EXT   L0198B9
+            EXT   L016F16
+            EXT   L01EDCE
+            EXT   L01E548
+            EXT   L01F1BA
+            EXT   L01EB12
+            EXT   L01E605
+            EXT   L01ED7A
+            EXT   L01E518
+            EXT   L01F0CE
+            EXT   L01E9AD
+            EXT   L01E530
+            EXT   L01EF54
+            EXT   L01EAFA
+            EXT   L01F2EC
+            EXT   L01ED32
+            EXT   L01ECD4
+

dlld/terravision/source/ATLASES.S

@@ -0,0 +1,471 @@
+
+*---------------------------------------------------------*
+*     Disassembled with The Flaming Bird Disassembler     *
+*    (c) Phoenix corp. 1992,93  -  All rights reserved    *
+*---------------------------------------------------------*
+
+            REL
+
+L0B0000     ENT
+            PHD
+            TSC
+            SEC
+            SBC   #$00E9
+            TCD
+            ADC   #$FF7E
+            TCS
+            STZ   $D6
+            PEA   ^L033CC5
+            PEA   L033CC5
+            JSL   L050256
+            PLY
+            PLY
+            LDX   $F5
+            LDA   $F3
+            STX   $E2
+            STA   $E0
+            LDA   $F7
+            AND   #$00FF
+            CMP   #$0020
+            BNE   L0B0074
+            LDX   $E2
+            LDA   $E0
+            STX   $DE
+            STA   $DC
+L0B0033     LDX   #$0000
+            LDA   #$0000
+            PHX
+            PHA
+            LDY   #$0002
+            LDA   [$DC],Y
+            TAX
+            LDA   [$DC]
+            JSL   L013333
+            BEQ   L0B0071
+            LDY   #$0002
+            LDA   [$DC],Y
+            TAX
+            LDA   [$DC]
+            PHX
+            PHA
+            PEA   ^L033CDD
+            PEA   L033CDD
+            JSL   L050256
+            PLY
+            PLY
+            PLY
+            PLY
+            LDA   $DC
+            CLC
+            ADC   #$0009
+            STA   $DC
+            BCC   L0B006D
+            INC   $DE
+L0B006D     INC   $D6
+            BRA   L0B0033
+L0B0071     BRL   L0B0197
+L0B0074     LDY   #$0002
+            LDA   [$E0],Y
+            TAX
+            LDA   [$E0]
+            STA   $E4
+            STX   $E6
+            LDA   [$E4]
+            AND   #$00FF
+            LDX   #$0000
+            PHX
+            PHA
+            LDA   #L037E33
+            LDX   #^L037E33
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $E4
+            STX   $E6
+            LDA   [$E4]
+            AND   #$00FF
+            AND   #$0001
+            TAY
+            BEQ   L0B00B8
+            LDY   #$0002
+            LDA   [$E0],Y
+            TAX
+            LDA   [$E0]
+            STA   $E4
+            STX   $E6
+            LDA   [$E4]
+            AND   #$00FF
+            BRA   L0B00D1
+L0B00B8     LDY   #$0002
+            LDA   [$E0],Y
+            TAX
+            LDA   [$E0]
+            STA   $E4
+            STX   $E6
+            LDA   [$E4]
+            AND   #$00FF
+            SEC
+            SBC   #$0061
+            CLC
+            ADC   #$0041
+L0B00D1     PHA
+            LDA   $F7
+            AND   #$00FF
+            PLX
+            STX   $E4
+            SEC
+            SBC   $E4
+            BEQ   L0B00F5
+            BVS   L0B00E4
+            EOR   #$8000
+L0B00E4     BPL   L0B00F5
+            LDA   $E0
+            CLC
+            ADC   #$0009
+            STA   $E0
+            BCC   L0B00F2
+            INC   $E2
+L0B00F2     BRL   L0B0074
+L0B00F5     LDX   $E2
+            LDA   $E0
+            STX   $DE
+            STA   $DC
+L0B00FD     LDX   #$0000
+            LDA   #$0000
+            PHX
+            PHA
+            LDY   #$0002
+            LDA   [$DC],Y
+            TAX
+            LDA   [$DC]
+            JSL   L013333
+            BNE   L0B0116
+            BRL   L0B0197
+L0B0116     LDY   #$0002
+            LDA   [$DC],Y
+            TAX
+            LDA   [$DC]
+            STA   $E4
+            STX   $E6
+            LDA   [$E4]
+            AND   #$00FF
+            LDX   #$0000
+            PHX
+            PHA
+            LDA   #L037E33
+            LDX   #^L037E33
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $E4
+            STX   $E6
+            LDA   [$E4]
+            AND   #$00FF
+            AND   #$0001
+            TAY
+            BEQ   L0B015A
+            LDY   #$0002
+            LDA   [$DC],Y
+            TAX
+            LDA   [$DC]
+            STA   $E4
+            STX   $E6
+            LDA   [$E4]
+            AND   #$00FF
+            BRA   L0B0173
+L0B015A     LDY   #$0002
+            LDA   [$DC],Y
+            TAX
+            LDA   [$DC]
+            STA   $E4
+            STX   $E6
+            LDA   [$E4]
+            AND   #$00FF
+            SEC
+            SBC   #$0061
+            CLC
+            ADC   #$0041
+L0B0173     PHA
+            LDA   $F9
+            AND   #$00FF
+            PLX
+            STX   $E4
+            SEC
+            SBC   $E4
+            BVS   L0B0184
+            EOR   #$8000
+L0B0184     BPL   L0B0197
+            LDA   $DC
+            CLC
+            ADC   #$0009
+            STA   $DC
+            BCC   L0B0192
+            INC   $DE
+L0B0192     INC   $D6
+            BRL   L0B00FD
+L0B0197     LDA   $D6
+            STA   $AE
+            LDA   $FF
+            LDX   #$0000
+            PEA   $0000
+            PEA   $0009
+            CLC
+            JSL   L013048
+            LDX   $E2
+            LDA   $E0
+            JSL   L012E77
+            PLA
+            PLX
+            SEC
+            SBC   #$0009
+            PHA
+            TXA
+            SBC   #$0000
+            TAX
+            PLA
+            STA   $E4
+            STX   $E6
+            LDA   #$0080
+            SEP   #$20
+            LDY   #$0004
+            STA   [$E4],Y
+            REP   #$20
+            LDA   $FF
+            STA   $DA
+            PEI   $DA
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$000A
+            PHA
+            JSL   L013F1E
+            PLY
+            PLY
+            PLY
+            LDA   $F7
+            AND   #$00FF
+            CMP   #$0020
+            BNE   L0B0211
+            PEI   $F1
+            PEI   $EF
+            PEA   ^L033CE4
+            PEA   L033CE4
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$FFC0
+            PHA
+            JSL   L01508C
+            TAY
+            TSC
+            CLC
+            ADC   #$000C
+            TCS
+            TYA
+            BRA   L0B023C
+L0B0211     LDA   $F9
+            AND   #$00FF
+            PHA
+            LDA   $F7
+            AND   #$00FF
+            PHA
+            PEI   $F1
+            PEI   $EF
+            PEA   ^L033CED
+            PEA   L033CED
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$FFC0
+            PHA
+            JSL   L01508C
+            TAY
+            TSC
+            CLC
+            ADC   #$0010
+            TCS
+            TYA
+L0B023C     PEA   $0000
+            TDC
+            CLC
+            ADC   #$FFC0
+            PHA
+            JSL   L013A1F
+            PLY
+            PLY
+            LDX   #$0000
+            TDC
+            CLC
+            ADC   #$FFC0
+            STX   $46
+            STA   $44
+            LDX   $E2
+            LDA   $E0
+            STX   $C4
+            STA   $C2
+            LDX   $E2
+            LDA   $E0
+            STX   $0E
+            STA   $0C
+            LDAL  L031DDC
+            TAX
+            LDAL  L031DDA
+            STX   $90
+            STA   $8E
+L0B0274     LDA   #$0001
+            BNE   L0B027C
+            BRL   L0B03A4
+L0B027C     PEA   $0000
+            TDC
+            CLC
+            ADC   #$00D8
+            PHA
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$000A
+            PHA
+            JSL   L01493B
+            PLY
+            PLY
+            PLY
+            PLY
+            STA   $DA
+            LDA   $D8
+            CMP   #$0002
+            BNE   L0B02E6
+            LDA   $DA
+            BEQ   L0B02E0
+            LDA   $DA
+            LDX   #$0000
+            PEA   $0000
+            PEA   $0009
+            CLC
+            JSL   L013048
+            LDX   $E2
+            LDA   $E0
+            JSL   L012E77
+            PLA
+            PLX
+            SEC
+            SBC   #$0009
+            PHA
+            TXA
+            SBC   #$0000
+            TAX
+            PLA
+            STA   $E4
+            STX   $E6
+            LDY   #$0004
+            LDA   [$E4],Y
+            AND   #$00FF
+            EOR   #$0080
+            SEP   #$20
+            LDY   #$0004
+            STA   [$E4],Y
+            REP   #$20
+L0B02E0     BRL   L0B03A4
+            BRL   L0B03A1
+L0B02E6     LDA   $DA
+            STA   $B4
+            LDA   $D8
+            CMP   #$0000
+            BNE   L0B0333
+            JSL   L014C78
+            LDA   $DA
+            LDX   #$0000
+            PEA   $0000
+            PEA   $0009
+            CLC
+            JSL   L013048
+            LDX   $E2
+            LDA   $E0
+            JSL   L012E77
+            PLA
+            PLX
+            SEC
+            SBC   #$0009
+            PHA
+            TXA
+            SBC   #$0000
+            TAX
+            PLA
+            STA   $E4
+            STX   $E6
+            LDY   #$0007
+            LDA   [$E4],Y
+            TAX
+            LDY   #$0005
+            LDA   [$E4],Y
+            PHX
+            PHA
+            JSL   L0133D4
+            PLY
+            PLY
+            BRA   L0B0397
+L0B0333     JSL   L014C78
+            LDA   $DA
+            LDX   #$0000
+            PEA   $0000
+            PEA   $0009
+            CLC
+            JSL   L013048
+            LDX   $E2
+            LDA   $E0
+            JSL   L012E77
+            PLA
+            PLX
+            SEC
+            SBC   #$0009
+            PHA
+            TXA
+            SBC   #$0000
+            TAX
+            PLA
+            STA   $E4
+            STX   $E6
+            LDY   #$0007
+            LDA   [$E4],Y
+            TAX
+            LDY   #$0005
+            LDA   [$E4],Y
+            PHX
+            PHA
+            PEA   ^L033CF9
+            PEA   L033CF9
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$FF80
+            PHA
+            JSL   L01508C
+            TAY
+            TSC
+            CLC
+            ADC   #$000C
+            TCS
+            TYA
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$FF80
+            PHA
+            JSL   L0133D4
+            PLY
+            PLY
+L0B0397     PEI   $FD
+            PEI   $FB
+            JSL   L0133D4
+            PLY
+            PLY
+L0B03A1     BRL   L0B0274
+L0B03A4     TAY
+            TSC
+            CLC
+            ADC   #$016A
+            TCS
+            TYA
+            PLD
+            RTL
+
+

dlld/terravision/source/ATLASES.X.S

@@ -0,0 +1,24 @@
+
+* TFBD generated externals
+*     (c) PHC 1992,93
+
+
+            EXT   L013048
+            EXT   L012E77
+            EXT   L0133D4
+            EXT   L031DDC
+            EXT   L031DDA
+            EXT   L013333
+            EXT   L050256
+            EXT   L013F1E
+            EXT   L01493B
+            EXT   L014C78
+            EXT   L013A1F
+            EXT   L01508C
+            EXT   L033CC5
+            EXT   L033CDD
+            EXT   L037E33
+            EXT   L033CE4
+            EXT   L033CED
+            EXT   L033CF9
+

dlld/terravision/source/DIRECT.S

@@ -0,0 +1,11 @@
+
+*---------------------------------------------------------*
+*     Disassembled with The Flaming Bird Disassembler     *
+*    (c) Phoenix corp. 1992,93  -  All rights reserved    *
+*---------------------------------------------------------*
+
+            REL
+
+L0E0000     ENT
+            DS    $1000
+

dlld/terravision/source/DOLESSON.X.S

@@ -0,0 +1,163 @@
+
+* TFBD generated externals
+*     (c) PHC 1992,93
+
+
+            EXT   L0133D4
+            EXT   L020002
+            EXT   L031DDC
+            EXT   L031DDA
+            EXT   L080498
+            EXT   L0A0F31
+            EXT   L012E82
+            EXT   L0200E0
+            EXT   L0200E2
+            EXT   L0200D4
+            EXT   L0200D2
+            EXT   L0200D8
+            EXT   L0200D6
+            EXT   L0D0522
+            EXT   L020052
+            EXT   L020074
+            EXT   L0D03D5
+            EXT   L0117E0
+            EXT   L012D95
+            EXT   L0804DD
+            EXT   L0A06DC
+            EXT   L0A061E
+            EXT   L0A0484
+            EXT   L0A0316
+            EXT   L0A021A
+            EXT   L01160B
+            EXT   L01151A
+            EXT   L0800C0
+            EXT   L0D0000
+            EXT   L0D0DEE
+            EXT   L0D097D
+            EXT   L0D1184
+            EXT   L0D127E
+            EXT   L0D0637
+            EXT   L0D002A
+            EXT   L0D0198
+            EXT   L01200B
+            EXT   L011BFE
+            EXT   L011A39
+            EXT   L011C23
+            EXT   L0121F5
+            EXT   L0122B0
+            EXT   L011E16
+            EXT   L011C91
+            EXT   L011CAE
+            EXT   L01194F
+            EXT   L011976
+            EXT   L012E43
+            EXT   L011647
+            EXT   L020056
+            EXT   L020072
+            EXT   L020058
+            EXT   L031DFE
+            EXT   L031E0A
+            EXT   L0321A8
+            EXT   L031E10
+            EXT   L031E17
+            EXT   L031E21
+            EXT   L0322E7
+            EXT   L031E27
+            EXT   L03245E
+            EXT   L031E2F
+            EXT   L0324BE
+            EXT   L031E37
+            EXT   L03251E
+            EXT   L031E3F
+            EXT   L03257E
+            EXT   L031E47
+            EXT   L0329BD
+            EXT   L031E4F
+            EXT   L0325D4
+            EXT   L031E58
+            EXT   L03262A
+            EXT   L031E61
+            EXT   L032680
+            EXT   L031E6A
+            EXT   L0326D6
+            EXT   L031E73
+            EXT   L03272C
+            EXT   L031E7C
+            EXT   L032782
+            EXT   L031E85
+            EXT   L0327D8
+            EXT   L031E8E
+            EXT   L03282E
+            EXT   L031E97
+            EXT   L032884
+            EXT   L031EA0
+            EXT   L032A09
+            EXT   L031EA8
+            EXT   L032A61
+            EXT   L031EB1
+            EXT   L032AB9
+            EXT   L031EBA
+            EXT   L032AFC
+            EXT   L031EC3
+            EXT   L032B54
+            EXT   L031ECC
+            EXT   L032409
+            EXT   L031ED5
+            EXT   L031EDA
+            EXT   L031EDF
+            EXT   L031EE4
+            EXT   L032BC8
+            EXT   L031EE9
+            EXT   L032C24
+            EXT   L031EEF
+            EXT   L032C80
+            EXT   L031EF5
+            EXT   L032CDC
+            EXT   L031EFB
+            EXT   L032D38
+            EXT   L031F01
+            EXT   L032D98
+            EXT   L031F08
+            EXT   L032DF8
+            EXT   L031F0F
+            EXT   L032E58
+            EXT   L031F16
+            EXT   L031F1B
+            EXT   L031F25
+            EXT   L032E8D
+            EXT   L031F2F
+            EXT   L032320
+            EXT   L031F38
+            EXT   L031F48
+            EXT   L031F53
+            EXT   L031F63
+            EXT   L031F73
+            EXT   L031F7E
+            EXT   L0323AD
+            EXT   L031F8F
+            EXT   L031FA1
+            EXT   L033259
+            EXT   L031FB3
+            EXT   L03332C
+            EXT   L031FBF
+            EXT   L031FD0
+            EXT   L03333C
+            EXT   L031FE1
+            EXT   L032EC6
+            EXT   L031FEA
+            EXT   L032FE6
+            EXT   L031FF5
+            EXT   L032003
+            EXT   L0330CC
+            EXT   L03200E
+            EXT   L03201C
+            EXT   L032FF6
+            EXT   L032028
+            EXT   L0323D1
+            EXT   L032031
+            EXT   L032040
+            EXT   L0331F8
+            EXT   L03204F
+            EXT   L033249
+            EXT   L03205E
+

dlld/terravision/source/GLOBALS.S

@@ -0,0 +1,409 @@
+
+*---------------------------------------------------------*
+*     Disassembled with The Flaming Bird Disassembler     *
+*    (c) Phoenix corp. 1992,93  -  All rights reserved    *
+*---------------------------------------------------------*
+
+            REL
+
+L020000     ENT
+            DB    $00
+            DB    $00
+L020002     ENT
+            DB    $00
+            DB    $00
+L020004     ENT
+            DB    $00
+            DB    $00
+L020006     ENT
+            DB    $00
+            DB    $00
+L020008     ENT
+            DB    $00
+            DB    $00
+L02000A     ENT
+            DB    $00
+            DB    $00
+L02000C     ENT
+            DB    $00
+            DB    $00
+L02000E     ENT
+            DB    $00
+            DB    $00
+L020010     ENT
+            DB    $00
+            DB    $00
+L020012     ENT
+            DB    $00
+            DB    $00
+L020014     ENT
+            DB    $00
+            DB    $00
+L020016     ENT
+            DB    $00
+            DB    $00
+L020018     ENT
+            DB    $00
+            DB    $00
+L02001A     ENT
+            ADRL  L03002E
+L02001E     ENT
+            ADRL  L03006B
+L020022     ENT
+            ADRL  L0300A4
+L020026     ENT
+            ADRL  L0300D7
+L02002A     ENT
+            ADRL  L0300F9
+            DB    $FF
+            DB    $FF
+            DB    $FF
+            DB    $FF
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+L020038     ENT
+            DB    $00
+            DB    $00
+L02003A     ENT
+            DB    $00
+            DB    $00
+L02003C     ENT
+            DB    $00
+            DB    $00
+L02003E     ENT
+            DB    $00
+            DB    $00
+L020040     ENT
+            DB    $00
+            DB    $00
+L020042     ENT
+            DB    $00
+            DB    $00
+L020044     ENT
+            DB    $00
+            DB    $00
+L020046     ENT
+            DB    $00
+            DB    $00
+L020048     ENT
+            DB    $01
+            DB    $00
+L02004A     ENT
+            DB    $00
+            DB    $00
+L02004C     ENT
+            DB    $00
+            DB    $00
+L02004E     ENT
+            DB    $00
+            DB    $00
+L020050     ENT
+            DB    $00
+            DB    $00
+L020052     ENT
+            DB    $00
+            DB    $00
+L020054     ENT
+            DB    $00
+            DB    $00
+L020056     ENT
+            DB    $01
+            DB    $00
+L020058     ENT
+            DB    $01
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+L02006E     ENT
+            DB    $00
+            DB    $00
+L020070     ENT
+            DB    $00
+            DB    $00
+L020072     ENT
+            DB    $00
+            DB    $00
+L020074     ENT
+            DB    $00
+            DB    $00
+L020076     ENT
+            DB    $66
+            DB    $00
+L020078     ENT
+            DB    $00
+            DB    $00
+L02007A     ENT
+            DB    $00
+            DB    $00
+L02007C     ENT
+            DB    $00
+            DB    $00
+L02007E     ENT
+            DB    $00
+            DB    $00
+L020080     ENT
+            DB    $00
+            DB    $00
+L020082     ENT
+            DB    $00
+            DB    $00
+L020084     ENT
+            DB    $00
+            DB    $00
+L020086     ENT
+            DB    $00
+            DB    $00
+L020088     ENT
+            DB    $00
+            DB    $00
+L02008A     ENT
+            DB    $00
+            DB    $00
+L02008C     ENT
+            DB    $00
+            DB    $00
+L02008E     ENT
+            DB    $00
+            DB    $00
+L020090     ENT
+            DB    $00
+            DB    $00
+L020092     ENT
+            DB    $00
+            DB    $00
+L020094     ENT
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+L020098     ENT
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+L02009C     ENT
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+L0200A0     ENT
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+L0200A4     ENT
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+L0200A8     ENT
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+L0200AC     ENT
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+L0200B0     ENT
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+L0200B4     ENT
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+L0200B8     ENT
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+L0200BC     ENT
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+L0200C0     ENT
+            DB    $00
+            DB    $00
+L0200C2     ENT
+            DB    $00
+            DB    $00
+L0200C4     ENT
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+L0200C8     ENT
+            DB    $00
+            DB    $00
+            DB    $00
+            DB    $00
+L0200CC     ENT
+            DB    $00
+            DB    $00
+L0200CE     ENT
+            DB    $00
+            DB    $00
+L0200D0     ENT
+            DB    $00
+            DB    $00
+L0200D2     ENT
+            DB    $00
+            DB    $00
+L0200D4     ENT
+            DB    $00
+            DB    $00
+L0200D6     ENT
+            DB    $00
+            DB    $00
+L0200D8     ENT
+            DB    $00
+            DB    $00
+L0200DA     ENT
+            DB    $00
+            DB    $00
+L0200DC     ENT
+            DB    $00
+            DB    $00
+L0200DE     ENT
+            DB    $00
+            DB    $00
+L0200E0     ENT
+            DB    $00
+            DB    $00
+L0200E2     ENT
+            DB    $00
+            DB    $00
+L0200E4     ENT
+            DB    $00
+            DB    $00
+L0200E6     ENT
+            DB    $00
+            DB    $00
+L0200E8     ENT
+            DB    $00
+            DB    $00
+L0200EA     ENT
+            DB    $00
+            DB    $00
+L0200EC     ENT
+            DB    $01
+            DB    $00
+L0200EE     ENT
+            DB    $00
+            DB    $00
+L0200F0     ENT
+            DB    $00
+            DB    $00
+L0200F2     ENT
+            DB    $00
+            DB    $00
+L0200F4     ENT
+            DB    $00
+            DB    $00
+L0200F6     ENT
+            DB    $00
+            DB    $00
+L0200F8     ENT
+            DB    $00
+            DB    $00
+L0200FA     ENT
+            DB    $00
+            DB    $00
+L0200FC     ENT
+            DB    $00
+            DB    $00
+L0200FE     ENT
+            DB    $00
+            DB    $00
+L020100     ENT
+            DB    $01
+            DB    $00
+L020102     ENT
+            DB    $00
+L020103     ENT
+            DB    $00
+            DB    $00
+L020105     ENT
+            DB    $00
+            DB    $00
+L020107     ENT
+            DB    $00
+            DB    $00
+L020109     ENT
+            DB    $00
+            DB    $00
+L02010B     ENT
+            DB    $00
+            DB    $00
+L02010D     ENT
+            DB    $00
+            DB    $00
+L02010F     ENT
+            DB    $00
+            DB    $00
+L020111     ENT
+            DB    $00
+            DB    $00
+L020113     ENT
+            ADRL  L038E82
+L020117     ENT
+            DB    $00
+            DB    $00
+L020119     ENT
+            DB    $00
+            DB    $00
+L02011B     ENT
+            DB    $00
+            DB    $00
+L02011D     ENT
+            DB    $00
+            DB    $00
+L02011F     ENT
+            DB    $00
+            DB    $00
+L020121     ENT
+            DB    $00
+            DB    $00
+L020123     ENT
+            DB    $00
+            DB    $00
+L020125     ENT
+            DB    $01
+            DB    $00
+L020127     ENT
+            DB    $00
+            DB    $00
+L020129     ENT
+            DB    $00
+            DB    $00
+L02012B     ENT
+            DB    $00
+            DB    $00
+

dlld/terravision/source/GLOBALS.X.S

@@ -0,0 +1,12 @@
+
+* TFBD generated externals
+*     (c) PHC 1992,93
+
+
+            EXT   L03002E
+            EXT   L03006B
+            EXT   L0300A4
+            EXT   L0300D7
+            EXT   L0300F9
+            EXT   L038E82
+

dlld/terravision/source/GSDEBUG.S

@@ -0,0 +1,427 @@
+
+*---------------------------------------------------------*
+*     Disassembled with The Flaming Bird Disassembler     *
+*    (c) Phoenix corp. 1992,93  -  All rights reserved    *
+*---------------------------------------------------------*
+
+            REL
+
+L050000     PHD
+            TSC
+            SEC
+            SBC   #$00FB
+            TCD
+            ADC   #$00F2
+            TCS
+            LDX   #$0000
+            LDA   #$C20D
+            STA   $F6
+            STX   $F8
+            LDA   [$F6]
+            AND   #$00FF
+            PHA
+            LDA   #$C200
+            PLX
+            STX   $FA
+            CLC
+            ADC   $FA
+            STA   $F4
+            PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEA   $00C2
+            PEA   $0020
+            PEI   $F4
+            _FWEntry
+            PLA
+            PLA
+            STA   L020002
+            PLA
+            PLA
+            TSC
+            CLC
+            ADC   #$0008
+            TCS
+            PLD
+            RTL
+
+L050053     PHD
+            TSC
+            SEC
+            SBC   #$00F9
+            TCD
+            ADC   #$00F0
+            TCS
+            LDX   #$0000
+            LDA   #$C20F
+            STA   $F4
+            STX   $F6
+            LDA   [$F4]
+            AND   #$00FF
+            PHA
+            LDA   #$C200
+            PLX
+            STX   $F8
+            CLC
+            ADC   $F8
+            STA   $F2
+            PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEI   $FF
+            PEA   $00C2
+            PEA   $0020
+            PEI   $F2
+            _FWEntry
+            PLA
+            PLA
+            STA   L020002
+            PLA
+            PLA
+            TSC
+            CLC
+            ADC   #$0008
+            TCS
+            PLD
+            RTL
+
+L0500A5     PHD
+            TSC
+            SEC
+            SBC   #$00FB
+            TCD
+            ADC   #$00F2
+            TCS
+            LDX   #$0000
+            LDA   #$C20E
+            STA   $F6
+            STX   $F8
+            LDA   [$F6]
+            AND   #$00FF
+            PHA
+            LDA   #$C200
+            PLX
+            STX   $FA
+            CLC
+            ADC   $FA
+            STA   $F4
+            LDA   #$0000
+            BEQ   L0500D5
+            LDA   #$0000
+            BRA   L0500FA
+L0500D5     PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEA   $00C2
+            PEA   $0020
+            PEI   $F4
+            _FWEntry
+            PLA
+            PLA
+            STA   L020002
+            PLA
+            PLX
+L0500FA     TAY
+            TSC
+            CLC
+            ADC   #$0008
+            TCS
+            TYA
+            PLD
+            RTL
+
+L050104     PHD
+            TSC
+            SEC
+            SBC   #$00FB
+            TCD
+            ADC   #$00F2
+            TCS
+            LDX   #$0000
+            LDA   #$C210
+            STA   $F6
+            STX   $F8
+            LDA   [$F6]
+            AND   #$00FF
+            PHA
+            LDA   #$C200
+            PLX
+            STX   $FA
+            CLC
+            ADC   $FA
+            STA   $F4
+            LDA   #$0000
+            BEQ   L050134
+            LDA   #$0000
+            BRA   L050166
+L050134     PHP
+            PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEA   $0001
+            PEA   $00C2
+            PEA   $0020
+            PEI   $F4
+            _FWEntry
+            PLA
+            PLA
+            STA   L020002
+            PLA
+            PLP
+            PLP
+            BCC   L050162
+            LDA   #$0001
+            BRA   L050165
+L050162     LDA   #$0000
+L050165     PLP
+L050166     TAY
+            TSC
+            CLC
+            ADC   #$0008
+            TCS
+            TYA
+            PLD
+            RTL
+
+L050170     PHD
+            TSC
+            SEC
+            SBC   #$00F7
+            TCD
+            ADC   #$00F0
+            TCS
+            PEA   $0001
+            JSL   L050053
+            PLY
+L050183     LDA   [$FD]
+            AND   #$00FF
+            BEQ   L0501A5
+            LDX   $FF
+            LDA   $FD
+            INC   $FD
+            BNE   L050194
+            INC   $FF
+L050194     STA   $F2
+            STX   $F4
+            LDA   [$F2]
+            AND   #$00FF
+            PHA
+            JSL   L050053
+            PLY
+            BRA   L050183
+L0501A5     TSC
+            CLC
+            ADC   #$0006
+            TCS
+            PLD
+            RTL
+
+            PHD
+            TSC
+            SEC
+            SBC   #$00FB
+            TCD
+            ADC   #$00F4
+            TCS
+            JSL   L050000
+            PEA   ^L030130
+            PEA   L030130
+            JSL   L050170
+            PLY
+            PLY
+            PEA   ^L030133
+            PEA   L030133
+            JSL   L050170
+            PLY
+            PLY
+            PEA   ^L030136
+            PEA   L030136
+            JSL   L050170
+            PLY
+            PLY
+            PEA   ^L030139
+            PEA   L030139
+            JSL   L050170
+            PLY
+            PLY
+            PEA   ^L03013C
+            PEA   L03013C
+            JSL   L050170
+            PLY
+            PLY
+            PEA   ^L03013F
+            PEA   L03013F
+            JSL   L050170
+            PLY
+            PLY
+            PEA   ^L030142
+            PEA   L030142
+            JSL   L050170
+            PLY
+            PLY
+            PEA   ^L030145
+            PEA   L030145
+            JSL   L050170
+            PLY
+            PLY
+            PEA   ^L030148
+            PEA   L030148
+            JSL   L050170
+            PLY
+            PLY
+            PEA   ^L03014B
+            PEA   L03014B
+            JSL   L050170
+            PLY
+            PLY
+            PEA   ^L03014E
+            PEA   L03014E
+            JSL   L050170
+            PLY
+            PLY
+L050240     JSL   L050104
+            TAY
+            BEQ   L05024D
+            JSL   L0500A5
+            BRA   L050240
+L05024D     TSC
+            CLC
+            ADC   #$0006
+            TCS
+            PLD
+            RTL
+            RTL
+
+L050256     ENT
+            PHD
+            TSC
+            SEC
+            SBC   #$00F7
+            TCD
+            ADC   #$00F0
+            TCS
+            TSC
+            CLC
+            ADC   #$0006
+            TCS
+            PLD
+            RTL
+
+L050269     ENT
+            PHD
+            TSC
+            SEC
+            SBC   #$00F7
+            TCD
+            ADC   #$00F0
+            TCS
+            LDA   L020038
+            PHA
+            INC
+            STA   L020038
+            PLA
+            ASL
+            ASL
+            LDX   #$0000
+            PHX
+            PHA
+            LDA   #L030165
+            LDX   #^L030165
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $F2
+            STX   $F4
+            LDX   $FF
+            LDA   $FD
+            LDY   #$0002
+            PHA
+            TXA
+            STA   [$F2],Y
+            PLA
+            STA   [$F2]
+            PEI   $FF
+            PEI   $FD
+            PEA   ^L030150
+            PEA   L030150
+            JSL   L050256
+            PLY
+            PLY
+            PLY
+            PLY
+            TSC
+            CLC
+            ADC   #$0006
+            TCS
+            PLD
+            RTL
+
+L0502BC     ENT
+            PHD
+            TSC
+            SEC
+            SBC   #$00FB
+            TCD
+            ADC   #$00F4
+            TCS
+            LDA   L020038
+            DEC
+            STA   L020038
+            ASL
+            ASL
+            LDX   #$0000
+            PHX
+            PHA
+            LDA   #L030165
+            LDX   #^L030165
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $F6
+            STX   $F8
+            LDY   #$0002
+            LDA   [$F6],Y
+            TAX
+            LDA   [$F6]
+            PHX
+            PHA
+            PEA   ^L030159
+            PEA   L030159
+            JSL   L050256
+            PLY
+            PLY
+            PLY
+            PLY
+            TSC
+            CLC
+            ADC   #$0006
+            TCS
+            PLD
+            RTL
+
+            PHD
+            TSC
+            SEC
+            SBC   #$00FB
+            TCD
+            ADC   #$00F4
+            TCS
+            PEA   ^L030162
+            PEA   L030162
+            JSL   L050256
+            PLY
+            PLY
+            TSC
+            CLC
+            ADC   #$0006
+            TCS
+            PLD
+            RTL
+
+

dlld/terravision/source/GSDEBUG.X.S

@@ -0,0 +1,24 @@
+
+* TFBD generated externals
+*     (c) PHC 1992,93
+
+
+            EXT   L012E77
+            EXT   L020002
+            EXT   L020038
+            EXT   L030130
+            EXT   L030133
+            EXT   L030136
+            EXT   L030139
+            EXT   L03013C
+            EXT   L03013F
+            EXT   L030142
+            EXT   L030145
+            EXT   L030148
+            EXT   L03014B
+            EXT   L03014E
+            EXT   L030165
+            EXT   L030150
+            EXT   L030159
+            EXT   L030162
+

dlld/terravision/source/HANDLER.X.S

@@ -0,0 +1,118 @@
+
+* TFBD generated externals
+*     (c) PHC 1992,93
+
+
+            EXT   L013048
+            EXT   L012E77
+            EXT   L0133D4
+            EXT   L020002
+            EXT   L031DDC
+            EXT   L031DDA
+            EXT   L013333
+            EXT   L050256
+            EXT   L01493B
+            EXT   L014C78
+            EXT   L013003
+            EXT   L0B0000
+            EXT   L033C86
+            EXT   L0338EB
+            EXT   L033B90
+            EXT   L031DE0
+            EXT   L0718EE
+            EXT   L031DEE
+            EXT   L0D0522
+            EXT   L060000
+            EXT   L01457A
+            EXT   L014572
+            EXT   L020054
+            EXT   L020052
+            EXT   L020074
+            EXT   L032081
+            EXT   L032089
+            EXT   L032093
+            EXT   L03209E
+            EXT   L0320A8
+            EXT   L0320B3
+            EXT   L0320BD
+            EXT   L033359
+            EXT   L033342
+            EXT   L033375
+            EXT   L03335E
+            EXT   L033391
+            EXT   L03337A
+            EXT   L0333AD
+            EXT   L033396
+            EXT   L0333C9
+            EXT   L0333B2
+            EXT   L0333D6
+            EXT   L0333CE
+            EXT   L0333E3
+            EXT   L0333DB
+            EXT   L0333F0
+            EXT   L0333E8
+            EXT   L0333FD
+            EXT   L0333F5
+            EXT   L03340A
+            EXT   L033402
+            EXT   L033417
+            EXT   L03340F
+            EXT   L033427
+            EXT   L03341C
+            EXT   L03342C
+            EXT   L033433
+            EXT   L03343A
+            EXT   L033441
+            EXT   L033448
+            EXT   L03344F
+            EXT   L033457
+            EXT   L03345F
+            EXT   L033466
+            EXT   L03346D
+            EXT   L033477
+            EXT   L03347E
+            EXT   L033486
+            EXT   L03348E
+            EXT   L033496
+            EXT   L03349E
+            EXT   L0334A6
+            EXT   L0334AE
+            EXT   L0334B6
+            EXT   L0334BE
+            EXT   L0334C6
+            EXT   L0334CE
+            EXT   L0334E0
+            EXT   L0334ED
+            EXT   L0334FD
+            EXT   L033505
+            EXT   L033518
+            EXT   L033523
+            EXT   L03352E
+            EXT   L033536
+            EXT   L03353F
+            EXT   L033554
+            EXT   L03355F
+            EXT   L03356D
+            EXT   L03357C
+            EXT   L033598
+            EXT   L0335A5
+            EXT   L0335B9
+            EXT   L0335CD
+            EXT   L0335D2
+            EXT   L0335E6
+            EXT   L0335FD
+            EXT   L033611
+            EXT   L033616
+            EXT   L033626
+            EXT   L033630
+            EXT   L033638
+            EXT   L033647
+            EXT   L033654
+            EXT   L033663
+            EXT   L03883C
+            EXT   L038861
+            EXT   L038885
+            EXT   L0388A9
+            EXT   L0388C2
+            EXT   L0388F4
+

dlld/terravision/source/IMSFONT.S

@@ -0,0 +1,786 @@
+
+*---------------------------------------------------------*
+*     Disassembled with The Flaming Bird Disassembler     *
+*    (c) Phoenix corp. 1992,93  -  All rights reserved    *
+*---------------------------------------------------------*
+
+            REL
+
+L0C0000     ENT
+            PHD
+            TSC
+            SEC
+            SBC   #$00F5
+            TCD
+            ADC   #$00EB
+            TCS
+            LDA   $FF
+            SEC
+            SBC   #$0001
+            STA   $FF
+            LDA   $FF
+            LDX   #$0000
+            PHX
+            PHA
+            LDX   $FD
+            LDA   $FB
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $F0
+            STX   $F2
+            LDA   [$F0]
+            AND   #$00FF
+            ASL
+            ASL
+            ASL
+            ASL
+            SEP   #$20
+            STA   $EF
+            REP   #$20
+            LDA   $FF
+            STA   $ED
+            BRA   L0C00BB
+L0C003D     LDA   $ED
+            LDX   #$0000
+            TAY
+            BPL   L0C0046
+            DEX
+L0C0046     PHX
+            PHA
+            LDX   $FD
+            LDA   $FB
+            JSL   L012E77
+            PLA
+            PLX
+            SEC
+            SBC   #$0001
+            PHA
+            TXA
+            SBC   #$0000
+            TAX
+            PLA
+            STA   $F0
+            STX   $F2
+            LDA   [$F0]
+            AND   #$00FF
+            ASL
+            ASL
+            ASL
+            ASL
+            PHA
+            LDA   #$0004
+            PHA
+            LDA   $ED
+            LDX   #$0000
+            TAY
+            BPL   L0C0078
+            DEX
+L0C0078     PHX
+            PHA
+            LDX   $FD
+            LDA   $FB
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $F0
+            STX   $F2
+            LDA   [$F0]
+            AND   #$00FF
+            SEC
+            JSL   L013B5F
+            PLA
+            PLX
+            STX   $F4
+            ORA   $F4
+            PHA
+            LDA   $ED
+            LDX   #$0000
+            TAY
+            BPL   L0C00A2
+            DEX
+L0C00A2     PHX
+            PHA
+            LDX   $FD
+            LDA   $FB
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $F0
+            STX   $F2
+            PLA
+            SEP   #$20
+            STA   [$F0]
+            REP   #$20
+            DEC   $ED
+L0C00BB     LDA   $ED
+            SEC
+            SBC   #$0000
+            BEQ   L0C00CD
+            BVS   L0C00C8
+            EOR   #$8000
+L0C00C8     BPL   L0C00CD
+            BRL   L0C003D
+L0C00CD     LDA   $EF
+            AND   #$00FF
+            PHA
+            LDA   #$0004
+            PHA
+            LDA   [$FB]
+            AND   #$00FF
+            SEC
+            JSL   L013B5F
+            PLA
+            PLX
+            STX   $F4
+            ORA   $F4
+            SEP   #$20
+            STA   [$FB]
+            REP   #$20
+            TSC
+            CLC
+            ADC   #$0009
+            TCS
+            PLD
+            RTL
+
+L0C00F5     ENT
+            PHD
+            TSC
+            SEC
+            SBC   #$00F1
+            TCD
+            ADC   #$00D4
+            TCS
+            LDA   $FB
+            BRL   L0C0128
+L0C0105     LDA   #$0012
+            STA   $EA
+            LDA   #$FFDF
+            STA   $DE
+            BRL   L0C0136
+L0C0112     LDA   #$000C
+            STA   $EA
+            LDA   #$003E
+            STA   $DE
+            BRL   L0C0136
+L0C011F     BRL   L0C0136
+L0C0122     DA    L0C0105
+            DA    L0C0112
+            DA    L0C011F
+L0C0128     DEC
+            CMP   #$0002
+            BCC   L0C0131
+            LDA   #$0002
+L0C0131     ASL
+            TAX
+            JMP   (L0C0122,X)
+
+L0C0136     LDA   $FD
+            STA   $D8
+            LDA   $FF
+            STA   $D6
+            LDA   $FF
+            CLC
+            ADC   $EA
+            STA   $DA
+            LDA   $FD
+            STA   $E8
+            PEI   $F9
+            PEI   $F7
+            JSL   L0140CE
+            PLY
+            PLY
+            STA   $E6
+            STZ   $E4
+            BRL   L0C028D
+L0C015A     LDA   $E4
+            LDX   #$0000
+            PHX
+            PHA
+            LDX   $F9
+            LDA   $F7
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $EC
+            STX   $EE
+            LDA   [$EC]
+            AND   #$00FF
+            CLC
+            ADC   $DE
+            STA   $E0
+            LDA   $E4
+            LDX   #$0000
+            PHX
+            PHA
+            LDX   $F9
+            LDA   $F7
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $EC
+            STX   $EE
+            LDA   [$EC]
+            AND   #$00FF
+            CMP   #$0020
+            BEQ   L0C019B
+            BRL   L0C01D0
+L0C019B     LDA   $FB
+            BRL   L0C01BF
+L0C01A0     LDA   $E8
+            CLC
+            ADC   #$0006
+            STA   $E8
+            BRL   L0C01CD
+L0C01AB     LDA   $E8
+            CLC
+            ADC   #$0004
+            STA   $E8
+            BRL   L0C01CD
+L0C01B6     BRL   L0C01CD
+L0C01B9     DA    L0C01A0
+            DA    L0C01AB
+            DA    L0C01B6
+L0C01BF     DEC
+            CMP   #$0002
+            BCC   L0C01C8
+            LDA   #$0002
+L0C01C8     ASL
+            TAX
+            JMP   (L0C01B9,X)
+
+L0C01CD     BRL   L0C028B
+L0C01D0     LDA   $E4
+            LDX   #$0000
+            PHX
+            PHA
+            LDX   $F9
+            LDA   $F7
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $EC
+            STX   $EE
+            LDY   #$0001
+            LDA   [$EC],Y
+            AND   #$00FF
+            CMP   #$006A
+            BEQ   L0C01F5
+            BRL   L0C023E
+L0C01F5     LDA   $E4
+            LDX   #$0000
+            PHX
+            PHA
+            LDX   $F9
+            LDA   $F7
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $EC
+            STX   $EE
+            LDA   [$EC]
+            AND   #$00FF
+            BRL   L0C0220
+L0C0212     LDA   #$0001
+            STA   $E2
+            BRL   L0C023C
+L0C021A     STZ   $E2
+            BRA   L0C023C
+            BRA   L0C023C
+L0C0220     CMP   #$0067
+            BEQ   L0C0212
+            CMP   #$006A
+            BEQ   L0C0212
+            CMP   #$0070
+            BEQ   L0C0212
+            CMP   #$0071
+            BEQ   L0C0212
+            CMP   #$0079
+            BEQ   L0C0212
+            JMP   L0C021A
+
+L0C023C     BRA   L0C0260
+L0C023E     LDA   $E0
+            ASL
+            LDX   #$0000
+            PHX
+            PHA
+            LDA   #L033F26
+            LDX   #^L033F26
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $EC
+            STX   $EE
+            LDY   #$0001
+            LDA   [$EC],Y
+            AND   #$00FF
+            STA   $E2
+L0C0260     LDA   $E0
+            ASL
+            LDX   #$0000
+            PHX
+            PHA
+            LDA   #L033F26
+            LDX   #^L033F26
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $EC
+            STX   $EE
+            LDA   [$EC]
+            AND   #$00FF
+            CLC
+            ADC   $E2
+            PHA
+            LDA   $E8
+            PLX
+            STX   $F0
+            CLC
+            ADC   $F0
+            STA   $E8
+L0C028B     INC   $E4
+L0C028D     LDA   $E4
+            CMP   $E6
+            BCS   L0C0296
+            BRL   L0C015A
+L0C0296     LDA   $E8
+            STA   $DC
+            PEA   $000E
+            _SetSolidPenPat
+            BCS   L0C02A9
+            LDA   #$0000
+L0C02A9     STAL  L020002
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$00D6
+            PHA
+            _PaintRect
+            BCS   L0C02C2
+            LDA   #$0000
+L0C02C2     STAL  L020002
+            TSC
+            CLC
+            ADC   #$001C
+            TCS
+            PLD
+            RTL
+
+L0C02CE     ENT
+            PHD
+            TSC
+            SEC
+            SBC   #$00EF
+            TCD
+            ADC   #$00D0
+            TCS
+            LDA   $FF
+            AND   #$00FF
+            AND   #$000F
+            SEP   #$20
+            STA   $FF
+            REP   #$20
+            LDA   $F9
+            BRL   L0C0319
+L0C02EC     LDA   #$0012
+            STA   $E8
+            LDA   #$00B4
+            STA   $E6
+            LDA   #$FFDF
+            STA   $D2
+            BRL   L0C0327
+L0C02FE     LDA   #$000C
+            STA   $E8
+            LDA   #$00BA
+            STA   $E6
+            LDA   #$003E
+            STA   $D2
+            BRL   L0C0327
+L0C0310     BRL   L0C0327
+L0C0313     DA    L0C02EC
+            DA    L0C02FE
+            DA    L0C0310
+L0C0319     DEC
+            CMP   #$0002
+            BCC   L0C0322
+            LDA   #$0002
+L0C0322     ASL
+            TAX
+            JMP   (L0C0313,X)
+
+L0C0327     LDA   $FD
+            CMP   #$000C
+            BEQ   L0C0336
+            BCC   L0C0336
+            LDA   $FD
+            CMP   $E6
+            BCC   L0C0345
+L0C0336     PEA   ^L0364D7
+            PEA   L0364D7
+            JSL   L050256
+            PLY
+            PLY
+            BRL   L0C0617
+L0C0345     LDA   $FB
+            STA   $E4
+            PEI   $F7
+            PEI   $F5
+            JSL   L0140CE
+            PLY
+            PLY
+            STA   $E2
+            STZ   $E0
+            BRL   L0C060E
+L0C035A     LDA   $E0
+            LDX   #$0000
+            PHX
+            PHA
+            LDX   $F7
+            LDA   $F5
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $EA
+            STX   $EC
+            LDA   [$EA]
+            AND   #$00FF
+            CLC
+            ADC   $D2
+            STA   $D4
+            LDA   $E0
+            LDX   #$0000
+            PHX
+            PHA
+            LDX   $F7
+            LDA   $F5
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $EA
+            STX   $EC
+            LDA   [$EA]
+            AND   #$00FF
+            CMP   #$0020
+            BEQ   L0C039B
+            BRL   L0C03D0
+L0C039B     LDA   $F9
+            BRL   L0C03BF
+L0C03A0     LDA   $E4
+            CLC
+            ADC   #$0006
+            STA   $E4
+            BRL   L0C03CD
+L0C03AB     LDA   $E4
+            CLC
+            ADC   #$0004
+            STA   $E4
+            BRL   L0C03CD
+L0C03B6     BRL   L0C03CD
+L0C03B9     DA    L0C03A0
+            DA    L0C03AB
+            DA    L0C03B6
+L0C03BF     DEC
+            CMP   #$0002
+            BCC   L0C03C8
+            LDA   #$0002
+L0C03C8     ASL
+            TAX
+            JMP   (L0C03B9,X)
+
+L0C03CD     BRL   L0C060C
+L0C03D0     LDA   $D4
+            ASL
+            LDX   #$0000
+            PHX
+            PHA
+            LDA   #L033F26
+            LDX   #^L033F26
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $EA
+            STX   $EC
+            LDA   [$EA]
+            AND   #$00FF
+            CMP   #$0000
+            BNE   L0C041D
+            LDA   $E0
+            LDX   #$0000
+            PHX
+            PHA
+            LDX   $F7
+            LDA   $F5
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $EA
+            STX   $EC
+            LDA   [$EA]
+            AND   #$00FF
+            PHA
+            PEA   ^L03650B
+            PEA   L03650B
+            JSL   L050256
+            PLY
+            PLY
+            PLY
+            BRL   L0C060C
+L0C041D     LDA   #$0002
+            PHA
+            LDA   $D4
+            ASL
+            LDX   #$0000
+            PHX
+            PHA
+            LDA   #L033F26
+            LDX   #^L033F26
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $EA
+            STX   $EC
+            LDA   [$EA]
+            AND   #$00FF
+            SEC
+            JSL   L012E82
+            PLY
+            CLC
+            ADC   #$0001
+            STA   $DE
+            LDA   $DE
+            PHA
+            LDA   $E8
+            CLC
+            JSL   L013003
+            PLA
+            STA   $DC
+            LDA   $D4
+            ASL
+            LDX   #$0000
+            PHX
+            PHA
+            LDA   #L033F26
+            LDX   #^L033F26
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $EA
+            STX   $EC
+            LDA   [$EA]
+            AND   #$00FF
+            PHA
+            LDA   $E4
+            PLX
+            STX   $EE
+            CLC
+            ADC   $EE
+            STA   $DA
+            PEI   $DC
+            LDA   $D4
+            ASL
+            ASL
+            LDX   #$0000
+            PHX
+            PHA
+            LDA   #L0361DF
+            LDX   #^L0361DF
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $EA
+            STX   $EC
+            LDY   #$0002
+            LDA   [$EA],Y
+            TAX
+            LDA   [$EA]
+            PHX
+            PHA
+            PEA   ^L036578
+            PEA   L036578
+            JSL   L013E61
+            PLY
+            PLY
+            PLY
+            PLY
+            PLY
+            LDA   #$0002
+            PHA
+            LDA   $E4
+            CLC
+            JSL   L012E82
+            PLA
+            TAY
+            BEQ   L0C04D1
+            PEI   $DC
+            PEA   ^L036578
+            PEA   L036578
+            JSL   L0C0000
+            PLY
+            PLY
+            PLY
+L0C04D1     LDA   $FF
+            AND   #$00FF
+            CMP   #$000F
+            BEQ   L0C04F9
+            LDA   $FF
+            AND   #$00FF
+            PHA
+            LDA   #$000F
+            AND   #$00FF
+            PHA
+            PEI   $DC
+            PEA   ^L036578
+            PEA   L036578
+            JSL   L013D40
+            PLY
+            PLY
+            PLY
+            PLY
+            PLY
+L0C04F9     LDA   #$0002
+            PHA
+            LDA   $E4
+            CLC
+            JSL   L012E82
+            PLA
+            TAY
+            BEQ   L0C0510
+            LDA   $E4
+            SEC
+            SBC   #$0001
+            BRA   L0C0512
+L0C0510     LDA   $E4
+L0C0512     STA   $D8
+            LDA   $DA
+            CMP   #$013F
+            BEQ   L0C051D
+            BCS   L0C0545
+L0C051D     PEI   $DE
+            PEI   $DC
+            PEA   $000E
+            PEA   $0020
+            PEI   $FD
+            PEI   $D8
+            PEA   $00E1
+            PEA   $2000
+            PEA   ^L036578
+            PEA   L036578
+            JSL   L014D17
+            TAY
+            TSC
+            CLC
+            ADC   #$0014
+            TCS
+            TYA
+            BRA   L0C0551
+L0C0545     PEA   ^L036542
+            PEA   L036542
+            JSL   L050256
+            PLY
+            PLY
+L0C0551     LDA   $E0
+            LDX   #$0000
+            PHX
+            PHA
+            LDX   $F7
+            LDA   $F5
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $EA
+            STX   $EC
+            LDY   #$0001
+            LDA   [$EA],Y
+            AND   #$00FF
+            CMP   #$006A
+            BEQ   L0C0576
+            BRL   L0C05BF
+L0C0576     LDA   $E0
+            LDX   #$0000
+            PHX
+            PHA
+            LDX   $F7
+            LDA   $F5
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $EA
+            STX   $EC
+            LDA   [$EA]
+            AND   #$00FF
+            BRL   L0C05A1
+L0C0593     LDA   #$0001
+            STA   $D6
+            BRL   L0C05BD
+L0C059B     STZ   $D6
+            BRA   L0C05BD
+            BRA   L0C05BD
+L0C05A1     CMP   #$0067
+            BEQ   L0C0593
+            CMP   #$006A
+            BEQ   L0C0593
+            CMP   #$0070
+            BEQ   L0C0593
+            CMP   #$0071
+            BEQ   L0C0593
+            CMP   #$0079
+            BEQ   L0C0593
+            JMP   L0C059B
+
+L0C05BD     BRA   L0C05E1
+L0C05BF     LDA   $D4
+            ASL
+            LDX   #$0000
+            PHX
+            PHA
+            LDA   #L033F26
+            LDX   #^L033F26
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $EA
+            STX   $EC
+            LDY   #$0001
+            LDA   [$EA],Y
+            AND   #$00FF
+            STA   $D6
+L0C05E1     LDA   $D4
+            ASL
+            LDX   #$0000
+            PHX
+            PHA
+            LDA   #L033F26
+            LDX   #^L033F26
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $EA
+            STX   $EC
+            LDA   [$EA]
+            AND   #$00FF
+            CLC
+            ADC   $D6
+            PHA
+            LDA   $E4
+            PLX
+            STX   $EE
+            CLC
+            ADC   $EE
+            STA   $E4
+L0C060C     INC   $E0
+L0C060E     LDA   $E0
+            CMP   $E2
+            BCS   L0C0617
+            BRL   L0C035A
+L0C0617     TAY
+            TSC
+            CLC
+            ADC   #$001E
+            TCS
+            TYA
+            PLD
+            RTL
+
+

dlld/terravision/source/IMSFONT.X.S

@@ -0,0 +1,22 @@
+
+* TFBD generated externals
+*     (c) PHC 1992,93
+
+
+            EXT   L012E77
+            EXT   L020002
+            EXT   L050256
+            EXT   L013003
+            EXT   L0140CE
+            EXT   L012E82
+            EXT   L013B5F
+            EXT   L013E61
+            EXT   L013D40
+            EXT   L014D17
+            EXT   L033F26
+            EXT   L0364D7
+            EXT   L03650B
+            EXT   L0361DF
+            EXT   L036578
+            EXT   L036542
+

dlld/terravision/source/INTERACT.S

@@ -0,0 +1,617 @@
+
+*---------------------------------------------------------*
+*     Disassembled with The Flaming Bird Disassembler     *
+*    (c) Phoenix corp. 1992,93  -  All rights reserved    *
+*---------------------------------------------------------*
+
+            REL
+
+L080000     PHD
+            TSC
+            SEC
+            SBC   #$00F7
+            TCD
+            ADC   #$00F0
+            TCS
+            LDA   $FD
+            CLC
+            ADC   #$0010
+            LDX   $FF
+            BCC   L080016
+            INX
+L080016     TAY
+            TSC
+            CLC
+            ADC   #$0006
+            TCS
+            TYA
+            PLD
+            RTL
+
+L080020     PHD
+            TSC
+            SEC
+            SBC   #$00FB
+            TCD
+            ADC   #$00F4
+            TCS
+            LDX   L020046
+            LDA   L020044
+            STX   $F6
+            ORA   $F6
+            BNE   L08003A
+            BRL   L0800B8
+L08003A     LDX   #$0000
+            LDA   #$0032
+            PHX
+            PHA
+            LDX   L020046
+            LDA   L020044
+            STA   $F6
+            STX   $F8
+            LDY   #$0002
+            LDA   [$F6],Y
+            TAX
+            LDA   [$F6]
+            STA   $F6
+            STX   $F8
+            LDY   #$0022
+            LDA   [$F6],Y
+            TAX
+            LDY   #$0020
+            LDA   [$F6],Y
+            JSL   L013333
+            BEQ   L080070
+            BVS   L08006E
+            EOR   #$8000
+L08006E     BMI   L0800B8
+L080070     LDX   L020046
+            LDA   L020044
+            STA   $F6
+            STX   $F8
+            LDY   #$0002
+            LDA   [$F6],Y
+            TAX
+            LDA   [$F6]
+            STA   $F6
+            STX   $F8
+            LDX   $F8
+            LDA   #$0008
+            CLC
+            ADC   $F6
+            BCC   L080091
+            INX
+L080091     STX   L020070
+            STA   L02006E
+            PEA   $0000
+            LDX   L020046
+            LDA   L020044
+            PHX
+            PHA
+            _HiliteControl
+            BCS   L0800AE
+            LDA   #$0000
+L0800AE     STAL  L020002
+            STZ   L020044
+            STZ   L020046
+L0800B8     TSC
+            CLC
+            ADC   #$0006
+            TCS
+            PLD
+            RTL
+
+L0800C0     ENT
+            PHD
+            TSC
+            SEC
+            SBC   #$00DF
+            TCD
+            ADC   #$008C
+            TCS
+            STZ   $D8
+            STZ   $D6
+            LDA   #$0103
+            LDY   #$0004
+            STA   [$E5],Y
+            LDX   #$FFFF
+            LDA   #$FFFF
+            LDY   #$0002
+            PHA
+            TXA
+            STA   [$E5],Y
+            PLA
+            STA   [$E5]
+            PHA
+            PEA   $FFFF
+            PEA   $0000
+            _FlushEvents
+            BCS   L0800FA
+            LDA   #$0000
+L0800FA     STAL  L020002
+            PLA
+            PHX
+            PHA
+            _GetDblTime
+            BCS   L08010D
+            LDA   #$0000
+L08010D     STAL  L020002
+            PLA
+            PLX
+            STX   $CA
+            STA   $C8
+            STZ   $C0
+            STZ   $C2
+            STZ   $A0
+            STZ   $A2
+            LDX   #$0000
+            LDA   #$0F7D
+            STX   $BE
+            STA   $BC
+            LDA   L020050
+            STA   $9E
+L08012E     LDA   $D8
+            BEQ   L080135
+            BRL   L08048E
+L080135     LDX   $EF
+            LDA   $ED
+            STX   $DA
+            ORA   $DA
+            BEQ   L080165
+            LDA   $ED
+            LDX   $EF
+            JSL   L014572
+            TAY
+            BEQ   L080165
+            LDA   #$0103
+            LDY   #$0004
+            STA   [$E5],Y
+            LDX   #$0000
+            LDA   #$000D
+            LDY   #$0002
+            PHA
+            TXA
+            STA   [$E5],Y
+            PLA
+            STA   [$E5]
+            BRL   L08048E
+L080165     PHA
+            PEA   $FFFF
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$00A8
+            PHA
+            _TaskMaster
+            BCS   L08017E
+            LDA   #$0000
+L08017E     STAL  L020002
+            PLA
+            STA   $D0
+            LDA   $D0
+            CMP   #$0000
+            BNE   L0801D1
+            SEC
+            LDA   $B8
+            SBC   #$0000
+            BNE   L08019B
+            LDA   $BA
+            SBC   #$0000
+            BRA   L0801A2
+L08019B     LDA   $BA
+            SBC   #$0000
+            REP   #$02
+L0801A2     BEQ   L0801D1
+            LDX   $BA
+            LDA   $B8
+            STA   $9A
+            LDX   #$0000
+            LDA   #$0010
+            PHX
+            PHA
+            LDX   $BA
+            LDA   $B8
+            CLC
+            JSL   L013B83
+            PLA
+            PLX
+            STA   $9C
+            LDA   $9A
+            CMP   $9E
+            BNE   L0801D1
+            LDA   $9C
+            CMP   #$0001
+            BNE   L0801D1
+            LDA   #$0001
+            STA   $D6
+L0801D1     LDA   $D6
+            BEQ   L0801DF
+            LDA   $D0
+            CMP   #$0008
+            BEQ   L0801DF
+            BRL   L08012E
+L0801DF     LDX   $FB
+            LDA   $F9
+            STX   $DA
+            ORA   $DA
+            BEQ   L08022F
+            PHA
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$00A8
+            PHA
+            _IsDialogEvent
+            BCS   L0801FF
+            LDA   #$0000
+L0801FF     STAL  L020002
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$00A8
+            PHA
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$0096
+            PHA
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$0092
+            PHA
+            _DialogSelect
+            BCS   L08022A
+            LDA   #$0000
+L08022A     STAL  L020002
+            PLA
+L08022F     LDA   $D0
+            BRL   L080463
+L080234     PEA   $0000
+            TDC
+            CLC
+            ADC   #$00A8
+            PHA
+            JSL   L080000
+            PLY
+            PLY
+            STX   $CE
+            STA   $CC
+            LDA   [$CC]
+            LDY   #$0004
+            STA   [$E5],Y
+            PEA   $0000
+            LDY   #$0002
+            LDA   [$CC],Y
+            PHA
+            _HiliteMenu
+            BCS   L080263
+            LDA   #$0000
+L080263     STAL  L020002
+            LDA   #$0001
+            STA   $D8
+            BRL   L080483
+L08026F     PHX
+            PHA
+            _GetTick
+            BCS   L08027D
+            LDA   #$0000
+L08027D     STAL  L020002
+            PLA
+            PLX
+            STX   $C6
+            STA   $C4
+            PHA
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$00A4
+            PHA
+            PEI   $B4
+            PEI   $B2
+            PEI   $EB
+            PEI   $E9
+            _FindControl
+            BCS   L0802A5
+            LDA   #$0000
+L0802A5     STAL  L020002
+            PLA
+            STA   $D4
+            LDA   $D4
+            BRL   L0803A9
+L0802B1     LDY   #$0002
+            LDA   [$A4],Y
+            TAX
+            LDA   [$A4]
+            STA   $DA
+            STX   $DC
+            LDY   #$0022
+            LDA   [$DA],Y
+            TAX
+            LDY   #$0020
+            LDA   [$DA],Y
+            LDY   #$0002
+            PHA
+            TXA
+            STA   [$E5],Y
+            PLA
+            STA   [$E5]
+            LDX   $FF
+            LDA   $FD
+            STX   $DA
+            ORA   $DA
+            BEQ   L0802F8
+            LDX   $FF
+            LDA   $FD
+            PHX
+            PHA
+            LDY   #$0002
+            LDA   [$E5],Y
+            TAX
+            LDA   [$E5]
+            JSL   L013333
+            BCS   L0802F8
+            LDA   #$0001
+            STA   $D8
+            BRL   L08012E
+L0802F8     LDA   $A0
+            CMP   $A4
+            BNE   L080329
+            LDA   $A2
+            CMP   $A6
+            BNE   L080329
+            LDX   $CA
+            LDA   $C8
+            PHX
+            PHA
+            LDX   $C6
+            LDA   $C4
+            SEC
+            SBC   $C0
+            PHA
+            TXA
+            SBC   $C2
+            TAX
+            PLA
+            JSL   L013333
+            BEQ   L080329
+            BCC   L080329
+            LDA   #$0001
+            STA   $D8
+            BRL   L08012E
+            BRA   L080369
+L080329     JSL   L080020
+            LDY   #$0002
+            LDA   [$A4],Y
+            TAX
+            LDA   [$A4]
+            STA   $DA
+            STX   $DC
+            LDX   $DC
+            LDA   #$0008
+            CLC
+            ADC   $DA
+            BCC   L080344
+            INX
+L080344     STX   L020070
+            STA   L02006E
+            PEA   $0002
+            LDX   $A6
+            LDA   $A4
+            STX   L020046
+            STA   L020044
+            PHX
+            PHA
+            _HiliteControl
+            BCS   L080365
+            LDA   #$0000
+L080365     STAL  L020002
+L080369     LDX   $A6
+            LDA   $A4
+            STX   $A2
+            STA   $A0
+            BRL   L0803B8
+L080374     PHA
+            PEI   $B4
+            PEI   $B2
+            PEI   $F3
+            PEI   $F1
+            PEI   $A6
+            PEI   $A4
+            _TrackControl
+            BCS   L08038D
+            LDA   #$0000
+L08038D     STAL  L020002
+            PLA
+            STA   $D2
+            BRL   L0803B8
+L080397     JSL   L080020
+            BRL   L0803B8
+            BRL   L0803B8
+L0803A1     DA    L0802B1
+            DA    L080397
+            DA    L080374
+            STA   [$03],Y
+L0803A9     DEC
+            DEC
+            CMP   #$0003
+            BCC   L0803B3
+            LDA   #$0003
+L0803B3     ASL
+            TAX
+            JMP   (L0803A1,X)
+
+L0803B8     BRL   L080483
+L0803BB     LDX   $F7
+            LDA   $F5
+            STX   $DA
+            ORA   $DA
+            BEQ   L08043C
+            LDA   $AA
+            CMP   #$000D
+            BNE   L08043C
+            LDA   $AC
+            CMP   #$0000
+            BNE   L08043C
+            LDA   #$0103
+            LDY   #$0004
+            STA   [$E5],Y
+            LDX   #$0000
+            LDA   #$000D
+            LDY   #$0002
+            PHA
+            TXA
+            STA   [$E5],Y
+            PLA
+            STA   [$E5]
+            PEI   $F7
+            PEI   $F5
+            JSL   L012A2D
+            PLY
+            PLY
+            STX   $90
+            STA   $8E
+            STX   $DA
+            ORA   $DA
+            BEQ   L080437
+            JSL   L080020
+            LDY   #$0002
+            LDA   [$8E],Y
+            TAX
+            LDA   [$8E]
+            STA   $DA
+            STX   $DC
+            LDX   $DC
+            LDA   #$0008
+            CLC
+            ADC   $DA
+            BCC   L08041A
+            INX
+L08041A     STX   L020070
+            STA   L02006E
+            PEA   $0002
+            PEI   $90
+            PEI   $8E
+            _HiliteControl
+            BCS   L080433
+            LDA   #$0000
+L080433     STAL  L020002
+L080437     LDA   #$0001
+            STA   $D8
+L08043C     BRL   L080483
+L08043F     LDA   $9A
+            CMP   $9E
+            BEQ   L08045C
+            LDA   $D6
+            BEQ   L08045C
+            STZ   $D6
+            LDA   $9E
+            STA   $9A
+            LDA   #$0001
+            STA   $D8
+            LDA   #$0192
+            LDY   #$0004
+            STA   [$E5],Y
+L08045C     BRL   L080483
+L08045F     BRA   L080483
+            BRA   L080483
+L080463     CMP   #$0003
+            BNE   L08046B
+            BRL   L0803BB
+L08046B     CMP   #$0008
+            BEQ   L08043F
+            CMP   #$0011
+            BNE   L080478
+            BRL   L080234
+L080478     CMP   #$0013
+            BNE   L080480
+            BRL   L08026F
+L080480     JMP   L08045F
+
+L080483     LDX   $C6
+            LDA   $C4
+            STX   $C2
+            STA   $C0
+            BRL   L08012E
+L08048E     TAY
+            TSC
+            CLC
+            ADC   #$0052
+            TCS
+            TYA
+            PLD
+            RTL
+
+L080498     ENT
+            PHD
+            TSC
+            SEC
+            SBC   #$00F3
+            TCD
+            ADC   #$00EC
+            TCS
+            PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEA   $0000
+            PEI   $FF
+            PEI   $FD
+            PEI   $FB
+            PEI   $F9
+            JSL   L0800C0
+            TAY
+            TSC
+            CLC
+            ADC   #$001C
+            TCS
+            TYA
+            TSC
+            CLC
+            ADC   #$0006
+            TCS
+            PLD
+            RTL
+
+L0804DD     ENT
+            PHD
+            TSC
+            SEC
+            SBC   #$00E7
+            TCD
+            ADC   #$00E0
+            TCS
+            PEA   $0000
+            PEA   $0000
+            PEI   $FB
+            PEI   $F9
+            PEI   $FF
+            PEI   $FD
+            PEA   $0000
+            PEA   $0000
+            PEI   $F7
+            PEI   $F5
+            PEI   $F3
+            PEI   $F1
+            PEI   $EF
+            PEI   $ED
+            JSL   L0800C0
+            TAY
+            TSC
+            CLC
+            ADC   #$001C
+            TCS
+            TYA
+            TSC
+            CLC
+            ADC   #$0006
+            TCS
+            PLD
+            RTL
+
+

dlld/terravision/source/INTERACT.X.S

@@ -0,0 +1,16 @@
+
+* TFBD generated externals
+*     (c) PHC 1992,93
+
+
+            EXT   L020002
+            EXT   L013333
+            EXT   L014572
+            EXT   L013B83
+            EXT   L012A2D
+            EXT   L020046
+            EXT   L020044
+            EXT   L020070
+            EXT   L02006E
+            EXT   L020050
+

dlld/terravision/source/LAB.X.S

@@ -0,0 +1,98 @@
+
+* TFBD generated externals
+*     (c) PHC 1992,93
+
+
+            EXT   L0371B8
+            EXT   L013048
+            EXT   L0371BC
+            EXT   L0371BA
+            EXT   L012E77
+            EXT   L0133D4
+            EXT   L031DE8
+            EXT   L031DE6
+            EXT   L013C06
+            EXT   L0132E0
+            EXT   L020002
+            EXT   L031DDC
+            EXT   L031DDA
+            EXT   L013333
+            EXT   L050256
+            EXT   L036F18
+            EXT   L036F34
+            EXT   L036FA4
+            EXT   L036F6C
+            EXT   L036F50
+            EXT   L036F88
+            EXT   L036FC0
+            EXT   L013F1E
+            EXT   L01493B
+            EXT   L014C78
+            EXT   L080498
+            EXT   L0A0F31
+            EXT   L01335E
+            EXT   L031DD8
+            EXT   L013003
+            EXT   L012AB8
+            EXT   L0140CE
+            EXT   L014524
+            EXT   L013A1F
+            EXT   L013A8B
+            EXT   L012E82
+            EXT   L031DFA
+            EXT   L031DF8
+            EXT   L01508C
+            EXT   L0A0082
+            EXT   L013B17
+            EXT   L012FF8
+            EXT   L0B0000
+            EXT   L0138ED
+            EXT   L0200E0
+            EXT   L0200E2
+            EXT   L0200DA
+            EXT   L0200D4
+            EXT   L0200D2
+            EXT   L0200D8
+            EXT   L0200D6
+            EXT   L0371C6
+            EXT   L0371BE
+            EXT   L0371D6
+            EXT   L0371CE
+            EXT   L0376A2
+            EXT   L0371D7
+            EXT   L0370E9
+            EXT   L03720F
+            EXT   L037229
+            EXT   L03722D
+            EXT   L037233
+            EXT   L03700F
+            EXT   L037332
+            EXT   L037368
+            EXT   L0376B2
+            EXT   L03736A
+            EXT   L0376C2
+            EXT   L03736C
+            EXT   L03736E
+            EXT   L0373CA
+            EXT   L0373FA
+            EXT   L03742D
+            EXT   L0374F1
+            EXT   L0374F7
+            EXT   L0374FD
+            EXT   L037503
+            EXT   L037509
+            EXT   L03756B
+            EXT   L037587
+            EXT   L037593
+            EXT   L0375A1
+            EXT   L0375AD
+            EXT   L0375B9
+            EXT   L0375C7
+            EXT   L033C86
+            EXT   L0375D2
+            EXT   L0338EB
+            EXT   L0375DA
+            EXT   L033B90
+            EXT   L0375F1
+            EXT   L03760D
+

dlld/terravision/source/MAIN.X.S

@@ -0,0 +1,430 @@
+
+* TFBD generated externals
+*     (c) PHC 1992,93
+
+
+            EXT   L031DE8
+            EXT   L031DE6
+            EXT   L020002
+            EXT   L031DDC
+            EXT   L031DDA
+            EXT   L050256
+            EXT   L031DD8
+            EXT   L031DFA
+            EXT   L031DF8
+            EXT   L0200E0
+            EXT   L0200E2
+            EXT   L0C0000
+            EXT   L037E33
+            EXT   L031DE0
+            EXT   L031DEE
+            EXT   L020046
+            EXT   L020044
+            EXT   L020070
+            EXT   L02006E
+            EXT   L020050
+            EXT   L070E5B
+            EXT   L031DF2
+            EXT   L031DF4
+            EXT   L031DF0
+            EXT   L02004A
+            EXT   L02004E
+            EXT   L02004C
+            EXT   L020078
+            EXT   L020084
+            EXT   L020080
+            EXT   L02007C
+            EXT   L020090
+            EXT   L0200C0
+            EXT   L020088
+            EXT   L02008C
+            EXT   L037A96
+            EXT   L037BA1
+            EXT   L038E82
+            EXT   L020004
+            EXT   L0E0000
+            EXT   L03002A
+            EXT   L030028
+            EXT   L03002C
+            EXT   L040000
+            EXT   L031DD2
+            EXT   L031DD4
+            EXT   L031DD6
+            EXT   L031DEC
+            EXT   L031DEA
+            EXT   L0702E0
+            EXT   L090072
+            EXT   L050269
+            EXT   L031DDE
+            EXT   L033DF0
+            EXT   L0502BC
+            EXT   L037D5B
+            EXT   L037D59
+            EXT   L037D73
+            EXT   L037D71
+            EXT   L037D8B
+            EXT   L037D89
+            EXT   L031DFC
+            EXT   L031DE4
+            EXT   L031DE2
+            EXT   L037F47
+            EXT   L037F45
+            EXT   L0382FF
+            EXT   L0382FD
+            EXT   L037FA0
+            EXT   L037F39
+            EXT   L037F37
+            EXT   L037F35
+            EXT   L0C02CE
+            EXT   L031DF6
+            EXT   L070C78
+            EXT   L0C00F5
+            EXT   L038F13
+            EXT   L038F16
+            EXT   L038F15
+            EXT   L038F18
+            EXT   L038EA8
+            EXT   L038EB2
+            EXT   L038EE4
+            EXT   L038EB6
+            EXT   L038EE8
+            EXT   L038EB4
+            EXT   L038EE6
+            EXT   L038EB8
+            EXT   L038EEA
+            EXT   L038ECA
+            EXT   L038ECE
+            EXT   L038EC2
+            EXT   L038EE2
+            EXT   L038EE0
+            EXT   L038F4D
+            EXT   L038F4A
+            EXT   L038F4C
+            EXT   L038F48
+            EXT   L038F44
+            EXT   L038F46
+            EXT   L038F47
+            EXT   L037F49
+            EXT   L037F4D
+            EXT   L037F4B
+            EXT   L037F53
+            EXT   L037F55
+            EXT   L037F4F
+            EXT   L037F51
+            EXT   L038329
+            EXT   L03833D
+            EXT   L038337
+            EXT   L03833B
+            EXT   L038339
+            EXT   L038341
+            EXT   L03833F
+            EXT   L038331
+            EXT   L03832F
+            EXT   L03832D
+            EXT   L03832B
+            EXT   L038333
+            EXT   L038335
+            EXT   L038303
+            EXT   L038301
+            EXT   L038307
+            EXT   L038305
+            EXT   L03830B
+            EXT   L03830F
+            EXT   L03830D
+            EXT   L038309
+            EXT   L038323
+            EXT   L038321
+            EXT   L03831F
+            EXT   L038315
+            EXT   L038313
+            EXT   L020014
+            EXT   L020012
+            EXT   L020018
+            EXT   L020016
+            EXT   L02000A
+            EXT   L020008
+            EXT   L020006
+            EXT   L02000E
+            EXT   L020010
+            EXT   L020000
+            EXT   L02000C
+            EXT   L0200F4
+            EXT   L0200F2
+            EXT   L0200F0
+            EXT   L0200EE
+            EXT   L0200CC
+            EXT   L020048
+            EXT   L0200CE
+            EXT   L02007E
+            EXT   L020076
+            EXT   L0200D0
+            EXT   L0200DC
+            EXT   L0200EA
+            EXT   L0200E8
+            EXT   L0200E6
+            EXT   L0200E4
+            EXT   L0200DE
+            EXT   L0200F8
+            EXT   L0200F6
+            EXT   L020086
+            EXT   L02008E
+            EXT   L02008A
+            EXT   L020100
+            EXT   L0200EC
+            EXT   L0200FC
+            EXT   L0200FA
+            EXT   L0200FE
+            EXT   L020092
+            EXT   L0200C2
+            EXT   L020082
+            EXT   L020102
+            EXT   L020111
+            EXT   L02007A
+            EXT   L02010B
+            EXT   L020109
+            EXT   L02010F
+            EXT   L02010D
+            EXT   L020107
+            EXT   L020105
+            EXT   L020103
+            EXT   L020123
+            EXT   L020125
+            EXT   L020113
+            EXT   L020115
+            EXT   L020121
+            EXT   L02011B
+            EXT   L020119
+            EXT   L02011F
+            EXT   L02011D
+            EXT   L020117
+            EXT   L020127
+            EXT   L02012B
+            EXT   L020129
+            EXT   L030000
+            EXT   L030020
+            EXT   L031C39
+            EXT   L031C52
+            EXT   L031C65
+            EXT   L031C70
+            EXT   L031C8F
+            EXT   L031C9A
+            EXT   L031BEB
+            EXT   L031CBD
+            EXT   L031CDB
+            EXT   L031D10
+            EXT   L031DCA
+            EXT   L031D45
+            EXT   L031D77
+            EXT   L031DB2
+            EXT   L031DA5
+            EXT   L031DC4
+            EXT   L033DF2
+            EXT   L033DFD
+            EXT   L033E0B
+            EXT   L033E0E
+            EXT   L033E15
+            EXT   L033E20
+            EXT   L033E2B
+            EXT   L033D50
+            EXT   L033DD4
+            EXT   L033E35
+            EXT   L033DEA
+            EXT   L033E5F
+            EXT   L033E57
+            EXT   L033E92
+            EXT   L033E60
+            EXT   L033EC6
+            EXT   L033E6D
+            EXT   L033E77
+            EXT   L033E83
+            EXT   L033EE6
+            EXT   L033E8A
+            EXT   L033F06
+            EXT   L03778B
+            EXT   L037853
+            EXT   L03785F
+            EXT   L03786B
+            EXT   L037877
+            EXT   L037883
+            EXT   L03788F
+            EXT   L03789B
+            EXT   L037C86
+            EXT   L037C8E
+            EXT   L037C96
+            EXT   L037CC0
+            EXT   L037F63
+            EXT   L031BB1
+            EXT   L03812F
+            EXT   L03813D
+            EXT   L038140
+            EXT   L03809D
+            EXT   L037DBB
+            EXT   L037D95
+            EXT   L038343
+            EXT   L0380B9
+            EXT   L037DF9
+            EXT   L0380F6
+            EXT   L038103
+            EXT   L038106
+            EXT   L038117
+            EXT   L03811A
+            EXT   L0380CB
+            EXT   L0380D0
+            EXT   L0380D5
+            EXT   L0380DA
+            EXT   L0380DD
+            EXT   L0380E2
+            EXT   L0380E8
+            EXT   L0380ED
+            EXT   L0380F2
+            EXT   L038064
+            EXT   L03809A
+            EXT   L0380BE
+            EXT   L0380C2
+            EXT   L038050
+            EXT   L038055
+            EXT   L03805D
+            EXT   L037FA1
+            EXT   L03808F
+            EXT   L038066
+            EXT   L038069
+            EXT   L03806C
+            EXT   L038070
+            EXT   L038073
+            EXT   L038076
+            EXT   L038079
+            EXT   L03807C
+            EXT   L03807F
+            EXT   L038082
+            EXT   L038085
+            EXT   L038088
+            EXT   L03808B
+            EXT   L038044
+            EXT   L038049
+            EXT   L038092
+            EXT   L038095
+            EXT   L03808D
+            EXT   L038147
+            EXT   L038156
+            EXT   L038164
+            EXT   L038167
+            EXT   L038168
+            EXT   L038176
+            EXT   L038180
+            EXT   L038183
+            EXT   L038184
+            EXT   L038192
+            EXT   L0381A0
+            EXT   L0381A3
+            EXT   L0381A4
+            EXT   L0381B2
+            EXT   L0381C0
+            EXT   L0381C3
+            EXT   L0381C4
+            EXT   L0381D2
+            EXT   L0381E1
+            EXT   L0381E4
+            EXT   L0381E5
+            EXT   L0381F3
+            EXT   L038203
+            EXT   L038206
+            EXT   L038207
+            EXT   L038215
+            EXT   L038222
+            EXT   L038225
+            EXT   L038226
+            EXT   L038234
+            EXT   L03823E
+            EXT   L038241
+            EXT   L038242
+            EXT   L038250
+            EXT   L03825F
+            EXT   L038262
+            EXT   L038263
+            EXT   L038271
+            EXT   L03827E
+            EXT   L038281
+            EXT   L038282
+            EXT   L038290
+            EXT   L03829D
+            EXT   L0382A0
+            EXT   L0382A1
+            EXT   L0382AF
+            EXT   L0382BB
+            EXT   L0382BE
+            EXT   L0382BF
+            EXT   L0382CD
+            EXT   L0382DA
+            EXT   L0382DD
+            EXT   L0382DE
+            EXT   L0382EC
+            EXT   L0382F9
+            EXT   L0382FC
+            EXT   L037FB0
+            EXT   L037FDD
+            EXT   L0380A6
+            EXT   L0380AA
+            EXT   L0380AE
+            EXT   L0380B2
+            EXT   L0380B6
+            EXT   L038578
+            EXT   L038708
+            EXT   L037DCD
+            EXT   L038CA9
+            EXT   L0389E9
+            EXT   L0387C6
+            EXT   L0387C7
+            EXT   L0387C9
+            EXT   L0387CB
+            EXT   L0387CD
+            EXT   L0387DE
+            EXT   L0387EF
+            EXT   L0387F2
+            EXT   L0387F5
+            EXT   L0387F7
+            EXT   L0387F9
+            EXT   L0387FB
+            EXT   L0387FF
+            EXT   L038808
+            EXT   L03880A
+            EXT   L03880C
+            EXT   L03896F
+            EXT   L038977
+            EXT   L038965
+            EXT   L03871A
+            EXT   L038748
+            EXT   L03877A
+            EXT   L0387AA
+            EXT   L038991
+            EXT   L0389B8
+            EXT   L038CC9
+            EXT   L038CD1
+            EXT   L037E09
+            EXT   L038912
+            EXT   L03893A
+            EXT   L0380A0
+            EXT   L0380A3
+            EXT   L038984
+            EXT   L03898C
+            EXT   L03897A
+            EXT   L0380C6
+            EXT   L038CF2
+            EXT   L038EA6
+            EXT   L038EF4
+            EXT   L038006
+            EXT   L038027
+            EXT   L037DE1
+            EXT   L038F1A
+            EXT   L038F6A
+            EXT   L038F73
+            EXT   L038F7C
+            EXT   L038F85
+            EXT   L039006
+            EXT   L039008
+            EXT   L038FFD
+            EXT   L03910A
+            EXT   L039110
+            EXT   L039117
+            EXT   L03911F
+            EXT   L03900A
+

dlld/terravision/source/MEDIACLIP.X.S

@@ -0,0 +1,99 @@
+
+* TFBD generated externals
+*     (c) PHC 1992,93
+
+
+            EXT   L013048
+            EXT   L012E77
+            EXT   L0133D4
+            EXT   L020002
+            EXT   L031DDC
+            EXT   L031DDA
+            EXT   L013333
+            EXT   L014C78
+            EXT   L01335E
+            EXT   L013003
+            EXT   L0140CE
+            EXT   L014524
+            EXT   L013A1F
+            EXT   L013A8B
+            EXT   L012E82
+            EXT   L01508C
+            EXT   L0138ED
+            EXT   L013E61
+            EXT   L030C4C
+            EXT   L030C4A
+            EXT   L030C64
+            EXT   L030C62
+            EXT   L030C7C
+            EXT   L030C7A
+            EXT   L015B49
+            EXT   L0148CF
+            EXT   L013EB9
+            EXT   L014120
+            EXT   L013150
+            EXT   L015A6C
+            EXT   L031DF2
+            EXT   L031DF4
+            EXT   L013620
+            EXT   L031B0F
+            EXT   L031B11
+            EXT   L031DF0
+            EXT   L031B13
+            EXT   L015CDA
+            EXT   L015D04
+            EXT   L01310E
+            EXT   L013212
+            EXT   L0A08CC
+            EXT   L014421
+            EXT   L010921
+            EXT   L010AB3
+            EXT   L012F07
+            EXT   L020040
+            EXT   L02003E
+            EXT   L020042
+            EXT   L02003A
+            EXT   L02003C
+            EXT   L02004A
+            EXT   L02004E
+            EXT   L02004C
+            EXT   L030CA8
+            EXT   L030CC1
+            EXT   L030CDE
+            EXT   L030CEE
+            EXT   L030D07
+            EXT   L030D25
+            EXT   L030C86
+            EXT   L0314F3
+            EXT   L031AFF
+            EXT   L030DB2
+            EXT   L030F2A
+            EXT   L030FB0
+            EXT   L031B55
+            EXT   L030FB2
+            EXT   L031B65
+            EXT   L030FB4
+            EXT   L030FB6
+            EXT   L030FCB
+            EXT   L030FE5
+            EXT   L031097
+            EXT   L0310DF
+            EXT   L031BA5
+            EXT   L031BAB
+            EXT   L031165
+            EXT   L03121F
+            EXT   L031B15
+            EXT   L0312A5
+            EXT   L03137D
+            EXT   L031B35
+            EXT   L031403
+            EXT   L03140D
+            EXT   L031417
+            EXT   L031421
+            EXT   L031431
+            EXT   L03143E
+            EXT   L03144F
+            EXT   L0314BB
+            EXT   L0314DD
+            EXT   L0314F0
+

dlld/terravision/source/MENUSTUFF.S

@@ -0,0 +1,123 @@
+
+*---------------------------------------------------------*
+*     Disassembled with The Flaming Bird Disassembler     *
+*    (c) Phoenix corp. 1992,93  -  All rights reserved    *
+*---------------------------------------------------------*
+
+            REL
+
+L040000     ENT
+            PHD
+            TSC
+            SEC
+            SBC   #$00FB
+            TCD
+            ADC   #$00F4
+            TCS
+            PHX
+            PHA
+            LDX   L02002C
+            LDA   L02002A
+            PHX
+            PHA
+            _NewMenu
+            BCS   L040021
+            LDA   #$0000
+L040021     STAL  L020002
+            PEA   $0000
+            _InsertMenu
+            BCS   L040034
+            LDA   #$0000
+L040034     STAL  L020002
+            PHX
+            PHA
+            LDX   L020028
+            LDA   L020026
+            PHX
+            PHA
+            _NewMenu
+            BCS   L04004E
+            LDA   #$0000
+L04004E     STAL  L020002
+            PEA   $0000
+            _InsertMenu
+            BCS   L040061
+            LDA   #$0000
+L040061     STAL  L020002
+            PHX
+            PHA
+            LDX   L020024
+            LDA   L020022
+            PHX
+            PHA
+            _NewMenu
+            BCS   L04007B
+            LDA   #$0000
+L04007B     STAL  L020002
+            PEA   $0000
+            _InsertMenu
+            BCS   L04008E
+            LDA   #$0000
+L04008E     STAL  L020002
+            PHX
+            PHA
+            LDX   L020020
+            LDA   L02001E
+            PHX
+            PHA
+            _NewMenu
+            BCS   L0400A8
+            LDA   #$0000
+L0400A8     STAL  L020002
+            PEA   $0000
+            _InsertMenu
+            BCS   L0400BB
+            LDA   #$0000
+L0400BB     STAL  L020002
+            PHX
+            PHA
+            LDX   L02001C
+            LDA   L02001A
+            PHX
+            PHA
+            _NewMenu
+            BCS   L0400D5
+            LDA   #$0000
+L0400D5     STAL  L020002
+            PEA   $0000
+            _InsertMenu
+            BCS   L0400E8
+            LDA   #$0000
+L0400E8     STAL  L020002
+            PEA   $000F
+            PEA   $0000
+            PEA   $00F0
+            _SetBarColors
+            BCS   L040101
+            LDA   #$0000
+L040101     STAL  L020002
+            PEA   $0001
+            _FixAppleMenu
+            BCS   L040114
+            LDA   #$0000
+L040114     STAL  L020002
+            PHA
+            _FixMenuBar
+            BCS   L040125
+            LDA   #$0000
+L040125     STAL  L020002
+            PLA
+            PEA   $0001
+            PEA   $010C
+            _CheckMItem
+            BCS   L04013C
+            LDA   #$0000
+L04013C     STAL  L020002
+            TSC
+            CLC
+            ADC   #$0006
+            TCS
+            PLD
+            RTL
+
+

dlld/terravision/source/MENUSTUFF.X.S

@@ -0,0 +1,17 @@
+
+* TFBD generated externals
+*     (c) PHC 1992,93
+
+
+            EXT   L020002
+            EXT   L02002C
+            EXT   L02002A
+            EXT   L020028
+            EXT   L020026
+            EXT   L020024
+            EXT   L020022
+            EXT   L020020
+            EXT   L02001E
+            EXT   L02001C
+            EXT   L02001A
+

dlld/terravision/source/VIDEOPEDIA.S

@@ -0,0 +1,427 @@
+
+*---------------------------------------------------------*
+*     Disassembled with The Flaming Bird Disassembler     *
+*    (c) Phoenix corp. 1992,93  -  All rights reserved    *
+*---------------------------------------------------------*
+
+            REL
+
+L060000     ENT
+            PHD
+            TSC
+            SEC
+            SBC   #$00F7
+            TCD
+            ADC   #$FF7E
+            TCS
+            LDA   #L030909
+            LDX   #^L030909
+            STX   $F0
+            STA   $EE
+            STZ   $E4
+            LDA   $FD
+            AND   #$00FF
+            CMP   #$0020
+            BNE   L060052
+            LDX   $F0
+            LDA   $EE
+            STX   $EC
+            STA   $EA
+L060029     LDX   #$0000
+            LDA   #$0000
+            PHX
+            PHA
+            LDY   #$0002
+            LDA   [$EA],Y
+            TAX
+            LDA   [$EA]
+            JSL   L013333
+            BEQ   L06004F
+            LDA   $EA
+            CLC
+            ADC   #$0009
+            STA   $EA
+            BCC   L06004B
+            INC   $EC
+L06004B     INC   $E4
+            BRA   L060029
+L06004F     BRL   L060175
+L060052     LDY   #$0002
+            LDA   [$EE],Y
+            TAX
+            LDA   [$EE]
+            STA   $F2
+            STX   $F4
+            LDA   [$F2]
+            AND   #$00FF
+            LDX   #$0000
+            PHX
+            PHA
+            LDA   #L037E33
+            LDX   #^L037E33
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $F2
+            STX   $F4
+            LDA   [$F2]
+            AND   #$00FF
+            AND   #$0001
+            TAY
+            BEQ   L060096
+            LDY   #$0002
+            LDA   [$EE],Y
+            TAX
+            LDA   [$EE]
+            STA   $F2
+            STX   $F4
+            LDA   [$F2]
+            AND   #$00FF
+            BRA   L0600AF
+L060096     LDY   #$0002
+            LDA   [$EE],Y
+            TAX
+            LDA   [$EE]
+            STA   $F2
+            STX   $F4
+            LDA   [$F2]
+            AND   #$00FF
+            SEC
+            SBC   #$0061
+            CLC
+            ADC   #$0041
+L0600AF     PHA
+            LDA   $FD
+            AND   #$00FF
+            PLX
+            STX   $F2
+            SEC
+            SBC   $F2
+            BEQ   L0600D3
+            BVS   L0600C2
+            EOR   #$8000
+L0600C2     BPL   L0600D3
+            LDA   $EE
+            CLC
+            ADC   #$0009
+            STA   $EE
+            BCC   L0600D0
+            INC   $F0
+L0600D0     BRL   L060052
+L0600D3     LDX   $F0
+            LDA   $EE
+            STX   $EC
+            STA   $EA
+L0600DB     LDX   #$0000
+            LDA   #$0000
+            PHX
+            PHA
+            LDY   #$0002
+            LDA   [$EA],Y
+            TAX
+            LDA   [$EA]
+            JSL   L013333
+            BNE   L0600F4
+            BRL   L060175
+L0600F4     LDY   #$0002
+            LDA   [$EA],Y
+            TAX
+            LDA   [$EA]
+            STA   $F2
+            STX   $F4
+            LDA   [$F2]
+            AND   #$00FF
+            LDX   #$0000
+            PHX
+            PHA
+            LDA   #L037E33
+            LDX   #^L037E33
+            JSL   L012E77
+            PLA
+            PLX
+            STA   $F2
+            STX   $F4
+            LDA   [$F2]
+            AND   #$00FF
+            AND   #$0001
+            TAY
+            BEQ   L060138
+            LDY   #$0002
+            LDA   [$EA],Y
+            TAX
+            LDA   [$EA]
+            STA   $F2
+            STX   $F4
+            LDA   [$F2]
+            AND   #$00FF
+            BRA   L060151
+L060138     LDY   #$0002
+            LDA   [$EA],Y
+            TAX
+            LDA   [$EA]
+            STA   $F2
+            STX   $F4
+            LDA   [$F2]
+            AND   #$00FF
+            SEC
+            SBC   #$0061
+            CLC
+            ADC   #$0041
+L060151     PHA
+            LDA   $FF
+            AND   #$00FF
+            PLX
+            STX   $F2
+            SEC
+            SBC   $F2
+            BVS   L060162
+            EOR   #$8000
+L060162     BPL   L060175
+            LDA   $EA
+            CLC
+            ADC   #$0009
+            STA   $EA
+            BCC   L060170
+            INC   $EC
+L060170     INC   $E4
+            BRL   L0600DB
+L060175     PEA   $0001
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$0018
+            PHA
+            JSL   L013F1E
+            PLY
+            PLY
+            PLY
+            LDA   $E4
+            STA   $BC
+            LDA   $FD
+            AND   #$00FF
+            CMP   #$0020
+            BNE   L0601AF
+            PEA   ^L030BF4
+            PEA   L030BF4
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$FFC0
+            PHA
+            JSL   L01508C
+            PLY
+            PLY
+            PLY
+            PLY
+            BRA   L0601D6
+L0601AF     LDA   $FF
+            AND   #$00FF
+            PHA
+            LDA   $FD
+            AND   #$00FF
+            PHA
+            PEA   ^L030C05
+            PEA   L030C05
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$FFC0
+            PHA
+            JSL   L01508C
+            TAY
+            TSC
+            CLC
+            ADC   #$000C
+            TCS
+            TYA
+L0601D6     PEA   $0000
+            TDC
+            CLC
+            ADC   #$FFC0
+            PHA
+            JSL   L013A1F
+            PLY
+            PLY
+            LDA   #$0080
+            SEP   #$20
+            LDY   #$0004
+            STA   [$EE],Y
+            REP   #$20
+            LDA   #$0001
+            STA   $E8
+            LDX   $F0
+            LDA   $EE
+            STX   $D2
+            STA   $D0
+            LDX   $F0
+            LDA   $EE
+            STX   $1C
+            STA   $1A
+            LDAL  L031DDC
+            TAX
+            LDAL  L031DDA
+            STX   $9E
+            STA   $9C
+            LDX   #$0000
+            TDC
+            CLC
+            ADC   #$FFC0
+            STX   $54
+            STA   $52
+L06021F     LDA   #$0001
+            BNE   L060227
+            BRL   L060351
+L060227     PEA   $0000
+            TDC
+            CLC
+            ADC   #$00E6
+            PHA
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$0018
+            PHA
+            JSL   L01493B
+            PLY
+            PLY
+            PLY
+            PLY
+            STA   $E8
+            LDA   $E6
+            CMP   #$0002
+            BNE   L060291
+            LDA   $E8
+            BEQ   L06028B
+            LDA   $E8
+            LDX   #$0000
+            PEA   $0000
+            PEA   $0009
+            CLC
+            JSL   L013048
+            LDX   $F0
+            LDA   $EE
+            JSL   L012E77
+            PLA
+            PLX
+            SEC
+            SBC   #$0009
+            PHA
+            TXA
+            SBC   #$0000
+            TAX
+            PLA
+            STA   $F2
+            STX   $F4
+            LDY   #$0004
+            LDA   [$F2],Y
+            AND   #$00FF
+            EOR   #$0080
+            SEP   #$20
+            LDY   #$0004
+            STA   [$F2],Y
+            REP   #$20
+L06028B     BRL   L060351
+            BRL   L06034E
+L060291     LDA   $E8
+            STA   $C2
+            LDA   $E6
+            CMP   #$0000
+            BNE   L0602DE
+            JSL   L014C78
+            LDA   $E8
+            LDX   #$0000
+            PEA   $0000
+            PEA   $0009
+            CLC
+            JSL   L013048
+            LDX   $F0
+            LDA   $EE
+            JSL   L012E77
+            PLA
+            PLX
+            SEC
+            SBC   #$0009
+            PHA
+            TXA
+            SBC   #$0000
+            TAX
+            PLA
+            STA   $F2
+            STX   $F4
+            LDY   #$0007
+            LDA   [$F2],Y
+            TAX
+            LDY   #$0005
+            LDA   [$F2],Y
+            PHX
+            PHA
+            JSL   L0133D4
+            PLY
+            PLY
+            BRA   L060342
+L0602DE     LDA   $E8
+            LDX   #$0000
+            PEA   $0000
+            PEA   $0009
+            CLC
+            JSL   L013048
+            LDX   $F0
+            LDA   $EE
+            JSL   L012E77
+            PLA
+            PLX
+            SEC
+            SBC   #$0009
+            PHA
+            TXA
+            SBC   #$0000
+            TAX
+            PLA
+            STA   $F2
+            STX   $F4
+            LDY   #$0007
+            LDA   [$F2],Y
+            TAX
+            LDY   #$0005
+            LDA   [$F2],Y
+            PHX
+            PHA
+            PEA   ^L030C19
+            PEA   L030C19
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$FF80
+            PHA
+            JSL   L01508C
+            TAY
+            TSC
+            CLC
+            ADC   #$000C
+            TCS
+            TYA
+            JSL   L014C78
+            PEA   $0000
+            TDC
+            CLC
+            ADC   #$FF80
+            PHA
+            JSL   L0133D4
+            PLY
+            PLY
+L060342     PEA   ^L030C1D
+            PEA   L030C1D
+            JSL   L0133D4
+            PLY
+            PLY
+L06034E     BRL   L06021F
+L060351     TAY
+            TSC
+            CLC
+            ADC   #$0178
+            TCS
+            TYA
+            PLD
+            RTL
+
+

dlld/terravision/source/VIDEOPEDIA.X.S

@@ -0,0 +1,23 @@
+
+* TFBD generated externals
+*     (c) PHC 1992,93
+
+
+            EXT   L013048
+            EXT   L012E77
+            EXT   L0133D4
+            EXT   L031DDC
+            EXT   L031DDA
+            EXT   L013333
+            EXT   L013F1E
+            EXT   L01493B
+            EXT   L014C78
+            EXT   L013A1F
+            EXT   L01508C
+            EXT   L037E33
+            EXT   L030909
+            EXT   L030BF4
+            EXT   L030C05
+            EXT   L030C19
+            EXT   L030C1D
+

labellezohra/comprehension.txt

@@ -1,7 +1,7 @@
 La belle Zohra
 
 Le but du jeu
-Terminer les pŽchŽs capitaux
+Terminer les pŽchŽs capitaux => ben non, faut lire le readme.
 
 Je clique sur une image de la table
 => afficahge d'un pŽchŽ capital
@@ -32,6 +32,113 @@ OK	8	argent
 OK	10	image de fond
 OK	11	image de fond avec ic™nes
 
+-------------------------------
+
+*xy x : numero_objet
+    y : numero_peche
+&x : numero condition
+=x : consequence
+
+& ou = ------------------------
+ 0
+ 1 MYOPE
+ 2 APPAREIL
+ 3 SEDUCTION LUNETTES
+ 4 PLATRE
+ 5 HYACINTHE
+ 6 JAZZ
+ 7 ALLERGIES FELIX
+ 8 JOCELYN
+ 9 AMOUR SANS LUNETTES
+10 PETIT DEJEUNER PERE
+11 IMP FELIX
+12 FELIX PAS LAIT
+13 VISIONS JOSEPHINE
+14 PREMIERE FOIS1
+15 PREMIERE FOIS2
+16 RET. JOCELYN
+17 DOC JOSEPHINE
+18 STERILITE
+
+* ICONES
+1 
+2 gourmandise
+3 
+4 
+5 
+6 paresse
+7 
+
+* -----------------------------
+1 LUNETTES
+2 CUILLERE
+3 COEUR
+4 CARNET
+5 DICTION
+6 BIJOUX
+7 CLES
+8 ARGENT
+!		ICONES
+!  1 ORGUEIL	5
+!  2 AVARICE	1
+!  3 GOURMANDISE	2
+!  4 ENVIE		7
+!  5 LUXURE		3
+!  6 COLERE		4
+!  7 PARESSE	6
+!  !
+\  /
+ vv
+*11 LUNETTES+ORGUEIL
+*12 LUNETTES+AVARICE
+*13 LUNETTES+GOURMANDISE
+*14 LUNETTES+ENVIE
+*15 LUNETTES+LUXURE
+*17 LUNETTES+PARESSE
+*21 CUILLERE+ORGUEIL
+*22 CUILLERE+AVARICE
+*23 CUILLERE+GOURMANDISE
+*24 CUILLERE+ENVIE
+*26 CUILLERE+COLERE
+*27 CUILLERE+PARESSE
+*31 COEUR+ORGUEIL
+*32 COEUR+AVARICE
+*33 COEUR+GOURMANDISE
+*34 COEUR+ENVIE
+*35 COEUR+LUXURE
+*36 COEUR+COLERE
+*41 CARNET+ORGUEI
+*42 CARNET+AVARIC
+*43 CARNET+GOURMA
+*44 CARNET+ENVIE
+*45 CARNET+LUXURE
+*46 CARNET+COLERE
+*47 CARNET+PARESS
+*52 DICTI+AVARICE
+*54 DICTION+ENVIE
+*55 DICTI+LUXURE
+*56 DICT+COLERE
+*57 DICT+PARESSE
+*61 BIJOUX+ORGUEIL
+*62 BIJOUX+AVARICE
+*64 BIJOUX+ENVIE
+*65 BIJOUX+LUXURE
+*66 BIJOUX+COLERE
+*67 BIJOUX+PARESSE
+*71 CLES+ORGUEIL
+*72 CLES+AVARICE
+*73 CLES+GOURMANDISE
+*74 CLES+ENVIE
+*75 CLES+LUXURE
+*76 CLES+COLERE
+*77 CLES+PARESSE
+*81 ARGENT+ORGUEIL
+*82 ARGENT+AVARICE
+*83 ARGENT+GOUR
+*84 ARGENT+ENVIE
+*86 ARGENT+COLERE
+*87 ARGENT+PARESSE
+
 SONS
 	1cemonsi	
 	1safemme	
@@ -108,4 +215,14 @@ OK	8	Argent
 OK	Indics
 OK	RŽservŽ
 OK	Lisez-moi (mode d'emploi)
-Un fichier se termine par *FIN
+Un fichier se termine par *FIN
+
+---------------
+
+Au dŽbut, on a les lunettes uniquement
+Quand on clique sur les lunettes, <20>a fait appara”tre la col<6F>re (14)
+apr<EFBFBD>s avoir lu le premier texte, on fait appara”tre
+le carnet (4)
+le rouge (6)
+l'argent (8)
+puis quand je clique sur le carnet (4), j'ai l'ic™ne de l'avarice (2)