*  Space Destroyers FOR THE APF MP-1000
*  -----------------------------
*  
*
*  Disassembled with DASMX by Adam Trionfo
*  
*  Version .01 - August 12, 2010
*  
*
*  Space Destroyers is the only APF cartridge that has RAM in it, which
*  makes it a bit unusual.  For this reason, simple memory map is useful:
*
*  6K ROM - $8000 - $97FF 
*  1K RAM - $9800 - $9BFF 


*  System ROM Routines

ISJOYUSED EQU   $40AB       ; Was the Joystick Used?
WRITESTR  EQU   $4144       ; Write String Routine
FILLSCRN  EQU   $4296       ; Fill the Screen with Black

*  Misc Equates  

EOS       EQU   $FF         ; End of String


          ORG   $8000       ; Start of Cartridge Area

*  The BIOS uses the first five bytes of the cartridge  

          FCB   $BB         ; Tell BIOS a cart is present
          FDB   MENUSTR     ; Points to Menu string on cartridge 
          FCB   '9'         ; Nine Choices for Start-Up Menu
          FCB   $00         ; Must be $00

L8005:
          SEI               ; Stop servicing Interrupts
          LDAA  #%00110100  ; Equals $34   
          STAA  $2003       ; Store in PIA

          JSR   FILLSCRN    ; System ROM Routine - Fill Alpha Screen with Black 

*  Fill Bottom 4 Rows of Graphics Mode Screen Map with Shape $02  

          LDAA  #$02        ; Object Shape Map - Object $02
          LDX   #$0100      ; Graphics Mode Screen Map - Row 9, Column 1
FILLOBJ2
          STAA  $00,X       ; Place Shape $02 on Graphics Mode Screen Map 
          INX               ; Increment Placement on Graphics Mode Screen Map               
          CPX   #$0180      ; Have 4 lines been filled with Object $02? 
          BNE   FILLOBJ2    ; If not, then continue filling with Object $02 

*  Place Initial Score (Five Zeros) on Middle of Top Row on Alpha Screen
          LDX   #$020D      ; Left-most area for zero of 5-digit score   
          BSR   WRITZEROS   ; Write five zeros to Alpha Screen

L8020:
          LDX   #$85E9
          STX   $01C5
          
*  Write "HOW MANY PLAYERS?" to Middle of Second-To-Top Row of Alpha Screen           
          LDX   #$40B9      ; "HOW MANY PLAYERS?" String
          STX   $0006
          LDX   #$0227      ; First byte of area to place string
          JSR   WRITESTR    ; System ROM Routine - Write String

*  Get Number of Players, 1 or 2 
GETPLAYRS
          JSR   ISJOYUSED   ; System ROM Routine - Was the Joystick Used? 
          CMPA  #'1'        ; Did user choose one player?
          BEQ   ONEPLGAME   ; Yes, User choose "One Player Game"
          CMPA  #'2'        ; Did user choose two player?
          BNE   GETPLAYRS   ; Not 1 or 2, so try again

*  Write Initial Player 2 Score and Number of Ships to Right of Alpha Screen 
          LDX   #$0214      ; Setup Ships to Draw to Right Side of Screen
          BSR   DRAWJOY     ; Draw the Initial Number of Ships (3) to Screen 
          LDX   #$021B      ; Alpha Screen, Row 2, Right Side of Screen
          BSR   WRITZEROS   ; Write five zeros to Alpha Screen

*  Write Initial Player 1 Score and Number of Ships to Left of Alpha Screen          
ONEPLGAME
          LDX   #$0205      ; Setup Ships to Draw to Left Side of Screen
          BSR   DRAWJOY     ; Draw the Initial Number of Ships (3) to Screen
          LDX   #$0200      ; Alpha Screen, Row 2, Left Side of Screen      
          BSR   WRITZEROS   ; Write five zeros to Alpha Screen
          BRA   L806E

*  Draw the Initial Number of Ships (3) to Alpha Screen
*  These ships are represented by "joysticks." 
*  This routine is called twice if there are two players, and only
*  once if there is one player.  This routine uses the previously 
*  setup X Register to determine which side of the screen to
*  write the joysticks on. 

DRAWJOY
          LDAA  #$81        ; APF ASCII $81 is Left-Side of "Joystick"
          STAA  $00,X       ; Draw Left-Side of Joystick Left Joystick
          STAA  $02,X       ; Draw Left-Side of Joystick Middle Joystick
          STAA  $04,X       ; Draw Left-Side of Joystick Right Joystick
          LDAA  #$8B        ; APF ASCII $8B is Right-Side of "Joystick"
          STAA  $01,X       ; Draw Right-Side of Joystick Left Joystick
          STAA  $03,X       ; Draw Right-Side of Joystick Middle Joystick
          STAA  $05,X       ; Draw Right-Side of Joystick Right Joystick
          RTS

*  Write Initial Score (Five Zeros) to Alpha Screen 
WRITZEROS
          LDAA  #'0'        ; Store ASCII zero in Accum A 
          LDAB  #$05        ; Setup to write (loop) five characters
WRITCHARS
          STAA  $00,X       ; Store zero on Alpha Screen
          INX               ; Increment to next area on screen to write to
          DECB              ; Decrease the number of characters left to write 
          BNE   WRITCHARS   ; If not done writing characters, then branch  
          RTS

L806E:
          LDAA  #%10110111  ; $B7
          STAA  $2003       ; Store in PIA

*  Clear Alpha Screen Row 1 to Bottom Row with Zero
          LDX   #$0220      ; Alpha Screen, Row 2, Column 1
FILLZEROS
          CLR   $00,X       ; Place Zero on Alpha Screen 
          INX               ; Increment to next area on screen to write to
          CPX   #$0400      ; Filled Row 2 to Bottom of Screen with 0's yet?
          BNE   FILLZEROS   ; If not done filling with zeros, then branch
          
*  Clear Cartridge RAM, $9BA6 - $9BFD (87 Bytes)
          LDX   #$9BA6      ; Cart On-Board RAM - Not sure what this does
*                             It is references VERY often (43 Times)

L8081:
          CLR   $00,X       ; Clear RAM
          INX               ; Increment to next byte of RAM to clear
          CPX   #$9BFE      ; Has 87 Bytes of RAM been cleared yet? 
          BNE   L8081       ; Keep clearing RAM if not all cleared yet       

*  Check if Player 2's Score is on the screen
*  If $021B is black, then the score is not on the screen  
          LDAA  $021B       ; Most Significant Digit of Player 2's Score         
          CMPA  #$80        ; APF ASCII $80 (Black)
          BNE   L8093       ; Branch if Player 2 score IS on the screen   
          INC   $9BFD

*  This deals with RAM on the cartridge.  Stuff is being moved around
*  using the Stack.  I'm not sure how this works yet.
L8093:
          LDX   #$97FE
          STX   $9B8E
          LDX   #$98A3
          STX   $9B90
          LDX   #$0020
          STX   $9B92       
          LDX   #$9B8E      ; New Location of Stack Pointer
          STX   $9BA6       ; Hold New Location of Stack Pointer 
          LDX   #$9B94
          LDAB  #$12
          JSR   L8424

          LDAA  #$14
          STAA  $9BE1
          STAA  $9BE2
          LDX   #$9590
          STX   $9BE5
          STX   $9BE7
          LDAA  #$37
          STAA  $9BAF
          STAA  $9BB1
          LDX   #$9650      
          STX   $9BA6       
          LDX   #$99C0
          LDAB  #$A4
          JSR   L8424

          LDX   #$95F0      
          STX   $9BA6       
          LDX   #$9A64
          LDAB  #$40
          JSR   L8424

          LDX   #$99C0      
          STX   $9BA6       
          LDX   #$9AA4
          LDAB  #$E4
          JSR   L8424

*  Notice that First Byte of Shape Table is $9360
          LDX   #$9360      ; This is not RAM, how can it be new location of SP      
          STX   $9BA6       ; Hold New Location of Stack Pointer
          LDX   #$0230
          LDAB  #$F0
          JSR   L8424

          LDX   #$9430
          STX   $9BA6
          LDX   #$0300
          LDAB  #$30
          JSR   L8424

          LDAA  #$FF
          STAA  $9BAC
          LDAA  #$C0
          STAA  $2002
          INC   $01FC
          JSR   L843F
L8122:
          TST   $9BBF
          BNE   L817B
          TST   $9BF0
          BNE   L814E
          TST   $9BEF
          BNE   L8141
          CLR   $01F9
          LDAA  $0203
          ORAA  $021D
          ORAA  #$20
          ANDA  #$2F
          STAA  $9BEF
L8141:
          LDAA  $01F9
          CMPA  $9BEF
          BEQ   L814B
          BLS   L814E
L814B:
          INC   $9BF0
L814E:
          TST   $9BB6
          BEQ   L8122
          LDX   $9BB6
          CLR   $9BB6
          LDAA  $00,X
          STAA  $9BB5
          LDX   $01,X
          STX   $9BB3
L8163:
          LDX   $9BB3
          LDAA  $2003
          EORA  #$08
          STAA  $2003
L816E:
          DEX
          BNE   L816E
          DEC   $9BB5
          BNE   L8163
          BRA   L8122

          FCB   $06, $03, $20

L817B:
          LDAA  $9BBF
          CMPA  #$02
          BEQ   L8192
          JSR   L83E6
          LDX   #$8408
          STX   $9BB6
          LDAA  #$02
          STAA  $9BBF
          BRA   L814E

