*
* Talking First Writer
*
* (c) 1989, Orange Cherry Software
* (s) 2021, Antoine Vignau
*

         mx    %00
         rel
         dsk   TFW.PRG
         lst   off

*----------------------------

TBCOLOR  EQU   $C022
CLOCKCTL EQU   $C034
GSOS     EQU   $E100A8

         use   4/Event.Macs
         use   4/Int.Macs
         use   4/Locator.Macs
         use   4/Mem.Macs
         use   4/Misc.Macs
         use   4/QD.Macs
         use   4/Sound.Macs
         use   4/Util.Macs

*----------------------------

         CLC
         XCE
         REP   #$30
         PHK
         PLB
         LDA   CLOCKCTL
         AND   #$FF00
         ORA   #$0000
         STA   CLOCKCTL
         LDA   TBCOLOR
         AND   #$FF00
         ORA   #$0000
         STA   TBCOLOR
         _TLStartUp
         PEA   $0000
         _MMStartUp
         JSR   L05E0
         PLA
         STA   L021E
         _MTStartUp
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0900
         LDA   L021E
         PHA
         PEA   $C005
         PEA   $0000
         PEA   $0000
         _NewHandle
         JSR   L05E0
         PLA
         STA   $00
         PLA
         STA   $02
         LDA   [$00]
         STA   L0226
         JSR   L05F1
         PHA
         PEA   $0001
         PEA   $0000
         PEA   $0140
         PEA   $0000
         PEA   $00C8
         LDA   L021E
         PHA
         _EMStartUp
         JSR   L05E0
         LDA   #$0300
         JSR   L05F4
         PHA
         PEA   $0000
         PEA   $0000
         LDA   L021E
         PHA
         _QDStartUp
         JSR   L05E0
         JSR   L05F1
         PHA
         _SoundStartUp
         JSR   L05E0
         PEA   ^L033E
         PEA   L033E
         _SetPortLoc
         PEA   ^L0326
         PEA   L0326
         PEA   $0000
         PEA   $0000
         PEA   $0140
         PEA   $00C8
         _SetRect
         PEA   ^L032E
         PEA   L032E
         PEA   $0000
         PEA   $0000
         PEA   $0140
         PEA   $00C8
         _SetRect
         PEA   ^L032E
         PEA   L032E
         _ClipRect
         JSR   L05E0
         PEA   $0000
         PEA   $0000
         _GetClipHandle
         PLA
         STA   L0370
         STA   L0386
         STA   L039C
         PLA
         STA   L0372
         STA   L0388
         STA   L039E
         JSR   L07D3
         LDA   L0893
         STA   L0350
         LDA   L0895
         STA   L0352
         LDA   CLOCKCTL
         AND   #$FF00
         ORA   #$0000
         STA   CLOCKCTL
         JSR   L08A5
         JSR   L0608
         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L02B3
         JSR   L05E0
         LDA   L02B3
         STA   L0885
         STA   L0285
         JSR   L0813
         JSR   L0846
         JSR   L0600
         JSR   L0634
         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L0287
         JSR   L05E0
         LDA   L0287
         STA   L0885
         STA   L0285
         JSR   L0813
         JSR   L0608
         JSR   L0846
         JSR   L0600
         LDA   CLOCKCTL
         AND   #$FF00
         ORA   #$0005
         STA   CLOCKCTL
         JSR   L0634
         LDA   CLOCKCTL
         AND   #$FF00
         ORA   #$0000
         STA   CLOCKCTL
         LDA   TBCOLOR
         AND   #$FF00
         ORA   #$0000
         STA   TBCOLOR
         _SoundShutDown
         _EMShutDown
         _QDShutDown
         _MTShutDown
         LDA   L021E
         PHA
         _DisposeAll
         JSR   L05E0
         LDA   L021E
         PHA
         _MMShutDown
         _TLShutDown
         JSL   GSOS
         DW    $0029      ; Quit
         ADRL  L0274
         STR   'INVALID SENTENCE'
         STR   'PICTURE NUMBER: '0000
         DB    $02
L021C    DB    $00
L021D    DB    $00
L021E    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L0226    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
         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
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L0258    DB    $00
         DB    $00
         DB    $00
         DB    $00