L8192:
          LDX   $9BC3
          JSR   L83BE
          LDX   $9BD0
          JSR   L83BE
          LDX   $9BD6
          JSR   L83BE
          LDX   $9BE9
          JSR   L83BE
          LDX   $9BEC
          JSR   L83BE
          LDX   $9BE9
          INX
          JSR   L83BE
          LDX   $9BEC
          INX
          JSR   L83BE
          LDAB  #$1E
L81C0:
          WAI
          DECB
          BNE   L81C0
          LDAA  #$02
          LDX   #$0140
L81C9:
          STAA  $00,X
          INX
          CPX   #$0160
          BNE   L81C9
          LDAA  $9BAC
          CMPA  #$FD
          BEQ   L81FC
          BRA   L81DC
L81DA:
          BRA   L8252

L81DC:
          LDX   #$0205
          TST   $9BBC
          BEQ   L81E7
          LDX   #$0214
L81E7:
          LDAA  #$80
          LDAB  #$06
L81EB:
          STAA  $00,X
          INX
          DECB
          BNE   L81EB
          BRA   L81FC

L81F3:
          LDAB  #$1E
L81F5:
          WAI
          DECB
          BNE   L81F5
          INX
          INX
          RTS

L81FC:
          LDAB  #$1E
L81FE:
          WAI
          DECB
          BNE   L81FE
          TST   $9BBC
          BNE   L822C
          JSR   L82B0
          LDAA  #$80
          CMPA  $0219
          BEQ   L823B
L8211:
          JSR   L8511
          
*  Clear Seven Bytes of RAM on Cartridge 
L8214:
          CLR   $9BBF
          CLR   $9BF0
          CLR   $9BEF
          CLR   $9BEB
          CLR   $9BEE
          CLR   $9BCE
          CLR   $9BD4
          JMP   L814E

L822C:
          JSR   L82EB
          LDAA  #$80
          CMPA  $0205
          BEQ   L823B
L8236:
          JSR   L843F
          BRA   L8214

L823B:
          CMPA  $0219
          BNE   L8211
          CMPA  $0205
          BNE   L8236
          LDX   #$0200
          BSR   L8279
          LDX   #$021B
          BSR   L8279
          JMP   L81DA

L8252:
          SEI
          LDS   #$01E4
          CLR   $01FC
          LDAA  $2002
          ANDA  #$7F
          STAA  $2002
          LDAA  $2001
          ANDA  #$F7
          STAA  $2001
          LDAA  #$80
          LDX   #$0220
L826E:
          STAA  $00,X
          INX
          CPX   #$0400
          BNE   L826E
          JMP   L8020

L8279:
          LDAA  $00,X
          CMPA  #$80
          BEQ   L829F
          CMPA  $020D
          BHI   L82A0
          BNE   L829F
          LDAA  $01,X
          CMPA  $020E
          BHI   L82A0
          BNE   L829F
          LDAA  $02,X
          CMPA  $020F
          BHI   L82A0
          BNE   L829F
          LDAA  $03,X
          CMPA  $0210
          BHI   L82A0
L829F:
          RTS

L82A0:
          LDAA  $00,X
          STAA  $020D
          LDAA  $01,X
          STAA  $020E
          LDX   $02,X
          STX   $020F
          RTS

L82B0:
          LDX   $9B88
          INX
          INX
          STX   $9BA6
          LDX   #$99C0
          LDAB  #$A0
          JSR   L8424
          LDX   #$98E0
          STX   $9BA6
          LDX   #$9A64
          LDAB  #$40
          JSR   L8424
          LDAA  $9BAD
          STAA  $9BAF
          LDAA  $9BE0
          STAA  $9BE1
          LDX   $9BE3
          STX   $9BE5
          LDAA  $9BFB
          STAA  $9BAE
          LDX   #$9B8E
          BRA   L8324

L82EB:
          LDX   $9B88
          INX
          INX
          STX   $9BA6
          LDX   #$9AA4
          LDAB  #$A0
          JSR   L8424
          LDX   #$98E0
          STX   $9BA6
          LDX   #$9B48
          LDAB  #$40
          JSR   L8424
          LDAA  $9BAD
          STAA  $9BB1
          LDAA  $9BE0
          STAA  $9BE2
          LDX   $9BE3
          STX   $9BE7
          LDAA  $9BFB
          STAA  $9BB0
          LDX   #$9B9A
L8324:
          STX   $9BA8
          LDX   #$9B88
          STX   $9BA6
          LDX   $9BA8
          LDAB  #$06
          JSR   L8424
          LDX   #$0000
          LDAA  #$42
L833A:
          STAA  $00,X
          INX
          CPX   #$0100
          BNE   L833A
          LDAA  #$02
L8344:
          STAA  $00,X
          INX
          CPX   #$0140
          BNE   L8344
          LDX   #$9430
          STX   $9BA6
          LDX   #$0300
          LDAB  #$30
          JSR   L8424
          RTS

L835B:
          STX   $9BA8
          LDX   #$0140
          LDAA  #$02
L8363:
          STAA  $00,X
          INX
          CPX   #$0160
          BNE   L8363
          LDX   $9BA8
          LDAB  #$0A
L8370:
          LDAA  $00,X
          STAA  $0186
          LDAA  $01,X
          STAA  $0187
          LDAA  $02,X
          STAA  $0188
          LDAA  $03,X
          STAA  $0189
          LDAA  $04,X
          STAA  $018A
          LDAA  #$80
          STAA  $00,X
          STAA  $01,X
          STAA  $02,X
          STAA  $03,X
          STAA  $04,X
          LDAA  #$14
L8397:
          WAI
          DECA
          BNE   L8397
          LDAA  $0186
          STAA  $00,X
          LDAA  $0187
          STAA  $01,X
          LDAA  $0188
          STAA  $02,X
          LDAA  $0189
          STAA  $03,X
          LDAA  $018A
          STAA  $04,X
          LDAA  #$14
L83B6:
          WAI
          DECA
          BNE   L83B6
          DECB
          BNE   L8370
          RTS

L83BE:
          LDAB  #$02
L83C0:
          LDAA  $00,X
          ANDA  #$40
          STAA  $9BDA
          LDAA  $00,X
          ANDA  #$BF
          CMPA  #$13
          BEQ   L83E0
          CMPA  #$14
          BEQ   L83E0
          CMPA  #$15
          BEQ   L83E0
          CMPA  #$0F
          BEQ   L83E0
          CMPA  #$0E
          BEQ   L83E0
          RTS

L83E0:
          ORAB  $9BDA
          STAB  $00,X
          RTS

L83E6:
          LDX   #$94F0
          STX   $9BA6
          LDX   #$0300
          LDAB  #$30
          JSR   L8424
          LDX   #$0140
          LDAA  $9BBD
          JSR   $411D       ; System ROM Routine - 
          LDAA  #$10
          STAA  $00,X
          INCA
          STAA  $01,X
          INCA
          STAA  $02,X
          RTS

          FCB   $32, $04, $B0

L840B:
          LDX   #$9800
          LDAA  #$42
L8410:
          STAA  $00,X
          INX
          CPX   #$99C0
          BNE   L8410
          LDX   #$0000
L841B:
          STAA  $00,X
          INX
          CPX   #$0100
          BNE   L841B
          RTS

L8424:
          SEI               ; Disable Interrupts
          PSHA              
          STS   $01E8       ; Store location of Stack Pointer
          LDS   $9BA6       ; Get New Location of Stack Pointer
          DES
L842D:
          PULA
          STAA  $00,X
          INX
          DECB
          BNE   L842D
          STS   $9BA6
          LDS   $01E8
          PULA
          CLI               ; Enable Interrpts again
          NOP
          NOP
          RTS

L843F:
          BSR   L840B
          LDX   #$0200
          JSR   L835B
          LDX   #$0203
          STX   $9BDE
          LDAA  $9BE1
          STAA  $9BE0
          LDX   $9BE5
          STX   $9BE3
          LDAA  $9BAE
          STAA  $9BDA
          LDAA  $9BAF
          STAA  $9BAD
          LDX   #$9B8E
          JSR   L8506
          CLR   $9BBC
          LDX   $0207
          STX   $0205
          LDX   $0209
          STX   $0207
          LDX   #$8080
          STX   $0209
          LDX   #$99C0
          STX   $9BA6
          LDX   $9B88
          INX
          INX
          LDAB  #$A0
          JSR   L8424
          LDX   #$9A64
          STX   $9BA6
          LDX   #$98E0
          LDAB  #$40
          JSR   L8424
          LDX   #$8576
L84A1:
          STX   $9BAA
          LDX   $9BE3
          STX   $9BA6
          LDX   #$03A0
          LDAB  #$60
          JSR   L8424
          CLR   $9BBE
          LDAA  #$01
          STAA  $9BBD
          LDAA  #$E6
          STAA  $9BC7
          CLR   $9BB8
          CLR   $9BB9
          LDX   #$9630
          STX   $9BA6
          LDX   #$9920
          LDAB  #$20
          JSR   L8424
          LDX   #$98E0
          STX   $9BA6
          LDX   #$0100
          LDAB  #$60
          JSR   L8424
          JSR   L8768
          LDAA  #$02
          LDX   #$0160
L84E9:
          STAA  $00,X
          INX
          CPX   #$0180
          BNE   L84E9
          LDX   #$9940
L84F4:
          STAA  $00,X
          INX
          CPX   #$99C0
          BNE   L84F4
          LDAA  $9BDA
          STAA  $9BAC
          CLR   $9BBF
          RTS

L8506:
          STX   $9BA6
          LDX   #$9B88
          LDAB  #$06
          JMP   L8424

L8511:
          LDX   #$021B
          JSR   L835B
          LDX   #$021E
          STX   $9BDE
          LDAA  $9BB0
          STAA  $9BDA
          LDAA  $9BB1
          STAA  $9BAD
          LDAA  $9BE2
          STAA  $9BE0
          LDX   $9BE7
          STX   $9BE3
          LDX   #$9B9A
          BSR   L8506
          INC   $9BBC
          JSR   L840B
          LDX   $0216
          STX   $0218
          LDX   $0214
          STX   $0216
          LDX   #$8080
          STX   $0214
          LDX   #$9AA4
          STX   $9BA6
          LDX   $9B88
          INX
          INX
          LDAB  #$A0
          JSR   L8424
          LDX   #$9B48
          STX   $9BA6
          LDX   #$98E0
          LDAB  #$40
          JSR   L8424
          LDX   #$85B2
          JMP   L84A1

L8576:
          LDX   #$01F3
          STX   $01EC
          LDAA  #$07
          STAA  $01F7
          JSR   $4220       ; System ROM Routine - 
          LDAA  $2000
          ANDA  #$20
          BNE   L8597
          TST   $9BFA
          BNE   L859A
          LDAB  #$21
          INC   $9BFA
          SEC
          RTS

L8597:
          CLR   $9BFA
L859A:
          LDAA  #$0D
          STAA  $01F7
          JSR   $4220       ; System ROM Routine - 
          LDAA  $2000
          LSRA
          LSRA
          LSRA
          LSRA
          CMPA  #$0F
          BNE   L85AF
          CLC
          RTS
L85AF:
          JMP   $41F7       ; System ROM Routine -

L85B2:
          LDX   #$01F5
          STX   $01EC
          LDAA  #$07
          STAA  $01F7
          JSR   $4220       ; System ROM Routine - 
          LDAA  $2000
          ANDA  #$02
          BNE   L85D3
          TST   $9BFA
          BNE   L85D6
          LDAB  #$21
          INC   $9BFA
          SEC
          RTS

L85D3:
          CLR   $9BFA
L85D6:
          LDAA  #$0D
          STAA  $01F7
          JSR   $4220       ; System ROM Routine - 
          LDAA  $2000
          ANDA  #$0F
          CMPA  #$0F
          BNE   L85AF
          CLC
          RTS

L85E9:
          LDX   #$0063
L85EC:
          DEX
          BNE   L85EC
          LDAA  $2002
          ANDA  #$7F
          STAA  $2002
          LDAA  $2001
          ANDA  #$F7
          STAA  $2001
          NOP
          NOP
          LDX   #$00E8
L8604:
          DEX
          BNE   L8604
          LDAA  $2002
          ORAA  #$80
          STAA  $2002
          LDAA  $2001
          ANDA  #$C7
          ORAA  #$38
          STAA  $2001
          TST   $9BBF
          BEQ   L861F
          RTS

L861F:
          INC   $9BB2
          LDAA  $9BB2
          CMPA  #$0B
          BEQ   L8633
          CMPA  #$02
          BNE   L8636
          CLR   $9BB2
          JMP   L880E
L8633:
          JMP   L9228

L8636:
          LDAA  $9BBB
          INCA
          STAA  $9BBB
          CMPA  $9BE0
          BHI   L8647
          BEQ   L8647
          JMP   L8759

L8647:
          CLR   $9BBB
          LDAA  $9BAC
          CMPA  #$FE
          BEQ   L865D
          CMPA  #$FD
          BEQ   L865C
          CMPA  #$FF
          BNE   L8660
          INC   $9BBF
L865C:
          RTS
L865D:
          JMP   L90F4

L8660:
          EORA  #$01
          STAA  $9BAC
          LDX   #$8178
          STX   $9BB6
          LDX   #$9800
          LDAB  #$09
L8670:
          LDAA  $00,X
          CMPA  #$42
          BEQ   L867A
          CMPA  #$02
          BNE   L86B6
L867A:
          DECB
          BEQ   L8684
          LDAA  #$20
          JSR   $411D       ; System ROM Routine - 
          BRA   L8670

L8684:
          LDX   #$981F
          LDAB  #$09
L8689:
          LDAA  $00,X
          CMPA  #$42
          BEQ   L8693
          CMPA  #$02
          BNE   L86B3
L8693:
          DECB
          BEQ   L869D
          LDAA  #$20
          JSR   $411D       ; System ROM Routine - 
          BRA   L8689

L869D:
          LDX   #$86AB
          LDAA  $9BAC
          ASLA
          JSR   $411D       ; System ROM Routine - 
          LDX   $00,X
          JMP   $00,X       ; INFO: INDEX JUMP

          FCB   $87, $48, $87, $7F
          FCB   $87, $B0, $87, $B5

L86B3:
          JMP   L8739

L86B6:
          LDAA  $9BAC
          CMPA  #$01
          BLS   L869D
          CLR   $9BAC
          LDX   $9B8A
          LDAB  $9BAD
L86C6:
          DEX
          LDAA  $00,X
          ORAA  #$40
          CMPA  #$59
          BLS   L86C6
          BRA   L86D2

L86D1:
          DEX
L86D2:
          DEX
          LDAA  $01,X
          ORAA  #$40
          CMPA  #$59
          BLS   L86D1
          LDAA  $01,X
          STAA  $21,X
          LDAA  $00,X
          STAA  $20,X
          ANDA  #$40
          ORAA  #$02
          STAA  $00,X
          STAA  $01,X
          DECB
          BNE   L86D1
          LDX   $9B88
          INX
          INX
          STX   $9BA6
          LDX   $9B8C
          LDAB  #$20
          JSR   L8424
          LDX   $9B88
          LDAA  #$20
          JSR   $411D       ; System ROM Routine - 
          STX   $9B88
          LDX   $9B8A
          LDAA  #$20
          JSR   $411D       ; System ROM Routine - 
          STX   $9B8A
          LDX   $9B8C
          LDAA  #$20
          JSR   $411D       ; System ROM Routine - 
          STX   $9B8C
          LDX   #$9920
          LDAB  #$10
L8724:
          LDAA  $00,X
          CMPA  #$19
          BHI   L8732
          INX
          INX
          DECB
          BNE   L8724
          JMP   L869D

L8732:
          LDAA  #$FF
          STAA  $9BAC
          BRA   L8748

L8739:
          LDAA  $9BAC
          CMPA  #$01
          BHI   L8745
          LDAA  #$02
          STAA  $9BAC
L8745:
          JMP   L869D

L8748:
          LDX   #$9590
L874B:
          STX   $9BA6
          STX   $9BE3
          LDX   #$03A0
          LDAB  #$60
          JSR   L8424
L8759:
          LDX   #$98E0
          LDAB  #$20
L875E:
          LDAA  $00,X
          ANDA  #$1F
          STAA  $00,X
          INX
          DECB
          BNE   L875E
L8768:
          LDX   $9B88
          INX
          INX
          STX   $9BA6
          LDX   $9B8C
          LDAB  #$A0
          JSR   L8424
          LDX   #$85E9
          STX   $01C5
          RTS

L877F:
          LDX   $9B8A
          LDAB  $9BAD
L8785:
          DEX
          LDAA  $00,X
          ORAA  #$40
          CMPA  #$59
          BLS   L8785
          BRA   L8791

L8790:
          DEX
L8791:
          DEX
          LDAA  $01,X
          ORAA  #$40
          CMPA  #$59
          BLS   L8790
          LDAA  $01,X
          STAA  $02,X
          LDAA  $00,X
          STAA  $01,X
          ANDA  #$40
          ORAA  #$02
          STAA  $00,X
          DECB
          BNE   L8790
          LDX   #$9528
          BRA   L874B

L87B0:
          LDX   #$9520
          BRA   L874B

L87B5:
          LDX   $9B88
          LDAB  $9BAD
L87BB:
          INX
          LDAA  $01,X
          ORAA  #$40
          CMPA  #$59
          BLS   L87BB
          BRA   L87C8

L87C6:
          INX
          INX
L87C8:
          LDAA  $01,X
          ORAA  #$40
          CMPA  #$59
          BLS   L87C6
          LDAA  $01,X
          STAA  $00,X
          LDAA  $02,X
          STAA  $01,X
          ANDA  #$40
          ORAA  #$02
          STAA  $02,X
          DECB
          BNE   L87C6
          LDX   #$9588
          JMP   L874B

L87E7:
          LDX   $9BAA
          JSR   $00,X       ; INFO: INDEX JUMP
          BCS   L87EF
          RTS

L87EF:
          TBA
          TST   $9BB9
          BNE   L87FD
          CMPA  #$21
          BNE   L87FD
          INC   $9BB9
          RTS

L87FD:
          TST   $9BB8
          BNE   L880D
          CMPA  #$45
          BEQ   L880A
          CMPA  #$57
          BNE   L880D
L880A:
          STAA  $9BB8
L880D:
          RTS