L025C    DW    $0000      ; event code
         ADRL  $00000000  ; event message
         ADRL  $00000000  ; tick count
         DW    $0000      ; mouse location
         DW    $0000
         DW    $0000      ; modifiers
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $1F
         DB    $00
         DB    $00
L0274    ADRL  L027A      ;  path name
         DW    $0000      ;  flags
L027A    STR   '0/MENU.PRG'
L0285    DW    $0000      ;  ref num
L0287    DW    $0000      ;  ref num
         ADRL  L0291      ;  path name
         ADRL  $00000000  ;  reserved
L0291    STR   '0/TITLE.PAC'
         DB    $00
         DB    $00
         ADRL  L02A7
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L02A7    STR   '0/TITLE.OBJ'
L02B3    DW    $0000      ;  ref num
         ADRL  L02BD      ;  path name
         ADRL  $00000000  ;  reserved
L02BD    STR   '0/ALTAR.PAC'
         DB    $00
         DB    $00
         ADRL  L02D3
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L02D3    STR   '0/WAIT.PAC'
         DB    $00
         DB    $00
         ADRL  L02E4
L02E4    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
         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
         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
         DB    $00
         DB    $00
         DB    $00
L0326    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L032E    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
L033E    DB    $00
         DB    $00
         DB    $00
         DB    $20
         DB    $E1
         DB    $00
         DB    $A0
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $40
         DB    $01
L034E    DB    $00
         DB    $00
L0350    DB    $00
         DB    $00
L0352    DB    $00
         DB    $00
         DB    $A0
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $40
         DB    $01
         ADRL  L033E
         ADRL  L033E
         ADRL  L0326
         ADRL  L032E
         DB    $00
         DB    $00
L0370    DB    $00
         DB    $00
L0372    DB    $00
         DB    $00
         ADRL  L034E
         ADRL  L033E
         ADRL  L0326
         ADRL  L032E
         DB    $00
         DB    $00
L0386    DB    $00
         DB    $00
L0388    DB    $00
         DB    $00
         ADRL  L033E
         ADRL  L034E
         ADRL  L0326
         ADRL  L032E
         DB    $00
         DB    $00
L039C    DB    $00
         DB    $00
L039E    DB    $00
         DB    $00
L03A0    DB    $00
         DB    $00
L03A2    DB    $00
         DB    $00
         DB    $00
         DB    $00
L03A6    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DW    $0019
         DW    $006D
         DW    $004A
         DW    $007D
         DW    $0050
         DW    $006D
         DW    $0081
         DW    $007D
         DW    $0087
         DW    $006D
         DW    $00B8
         DW    $007D
         DW    $00BE
         DW    $006D
         DW    $00EF
         DW    $007D
         DW    $00F5
         DW    $006D
         DW    $0126
         DW    $007D
         DW    $0019
         DW    $0083
         DW    $004A
         DW    $0093
         DW    $0050
         DW    $0083
         DW    $0081
         DW    $0093
         DW    $0087
         DW    $0083
         DW    $00B8
         DW    $0093
         DW    $00BE
         DW    $0083
         DW    $00EF
         DW    $0093
         DW    $00F5
         DW    $0083
         DW    $0126
         DW    $0093
         DW    $0019
         DW    $0099
         DW    $004A
         DW    $00A9
         DW    $0050
         DW    $0099
         DW    $0081
         DW    $00A9
         DW    $0087
         DW    $0099
         DW    $00B8
         DW    $00A9
         DW    $00BE
         DW    $0099
         DW    $00EF
         DW    $00A9
         DW    $00F5
         DW    $0099
         DW    $0126
         DW    $00A9
         DW    $0019
         DW    $00AF
         DW    $004A
         DW    $00BF
         DW    $0050
         DW    $00AF
         DW    $0081
         DW    $00BF
         DW    $0087
         DW    $00AF
         DW    $00B8
         DW    $00BF
         DW    $00BE
         DW    $00AF
         DW    $00EF
         DW    $00BF
         DW    $00F5
         DW    $00AF
         DW    $0126
         DW    $00BF
         DW    $0051
         DW    $0056
         DW    $0081
         DW    $0066
         DW    $0088
         DW    $0056
         DW    $00B8
         DW    $0066
         DW    $00BF
         DW    $0056
         DW    $00EF
         DW    $0066
         DW    $0121
         DW    $0040
         DW    $012F
         DW    $004F
         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
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         ADRL  L04D8
         ADRL  L04DC
         ADRL  L04E2
         ADRL  L04E6
         ADRL  L04EC
         ADRL  L04F0
         ADRL  L04F4
         ADRL  L04F8
         ADRL  L04FD
         ADRL  L0501
         ADRL  L0503
         ADRL  L0507
         ADRL  L050B
         ADRL  L0510
         ADRL  L0516
         ADRL  L051B
         ADRL  L0520
         ADRL  L0525
         ADRL  L052A
         ADRL  L052F