L880E:
          LDAA  $9BAC
          CMPA  #$FD
          BEQ   L8819
          CMPA  #$FF
          BNE   L881D
L8819:
          INC   $9BBF
          RTS

L881D:
          JSR   L87E7
          JSR   L925D
          JSR   L8FB3
          LDAA  $9BB9
          BNE   L882E
          JMP   L8B61

L882E:
          LDX   $9BC3
          LDAB  $00,X
          ORAB  #$40
          CMPB  #$53
          BNE   L883E
          LDAB  $9BC2
          STAB  $00,X
L883E:
          CMPA  #$01
          BNE   L88A1
          INC   $9BB9
          LDX   #$0140
          LDAA  $9BBD
          INCA
          STAA  $9BDA
          JSR   $411D       ; System ROM Routine - 
          STX   $9BC3
          LDAA  $9BDA
          LDX   #$9920
          JSR   $411D       ; System ROM Routine - 
          STX   $9BDC
          LDX   #$8AD3
          LDAA  $9BBE
          JSR   $411D       ; System ROM Routine - 
          LDAA  $00,X
          STAA  $9BC5
          LDAA  #$03
          STAA  $9BC6
L8874:
          LDX   #$8ACD
          STX   $9BB6
          LDAA  $9BC6
          CMPA  #$03
          BEQ   L8886
          INC   $9BC6
          BRA   L88C1

L8886:
          LDX   $9BDC
          LDAB  #$20
          JSR   $412F       ; System ROM Routine - 
          STX   $9BDC
          CLR   $9BC6
          LDX   $9BC3
          LDAB  #$20
          JSR   $412F       ; System ROM Routine - 
          STX   $9BC3
          BRA   L88C1

L88A1:
          LDX   $9BC3
          STX   $9BA6
          TST   $9BA6
          BNE   L8874
          LDAA  $9BA7
          CMPA  #$1F
          BHI   L8874
          CLR   $9BB9
          LDAA  $00,X
          CMPA  #$55
          BHI   L88BE
          LDAA  #$42
L88BE:
          JMP   L896B

L88C1:
          LDX   $9BC3
          LDAA  $00,X
          ANDA  #$40
          STAA  $9BDA
          LDAA  $00,X
          ANDA  #$BF
          CMPA  #$19
          BLS   L88D6
          JMP   L8AED

L88D6:
          LDX   #$9BCE
          BSR   L88EF
          TST   $9BB9
          BNE   L88E3
L88E0:
          JMP   L8B61

L88E3:
          LDX   #$9BD4
          BSR   L88EF
          TST   $9BB9
          BEQ   L88E0
          BRA   L8922

L88EF:
          TST   $00,X
          BEQ   L8921
          STX   $9BA8
          LDX   $02,X
          CPX   $9BC3
          BNE   L8921
          LDX   $9BA8
          LDAB  $05,X
          CMPB  $9BC6
          BNE   L8921
          LDAB  $01,X
          ORAB  $9BC5
          STAB  $9BDB
          ANDB  #$F0
          BEQ   L891A
          LDAB  $9BDB
          ANDB  #$0F
          BNE   L8921
L891A:
          LDAB  #$FC
          STAB  $05,X
          CLR   $9BB9
L8921:
          RTS

L8922:
          TST   $9BC6
          BNE   L8970
          CMPA  #$02
          BLS   L8970
          CMPA  #$0D
          BHI   L8970
          DECA
          DECA
          DECA
          LDX   #$8AD7
          LDAB  $9BC5
          CMPB  #$0F
          BHI   L893F
          LDX   #$8AE2
L893F:
          JSR   $411D       ; System ROM Routine - 
          LDAA  $00,X
          CMPA  #$02
          BNE   L8954
          LDX   $9BC3
          STAA  $00,X
          LDX   $9BDC
          STAA  $00,X
          BRA   L8970

L8954:
          CLR   $9BB9
          LDX   #$8AD0
          STX   $9BB6
          LDX   $9BC3
          STAA  $00,X
          STAA  $9BDA
          LDX   $9BDC
          LDAA  $9BDA
L896B:
          STAA  $00,X
          JMP   L8B61

L8970:
          LDX   $9BC3
          LDAA  $00,X
          CMPA  #$56
          BEQ   L8988
          CMPA  #$59
          BEQ   L89A6
          CMPA  #$57
          BEQ   L89CD
          CMPA  #$58
          BEQ   L89E0
L8985:
          JMP   L8A65

L8988:
          LDAA  $9BF1
          CMPA  #$01
          BLS   L8996
          LDAA  $9BC5
          CMPA  #$0F
          BHI   L8985
L8996:
          LDAA  #$05
          STAA  $9BF4
          LDX   #$9758
          STX   $9BF7
          LDX   $9BC3
          BRA   L89F2

L89A6:
          LDAA  $9BF1
          CMPA  #$01
          BHI   L89B4
          LDAA  $9BC5
          CMPA  #$0F
          BLS   L8985
L89B4:
          LDAA  #$10
          STAA  $9BF4
          LDX   #$9788
          STX   $9BF7
          LDX   $9BC3
          BEQ   L89F2
          DEX
          BEQ   L89F2
L89C7:
          DEX
          BEQ   L89F2
          DEX
          BRA   L89F2

L89CD:
          LDAA  #$15
          STAA  $9BF4
          LDX   #$9798
          STX   $9BF7
          LDX   $9BC3
          BEQ   L89F2
          DEX
          BRA   L89F2

L89E0:
          LDAA  #$30
          STAA  $9BF4
          LDX   #$97A8
          STX   $9BF7
          LDX   $9BC3
          BEQ   L89F2
          BRA   L89C7

L89F2:
          CPX   #$001D
          BEQ   L8A03
          CPX   #$001E
          BEQ   L8A02
          CPX   #$001F
          BNE   L8A04
          DEX
L8A02:
          DEX
L8A03:
          DEX
L8A04:
          STX   $9BF5
          CLRB
          LDX   $9BDE
          LDAA  $9BF4
          ANDA  #$0F
          ADDA  $00,X
          STAA  $00,X
          CMPA  #$39
          BLS   L8A1D
          SUBA  #$0A
          STAA  $00,X
          INCB
L8A1D:
          DEX
          LDAA  $9BF4
          LSRA
          LSRA
          LSRA
          LSRA
          ABA
          ADDA  $00,X
          STAA  $00,X
          CMPA  #$39
          BLS   L8A4E
          SUBA  #$0A
          STAA  $00,X
          DEX
          LDAA  $00,X
          INCA
          STAA  $00,X
          CMPA  #$39
          BLS   L8A4E
          SUBA  #$0A
          STAA  $00,X
          DEX
          LDAA  $00,X
          INCA
          STAA  $00,X
          CMPA  #$39
          BLS   L8A4E
          SUBA  #$0A
          STAA  $00,X
L8A4E:
          LDAA  #$01
          STAA  $9BF9
          CLR   $9BEF
          CLR   $9BF0
          LDX   #$97B8
          STX   $9BB6
          JSR   L90A0
          JMP   L8B61

L8A65:
          LDX   $9BC3
          LDAA  $00,X
          STAA  $9BC2
          ORAA  #$40
          CMPA  #$54
          BEQ   L8A7F
          CMPA  #$55
          BNE   L8A85
          LDAA  $9BD8
          STAA  $9BC2
          BRA   L8A85

L8A7F:
          LDAA  $9BD2
          STAA  $9BC2
L8A85:
          LDAA  $00,X
          ANDA  #$40
          ORAA  #$13
          STAA  $00,X
          LDAA  $9BC2
          LDX   #$0200
          BITA  #$10
          BEQ   L8A9A
          LDX   #$0300
L8A9A:
          ASLA
          ASLA
          ASLA
          ASLA
          JSR   $411D       ; System ROM Routine - 
          STX   $9BA6
          LDX   #$0330
          LDAB  #$10
          JSR   L8424
          LDX   #$0330
          LDAA  $9BC6
L8AB2:
          CMPA  #$03
          BEQ   L8ABD
          INCA
          INX
          INX
          INX
          INX
          BRA   L8AB2

L8ABD:
          LDAB  #$04
L8ABF:
          LDAA  $00,X
          ORAA  $9BC5
          STAA  $00,X
          INX
          DECB
          BNE   L8ABF
          JMP   L8B61

          FCB   $14, $00, $1A, $C8
          FCB   $00, $04, $40, $10
          FCB   $04, $01, $04, $05
          FCB   $06, $07, $0C, $09
          FCB   $0A, $0B, $0C, $0D
          FCB   $02, $08, $05, $06
          FCB   $07, $0C, $09, $0A
          FCB   $0B, $0C, $0D, $02

L8AED:
          STAA  $9BDB
          LDAA  $9BAC
          BEQ   L8B0A
          CMPA  #$03
          BEQ   L8B0A
          LDAA  $9BDB
          BITA  #$01
          BEQ   L8B1A
          LDAA  $9BC5
          CMPA  #$0F
          BHI   L8B1A
L8B07:
          JMP   L8970

L8B0A:
          LDAA  $9BDB
          BITA  #$01
          BNE   L8B1A
          LDAA  $9BC5
          CMPA  #$0F
          BLS   L8B1A
          BRA   L8B07

L8B1A:
          CLR   $9BB9
          JSR   L903D
          LDX   $9BC3
          LDAA  $9BDB
          BITA  #$01
          BEQ   L8B2E
          DEC   $9BDD
          DEX