L04D8    STR   'dog'
L04DC    STR   'snack'
L04E2    STR   'box'
L04E6    STR   'finds'
L04EC    STR   'the'
L04F0    STR   'cat'
L04F4    STR   'car'
L04F8    STR   'runs'
L04FD    STR   'has'
L0501    STR   'a'
L0503    STR   'man'
L0507    STR   'pig'
L050B    STR   'eats'
L0510    STR   'likes'
L0516    STR   'bone'
L051B    STR   'girl'
L0520    STR   'bird'
L0525    STR   'sees'
L052A    STR   'rock'
L052F    STR   'sits'
         ADRL  L0584
         ADRL  L0588
         ADRL  L058E
         ADRL  L0592
         ADRL  L0598
         ADRL  L059C
         ADRL  L05A0
         ADRL  L05A4
         ADRL  L05A9
         ADRL  L05AD
         ADRL  L05AF
         ADRL  L05B3
         ADRL  L05B7
         ADRL  L05BC
         ADRL  L05C2
         ADRL  L05C7
         ADRL  L05CC
         ADRL  L05D1
         ADRL  L05D6
         ADRL  L05DB
L0584    STR   'Dog'
L0588    STR   'Snack'
L058E    STR   'Box'
L0592    STR   'Finds'
L0598    STR   'The'
L059C    STR   'Cat'
L05A0    STR   'Car'
L05A4    STR   'Runs'
L05A9    STR   'Has'
L05AD    STR   'A'
L05AF    STR   'Man'
L05B3    STR   'Pig'
L05B7    STR   'Eats'
L05BC    STR   'Likes'
L05C2    STR   'Bone'
L05C7    STR   'Girl'
L05CC    STR   'Bird'
L05D1    STR   'Sees'
L05D6    STR   'Rock'
L05DB    STR   'Sits'

L05E0    BCS   L05E3
         RTS

L05E3    PHA
         PEA   $0000
         PEA   $0000
         _SysFailMgr
L05F1    LDA   #$0100
L05F4    CLC
         LDY   L0226
         ADC   L0226
         STA   L0226
         TYA
         RTS

L0600    _GrafOn
         RTS

L0608    _GrafOff
         RTS

         _ShowCursor
         RTS

         _HideCursor
         RTS

L0620    JSR   L062A
         DEY
         CPY   #$0000
         BNE   L0620
         RTS

L062A    LDX   #$0000
L062D    INX
         CPX   #$4650
         BNE   L062D
         RTS

L0634    LDA   #$007D
         STA   L03A0
L063A    JSR   L062A
         DEC   L03A0
         LDA   L03A0
         CMP   #$0000
         BEQ   L0665
         PEA   $0000
         PEA   $0000
         _Button
         JSR   L05E0
         PLA
         CMP   #$0000
         BNE   L0661
         JMP   L063A

L0661    LDA   #$0000
         RTS

L0665    LDA   #$00FF
         RTS

L0669    PEA   $0000
         PEA   $FFFF
         PEA   ^L025C
         PEA   L025C
         _GetNextEvent
         PLA
         BEQ   L0669
         LDA   L025C
         CMP   #$0001
         BNE   L0669
         RTS

L0688    PEA   $0000
         PEA   $FFFF
         PEA   ^L025C
         PEA   L025C
         _GetNextEvent
         PLA
         BEQ   L0688
         LDA   L025C
         CMP   #$0002
         BNE   L0688
         RTS

L06A7    PEA   $0003
         PEA   $0009
         PEA   $0F00
         _SetColorEntry
         JSR   L06EB
         CMP   #$0000
         BNE   L06DA
         PEA   $0003
         PEA   $0009
         PEA   $0FF0
         _SetColorEntry
         JSR   L06EB
         CMP   #$0000
         BNE   L06DA
         JMP   L06A7

L06DA    PEA   $0003
         PEA   $0009
         PEA   $0797
         _SetColorEntry
         RTS

L06EB    PEA   $0000
         PEA   $FFFF
         PEA   ^L025C
         PEA   L025C
         _GetNextEvent
         PLA
         BEQ   L070D
         LDA   L025C
         CMP   #$0002
         BNE   L070D
         LDA   #$0001
         RTS

L070D    LDA   #$0000
         RTS

         STA   L0782
         CMP   #$000A
         BCC   L071F
         JSR   L0745
         JMP   L0744

L071F    CLC
         ADC   #$0030
         STA   L03A6
         LDA   L021D
         AND   #$FF00
         ORA   L03A6
         STA   L021D
         LDA   #$0020
         STA   L03A6
         LDA   L021C
         AND   #$FF00
         ORA   L03A6
         STA   L021C
L0744    RTS

L0745    PEA   $0000
         PEA   $0000
         LDA   L0782
         PHA
         PEA   $000A
         _UDivide
         PLA
         CLC
         ADC   #$0030
         STA   L03A6
         LDA   L021C
         AND   #$FF00
         ORA   L03A6
         STA   L021C
         PLA
         CLC
         ADC   #$0030
         STA   L03A6
         LDA   L021D
         AND   #$FF00
         ORA   L03A6
         STA   L021D
         RTS

L0782    BRK   $00
         LDA   L0258
         STA   L03A0
         AND   #$000F
         ASL
         ASL
         ASL
         ASL
         AND   #$00F0
         STA   L03A2
         LDA   L03A0
         AND   #$000F
         ORA   L03A2
         PHA
         PEA   $000F
         _SetSoundVolume
         RTS

         PEA   $0000
         PEA   $000F
         _GetSoundVolume
         PLA
         AND   #$00F0
         LSR
         LSR
         LSR
         LSR
         AND   #$000F
         CMP   #$0000
         BEQ   L07CD
L07C9    STA   L0258
         RTS

L07CD    LDA   #$0001
         JMP   L07C9

L07D3    PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $8000
         LDA   L021E
         PHA
         PEA   $C008
         PEA   $0000
         PEA   $0000
         _NewHandle
         JSR   L05E0
         PLA
         STA   $00
         PLA
         STA   $02
         LDY   #$0000
         LDA   [$00],Y
         STA   L0893
         LDY   #$0002
         LDA   [$00],Y
         STA   L0895
         LDA   #$8000
         STA   L089D
         RTS

L0813    LDA   #$0000
         STA   L088B+2
         LDA   #$8000
         STA   L088B
         LDA   L0895
         STA   L0887+2
         LDA   L0893
         STA   L0887
         JSL   GSOS
         DW    $0012      ; Read
         ADRL  L0885
         JSR   L05E0
         JSL   GSOS
         DW    $0014      ; Close
         ADRL  L0285
         JSR   L05E0
         RTS

L0846    LDA   #$00E1
         STA   L08A1
         LDA   #$2000
         STA   L089F
         LDA   #$8000
         STA   L08A3
L0858    PEA   $0000
         LDA   L0895
         PHA
         LDA   L0893
         PHA
         LDA   L088F
         PHA
         LDA   #^L089F
         PHA
         LDA   #L089F
         PHA
         LDA   #^L08A3
         PHA
         LDA   #L08A3
         PHA
         _UnPackBytes
         PLA
         LDA   L08A3
         BNE   L0858
         RTS

L0885    DW    $0000      ;  ref num
L0887    ADRL  $00000000  ;  buffer ptr
L088B    ADRL  $00000000  ;  request count
L088F    ADRL  $00000000  ;  transfer count
L0893    DB    $00
         DB    $00
L0895    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L089D    DB    $00
         DB    $00
L089F    DB    $00
         DB    $00
L08A1    DB    $00
         DB    $00
L08A3    DB    $00
         DB    $00

L08A5    JSL   GSOS
         DW    $0028      ; GetBootVol
         ADRL  L0A2A
         LDA   L0A2E
         AND   #$00FF
         STA   L0A84
         LDA   L0A70
         AND   #$00FF
         CMP   L0A84
         BEQ   L08C6
         JMP   L0907

L08C6    INC   L0A84
         LDY   #$0000