L8B2E:
          LDAA  #$02
          ORAA  $9BDA
          STAA  $00,X
          STAA  $01,X
          TST   $9BEB
          BNE   L8B44
          INC   $9BEB
          STX   $9BE9
          BRA   L8B4F

L8B44:
          TST   $9BEE
          BNE   L8B4F
          INC   $9BEE
          STX   $9BEC
L8B4F:
          LDX   $9BDC
          STAA  $00,X
          STAA  $01,X
          LDX   #$8B5E
          STX   $9BB6
          BRA   L8B61

          FCB   $C8, $00, $0A

L8B61:
          INC   $9BC7
          LDAA  $9BC7
          CMPA  #$1A
          BLS   L8B75
          CMPA  #$1B
          BEQ   L8B72
          JMP   L8EEB

L8B72:
          CLR   $9BC7
L8B75:
          LDX   $9BCE
          STX   $9BC8
          LDX   $9BD0
          STX   $9BCA
          LDX   $9BD2
          STX   $9BCC
          LDX   #$0340
          STX   $9BA8
          LDAA  $9BC7
          CMPA  #$0D
          BEQ   L8BE3
L8B94:
          JSR   L8CA6
          LDX   $9BC8
          STX   $9BCE
          LDX   $9BCA
          STX   $9BD0
          LDX   $9BCC
          STX   $9BD2
          LDX   $9BD4
          STX   $9BC8
          LDX   $9BD6
          STX   $9BCA
          LDX   $9BD8
          STX   $9BCC
          LDX   #$0350
          STX   $9BA8
          LDAA  $9BC7
          CMPA  #$1A
          BEQ   L8BE0
L8BC8:
          JSR   L8CA6
          LDX   $9BC8
          STX   $9BD4
          LDX   $9BCA
          STX   $9BD6
          LDX   $9BCC
          STX   $9BD8
          JMP   L8EEB
L8BE0:
          JMP   L8C5D

L8BE3:
          TST   $9BC8
          BNE   L8B94
          LDAA  $9BBD
          INCA
          BSR   L8C0F
          TST   $9BC8
          BNE   L8C0A
          LDAA  $9BBD
          ADDA  #$03
          BSR   L8C0F
          TST   $9BC8
          BNE   L8C0A
          LDAA  $9BBD
          DECA
          BSR   L8C0F
          TST   $9BC8
          BEQ   L8C0C
L8C0A:
          BSR   L8C36
L8C0C:
          JMP   L8B94

L8C0F:
          ANDA  #$1F
          LDX   #$0120
          JSR   $411D       ; System ROM Routine - 
          LDAB  #$09
          STAB  $9BDA
L8C1C:
          LDAA  $00,X
          ANDA  #$1F
          CMPA  #$19
          BHI   L8C2F
          LDAB  #$20
          JSR   $412F       ; System ROM Routine - 
          DEC   $9BDA
          BNE   L8C1C
          RTS

L8C2F:
          STX   $9BCA
          INC   $9BC8
          RTS

L8C36:
          CLR   $9BCD
          LDX   $9BCA
          LDAA  $00,X
          BITA  #$01
          BNE   L8C43
          INX
L8C43:
          LDAA  $9BAC
          BEQ   L8C4C
          CMPA  #$03
          BNE   L8C55
L8C4C:
          LDAA  #$F0
          STAA  $9BC9
L8C51:
          STX   $9BCA
          RTS

L8C55:
          LDAA  #$0F
          STAA  $9BC9
          DEX
          BRA   L8C51

L8C5D:
          TST   $9BC8
          BNE   L8CA3
          LDAA  $01F8
          JSR   L8C0F
          TST   $9BC8
          BNE   L8CA1
          LDAA  $01F8
          ADDA  #$02
          JSR   L8C0F
          TST   $9BC8
          BNE   L8CA1
          LDAA  $01F8
          SUBA  #$02
          JSR   L8C0F
          TST   $9BC8
          BNE   L8CA1
          LDAA  $01F8
          ADDA  #$04
          JSR   L8C0F
          TST   $9BC8
          BNE   L8CA1
          LDAA  $01F8
          SUBA  #$04
          JSR   L8C0F
          TST   $9BC8
          BEQ   L8CA3
L8CA1:
          BSR   L8C36
L8CA3:
          JMP   L8BC8

L8CA6:
          TST   $9BC8
          BNE   L8CAC
          RTS

L8CAC:
          LDX   $9BCA
          LDAA  $00,X
          ORAA  #$40
          CMPA  #$54
          BEQ   L8CBB
          CMPA  #$55
          BNE   L8CC0
L8CBB:
          LDAA  $9BCC
          STAA  $00,X
L8CC0:
          LDAA  $9BCD
          CMPA  #$FC
          BEQ   L8CCC
          BHI   L8CD5
          JMP   L8D61

L8CCC:
          LDX   #$8D5E
          STX   $9BB6
          CLR   $9BB9
L8CD5:
          LDX   $9BCA
          INCA
          CMPA  #$FF
          BNE   L8CF4
          CLR   $9BC8
          CLR   $9BCD
          LDAA  $00,X
          ANDA  #$1F
          CMPA  #$19
          BHI   L8CF3
          LDAA  $00,X
          ANDA  #$40
          ORAA  #$02
          STAA  $00,X
L8CF3:
          RTS

L8CF4:
          STAA  $9BCD
          LDAA  $00,X
          ANDA  #$1F
          CMPA  #$19
          BHI   L8CF3
          LDAA  $00,X
          ANDA  #$40
          ORAA  #$02
          STAA  $9BCC
          LDAA  $00,X
          ANDA  #$40
          LDAB  $9BA9
          CMPB  #$40
          BNE   L8D17
          ORAA  #$14
          BRA   L8D19

L8D17:
          ORAA  #$15
L8D19:
          STAA  $00,X
          LDX   $9BA8
          LDAA  $9BC9
          CMPA  #$0F
          BEQ   L8D2F
          BSR   L8D34
          LDAA  #$08
          JSR   $411D       ; System ROM Routine - 
          BSR   L8D55
          RTS

L8D2F:
          BSR   L8D55
          BSR   L8D34
          RTS

L8D34:
          LDAA  #$44
          STAA  $00,X
          LDAA  #$29
          STAA  $01,X
          LDAA  #$92
          STAA  $02,X
          LDAA  #$5C
          STAA  $03,X
          LDAA  #$3A
          STAA  $04,X
          LDAA  #$49
          STAA  $05,X
          LDAA  #$94
          STAA  $06,X
          LDAA  #$22
          STAA  $07,X
          RTS

L8D55:
          LDAA  #$08
L8D57:
          CLR   $00,X
          INX
          DECA
          BNE   L8D57
          RTS

          FCB   $C8, $00, $10     ; EORB   #$0010 ?

L8D61:
          TST   $9BCD
          BNE   L8D79
          STX   $9BA6
          TST   $9BA6
          BEQ   L8D79
          LDAA  $9BA7
          CMPA  #$3F
          BLS   L8D79
          CLR   $9BC8
          RTS

L8D79:
          LDAA  $9BC7
          BITA  #$01
          BEQ   L8D98
          LDAA  $9BCD
          BEQ   L8D8B
          DECA
          STAA  $9BCD
          BRA   L8D98

L8D8B:
          LDAA  #$20
          JSR   $411D       ; System ROM Routine - 
          STX   $9BCA
          LDAA  #$03
          STAA  $9BCD
L8D98:
          TST   $9BB9
          BEQ   L8DC9
          LDX   $9BCA
          CPX   $9BC3
          BNE   L8DC9
          LDAA  $9BCD
          CMPA  $9BC6
          BNE   L8DC9
          LDAA  $9BC9
          ORAA  $9BC5
          STAA  $9BDB
          ANDA  #$0F
          BEQ   L8DC1
          LDAA  $9BDB
          ANDA  #$F0
          BNE   L8DC9
L8DC1:
          LDAA  #$FC
          STAA  $9BCD
          JMP   L8CAC

L8DC9:
          LDAA  $9BCD
          CMPA  #$03
          BNE   L8E1C
          LDX   $9BCA
          LDAA  $00,X
          CMPA  #$02
          BLS   L8E1C
          CMPA  #$0D
          BHI   L8E1C
          SUBA  #$03
          LDX   #$8AD7
          LDAB  $9BC9
          CMPB  #$0F
          BHI   L8DEC
          LDX   #$8AE2
L8DEC:
          JSR   $411D       ; System ROM Routine - 
          LDAA  $00,X
          CMPA  #$02
          BNE   L8DF9
          BSR   L8E05
          BRA   L8E1C

L8DF9:
          CLR   $9BC8
          LDX   #$8AD0
          STX   $9BB6
          BSR   L8E05
          RTS

L8E05:
          LDX   $9BCA
          STAA  $00,X
          STAA  $9BCC
          LDX   #$98E0
          LDAA  $9BCB
          JSR   $411D       ; System ROM Routine - 
          LDAA  $9BCC
          STAA  $00,X
          RTS

L8E1C:
          LDX   $9BCA
          LDAA  $00,X
          CMPA  #$11
          BEQ   L8E4D
          CMPA  #$10
          BEQ   L8E2F
          CMPA  #$12
          BEQ   L8E3F
          BRA   L8E58