L08CC    LDA   L0A2E,Y
         AND   #$00FF
         STA   L0A86
         LDA   L0A70,Y
         AND   #$00FF
         CMP   L0A86
         BEQ   L08E3
         JMP   L0907

L08E3    INY
         CPY   L0A84
         BCS   L08EC
         JMP   L08CC

L08EC    JSL   GSOS
         DW    $0009      ; SetPrefix
         ADRL  L0A8A
         JSR   L05E0
         JSL   GSOS
         DW    $0009      ; SetPrefix
         ADRL  L0AA5
         jmp   L05E0

L0907    JSL   GSOS
         DW    $000A      ; GetPrefix
         ADRL  L0B50
         LDA   L0B56
         AND   #$00FF
         STA   L0A84
         INC   L0A84
         LDA   #$0001
         STA   L0A88
L0923    LDY   L0A88
         LDA   L0A7F,Y
         AND   #$00FF
         STA   L0A86
         LDY   L0A84
         LDA   L0B56,Y
         AND   #$FF00
         ORA   L0A86
         STA   L0B56,Y
         INC   L0A88
         INC   L0A84
         LDA   L0A88
         CMP   #$0005
         BCS   L094F
         JMP   L0923

L094F    LDA   L0B56
         AND   #$00FF
         CLC
         ADC   #$0004
         STA   L0A84
         LDA   L0B56
         AND   #$FF00
         ORA   L0A84
         STA   L0B56
         LDY   #$0000
L096B    LDA   L0B56,Y
         AND   #$00FF
         STA   L0A84
         LDA   L0AC6,Y
         AND   #$FF00
         ORA   L0A84
         STA   L0AC6,Y
         LDA   L0B0E,Y
         AND   #$FF00
         ORA   L0A84
         STA   L0B0E,Y
         INY
         CPY   #$0042
         BCS   L0995
         JMP   L096B

L0995    LDA   L0AC6
         AND   #$00FF
         CLC
         ADC   #$0001
         TAY
         LDA   L0AC6,Y
         AND   #$FF00
         ORA   #$0031
         STA   L0AC6,Y
         LDA   L0B0E,Y
         AND   #$FF00
         ORA   #$0032
         STA   L0B0E,Y
         INC   L0AC6
         INC   L0B0E
         JSL   GSOS
         DW    $0009      ; SetPrefix
         ADRL  L0AC0
         JSR   L05E0
         JSL   GSOS
         DW    $0009      ; SetPrefix
         ADRL  L0B08
         jmp   L05E0

* PEA $0004
* _SetTextMode
* PEA $000F
* _SetForeColor
* PEA $000A
* PEA $000A
* _MoveTo
* LDA #^L0AC6
* PHA
* LDA #L0AC6
* PHA
* _DrawString
* PEA $000A
* PEA $0014
* _MoveTo
* LDA #^L0B0E
* PHA
* LDA #L0B0E
* PHA
* _DrawString
* JSR L0669
* RTS

         DB    $00
         DB    $00
L0A2A    ADRL  L0A2E      ;  buffer ptr
L0A2E    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
         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
         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
         DB    $00
         DB    $00
         DB    $00
L0A70    STR   '/OC.BOOT.DISK/'
L0A7F    STR   'DATA'
L0A84    DB    $00
         DB    $00
L0A86    DB    $00
         DB    $00
L0A88    DB    $00
         DB    $00
L0A8A    DW    $0000      ;  prefix num
         ADRL  L0A90      ;  prefix ptr
L0A90    STR   '/OC.BOOT.DISK/DATA1/'
L0AA5    DW    $0007      ;  prefix num
         ADRL  L0AAB      ;  prefix ptr
L0AAB    STR   '/OC.PROG.DISK/DATA2/'
L0AC0    DW    $0000      ;  prefix num
         ADRL  L0AC6      ;  prefix ptr
L0AC6    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
         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
         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
         DB    $00
         DB    $00
         DB    $00
L0B08    DW    $0007      ;  prefix num
         ADRL  L0B0E      ;  prefix ptr
L0B0E    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
         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
         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
         DB    $00
         DB    $00
         DB    $00
L0B50    DW    $0001      ;  prefix num
         ADRL  L0B56      ;  prefix ptr
L0B56    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
         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
         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
         DB    $00
         DB    $00
         DB    $00