L8E2F:
          LDAA  $9BC9
          CMPA  #$0F
          BEQ   L8E4D
          LDAA  $9BBE
          CMPA  #$01
          BLS   L8E4D
          BRA   L8E58

L8E3F:
          LDAA  $9BC9
          CMPA  #$F0
          BEQ   L8E4D
          LDAA  $9BBE
          CMPA  #$01
          BLS   L8E58
L8E4D:
          LDAA  $9BAC
          STAA  $9BFB
          LDAA  #$FD
          STAA  $9BAC
L8E58:
          LDX   $9BCA
          LDAA  $00,X
          STAA  $9BDA
          STAA  $9BCC
          CMPA  #$13
          BEQ   L8E6B
          CMPA  #$53
          BNE   L8E71
L8E6B:
          LDAB  $9BC2
          STAB  $9BCC
L8E71:
          ANDA  #$40
          LDAB  $9BA9
          CMPB  #$40
          BNE   L8E7E
          ORAA  #$14
          BRA   L8E80

L8E7E:
          ORAA  #$15
L8E80:
          STAA  $00,X
          LDAA  $9BDA
          LDX   #$0200
          BITA  #$10
          BEQ   L8E8F
          LDX   #$0300
L8E8F:
          ASLA
          ASLA
          ASLA
          ASLA
          JSR   $411D       ; System ROM Routine - 
          STX   $9BA6
          LDX   $9BA8
          LDAB  #$10
          JSR   L8424
          LDX   $9BA8
          LDAA  $9BCD
L8EA7:
          CMPA  #$03
          BEQ   L8EB2
          INCA
          INX
          INX
          INX
          INX
          BRA   L8EA7

L8EB2:
          LDAA  $9BC9
          CMPA  #$0F
          BNE   L8ED2
          LDAA  $00,X
          ORAA  #$0C
          STAA  $00,X
          LDAA  $02,X
          ORAA  #$0C
          STAA  $02,X
          LDAA  $01,X
          ORAA  #$03
          STAA  $01,X
          LDAA  $03,X
          ORAA  #$03
          STAA  $03,X
          RTS

L8ED2:
          LDAA  $00,X
          ORAA  #$C0
          STAA  $00,X
          LDAA  $02,X
          ORAA  #$C0
          STAA  $02,X
          LDAA  $01,X
          ORAA  #$30
          STAA  $01,X
          LDAA  $03,X
          ORAA  #$30
          STAA  $03,X
          RTS

L8EEB:
          TST   $9BEB
          BEQ   L8EFB
          INC   $9BEB
          LDAA  $9BEB
          LDX   $9BE9
          BSR   L8F5B
L8EFB:
          TST   $9BEE
          BEQ   L8F0B
          INC   $9BEE
          LDAA  $9BEE
          LDX   $9BEC
          BSR   L8F5B
L8F0B:
          LDAA  $9BF9
          BEQ   L8F5A
          CMPA  #$01
          BNE   L8F40
          LDX   #$9748
          STX   $9BA6
          LDX   #$0360
          LDAB  #$40
          JSR   L8424
          LDX   $9BF7
          STX   $9BA6
          LDX   #$0370
          LDAB  #$10
          JSR   L8424
          LDX   $9BF5
          LDAA  #$56
          STAA  $00,X
          INCA
          STAA  $01,X
          INCA
          STAA  $02,X
          INCA
          STAA  $03,X
L8F40:
          INC   $9BF9
          LDAA  $9BF9
          CMPA  #$24
          BNE   L8F5A
          CLR   $9BF9
          LDAA  #$42
          LDX   $9BF5
          STAA  $00,X
          STAA  $01,X
          STAA  $02,X
          STAA  $03,X
L8F5A:
          RTS

L8F5B:
          CMPA  #$04
          BNE   L8F70
          CMPA  $9BEB
          BNE   L8F69
          CLR   $9BEB
          BRA   L8F6C

L8F69:
          CLR   $9BEE
L8F6C:
          LDAA  #$02
          BRA   L8F72

L8F70:
          LDAA  #$0E
L8F72:
          STAA  $9BDA
          LDAA  $00,X
          ANDA  #$40
          STAA  $9BDB
          LDAA  $00,X
          ANDA  #$BF
          CMPA  #$02
          BEQ   L8F8A
          CMPA  #$0F
          BEQ   L8F8A
          BRA   L8F9C

L8F8A:
          LDAA  $9BDA
          ORAA  $9BDB
          STAA  $00,X
          LDAA  $9BDA
          CMPA  #$02
          BEQ   L8F9C
          INC   $9BDA
L8F9C:
          INX
          LDAA  $00,X
          ANDA  #$BF
          CMPA  #$02
          BEQ   L8FAA
          CMPA  #$0F
          BEQ   L8FAA
          RTS

L8FAA:
          LDAA  $9BDA
          ORAA  $9BDB
          STAA  $00,X
          RTS

L8FB3:
          LDAA  $9BB8
          BEQ   L9020
          CLR   $9BB8
          CMPA  #$45
          BEQ   L9021
          TST   $9BBE
          BNE   L8FF9
          LDAA  $9BBD
          CMPA  #$01
          BEQ   L9020
          LDAB  #$04
          STAB  $9BBE
          DECA
L8FD1:
          STAA  $9BBD
          LDX   #$9920
          JSR   $411D       ; System ROM Routine - 
          LDAA  #$10
          STAA  $00,X
          INCA
          STAA  $01,X
          INCA
          STAA  $02,X
          LDAA  #$02
          STAA  $03,X
          DEX
          STAA  $00,X
          LDX   #$9920
          STX   $9BA6
          LDX   #$0140
          LDAB  #$20
          JSR   L8424
L8FF9:
          DEC   $9BBE
L8FFC:
          LDX   #$9430
          LDAA  $9BBE
          BEQ   L9015
          LDX   #$9460
          CMPA  #$01
          BEQ   L9015
          LDX   #$9490
          CMPA  #$02
          BEQ   L9015
          LDX   #$94C0
L9015:
          STX   $9BA6
          LDX   #$0300
          LDAB  #$30
          JSR   L8424
L9020:
          RTS

L9021:
          LDAA  $9BBE
          CMPA  #$03
          BNE   L9038
          LDAA  $9BBD
          CMPA  #$1C
          BEQ   L9020
          INCA
          LDAB  #$01
          STAB  $9BBE
          JMP   L8FD1

L9038:
          INC   $9BBE
          BRA   L8FFC

L903D:
          LDX   #$90E3
          DEC   $9BAD
          BNE   L904F
          LDAA  #$FE
          STAA  $9BAC
          LDAA  #$3C
          STAA  $9BBA
L904F:
          LDAA  $00,X
          CMPA  $9BAD
          BEQ   L905E
          CMPA  #$FF
          BEQ   L9066
          INX
          INX
          BRA   L904F

L905E:
          LDAA  $01,X
          STAA  $9BE0
          CLR   $9BBB
L9066:
          LDAB  $9BDB
          ANDB  #$FE
          LDAA  #$01
          CMPB  #$1E
          BEQ   L9077
          INCA
          CMPB  #$1C
          BEQ   L9077
          INCA
L9077:
          LDX   $9BDE
          ADDA  $00,X
          STAA  $00,X
          CMPA  #$39
          BLS   L90A0
          SUBA  #$0A
          STAA  $00,X
L9086:
          DEX
          CPX   #$01FF
          BEQ   L90A0
          CPX   #$021A
          BEQ   L90A0
          LDAA  $00,X
          INCA
          STAA  $00,X
          CMPA  #$3A
          BNE   L90A0
          SUBA  #$0A
          STAA  $00,X
          BRA   L9086

L90A0:
          LDAA  #$30
          CMPA  $0201
          BEQ   L90BE
          TST   $9BFC
          BNE   L90BE
          INC   $9BFC
          LDX   #$0205
          LDAA  #$80
L90B4:
          CMPA  $00,X
          BEQ   L90BC
          INX
          INX
          BRA   L90B4

L90BC:
          BSR   L90DA
L90BE:
          LDAA  #$30
          CMPA  $021C
          BEQ   L90E2
          TST   $9BFD
          BNE   L90E2
          INC   $9BFD
          LDX   #$0218
          LDAA  #$80
L90D2:
          CMPA  $00,X
          BEQ   L90DA
          DEX
          DEX
          BRA   L90D2

L90DA:
          LDAA  #$81
          STAA  $00,X
          LDAA  #$8B
          STAA  $01,X
L90E2:
          RTS

L90E3:
          BMI   L90F9
          BHI   L90F7
          DAA
          CLC
          SBA
          CLV
          INX
          INX

          FCB   $04, $06, $02, $04
          FCB   $01, $02, $FF

L90F4:
          LDAA  $9BBA
L90F7:
          CMPA  #$01
L90F9:
          BEQ   L9100
          DECA
          STAA  $9BBA
          RTS

L9100:
          CLR   $9BAC
          LDAA  #$14
          STAA  $9BE0
          LDAA  #$37
          STAA  $9BAD
          LDAB  $9BD2
          LDX   $9BD0
          JSR   L83C0
          LDAB  $9BD8
          LDX   $9BD6
          JSR   L83C0
          LDX   $9BE9
          INX
          JSR   L83BE
          LDX   $9BE9
          JSR   L83BE
          LDX   $9BEC
          INX
          JSR   L83BE
          LDX   $9BEC
          JSR   L83BE
          CLR   $9BCE
          CLR   $9BD4
          TST   $9BBC
          BNE   L91A5
          LDX   $9B94
          CPX   #$985E
          BEQ   L917F
          LDAA  #$20
          JSR   $411D       ; System ROM Routine - 
          STX   $9B8E
          STX   $9B88
          STX   $9B94
          LDX   $9B96
          LDAA  #$20
          JSR   $411D       ; System ROM Routine - 
          STX   $9B90
          STX   $9B8A
          STX   $9B96
          LDX   $9B98
          LDAA  #$20
          JSR   $411D       ; System ROM Routine - 
          STX   $9B92
          STX   $9B8C
          STX   $9B98
          JMP   L9203

L917F:
          LDX   #$983E
          STX   $9B8E
          STX   $9B88
          STX   $9B94
          LDX   #$98E3
          STX   $9B90
          STX   $9B8A
          STX   $9B96
          LDX   #$0060
          STX   $9B92
          STX   $9B8C
          STX   $9B98
          BRA   L9203

L91A5:
          LDX   $9BA0
          CPX   #$985E
          BEQ   L91DF
          LDAA  #$20
          JSR   $411D       ; System ROM Routine - 
          STX   $9B9A
          STX   $9B88
          STX   $9BA0
          LDX   $9BA2
          LDAA  #$20
          JSR   $411D       ; System ROM Routine - 
          STX   $9B9C
          STX   $9B8A
          STX   $9BA2
          LDX   $9BA4
          LDAA  #$20
          JSR   $411D       ; System ROM Routine - 
          STX   $9B9E
          STX   $9B8C
          STX   $9BA4
          BRA   L9203

L91DF:
          LDX   #$983E
          STX   $9B9A
          STX   $9B88
          STX   $9BA0
          LDX   #$98E3
          STX   $9B9C
          STX   $9B8A
          STX   $9BA2
          LDX   #$0060
          STX   $9B9E
          STX   $9B8C
          STX   $9BA4
L9203:
          LDX   #$9590
          STX   $9BA6
          STX   $9BE3
          LDX   #$03A0
          LDAB  #$60
          JSR   L8424
          LDX   #$95F0
          STX   $9BA6
          LDX   #$98E0
          LDAB  #$40
          JSR   L8424
          LDAA  #$0A
          STAA  $9BB2
          RTS

L9228:
          LDX   #$9650
          STX   $9BA6
          LDX   $9B88
          INX
          INX
          LDAB  #$A0
          JSR   L8424
          LDX   #$98E0
          STX   $9BA6
          LDX   #$0100
          LDAB  #$40
          JSR   L8424
          LDX   $9B88
          INX
          INX
          STX   $9BA6
          LDX   $9B8C
          LDAB  #$A0
          JSR   L8424
          CLR   $9BBA
          CLR   $9BB2
L925C:
          RTS

L925D:
          LDAA  $9BC7
          BITA  #$01
          BEQ   L925C
          LDAA  $9BF0
          BEQ   L925C
          CMPA  #$01
          BNE   L9290
          INC   $9BF0
          LDAA  $9BEF
          BITA  #$01
          BEQ   L9282
          CLR   $9BF2
          CLR   $9BF3
          CLR   $9BF1
          BRA   L92AC

L9282:
          LDX   #$0022
          STX   $9BF2
          LDAA  #$03
          STAA  $9BF1
          JMP   L9336

L9290:
          LDAA  $9BEF
          BITA  #$01
          BNE   L929A
          JMP   L931D

L929A:
          LDAA  $9BF1
          INCA
          ANDA  #$03
          STAA  $9BF1
          BNE   L92EC
          LDX   $9BF2
          INX
          STX   $9BF2
L92AC:
          LDX   $9BF2
          CPX   #$0023
          BEQ   L930F
          LDX   #$9708
L92B7:
          STX   $9BA6
          LDX   #$0360
          LDAB  #$40
          JSR   L8424
          LDX   $9BF2
          LDAA  #$42
          STAA  $01,X
          LDAA  #$59
          LDAB  $9BF3
L92CE:
          CMPB  #$1F
          BLS   L92D7
          DECB
          DECA
          DEX
          BRA   L92CE

L92D7:
          STAA  $00,X
          CPX   #$0000
          BEQ   L930E
          DEX
          DECA
          CMPA  #$55
          BEQ   L92E6
          BRA   L92D7

L92E6:
          LDAA  #$42
          STAA  $00,X
          BRA   L930E

L92EC:
          LDX   #$0360
          LDAB  #$20
L92F1:
          CLC
          ROR   $00,X
          ROR   $10,X
          ROR   $20,X
          ROR   $30,X
          BCC   L9302
          LDAA  $00,X
          ORAA  #$80
          STAA  $00,X
L9302:
          INX
          DECB
          CMPB  #$10
          BNE   L930B
          LDX   #$0360
L930B:
          TSTB
          BNE   L92F1
L930E:
          RTS

L930F:
          CLR   $9BEF
          CLR   $9BF0
          LDAA  #$42
          STAA  $0000
          STAA  $001F
          BRA   L930E

L931D:
          LDAA  $9BF1
          DECA
          ANDA  #$03
          STAA  $9BF1
          CMPA  #$03
          BNE   L933C
          LDX   $9BF2
          CPX   #$0000
          BEQ   L930F
          DEX
          STX   $9BF2
L9336:
          LDX   #$96F8
          JMP   L92B7

L933C:
          LDX   #$0360
          LDAB  #$20
L9341:
          CLC
          ROL   $30,X
          ROL   $20,X
          ROL   $10,X
          ROL   $00,X
          BCC   L9352
          LDAA  $30,X
          ORAA  #$01
          STAA  $30,X
L9352:
          INX
          DECB
          CMPB  #$10
          BNE   L935B
          LDX   #$0360
L935B:
          TSTB
          BNE   L9341
          BRA   L930E

*  Game Graphics
          FCB   $EE, $EE, $EE, $00
          FCB   $BB, $BB, $BB, $00
          FCB   $EE, $EE, $EE, $00
          FCB   $BB, $BB, $BB, $00
          FCB   $AE, $6E, $EE, $00
          FCB   $BB, $9B, $3B, $00
          FCB   $AE, $CE, $6E, $00
          FCB   $9B, $3B, $BB, $00
          FCB   $8A, $6E, $AC, $00
          FCB   $33, $9A, $3B, $00
          FCB   $AA, $8E, $6C, $00
          FCB   $9B, $39, $9B, $00
          FCB   $8A, $4E, $A4, $00
          FCB   $23, $9A, $19, $00
          FCB   $AA, $86, $4C, $00
          FCB   $9B, $09, $9A, $00
          FCB   $8A, $4C, $24, $00
          FCB   $03, $92, $19, $00
          FCB   $AA, $04, $4C, $00
          FCB   $92, $09, $1A, $00
          FCB   $EA, $EE, $E6, $00
          FCB   $BA, $A9, $B3, $00
          FCB   $EC, $EC, $EA, $00
          FCB   $BB, $B9, $B2, $BB
          FCB   $EA, $AC, $E6, $00
          FCB   $B2, $29, $B3, $00
          FCB   $CC, $E4, $AA, $00
          FCB   $B3, $39, $B2, $99
          FCB   $6A, $A8, $A6, $00
          FCB   $92, $21, $A2, $00
          FCB   $C8, $64, $AA, $00
          FCB   $B2, $19, $B2, $99
          FCB   $62, $88, $A6, $00
          FCB   $10, $21, $92, $00
          FCB   $88, $60, $AA, $00
          FCB   $B0, $19, $B2, $11
          FCB   $62, $88, $22, $00
          FCB   $00, $21, $92, $00
          FCB   $80, $60, $8A, $00
          FCB   $90, $09, $B2, $01
          FCB   $00, $04, $00, $20
          FCB   $00, $00, $02, $00
          FCB   $00, $10, $00, $01
          FCB   $40, $00, $04, $00
          FCB   $00, $08, $04, $42
          FCB   $21, $18, $06, $00
          FCB   $2A, $00, $18, $21
          FCB   $42, $04, $08, $00
          FCB   $00, $04, $08, $11
          FCB   $20, $44, $10, $00
          FCB   $0E, $00, $00, $60
          FCB   $0A, $48, $04, $40
          FCB   $03, $03, $03, $03
          FCB   $03, $03, $0F, $0C
          FCB   $3C, $3C, $F3, $CF
          FCB   $C0, $FF, $C0, $FF
          FCB   $F0, $F0, $F0, $F0
          FCB   $F0, $F0, $FC, $0C
          FCB   $CF, $CF, $F3, $FC
          FCB   $00, $FF, $00, $FF
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $C0, $C0
          FCB   $C0, $C0, $C0, $C0
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $03, $03
          FCB   $0F, $0F, $3C, $33
          FCB   $30, $3F, $30, $3F
          FCB   $FC, $FC, $FC, $FC
          FCB   $FC, $FC, $FF, $03
          FCB   $33, $33, $FC, $FF
          FCB   $00, $FF, $00, $FF
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $C0, $C0, $F0, $30
          FCB   $30, $F0, $30, $F0
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $03, $03, $0F, $0C
          FCB   $0C, $0F, $0C, $0F
          FCB   $3F, $3F, $3F, $3F
          FCB   $3F, $3F, $FF, $C0
          FCB   $CC, $CC, $3F, $FF
          FCB   $00, $FF, $00, $FF
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $C0, $C0
          FCB   $F0, $F0, $3C, $CC
          FCB   $0C, $FC, $0C, $FC
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $03, $03
          FCB   $03, $03, $03, $03
          FCB   $0F, $0F, $0F, $0F
          FCB   $0F, $0F, $3F, $30
          FCB   $F3, $F3, $CF, $3F
          FCB   $00, $FF, $00, $FF
          FCB   $C0, $C0, $C0, $C0
          FCB   $C0, $C0, $F0, $30
          FCB   $3C, $3C, $CF, $F3
          FCB   $03, $FF, $03, $FF
          FCB   $01, $01, $11, $10
          FCB   $10, $06, $E0, $01
          FCB   $3F, $03, $63, $17
          FCB   $87, $07, $23, $02
          FCB   $00, $27, $20, $88
          FCB   $89, $80, $7C, $7F
          FCB   $7F, $7F, $FF, $FF
          FCB   $FF, $FF, $F7, $EB
          FCB   $10, $20, $28, $20
          FCB   $D2, $18, $F3, $00
          FCB   $CE, $E0, $E6, $E4
          FCB   $F4, $80, $8C, $C0
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $06, $0F, $1F, $36
          FCB   $3F, $3F, $40, $39
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $80, $C0
          FCB   $C0, $C0, $40, $C0
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $30, $99, $8F, $DF
          FCB   $76, $1F, $3F, $E0
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $C0, $90, $10, $B0
          FCB   $E0, $80, $C0, $70
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $3F, $FF, $C6, $FF
          FCB   $FF, $31, $40, $31
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $C0, $F0, $30, $F0
          FCB   $F0, $80, $40, $80
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $01, $03
          FCB   $03, $01, $00, $03
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $60, $F0, $F8, $6C
          FCB   $FC, $F8, $90, $9C
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $03, $01, $00, $01
          FCB   $0F, $0B, $0B, $01
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $0C, $98, $F0, $F8
          FCB   $6F, $FD, $0D, $98
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $03, $0F, $0C, $0F
          FCB   $0F, $00, $03, $0C
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $FC, $FF, $63, $FF
          FCB   $FF, $F0, $0C, $03
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $02, $02, $02, $03
          FCB   $03, $03, $03, $02
          FCB   $02, $02, $03, $03
          FCB   $03, $03, $02, $02
          FCB   $02, $03, $03, $03
          FCB   $03, $02, $02, $02
          FCB   $03, $03, $03, $03
          FCB   $02, $02, $02, $02
          FCB   $02, $02, $02, $03
          FCB   $02, $02, $03, $02
          FCB   $02, $02, $03, $02
          FCB   $02, $03, $02, $02
          FCB   $02, $03, $02, $02
          FCB   $03, $02, $02, $02
          FCB   $03, $02, $02, $03
          FCB   $02, $02, $02, $02
          FCB   $02, $10, $11, $12
          FCB   $02, $02, $02, $02
          FCB   $02, $02, $02, $02
          FCB   $02, $02, $02, $02
          FCB   $02, $02, $02, $02
          FCB   $02, $02, $02, $02
          FCB   $02, $02, $02, $02
          FCB   $02, $02, $02, $02
          FCB   $5A, $5B, $5A, $5B
          FCB   $5A, $5B, $5A, $5B
          FCB   $5A, $5B, $5A, $5B
          FCB   $5A, $5B, $5A, $5B
          FCB   $5A, $5B, $5A, $5B
          FCB   $5A, $5B, $42, $42
          FCB   $42, $42, $42, $42
          FCB   $42, $42, $42, $42
          FCB   $5C, $5D, $5C, $5D
          FCB   $5C, $5D, $5C, $5D
          FCB   $5C, $5D, $5C, $5D
          FCB   $5C, $5D, $5C, $5D
          FCB   $5C, $5D, $5C, $5D
          FCB   $5C, $5D, $42, $42
          FCB   $42, $42, $42, $42
          FCB   $42, $42, $42, $42
          FCB   $5C, $5D, $5C, $5D
          FCB   $5C, $5D, $5C, $5D
          FCB   $5C, $5D, $5C, $5D
          FCB   $5C, $5D, $5C, $5D
          FCB   $5C, $5D, $5C, $5D
          FCB   $5C, $5D, $42, $42
          FCB   $42, $42, $42, $42
          FCB   $42, $42, $42, $42
          FCB   $5E, $5F, $5E, $5F
          FCB   $5E, $5F, $5E, $5F
          FCB   $5E, $5F, $5E, $5F
          FCB   $5E, $5F, $5E, $5F
          FCB   $5E, $5F, $5E, $5F
          FCB   $5E, $5F, $42, $42
          FCB   $42, $42, $42, $42
          FCB   $42, $42, $42, $42
          FCB   $5E, $5F, $5E, $5F
          FCB   $5E, $5F, $5E, $5F
          FCB   $5E, $5F, $5E, $5F
          FCB   $5E, $5F, $5E, $5F
          FCB   $5E, $5F, $5E, $5F
          FCB   $5E, $5F, $42, $42
          FCB   $42, $42, $42, $42
          FCB   $42, $42, $42, $42
          FCB   $42, $42, $42, $42
          FCB   $42, $42, $42, $42
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $03, $0C, $30, $FF
          FCB   $0A, $3F, $01, $07
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $FF
          FCB   $3C, $7E, $FF, $FF
          FCB   $AA, $FF, $55, $FF
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $C0, $30, $0C, $FF
          FCB   $A0, $FC, $50, $E0
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $00, $00, $00, $00
          FCB   $01, $20, $10, $0C
          FCB   $41, $20, $10, $00
          FCB   $01, $0E, $18, $21
          FCB   $00, $04, $18, $21
          FCB   $10, $88, $44, $20
          FCB   $0F, $88, $08, $4E
          FCB   $81, $01, $01, $0F
          FCB   $20, $42, $84, $08
          FCB   $44, $08, $61, $02
          FCB   $78, $48, $48, $49
          FCB   $48, $49, $48, $7A
          FCB   $01, $48, $04, $82
          FCB   $40, $80, $04, $18
          FCB   $60, $80, $00, $DA
          FCB   $00, $00, $C0, $30
          FCB   $0C, $82, $40, $00
          FCB   $10, $88, $44, $00
          FCB   $CF, $49, $49, $49
          FCB   $49, $49, $49, $EF
          FCB   $00, $42, $84, $08
          FCB   $10, $88, $44, $00
          FCB   $CF, $48, $48, $4E
          FCB   $41, $41, $41, $EF
          FCB   $00, $42, $84, $08
          FCB   $10, $88, $44, $00
          FCB   $EF, $29, $29, $E9
          FCB   $29, $29, $29, $EF
          FCB   $00, $42, $84, $08
          FCB   $32, $00, $50, $00
          FCB   $00, $00

*  Cartridge Menu String
*  ---------------------
*  
*  The data required by the BIOS for the main menu is here.
*  
*  In the case of Space Destroyers, there is no menu.
*  The words "SPACE DESYTROYERS" are written to the screen.  This
*  is underlined in yellow and blue.  The rest of the menu that
*  normally appears on the screen is written over with black so
*  that it can't be seen.

MENUSTR   FCB   $C8         ; Control Byte - Fill Column with 8 of next byte
          FCB   $80         ; Fill-Byte - APF ASCII $80, (Black)
          FCC   "SPACE DESTROYERS"
          FCB   $D0         ; Control Byte - Fill Column with 16 of next byte
          FCB   $80         ; Fill-Byte - APF ASCII $80, (Black)
          FCB   $D0         ; Control Byte - Fill Column with 16 of next byte
          FCB   $93         ; Fill-Byte - APF ASCII $93, (Top Black / Bottom Yellow)
          FCB   $D0         ; Control Byte - Fill Column with 16 of next byte
          FCB   $80         ; Fill-Byte - APF ASCII $80, (Black)
          FCB   $D0         ; Control Byte - Fill Column with 16 of next byte
          FCB   $A3         ; Fill-Byte - APF ASCII $A3, (Top Black / Bottom Blue)
          FCB   $D0         ; Control Byte - Fill Column with 16 of next byte
          FCB   $80         ; Fill-Byte - APF ASCII $80, (Black)
          FCB   $D0         ; Control Byte - Fill Column with 16 of next byte
          FCB   $80         ; Fill-Byte - APF ASCII $80, (Black)
          FCB   $D0         ; Control Byte - Fill Column with 16 of next byte
          FCB   $80         ; Fill-Byte - APF ASCII $80, (Black)
          FCB   $D0         ; Control Byte - Fill Column with 16 of next byte
          FCB   $80         ; Fill-Byte - APF ASCII $80, (Black)
          FCB   $D0         ; Control Byte - Fill Column with 16 of next byte
          FCB   $80         ; Fill-Byte - APF ASCII $80, (Black)
          FCB   EOS         ; Control Byte - End of String          
          
          FCB   $00, $00, $00, $00
          FCB   $00

          FCB   $4D, $4D, $4D, $4D
          FCB   $4D, $4D, $4D, $4D
          FCB   $4D, $4D, $4D, $4D
          FCB   $4D, $4D, $4D, $4D
          FCB   $4D, $4D, $4D, $4D
          FCB   $4D, $4D, $4D, $4D
