; ; System equates ; ; OS EQUATES ; ---------- ; ; Syntax: ; Use '=' for addresses ; and '#' for values ; ; IO EQUATES ; ICHID EQU $0000 ICDNO EQU $0001 ICCOM EQU $0002 ICSTA EQU $0003 ICBAL EQU $0004 ICBAH EQU $0005 ICPTL EQU $0006 ICPTH EQU $0007 ICBLL EQU $0008 ICBLH EQU $0009 ICAX1 EQU $000A ICAX2 EQU $000B ICAX3 EQU $000C ICAX4 EQU $000D ICAX5 EQU $000E ICAX6 EQU $000F ; ; DISPLAY LIST EQUATES ; ADLI EQU $0080 AVB EQU $0040 ALMS EQU $0040 AVSCR EQU $0020 AHSCR EQU $0010 AJMP EQU $0001 AEMPTY1 EQU $0000 AEMPTY2 EQU $0010 AEMPTY3 EQU $0020 AEMPTY4 EQU $0030 AEMPTY5 EQU $0040 AEMPTY6 EQU $0050 AEMPTY7 EQU $0060 AEMPTY8 EQU $0070 ; ; OS VARIABLES FOR XL/XE ; ; PAGE 0 ; NGFLAG EQU $0001 CASINI EQU $0002 RAMLO EQU $0004 TRAMSZ EQU $0006 CMCMD EQU $0007 WARMST EQU $0008 BOOT EQU $0009 DOSVEC EQU $000A DOSINI EQU $000C APPMHI EQU $000E POKMSK EQU $0010 BRKKEY EQU $0011 RTCLOK EQU $0012 BUFADR EQU $0015 ICCOMT EQU $0017 DSKFMS EQU $0018 DSKUTL EQU $001A ABUFPT EQU $001C ICHIDZ EQU $0020 ICDNOZ EQU $0021 ICCOMZ EQU $0022 ICSTAZ EQU $0023 ICBALZ EQU $0024 ICBAHZ EQU $0025 ICPTLZ EQU $0026 ICPTHZ EQU $0027 ICBLLZ EQU $0028 ICBLHZ EQU $0029 ICAX1Z EQU $002A ICAX2Z EQU $002B ICAX3Z EQU $002C ICAX4Z EQU $002D ICAX5Z EQU $002E ICAX6Z EQU $002F STATUS EQU $0030 CHKSUM EQU $0031 BUFRLO EQU $0032 BUFRHI EQU $0033 BFENLO EQU $0034 BFENHI EQU $0035 LTEMP EQU $0036 BUFRFL EQU $0038 RECVDN EQU $0039 XMTDON EQU $003A CHKSNT EQU $003B NOCKSM EQU $003C BPTR EQU $003D FTYPE EQU $003E FEOF EQU $003F FREQ EQU $0040 SOUNDR EQU $0041 CRITIC EQU $0042 FMSZPG EQU $0043 ZCHAIN EQU $004A DSTAT EQU $004C ATRACT EQU $004D DRKMSK EQU $004E COLRSH EQU $004F TEMP EQU $0050 HOLD1 EQU $0051 LMARGN EQU $0052 RMARGN EQU $0053 ROWCRS EQU $0054 COLCRS EQU $0055 DINDEX EQU $0057 SAVMSC EQU $0058 OLDROW EQU $005A OLDCOL EQU $005B OLDCHR EQU $005D OLDADR EQU $005E FKDEF EQU $0060 PALNTS EQU $0062 LOGCOL EQU $0063 ADRESS EQU $0064 MLTTMP EQU $0066 SAVADR EQU $0068 RAMTOP EQU $006A BUFCNT EQU $006B BUFSTR EQU $006C BITMSK EQU $006E SHFAMT EQU $006F ROWAC EQU $0070 COLAC EQU $0072 ENDPT EQU $0074 DELTAR EQU $0076 DELTAC EQU $0077 KEYDEF EQU $0079 SWPFLG EQU $007B HOLDCH EQU $007C INSDAT EQU $007D COUNTR EQU $007E LOMEM EQU $0080 VNTP EQU $0082 VNTD EQU $0084 VVTP EQU $0086 STMTAB EQU $0088 STMCUR EQU $008A STARP EQU $008C RUNSTK EQU $008E TOPSTK EQU $0090 MEOLFLG EQU $0092 POKADR EQU $0095 DATAD EQU $00B6 DATALN EQU $00B7 STOPLN EQU $00BA SAVCUR EQU $00BE IOCMD EQU $00C0 IODVC EQU $00C1 PROMPT EQU $00C2 ERRSAVE EQU $00C3 COLOUR EQU $00C8 PTABW EQU $00C9 LOADFLG EQU $00CA FR0 EQU $00D4 FRE EQU $00DA FR1 EQU $00E0 FR2 EQU $00E6 FRX EQU $00EC EEXP EQU $00ED NSIGN EQU $00EE ESIGN EQU $00EF FCHRFLG EQU $00F0 DIGRT EQU $00F1 CIX EQU $00F2 INBUFF EQU $00F3 ZTEMP1 EQU $00F5 ZTEMP4 EQU $00F7 ZTEMP3 EQU $00F9 RADFLG EQU $00FB FLPTR EQU $00FC FPTR2 EQU $00FE ; ; PAGE 2 ; VDSLST EQU $0200 VPRCED EQU $0202 VINTER EQU $0204 VBREAK EQU $0206 VKEYBD EQU $0208 VSERIN EQU $020A VSEROR EQU $020C VSEROC EQU $020E VTIMR1 EQU $0210 VTIMR2 EQU $0212 VTIMR4 EQU $0214 VIMIRQ EQU $0216 CDTMV1 EQU $0218 CDTMV2 EQU $021A CDTMV3 EQU $021C CDTMV4 EQU $021E CDTMV5 EQU $0220 VVBLKI EQU $0222 VVBLKD EQU $0224 CDTMA1 EQU $0226 CDTMA2 EQU $0228 CDTMF3 EQU $022A SRTIMR EQU $022B CDTMF4 EQU $022C INTEMP EQU $022D CDTMF5 EQU $022E SDMCTL EQU $022F SDLSTL EQU $0230 SDLSTH EQU $0231 SSKCTL EQU $0232 SPARE EQU $0233 LPENH EQU $0234 LPENV EQU $0235 BRKKY EQU $0236 VPIRQ EQU $0238 CDEVIC EQU $023A CCOMND EQU $023B CAUX1 EQU $023C CAUX2 EQU $023D TMPSIO EQU $023E ERRFLG EQU $023F DFLAGS EQU $0240 DBSECT EQU $0241 BOOTAD EQU $0242 COLDST EQU $0244 RECLEN EQU $0245 DSKTIM EQU $0246 PDVMSK EQU $0247 SHPDVS EQU $0248 PDMSK EQU $0249 RELADR EQU $024A PPTMPA EQU $024C PPTMPX EQU $024D CHSALT EQU $026B VSFLAG EQU $026C KEYDIS EQU $026D FINE EQU $026E GPRIOR EQU $026F PADDL0 EQU $0270 PADDL1 EQU $0271 PADDL2 EQU $0272 PADDL3 EQU $0273 PADDL4 EQU $0274 PADDL5 EQU $0275 PADDL6 EQU $0276 PADDL7 EQU $0277 STICK0 EQU $0278 STICK1 EQU $0279 STICK2 EQU $027A STICK3 EQU $027B PTRIG0 EQU $027C PTRIG1 EQU $027D PTRIG2 EQU $027E PTRIG3 EQU $027F PTRIG4 EQU $0280 PTRIG5 EQU $0281 PTRIG6 EQU $0282 PTRIG7 EQU $0283 STRIG0 EQU $0284 STRIG1 EQU $0285 STRIG2 EQU $0286 STRIG3 EQU $0287 HIBYTE EQU $0288 WMODE EQU $0289 BLIM EQU $028A IMASK EQU $028B JVECK EQU $028C NEWADR EQU $028E TXTROW EQU $0290 TXTCOL EQU $0291 TINDEX EQU $0293 TXTMSC EQU $0294 TXTOLD EQU $0296 CRETRY EQU $029C HOLD3 EQU $029D SUBTMP EQU $029E HOLD2 EQU $029F DMASK EQU $02A0 TMPLBT EQU $02A1 ESCFLG EQU $02A2 TABMAP EQU $02A3 LOGMAP EQU $02B2 INVFLG EQU $02B6 FILFLG EQU $02B7 TMPROW EQU $02B8 TMPCOL EQU $02B9 SCRFLG EQU $02BB HOLD4 EQU $02BC DRETRY EQU $02BD SHFLOC EQU $02BE BOTSCR EQU $02BF PCOLR0 EQU $02C0 PCOLR1 EQU $02C1 PCOLR2 EQU $02C2 PCOLR3 EQU $02C3 COLOR0 EQU $02C4 COLOR1 EQU $02C5 COLOR2 EQU $02C6 COLOR3 EQU $02C7 COLOR4 EQU $02C8 RUNADR EQU $02C9 HIUSED EQU $02CB ZHIUSE EQU $02CD GBYTEA EQU $02CF LOADAD EQU $02D1 ZLOADA EQU $02D3 DSCTLN EQU $02D5 ACMISR EQU $02D7 KRPDER EQU $02D9 KEYREP EQU $02DA NOCLIK EQU $02DB HELPFG EQU $02DC DMASAV EQU $02DD PBPNT EQU $02DE PBUFSZ EQU $02DF RUNAD EQU $02E0 INITAD EQU $02E2 RAMSIZ EQU $02E4 MEMTOP EQU $02E5 MEMLO EQU $02E7 HNDLOD EQU $02E9 DVSTAT EQU $02EA CBAUDL EQU $02EE CBAUDH EQU $02EF CRSINH EQU $02F0 KEYDEL EQU $02F1 CH1 EQU $02F2 CHACT EQU $02F3 CHBAS EQU $02F4 NEWROW EQU $02F5 NEWCOL EQU $02F6 ROWINC EQU $02F8 COLINC EQU $02F9 CHAR EQU $02FA ATACHR EQU $02FB CH EQU $02FC FILDAT EQU $02FD DSPFLG EQU $02FE SSFLAG EQU $02FF ; ; PAGE 3 ; DDEVIC EQU $0300 DUNIT EQU $0301 DCOMND EQU $0302 DSTATS EQU $0303 DBUFLO EQU $0304 DBUFHI EQU $0305 DTIMLO EQU $0306 DUNUSE EQU $0307 DBYTLO EQU $0308 DBYTHI EQU $0309 DAUX1 EQU $030A DAUX2 EQU $030B TIMER1 EQU $030C ADDCOR EQU $030E CASFLG EQU $030F TIMER2 EQU $0310 TEMP1 EQU $0312 TEMP2 EQU $0314 TEMP3 EQU $0315 SAVIO EQU $0316 TIMFLG EQU $0317 STACKP EQU $0318 TSTAT EQU $0319 HATABS EQU $031A PUPBT1 EQU $033D PUPBT2 EQU $033E PUPBT3 EQU $033F IOCB0 EQU $0340 IOCB1 EQU $0350 IOCB2 EQU $0360 IOCB3 EQU $0370 IOCB4 EQU $0380 IOCB5 EQU $0390 IOCB6 EQU $03A0 IOCB7 EQU $03B0 PRNBUF EQU $03C0 SUPERF EQU $03E8 CKEY EQU $03E9 CASSBT EQU $03EA CARTCK EQU $03EB DERRF EQU $03EC ACMVAR EQU $03ED BASICF EQU $03F8 MINTLK EQU $03F9 GINTLK EQU $03FA CHLINK EQU $03FB CASBUF EQU $03FD ; ; HARDWARE REGISTERS ; ; GTIA ; HPOSP0 EQU $D000 HPOSP1 EQU $D001 HPOSP2 EQU $D002 HPOSP3 EQU $D003 HPOSM0 EQU $D004 HPOSM1 EQU $D005 HPOSM2 EQU $D006 HPOSM3 EQU $D007 SIZEP0 EQU $D008 SIZEP1 EQU $D009 SIZEP2 EQU $D00A SIZEP3 EQU $D00B SIZEM EQU $D00C GRAFP0 EQU $D00D GRAFP1 EQU $D00E GRAFP2 EQU $D00F GRAFP3 EQU $D010 GRAFM EQU $D011 COLPM0 EQU $D012 COLPM1 EQU $D013 COLPM2 EQU $D014 COLPM3 EQU $D015 COLPF0 EQU $D016 COLPF1 EQU $D017 COLPF2 EQU $D018 COLPF3 EQU $D019 COLBK EQU $D01A PRIOR EQU $D01B VDELAY EQU $D01C GRACTL EQU $D01D HITCLR EQU $D01E CONSOL EQU $D01F ; ; POKEY ; AUDF1 EQU $D200 AUDC1 EQU $D201 AUDF2 EQU $D202 AUDC2 EQU $D203 AUDF3 EQU $D204 AUDC3 EQU $D205 AUDF4 EQU $D206 AUDC4 EQU $D207 AUDCTL EQU $D208 STIMER EQU $D209 SKREST EQU $D20A POTGO EQU $D20B SEROUT EQU $D20D IRQEN EQU $D20E SKCTL EQU $D20F ; ; PIA ; PORTA EQU $D300 PORTB EQU $D301 PACTL EQU $D302 PBCTL EQU $D303 ; ; ANTIC ; DMACLT EQU $D400 CHACTL EQU $D401 DLISTL EQU $D402 DLISTH EQU $D403 HSCROL EQU $D404 VSCROL EQU $D405 PMBASE EQU $D407 CHBASE EQU $D409 WSYNC EQU $D40A VCOUNT EQU $D40B PENH EQU $D40C PENV EQU $D40D NMIEN EQU $D40E NMIRES EQU $D40F ; ; FLOATING POINT ROUTINES ; AFP EQU $D800 FASC EQU $D8E6 IFP EQU $D9AA FPI EQU $D9D2 ZFR0 EQU $DA44 ZF1 EQU $DA46 FSUB EQU $DA60 FADD EQU $DA66 FMUL EQU $DADB FDIV EQU $DB28 PLYEVL EQU $DD40 FLD0R EQU $DD89 FLD0P EQU $DD8D FLD1R EQU $DD98 FLD1P EQU $DD9C FSTOR EQU $DDA7 FSTOP EQU $DDAB FMOVE EQU $DDB6 EXP EQU $DDC0 EXP10 EQU $DDCC LOG EQU $DECD LOG10 EQU $DED1 ; ; ROM VECTORS ; DSKINV EQU $E453 CIOV EQU $E456 SIOV EQU $E459 SETVBV EQU $E45C SYSVBV EQU $E45F XITVBV EQU $E462 SIOINV EQU $E465 SENDEV EQU $E468 INTINV EQU $E46B CIOINV EQU $E46E SELFSV EQU $E471 WARMSV EQU $E474 COLDSV EQU $E477 RBLOKV EQU $E47A CSOPIV EQU $E47D PUPDIV EQU $E480 SELFTSV EQU $E483 PENTV EQU $E486 PHUNLV EQU $E489 PHINIV EQU $E48C GPDVV EQU $E48F ; ; Code equates ; L0094 EQU $0094 L0097 EQU $0097 L0098 EQU $0098 L0099 EQU $0099 L009A EQU $009A L009B EQU $009B L009C EQU $009C L009D EQU $009D L009E EQU $009E L009F EQU $009F L00A0 EQU $00A0 L00A1 EQU $00A1 L00A2 EQU $00A2 L00A3 EQU $00A3 L00A4 EQU $00A4 L00A5 EQU $00A5 L00A6 EQU $00A6 L00A7 EQU $00A7 L00A8 EQU $00A8 L00A9 EQU $00A9 L00AA EQU $00AA L00AB EQU $00AB L00AC EQU $00AC L00AD EQU $00AD L00AE EQU $00AE L00AF EQU $00AF L00B0 EQU $00B0 L00B1 EQU $00B1 L00B2 EQU $00B2 L00B3 EQU $00B3 L00B4 EQU $00B4 L00B5 EQU $00B5 L00B9 EQU $00B9 L00BC EQU $00BC L00CB EQU $00CB L00CC EQU $00CC L00CD EQU $00CD L00CE EQU $00CE L00CF EQU $00CF L00D0 EQU $00D0 L00D1 EQU $00D1 L00D2 EQU $00D2 L00D3 EQU $00D3 L0480 EQU $0480 L0488 EQU $0488 L0493 EQU $0493 L049B EQU $049B L04A6 EQU $04A6 L04AE EQU $04AE L04B9 EQU $04B9 L04CC EQU $04CC L04DF EQU $04DF L04E7 EQU $04E7 L04EF EQU $04EF L04F2 EQU $04F2 L0505 EQU $0505 L0515 EQU $0515 L0518 EQU $0518 L052B EQU $052B L053E EQU $053E L0552 EQU $0552 L0566 EQU $0566 L057A EQU $057A L058E EQU $058E L05A2 EQU $05A2 L05AA EQU $05AA L05B2 EQU $05B2 L05BA EQU $05BA L05BB EQU $05BB L05C2 EQU $05C2 L05C3 EQU $05C3 L05CA EQU $05CA L05CB EQU $05CB L08C0 EQU $08C0 L08C1 EQU $08C1 L0990 EQU $0990 L0D00 EQU $0D00 L0D01 EQU $0D01 L1004 EQU $1004 L102D EQU $102D L1039 EQU $1039 L103B EQU $103B L1EC8 EQU $1EC8 L1FC8 EQU $1FC8 L1FCA EQU $1FCA L1FCC EQU $1FCC L1FCD EQU $1FCD L1FD2 EQU $1FD2 L1FD4 EQU $1FD4 L1FD5 EQU $1FD5 L47DD EQU $47DD L48DF EQU $48DF L4915 EQU $4915 L493F EQU $493F L4998 EQU $4998 L4A46 EQU $4A46 L4A6F EQU $4A6F L4B0E EQU $4B0E L4C30 EQU $4C30 L4CC1 EQU $4CC1 L4CED EQU $4CED L4D5F EQU $4D5F L4D67 EQU $4D67 L4D85 EQU $4D85 L4DBF EQU $4DBF L4DC1 EQU $4DC1 L4EBD EQU $4EBD L4EE9 EQU $4EE9 L4F33 EQU $4F33 L4F44 EQU $4F44 L4FF4 EQU $4FF4 L5002 EQU $5002 L5045 EQU $5045 L50AB EQU $50AB L51AA EQU $51AA L526D EQU $526D L52CE EQU $52CE L52D4 EQU $52D4 L52D9 EQU $52D9 L52EB EQU $52EB L52F6 EQU $52F6 L5382 EQU $5382 L538F EQU $538F L53BE EQU $53BE L540B EQU $540B L5446 EQU $5446 L5551 EQU $5551 L556C EQU $556C L5580 EQU $5580 L5587 EQU $5587 L559A EQU $559A L55D1 EQU $55D1 L55F8 EQU $55F8 L5611 EQU $5611 L5623 EQU $5623 L5664 EQU $5664 L5696 EQU $5696 L56E0 EQU $56E0 L570F EQU $570F L573F EQU $573F L5743 EQU $5743 L5754 EQU $5754 L5764 EQU $5764 L576A EQU $576A L57B0 EQU $57B0 L57C9 EQU $57C9 L5822 EQU $5822 L5829 EQU $5829 L5834 EQU $5834 L584F EQU $584F L586F EQU $586F L58CA EQU $58CA L58D4 EQU $58D4 L591C EQU $591C L5944 EQU $5944 L595B EQU $595B L5978 EQU $5978 L59A3 EQU $59A3 L59A6 EQU $59A6 L59C0 EQU $59C0 L59FC EQU $59FC L59FE EQU $59FE L5A00 EQU $5A00 L5A79 EQU $5A79 L5AB5 EQU $5AB5 L5AF4 EQU $5AF4 L5B09 EQU $5B09 L5B11 EQU $5B11 L5B19 EQU $5B19 L5B1D EQU $5B1D L5B1E EQU $5B1E L5B29 EQU $5B29 L5B2A EQU $5B2A L5B31 EQU $5B31 L5BDE EQU $5BDE L5BF5 EQU $5BF5 L5DED EQU $5DED L5DEE EQU $5DEE L8060 EQU $8060 LA947 EQU $A947 LB550 EQU $B550 LCFF1 EQU $CFF1 LFEFE EQU $FEFE ; ; Start of code ; ORG $1F00 ; L1F00 SEC LDY #$00 L1F03 LDA (L00B0),Y STA (L00B2),Y LDA L00B4 BNE L1F0D DEC L00B5 L1F0D DEC L00B4 LDA L00B4 ORA L00B5 BEQ L1F1F TYA BNE L1F1C DEC L00B1 DEC L00B3 L1F1C DEY BCS L1F03 L1F1F RTS L1F20 SEC LDY #$00 L1F23 LDA (L00B0),Y STA (L00B2),Y LDA L00B4 BNE L1F2D DEC L00B5 L1F2D DEC L00B4 LDA L00B4 ORA L00B5 BEQ L1F3E INY BNE L1F3C INC L00B1 INC L00B3 L1F3C BCS L1F23 L1F3E RTS LDA #$02 STA BOOT LDA #$53 STA CASINI LDA #$1F STA CASINI+1 LDA #$00 STA COLDST JMP WARMSV LDA L1FC6 ASL BCS L1F68 LDY #$1E L1F5B LDA L1F00,Y STA PRNBUF,Y DEY BPL L1F5B LDY #$1F BCC L1F75 L1F68 LDY #$1D L1F6A LDA L1F20,Y STA PRNBUF,Y DEY BPL L1F6A LDY #$1E L1F75 LDX #$00 L1F77 LDA L1FC8,X STA PRNBUF,Y INY INX CPX L1FC7 BCC L1F77 LDA #$FF STA COLDST LDA #$00 STA WARMST LDA L1FD1 STA L00B0 LDA L1FD2 STA L00B1 LDA L1FD3 STA L00B2 LDA L1FD4 STA L00B3 LDA L1FD5 STA L00B4 LDA L1FD6 STA L00B5 LDA L1FCC STA DOSINI STA CASINI LDA L1FCD STA DOSINI+1 STA CASINI+1 LDA L1FC9 STA RAMLO LDA L1FCA STA RAMLO+1 JMP PRNBUF L1FC6 BRK L1FC7 ORA #$20 L1FC9 CPY FMSZPG+4 JSR L47DD JMP (DOSVEC) L1FD1 LSR BUFRFL,X L1FD3 AND L8060,X L1FD6 CLC BRK AND (SAVCUR),Y DFB $47 CMP LA947,X DFB $3C STA PACTL LDA #$02 STA BOOT LDA #$00 STA COLDST LDA DOSINI STA CASINI LDA DOSINI+1 STA CASINI+1 JMP (DOSINI) LDX #$00 LDY #$00 LDA #$08 STA IODVC LDA #$00 STA IOCMD L2002 STA (IOCMD),Y INY BNE L2002 INC IODVC INX CPX #$08 BNE L2002 STA CASINI LDA #$48 STA CASINI+1 INC BOOT JMP WARMSV SEI LDA #$2E STA SDMCTL LDA #$03 STA GRACTL LDA #$11 STA GPRIOR LDA #$08 STA PMBASE LDA #$2A STA VDSLST LDA #$52 STA VDSLST+1 LDA #$07 LDX #$51 LDY #$DA JSR SETVBV LDA #$C0 STA NMIEN LDA #$95 STA VKEYBD LDA #$51 STA VKEYBD+1 LDA #$40 STA POKMSK STA IRQEN CLI LDA #$10 STA STMTAB+1 LDA #$0D STA STMCUR LDX #$00 LDY #$00 STX L0094 L2066 STX POKADR STX L0098 STX L0099 TXA ASL TAX TYA ADC STMTAB+1 STA STMTAB+1 STA L0D00,X LDA #$00 ADC STMCUR STA STMCUR STA L0D01,X LDY #$00 INX TXA STA (STMTAB+1),Y INY LDA POKADR LSR STA L009A CLC ADC #$02 STA (STMTAB+1),Y INY STA ERRSAVE LDX L0094 L2096 LDA L009A STA L009B L209A LDA L5BF5,X STA (STMTAB+1),Y INY INX DEC L009B BPL L209A LDA #$FF STA (STMTAB+1),Y INY DEC L0099 BPL L2096 STX L0094 STY L0099 L20B2 DEC L0098 BMI L20D4 LDA L0099 SEC SBC ERRSAVE SBC ERRSAVE STA L0099 LDX ERRSAVE L20C1 STY L009A LDY L0099 LDA (STMTAB+1),Y INY STY L0099 LDY L009A STA (STMTAB+1),Y INY DEX BNE L20C1 BEQ L20B2 L20D4 LDX POKADR INX CPX #$08 BNE L2066 LDY #$10 LDA #$40 LDX #$00 L20E1 PHA STA L08C0,X TYA STA L08C1,X PLA INX INX CPX #$C0 BEQ L20F8 CLC ADC #$28 BCC L20E1 INY BCS L20E1 L20F8 LDA #$80 STA SDLSTL LDA #$5F STA SDLSTH LDX #$3B L2104 LDA L59C0,X STA L1004,X DEX BPL L2104 INX STX STMTAB LDA VNTD+1 CLC ADC #$11 STA L102D LDA VVTP CLC ADC #$10 STA L1039 LDA VNTP+1 BEQ L212E LDX #$04 LDA #$00 L2128 STA L103B,X DEX BPL L2128 L212E LDA #$00 LDX #$89 L2132 STA L0000,X INX BNE L2132 DEX TXS L2139 STA L0990,X DEX BNE L2139 LDA #$0C STA FR2+4 LDA #$06 STA ZTEMP4+1 STA FR1 CLC LDA FR0+5 ADC VVTP STA FR0+5 LDA VVTP LSR CLC ADC FRE STA FRE JSR L5446 L215B LDA STMTAB BEQ L215B LDA #$90 STA SDLSTL LDA #$5F STA SDLSTH LDX #$27 LDA #$00 L216D STA L1004,X DEX BPL L216D LDX #$80 LDA #$06 JSR L559A LDA VNTD+1 BEQ L2195 LDA ESIGN TAX EOR #$01 TAY LDA L59FE,X TAX LDA #$1C STA L1004,X LDA L59FC,Y LDX #$F4 JSR L559A L2195 LDA #$80 STA L009C LDY #$3C STY L009D LDA #$01 LDY #$06 LDX #$00 JSR L59A6 LDA #$62 STA INBUFF STA FCHRFLG LDA #$AA JSR L538F LDX #$00 STX L00A0 STX ATRACT DEX TXS LDA CIX BEQ L21C0 JSR L55D1 L21C0 LDA FCHRFLG BEQ L21D7 LDA INBUFF BNE L21D4 STA FCHRFLG LDX #$00 JSR L59A3 LDA #$00 JSR L538F L21D4 JMP L4F33 L21D7 LDA CIX BEQ L21F0 LDX #$00 LDA VNTD BNE L21E3 LDX ESIGN L21E3 LDA STRIG0,X TAX EOR L009E AND L009E STX L009E LSR BCS L21F3 L21F0 JMP L4A46 L21F3 LDA L00A5 BEQ L21FB LDA L00CD BNE L220C L21FB LDA #$00 STA AUDCTL LDA #$1F LDY #$29 LDX #$04 JSR L59A6 JMP L4A46 L220C LDY #$07 L220E LDA L0505,Y BEQ L2217 DEY BPL L220E BRK L2217 DEC L00A5 DEC L00CD LDA #$51 STA L00AD LDA #$56 STA L00AE LDX L009D INX STX L00B0 LDA L009C SEC SBC #$2D STA L00AF JSR L586F JSR L57B0 LDA L00CD BNE L223C JSR L540B L223C LDA #$E3 STA STMCUR+1 LDA #$5B STA STARP LDX L009D LDA L009C SEC SBC #$2E TAY LDA #$55 JSR L5664 LDA #$20 STA AUDCTL LDA #$2E LDY #$4C LDX #$04 JSR L59A6 LDA L00CD LDX #$A6 L2263 TAY CLC LDA L08C0,X ADC #$13 STA STMTAB+1 LDA L08C1,X ADC #$00 STA STMCUR TYA LDY #$02 L2276 ORA (STMTAB+1),Y BNE L2286 DEY BPL L2276 INX INX CPX #$B6 BNE L2263 JSR L540B L2286 LDX #$02 BNE L228E LDA L00A8 BNE L2296 L228E LDA L04EF,X BNE L2296 L2293 JMP L4B0E L2296 LDA HPOSM1,X AND #$04 BEQ L2293 LDA #$00 STA HPOSP1,X STX POKADR CPX #$00 BNE L22FA LDA L00A8 BEQ L22FA LDA #$01 STA L0099 LDA #$00 JSR L5978 LDA L00A9 LSR BCS L22C4 LDA #$BE STA STMCUR+1 LDA #$5B STA STARP BNE L22DA L22C4 ASL ASL BCS L22D2 LDA #$7A STA STMCUR+1 LDA #$5B STA STARP BNE L22DA L22D2 LDA #$9C STA STMCUR+1 LDA #$5B STA STARP L22DA LDA L00AA SEC SBC #$30 TAY LDA #$AA LDX L00AB JSR L5664 LDA L00AB CLC ADC #$04 TAY LDA #$00 STA L00A8 LDA L00AA SEC SBC #$2D LDX #$18 BNE L231E L22FA LDA #$01 STA L0099 LDA #$25 JSR L5978 LDA L00B9,X JSR L5944 TXA CLC ADC #$10 TAX LDA #$00 STA L04DF,X LDA L0493,X CLC ADC #$02 TAY LDA L0480,X ADC #$02 L231E STA L00AF STY L00B0 JSR L58D4 LDX POKADR DEX BMI L232D JMP L4A6F L232D LDA #$90 STA STMCUR+1 LDA #$09 STA STARP LDY #$03 CLC LDA #$0E ADC L00A1 TAX L233D STY POKADR LDA L04DF,X BEQ L236B LDA HPOSP0,Y AND #$04 BEQ L236B LDA #$00 STA L0099 LDA #$25 JSR L5978 JSR L58CA LDA L00A9,X JSR L5944 LDA L0505,X SEC SBC L04DF,X STA L04DF,X BEQ L236B JSR L576A L236B LDY POKADR LDA L00BC,Y TAY LDA #$00 STA (STMCUR+1),Y DEX DEX LDY POKADR DEY BPL L233D LDX #$07 LDA L00A1 BEQ L2387 DEX LDA #$00 BEQ L2389 L2387 LDA #$01 L2389 STA L00A1 LDY #$03 LDA #$80 L238F STA L0098 LDA L04E7,X BEQ L23B0 STY POKADR LDA L0098 LDY L049B,X ORA (STMCUR+1),Y STA (STMCUR+1),Y TYA LDY POKADR STA L00BC,Y LDA L0488,X CLC ADC #$30 STA HPOSM0,Y L23B0 LDA L0098 LSR LSR DEX DEX DEY BPL L238F LDX #$0F STX HITCLR JSR L53BE LDX #$07 JSR L53BE JSR L52EB LDA L00A8 BNE L2449 LDA COLOUR BEQ L23D6 DEC COLOUR JMP L4C30 L23D6 LDA L00A3 BEQ L2449 LDA L0515 BNE L2449 LDY SKREST CPY #$18 BCC L2449 CPY #$34 BCS L2449 STY L00AB LDA SKREST STA L00A9 LSR BCC L240C ASL ASL BCS L2402 LDA #$72 STA STMCUR+1 LDA #$5B STA STARP BNE L2414 L2402 LDA #$94 STA STMCUR+1 LDA #$5B STA STARP BNE L2414 L240C LDA #$B6 STA STMCUR+1 LDA #$5B STA STARP L2414 LDA L00A9 BMI L241C LDA #$30 BNE L241E L241C LDA #$C8 L241E STA L00AA STA L0515 STA L00A8 LDA #$07 LDX #$01 JSR L56E0 LDA L00AA STA HPOSP1 LDA #$00 STA L00AC LDA FR0+4 STA COLOUR LDA NSIGN BNE L2446 LDA #$6F LDY #$74 LDX #$06 JSR L59A6 L2446 JMP L4D85 L2449 LDA L00CC BNE L2450 JMP L4D67 L2450 LDA L00A3 BEQ L245B LDA SKREST AND #$03 BNE L245E L245B JMP L4CED L245E LDY L00CB BNE L2465 JMP L4D5F L2465 LDA L00A8 BEQ L248E LDA LOADFLG BEQ L2471 DEC LOADFLG BPL L248E L2471 LDA L00AA CMP #$35 BCC L248E CMP #$C1 BCS L248E SEC SBC #$2C TAX LDA #$08 STA LOADFLG LDA #$FF STA POKADR LDA L00AB CLC ADC #$04 BNE L24B3 L248E LDX #$07 L2490 LDA L04E7,X BEQ L24A0 LDA L049B,X CMP #$18 BCC L24A0 CMP #$34 BCC L24A5 L24A0 DEX BPL L2490 BMI L24E1 L24A5 PHA LDA #$00 STA POKADR LDA L00B1,X STA ERRSAVE LDA L0488,X TAX PLA L24B3 STA L00AE STX L00AD STY L0097 L24B9 JSR L57C9 TXA LDY POKADR BMI L24CF L24C1 CMP ERRSAVE,Y BNE L24CC JSR L5944 JMP L4CC1 L24CC DEY BPL L24C1 L24CF LDY POKADR INY STA ERRSAVE,Y STY POKADR JSR L584F DEC L0097 BNE L24B9 JMP L4D5F L24E1 LDA SKREST CMP #$A0 BCS L2503 LDY #$07 L24EA LDX L04E7,Y BEQ L24F4 CMP L04AE,Y BEQ L2503 L24F4 DEY BPL L24EA STA L00AD LDA #$08 STA L00AE JSR L57C9 JSR L584F L2503 JMP L4D5F LDX L00A7 BNE L250D L250A JMP L4D85 L250D LDA L00A2 BEQ L250A LDA SKREST CMP #$9E BCS L250A LDX #$02 L251A LDY L0515,X BEQ L2525 DEX BPL L251A JMP L4D5F L2525 STA L00AD LDY #$08 STY L00AE LDA #$DF STA STMCUR+1 DFB $5B,$BB STA STARP LDA #$02 STX POKADR INX JSR L56E0 LDA L00AD LDX POKADR CLC ADC #$30 STA HPOSP1,X JSR L57C9 TXA INC NSIGN DEC L00A2 DEC L00A7 LDX POKADR STA L00B9,X TAX CLC LDA POKADR ADC #$10 TAY LDA L5822,X SEC SBC #$02 STA L00AF LDA #$55 STA L00B0 JSR L586F LDA #$65 LDY #$6A LDX #$06 JSR L59A6 LDA L00CB BEQ L2578 DEC L00CB L2578 LDA L00CB BNE L259E STA L00CC BEQ L259E DEC PTABW BNE L259E LDA L00A3 CMP #$05 BCC L258C LDA #$04 L258C CMP L00A6 BCC L2592 LDA L00A6 L2592 STA L00CB ORA L00A2 BEQ L259E STA L00CC LDA FR0+3 STA PTABW L259E LDA L00A8 BEQ L25D8 LDA FR0+2 CLC ADC L00AC STA L00AC BCC L25D8 LDX L00AA LDA L00A9 BMI L25B8 INX CPX #$C8 BCS L25C5 BCC L25BD L25B8 DEX CPX #$30 BCC L25C5 L25BD STX HPOSP1 STX L00AA JMP L4DBF L25C5 LDA #$00 STA L00A8 STA HPOSP1 STA L0515 LDA NSIGN BNE L25D8 LDX #$06 JSR L59A3 L25D8 LDX #$12 LDA L04DF,X BNE L25E2 JMP L4EE9 L25E2 SEC LDA L00A4 ADC L04CC,X STA L04CC,X BCS L25F0 JMP L4EE9 L25F0 LDA #$00 STA ERRSAVE LDA L0493,X CMP #$0A BCC L264B CMP #$51 BCS L264B LDA L0480,X CMP #$02 BCC L264B CMP #$99 BCS L264B LDY #$07 L260C STY POKADR LDA L5B09,Y CLC ADC L0480,X STA L0098 LDA L5B11,Y CLC ADC L0493,X ASL TAY LDA L08C0,Y STA STMTAB+1 LDA L08C1,Y STA STMCUR LDA L0098 LSR LSR TAY LDA (STMTAB+1),Y PHA LDA L0098 AND #$03 TAY PLA AND L5B19,Y EOR L5B19,Y BNE L2643 SEC BCS L2644 L2643 CLC L2644 ROR ERRSAVE LDY POKADR DEY BPL L260C L264B LDA ERRSAVE BEQ L2653 STA L00B0,X BNE L267C L2653 LDA L00B0,X BEQ L267C LDA #$00 STA L00B0,X LDY L00A9,X LDA L5822,Y SEC SBC #$02 STA L00AF LDA #$55 STA L00B0 LDA L0480,X STA L00AD LDA L0493,X STA L00AE STX POKADR TXA TAY JSR L586F LDX POKADR L267C LDA L00B0,X BNE L26AB JSR L595B DEC L04DF,X BEQ L268B JMP L4EBD L268B LDA #$00 STA LCFF1,X LDY L0480,X INY INY STY L00AF LDY L0493,X INY INY STY L00B0 JSR L58D4 STX POKADR JSR L5829 LDX POKADR JMP L4EE9 L26AB LDA ERRSAVE AND #$0F BNE L26BA INC L0480,X INC L0493,X JMP L4EBD L26BA LDA ERRSAVE AND #$F0 BNE L26C9 DEC L0480,X INC L0493,X JMP L4EBD L26C9 AND #$7E BNE L26D3 INC L0493,X JMP L4EBD L26D3 DEC L0493,X LDA L0480,X CLC ADC #$30 STA LCFF1,X TXA SEC SBC #$0F ASL TAY LDA L0493,X SEC SBC #$01 CLC ADC L5B29,Y STA STMTAB+1 LDA #$00 ADC L5B2A,Y STA STMCUR LDY #$04 L26FA LDA L5BDE,Y STA (STMTAB+1),Y DEY BPL L26FA DEX CPX #$0F BEQ L270A JMP L4DC1 L270A LDA L00A0 BNE L274F LDA FR1 ORA L00CD ORA L00CE BEQ L272D LDA L00A3 ORA L00A2 BNE L274C LDX #$0A L271E ORA L04E7,X DEX BPL L271E ORA L00A8 STA CIX BNE L272D STA HPOSP0 L272D LDA #$00 STA L00A3 STA L00A2 LDX #$13 L2735 LDA L053E,X BPL L274C DEX BPL L2735 LDA L00A6 CLC ADC L00A7 ADC L00A5 CMP #$13 BNE L274C LDA L00A8 BEQ L2752 L274C JSR L5587 L274F JMP L4998 L2752 LDX #$00 STX HPOSP0 STX FR1 LDA #$15 STA POKADR+1 DEC L00CD BMI L2784 JSR L57B0 LDA POKADR+1 CLC ADC #$04 STA POKADR+1 TAY LDX #$20 LDA #$55 JSR L5664 LDA #$00 STA L0099 LDA #$05 JSR L5978 LDX #$05 JSR L556C JMP L4F44 L2784 LDA L00CE BEQ L278E JSR L540B JMP L4F44 L278E LDA #$37 STA STMCUR+1 LDA #$5B STA STARP LDA #$0B STA POKADR+1 LDX #$05 L279C STX POKADR LDA FR1+1,X BMI L27CD INC FR1 LDA #$00 LDY L5B31,X LDX #$59 JSR L5664 LDA POKADR+1 CLC ADC #$0E STA POKADR+1 TAY LDX #$30 LDA #$55 JSR L5664 LDA #$01 STA L0099 LDA #$00 JSR L5978 LDX #$0F JSR L556C LDX POKADR L27CD DEX BPL L279C LDA VNTP+1 BEQ L27D7 JMP L5045 L27D7 LDA #$00 STA L0098 LDA FRE+4 AND #$0F STA L0099 LDA FRE+4 LSR LSR LSR LSR TAX LDA #$00 CPX #$01 BCC L27F4 CLC L27EF ADC #$0A DEX BNE L27EF L27F4 ADC L0099 STA L0099 L27F8 LDA L0099 CMP FRE+5 BEQ L2835 LDA FR1 CMP #$06 BEQ L2835 LDA SKREST LSR AND #$07 TAX BCS L281B CPX #$06 BCC L2813 LDX #$05 L2813 LDA FR1+1,X BMI L2829 DEX JMP L4FF4 L281B CPX #$06 BCC L2821 LDX #$00 L2821 LDA FR1+1,X BMI L2829 INX JMP L5002 L2829 LDA #$00 STA FR1+1,X INC FR1 INC FRE+5 INC L0098 BNE L27F8 L2835 LDA L0098 BEQ L285E LDA #$A4 STA AUDC2 LDA #$12 STA L009A L2842 LDA SKREST AND #$1E BNE L284B LDA #$1E L284B ADC #$08 STA AUDF2 LDX #$06 JSR L5580 DEC L009A BPL L2842 LDA #$00 STA AUDC2 L285E LDY FR1 BNE L2885 SEC LDA LOMEM SBC FRE+2 LDA LOMEM+1 SBC FRE+3 LDA VNTP SBC FRE+4 BCS L287A LDX #$02 L2873 LDA FRE+2,X STA LOMEM,X DEX BPL L2873 L287A LDA VNTD+1 BEQ L2882 LDA ZTEMP4+1 BNE L288D L2882 JMP L50AB L2885 LDY VNTD+1 BEQ L28A2 LDY ZTEMP4+1 BEQ L28A2 L288D LDX #$0A L288F LDY INBUFF+1,X LDA FRE+2,X STA INBUFF+1,X STY FRE+2,X DEX BPL L288F LDA ESIGN EOR #$01 STA ESIGN BNE L28BC L28A2 LDX FR0+5 INX CPX #$15 BCC L28AB LDX #$13 L28AB STX FR0+5 TXA LSR BCS L28BC LDX FRE INX CPX #$0A BCC L28BA LDX #$00 L28BA STX FRE L28BC LDX #$5A JSR L5580 JMP L493F JSR L5551 LDA #$00 STA COLOR0 STA COLOR4 LDA #$63 STA STMCUR+1 LDA #$5C STA STARP LDX #$30 LDY #$18 LDA #$55 JSR L5664 LDA #$28 STA STMCUR+1 LDA #$5D STA STARP LDX #$30 LDY #$58 LDA #$55 JSR L5664 LDA #$0B LDY #$10 LDX #$00 JSR L59A6 LDA #$15 LDY #$10 LDX #$02 JSR L59A6 LDA #$06 STA POKADR LDA #$01 STA POKADR+1 L290B LDA POKADR+1 STA L0097 LDA #$00 STA L00A0 LDA SKREST ORA #$08 AND #$FB STA COLOR0 STA COLOR4 L2920 LDA L00A0 BEQ L2920 DEC L0097 BEQ L2944 LDA COLOR4 AND #$F0 STA COLOR4 LDA SKREST AND #$0B ORA COLOR4 STA COLOR4 STA COLOR0 LDA #$00 STA L00A0 BEQ L2920 L2944 INC POKADR+1 DEC POKADR BNE L290B LDA #$34 STA COLOR0 STA COLOR1 LDA #$FF STA L0097 L2956 LDA #$08 STA POKADR L295A LDA #$00 STA L00A0 LDA SKREST AND L0097 STA COLOR4 L2966 LDA L00A0 BEQ L2966 DEC POKADR BNE L295A LSR L0097 BCS L2956 LDA #$00 STA COLOR4 LDA #$FE STA RTCLOK+1 L297B LDA RTCLOK+1 BNE L297B LDA #$13 STA L0094 L2983 LDA SKREST AND #$1F CLC ADC #$1F STA L00B0 LDA SKREST AND #$7F CLC ADC #$10 STA L00AF LDX L0094 JSR L58D4 LDX #$10 JSR L52D9 DEC L0094 BPL L2983 LDX #$FF JSR L52D9 JMP L48DF RTS TXA PHA LDA DIGRT EOR #$FF STA DIGRT LDA STIMER CMP #$AD BNE L29C7 LDA VNTD EOR #$FF STA VNTD L29C3 CLI JMP L48DF L29C7 CMP #$3E BNE L29D4 LDA VVTP+1 EOR #$FF STA VVTP+1 JMP L51AA L29D4 CMP #$C0 BCS L29EA TAX LDA LFEFE,X CMP #$3A BCS L29EA CMP #$30 BCC L29EA SBC #$30 STA VVTP BPL L29C3 L29EA CLI LDA DIGRT BNE L29EA PLA TAX PLA RTI CLD LDA #$FF STA L00A0 CLC LDA FR2+4 ADC #$10 STA FR2+4 STA COLPF2 DEC INBUFF LDA SKREST AND #$0F ORA #$B0 STA ICAX2Z LDA #$00 STA ICAX1Z LDY SKREST STA (ICAX1Z),Y LDA CONSOL TAY EOR L009F AND L009F STY L009F LSR BCS L2A3A LSR BCC L2A2E LDA VNTD+1 EOR #$01 STA VNTD+1 BCS L2A37 L2A2E LSR BCC L2A40 LDA VNTP+1 EOR #$01 STA VNTP+1 L2A37 JMP L48DF L2A3A ROL STA STMTAB JMP L4915 L2A40 JMP XITVBV PHA TXA PHA TYA PHA CLD LDA VCOUNT LDX #$04 L2A4E CMP L52D4,X BEQ L2A89 BCS L2A58 DEX BPL L2A4E L2A58 LDA DIGRT BNE L2A86 LDA PORTA TAX EOR FR2+5 AND FR2+5 STX FR2+5 LSR LSR BCC L2A76 TAY TXA LSR BCC L2A73 INC FRX BCS L2A75 L2A73 DEC FRX L2A75 TYA L2A76 LSR LSR BCC L2A86 TXA AND #$04 BEQ L2A84 INC EEXP JMP L526D L2A84 DEC EEXP L2A86 JMP L52CE L2A89 CMP #$66 BNE L2A94 LDA L00D2 STA COLPF1 BNE L2AE7 L2A94 LDA FR2+3 BNE L2AE7 LDX #$07 L2A9A LDA L05CA,X BEQ L2AE4 DEC L05CA,X BNE L2AE4 DEC L05BA,X BNE L2AD1 LDY L05C2,X BNE L2AB4 TYA STA AUDF1,X BEQ L2AE4 L2AB4 TXA PHA LDA #$04 STA FR2+2 L2ABA LDA L5A00,Y STA L05A2,X TXA CLC ADC #$08 TAX INY DEC FR2+2 BPL L2ABA PLA TAX LDA L05A2,X BNE L2ADB L2AD1 CLC LDA L05AA,X ADC L05A2,X STA L05A2,X L2ADB STA AUDF1,X LDA L05B2,X STA L05CA,X L2AE4 DEX BPL L2A9A L2AE7 PLA TAY PLA TAX PLA RTI ASL ICBLLZ EOR #$66 ROR STX ERRSAVE L2AF4 LDA #$00 STA L00A0 JSR L52EB L2AFB LDA L00A0 BEQ L2AFB DEC ERRSAVE BNE L2AF4 RTS LDX L00CF INX CPX #$0A BCC L2B0D LDX #$00 L2B0D STX L00CF LDY L053E,X BPL L2B17 JMP L5382 L2B17 CPY #$08 BCC L2B2B LDA #$00 STA L0552,X LDY #$07 DEC L053E,X INC L0566,X INC L057A,X L2B2B STX POKADR TYA ASL TAX LDA L0D00,X STA STMCUR+1 LDA L0D01,X STA STARP LDX POKADR LDY L0566,X CPY #$FF BNE L2B4A LDY #$9F DEC L057A,X BNE L2B53 L2B4A CPY #$A0 BCC L2B57 LDY #$00 INC L057A,X L2B53 TYA STA L0566,X L2B57 LDA L0552,X PHA LDA L057A,X TAX PLA JSR L5664 LDX POKADR LDA L0552,X BEQ L2B76 INC L053E,X DEC L0566,X DEC L057A,X JMP L5382 L2B76 DEC L053E,X BPL L2B95 LDA L058E,X AND #$7F TAY LDA #$00 STA L0505,Y LDA L058E,X BMI L2B95 LSR LSR LSR STX L0098 TAX INC L00A5,X LDX L0098 L2B95 INC L0566,X INC L057A,X TXA CLC ADC #$0A TAX CPX #$14 BCS L2BA7 JMP L52F6 L2BA7 RTS PHA LDA FR0+5 AND #$FE CMP #$0B BCC L2BB3 LDA #$0A L2BB3 TAY LDA L5DED,Y STA STMCUR+1 LDA L5DEE,Y STA STARP LDX #$28 LDY #$29 PLA PHA JSR L5664 LDA #$B9 STA STMCUR+1 LDA #$5E STA STARP LDX #$28 LDY #$34 PLA JMP L5664 L2BD7 LDA L04DF,X BEQ L2C20 LDA L00A4 CPX #$08 BCS L2BE5 LDA #$D0 SEC L2BE5 ADC L04CC,X STA L04CC,X BCC L2C20 DEC L04DF,X BNE L2C05 JSR L5764 JSR L58CA CPX #$08 BCC L2C20 STX POKADR JSR L5829 LDX POKADR BPL L2C20 L2C05 LDY L0480,X STX L0098 LDA #$55 CPX #$08 BCC L2C12 LDA #$AA L2C12 STA RUNSTK LDA L0493,X TAX JSR L570F LDX L0098 JSR L595B L2C20 DEX BPL L2BD7 RTS LDA L00CE BEQ L2C5E DEC L00CE LDA #$4D STA STMCUR+1 LDA #$5B STA STARP LDX #$58 LDY #$4A LDA #$AA JSR L5664 LDA #$EB STA STMCUR+1 LDA #$5B STA STARP LDY #$0A L2C45 STY POKADR LDA L5B1D,Y TAX LDA L5B1E,Y TAY LDA #$55 JSR L5664 LDY POKADR DEY DEY BPL L2C45 LDA #$06 STA L00CD L2C5E RTS LDA #$00 STA L00A1 LDY #$07 L2C65 STA L00BC,Y DEY BPL L2C65 STA FR2+1 STA L00CF JSR L5551 LDX #$12 L2C74 STA L04DF,X STA L0505,X DEX BPL L2C74 STA L00A8 LDX #$06 L2C81 STA HPOSP1,X DEX BPL L2C81 STA COLOUR STA PTABW STA LOADFLG LDX #$06 L2C8F JSR L59A3 DEX DEX BPL L2C8F LDA #$AA LDX #$77 L2C9A STA L1EC8,X DEX BPL L2C9A LDA #$05 STA L00CE JSR L540B LDA #$37 STA STMCUR+1 LDA #$5B STA STARP LDX #$05 L2CB1 STX POKADR LDA FR1+1,X BMI L2CC3 LDY L5B31,X LDX #$59 LDA #$55 JSR L5664 LDX POKADR L2CC3 DEX BPL L2CB1 LDA #$08 STA L00A6 STA L00A5 LDA #$03 STA L00A7 LDA FRE ASL ADC FRE ASL TAX LDY #$05 L2CD9 LDA L5A79,X STA L00D0,Y INX DEY BPL L2CD9 LDA FR0+5 ASL ADC FR0+5 TAX LDY #$02 L2CEB LDA L5AB5,X STA L00A2,Y INX DEY BPL L2CEB LDA FR0+5 LSR STA L0098 ASL ADC L0098 TAX CPX #$13 BCC L2D04 LDX #$12 L2D04 LDY #$02 L2D06 LDA L5AF4,X STA FR0+2,Y INX DEY BPL L2D06 LDA VNTD BEQ L2D1B LDA L00A4 CLC ADC #$0A STA L00A4 L2D1B LDA VVTP+1 BEQ L2D2A CLC LDA L00A3 ADC L00A2 STA L00A2 LDA #$00 STA L00A3 L2D2A LDA L00D3 STA COLOR4 LDA FR0 STA COLOR1 LDA FR0+1 STA COLOR0 LDA L00D1 STA PCOLR0 LDA L00D0 STA PCOLR1 STA PCOLR2 STA PCOLR3 LDA #$0A STA L00CF LDA #$FF LDX #$13 L2D51 STA L053E,X DEX BPL L2D51 LDY FR1 CPY #$04 BCC L2D5F LDY #$03 L2D5F STY FR1 LDA #$04 STA L00CB STA L00CC STA CIX RTS LDA #$00 LDY #$40 STY STMTAB+1 LDY #$10 STY STMCUR LDX #$10 L2D76 LDY #$FF L2D78 STA (STMTAB+1),Y DEY BNE L2D78 STA (STMTAB+1),Y INC STMCUR DEX BNE L2D76 RTS STX INBUFF LDA #$00 STA L00A0 JSR L5587 LDA #$5B LDY #$60 LDX #$00 JSR L59A6 LDX INBUFF STX INBUFF L2D9B LDA INBUFF BNE L2D9B RTS LDA L00A0 BNE L2DAE LDX ESIGN LDA L59FC,X LDX #$DC JSR L559A L2DAE LDA L00A0 BEQ L2DAE RTS STA L0098 LDA #$02 STA L0099 L2DB9 LDA L0000,X TAY AND #$0F PHA TYA LSR LSR LSR LSR PHA INX DEC L0099 BPL L2DB9 LDX #$F0 LDY L0098 LDA #$05 STA L0099 L2DD2 PLA BNE L2DDC LDA L0099 BEQ L2DDE TXA BNE L2DDE L2DDC LDX #$00 L2DDE CLC ADC #$50 STA L1004,Y INY DEC L0099 BPL L2DD2 RTS LDA VNTD BEQ L2E02 CLC LDA L009C ADC FRX TAX CLC LDA L009D ADC EEXP TAY LDA #$00 STA FRX STA EEXP BEQ L2E3D L2E02 LDX ESIGN LDA STICK0,X LDX L009C LDY L009D LSR BCC L2E1E LSR BCC L2E26 LSR BCC L2E37 LSR BCS L2E3D LDA L009C ADC #$01 JMP L5623 L2E1E SEC LDA L009D SBC #$01 JMP L5611 L2E26 LDA L009D ADC #$01 TAY LDX ESIGN LDA STICK0,X LDX L009C LSR LSR JMP L55F8 L2E37 SEC LDA L009C SBC #$01 TAX L2E3D TYA BMI L2E44 CMP #$08 BCS L2E46 L2E44 LDA #$08 L2E46 CMP #$4F BCC L2E4C LDA #$4F L2E4C TAY CPX #$2F BCS L2E53 LDX #$2F L2E53 CPX #$C9 BCC L2E59 LDX #$C9 L2E59 STX HPOSP0 STX L009C STY L009D LDA L00CE BNE L2E6E LDA #$DB STA STMCUR+1 LDA #$5B STA STARP BNE L2E76 L2E6E LDA #$D8 STA STMCUR+1 LDA #$5B STA STARP L2E76 LDA #$02 LDX #$00 JMP L56E0 STA RUNSTK CPX #$61 BCS L2E8A TXA ASL TAX CPY #$A0 BCC L2E8B L2E8A BRK L2E8B TYA LSR LSR CLC ADC L08C0,X STA STMTAB+1 LDA L08C1,X ADC #$00 STA STMCUR TYA AND #$03 ASL STA RUNSTK+1 LDY #$00 LDA (STMCUR+1),Y STA L009A INY LDA (STMCUR+1),Y STA STARP+1 INY STY TOPSTK L2EAF LDY #$FF STY L0098 INY L2EB4 LDA #$FF STA L0099 STY TOPSTK+1 LDY TOPSTK LDA (STMCUR+1),Y INC TOPSTK LDY TOPSTK+1 LDX RUNSTK+1 BEQ L2ECD L2EC6 SEC ROR ROR L0099 DEX BNE L2EC6 L2ECD AND L0098 TAX AND (STMTAB+1),Y STA (STMTAB+1),Y TXA EOR #$FF AND RUNSTK ORA (STMTAB+1),Y STA (STMTAB+1),Y LDA L0099 STA L0098 INY CPY STARP+1 BNE L2EB4 DEC L009A BEQ L2EF8 LDA STMTAB+1 CLC ADC #$28 STA STMTAB+1 BCC L2EAF INC STMCUR JMP L5696 L2EF8 RTS STA L0098 STY L0099 TXA ASL TAX LDA L5B29,X STA STMTAB+1 LDA L5B2A,X STA STMCUR LDA #$00 LDY #$7F L2F0E STA (STMTAB+1),Y DEY BPL L2F0E CLC LDA L0099 ADC STMTAB+1 STA STMTAB+1 BCC L2F1E INC STMCUR L2F1E LDY L0098 L2F20 LDA (STMCUR+1),Y STA (STMTAB+1),Y DEY BPL L2F20 RTS CPX #$60 BCS L2F33 TXA ASL TAX CPY #$A0 BCC L2F34 L2F33 BRK L2F34 LDA L08C0,X STA STMTAB+1 LDA L08C1,X STA STMCUR TYA AND #$03 TAX TYA LSR LSR TAY LDA L573F,X TAX AND (STMTAB+1),Y STA L009B TXA EOR #$FF AND RUNSTK ORA L009B STA (STMTAB+1),Y RTS DFB $3F,$CF,$F3,$FC LDA L052B,X BPL L2F72 L2F61 CPX #$08 BCS L2F69 DEC L0493,X RTS L2F69 INC L0493,X RTS LDA L052B,X BPL L2F61 L2F72 LSR BCC L2F79 INC L0480,X RTS L2F79 DEC L0480,X RTS LDA L0505,X STA L04DF,X LDA #$00 STA RUNSTK LDA L04A6,X STA L0480,X LDA L04B9,X STA L0493,X LDA #$00 STA L04F2,X L2F98 LDY L0480,X LDA L0493,X STX L0098 TAX JSR L570F LDX L0098 CLC LDA L04F2,X ADC L0518,X STA L04F2,X CMP L0505,X BCC L2FC0 BEQ L2FC0 SBC L0505,X STA L04F2,X JSR L5743 L2FC0 JSR L5754 DEC L04DF,X BNE L2F98 RTS LDA L00CD ASL TAY LDA L5B1D,Y TAX LDA L5B1E,Y TAY LDA #$EB STA STMCUR+1 LDA #$5B STA STARP LDA #$AA JMP L5664 LDA SKREST AND #$0F LDX FR1 BEQ L3013 L2FEB CMP #$06 BCC L2FF3 SBC #$06 BCS L2FEB L2FF3 TAX BIT SKREST L2FF7 LDA FR1+1,X BEQ L300D BVC L3006 INX CPX #$06 BCC L2FF7 LDX #$00 BEQ L2FF7 L3006 DEX BPL L2FF7 LDX #$05 BNE L2FF7 L300D INC FR1+1,X DEC FR1 BPL L3037 L3013 LDX FR2+1 BNE L301B LDX #$06 BNE L3031 L301B CMP #$07 BCC L3023 SBC #$07 BCS L301B L3023 TAX CPX #$06 BEQ L3031 LDA FR1+1,X BNE L3031 TXA ADC #$04 BCC L301B L3031 LDA FR1+1,X BMI L3037 INC FR1+1,X L3037 LDA L5822,X RTS DFB $13 ROL XMTDON DFB $67,$7A STY LB550 LDA #$C9 DFB $07 BCC L3049 BRK L3049 CMP #$06 BNE L3062 LDA L00CD CMP #$04 BCC L305B DEC L00CD JSR L57B0 JMP L5834 L305B DEC FR2+1 LDA #$00 STA L00CD RTS L3062 TAX LDA #$FF STA FR1+1,X RTS LDY #$0F L306A LDA L0505,Y BEQ L3075 DEY CPY #$07 BNE L306A BRK L3075 TXA STA L00A9,Y DEC L00A3 DEC L00CB DEC L00A6 LDA L5822,X STA L00AF LDA #$57 STA L00B0 LDA L00AD STA L04A6,Y STA L0480,Y LDA L00AE STA L04B9,Y STA L0493,Y SEC SBC L00B0 BCS L30A1 EOR #$FF ADC #$01 L30A1 STA FRE+1 SEC LDA L00AF SBC L00AD BCS L30B3 EOR #$FF ADC #$01 TAX LDA #$00 BEQ L30B6 L30B3 TAX LDA #$01 L30B6 STA L052B,Y TXA CMP FRE+1 BCS L30C3 TAX LDA FRE+1 BCC L30CF L30C3 TAX LDA #$80 ORA L052B,Y STA L052B,Y TXA LDX FRE+1 L30CF STA L0505,Y STA L04DF,Y INX TXA STA L0518,Y LDA #$00 STA L04F2,Y STA L04CC,Y RTS LDA L0480,X STA L00AF LDA L0493,X STA L00B0 STX L0098 LDA #$0B LDY #$10 LDX #$00 JSR L59A6 LDA #$15 LDY #$1A LDX #$02 JSR L59A6 LDY L0098 CPY #$18 BCC L3116 LDA NSIGN BNE L3110 LDX #$06 JSR L59A3 L3110 LDY #$10 LDA #$80 BMI L3139 L3116 CPY #$10 BCC L3137 DEC NSIGN BNE L3137 STY L0099 LDA L00A8 BEQ L3130 LDA #$6F LDY #$74 LDX #$06 JSR L59A6 JMP L591C L3130 LDX #$06 JSR L59A3 LDY L0099 L3137 LDA #$00 L3139 LDX L053E,Y BMI L313F BRK L313F STY L0099 ORA L0099 STA L058E,Y LDA L00AF STA L0566,Y LDA L00B0 STA L057A,Y LDA #$00 STA L053E,Y LDA #$FF STA L0552,Y LDX L0098 RTS CMP #$06 BEQ L3171 TAY LDA FR1+1,Y BMI L3170 SBC #$00 BNE L316D INC FR1 L316D STA FR1+1,Y L3170 RTS L3171 DEC FR2+1 RTS LDA L04F2,X CLC ADC L0518,X STA L04F2,X CMP L0505,X BCC L318E BEQ L318E SBC L0505,X STA L04F2,X JSR L5743 L318E JMP L5754 STA L0098 LDA FR0+5 LSR CMP #$06 BCC L319C LDA #$05 L319C STA L009A SED L319F CLC LDA L0098 ADC FRE+2 STA FRE+2 LDA L0099 ADC FRE+3 STA FRE+3 LDA #$00 ADC FRE+4 STA FRE+4 BCC L31B6 STA FRE+5 L31B6 DEC L009A BPL L319F CLD RTS LDA #$00 TAY INC FR2+3 STA L05C2,X TYA STA L05C3,X LDA #$01 STA L05CA,X STA L05CB,X STA L05BA,X STA L05BB,X DEC FR2+3 RTS DFB $00,$AD,$A9,$B3 DFB $B3,$A9,$AC,$A5 DFB $00,$00,$A3,$AF DFB $AD,$AD,$A1,$AE DFB $A4,$A5,$B2,$00 DFB $75,$6E,$64,$65 DFB $72,$67,$72,$6F DFB $75,$6E,$64,$00 DFB $00,$76,$65,$72 DFB $73,$69,$6F,$6E DFB $00,$00,$30,$2C DFB $21,$39,$25,$32 DFB $00,$33,$2B,$29 DFB $30,$00,$00,$22 DFB $2F,$2E,$35,$33 DFB $15,$21,$1B,$27 DFB $00,$10,$01,$02 DFB $20,$01,$A4,$00 DFB $02,$20,$06,$A0 DFB $04,$10,$10,$00 DFB $86,$FE,$40,$04 DFB $00,$C0,$04,$10 DFB $10,$00,$86,$FE DFB $40,$04,$00,$18 DFB $FF,$02,$10,$24 DFB $08,$00,$20,$01 DFB $00,$A4,$FF,$10 DFB $04,$00,$40,$00 DFB $10,$01,$33,$36 DFB $FA,$10,$01,$38 DFB $30,$0B,$10,$01 DFB $3D,$40,$F5,$18 DFB $01,$42,$40,$FA DFB $10,$01,$47,$40 DFB $06,$10,$10,$00 DFB $82,$02,$20,$01 DFB $51,$84,$00,$10 DFB $04,$56,$84,$FF DFB $38,$04,$00,$10 DFB $00,$04,$01,$00 DFB $2F,$0F,$04,$01 DFB $00,$30,$FE,$01 DFB $18,$65,$A4,$00 DFB $01,$18,$6A,$50 DFB $FE,$01,$20,$6F DFB $A4,$00,$01,$20 DFB $74,$84,$34,$00 DFB $1A,$0F,$C4,$84 DFB $C4,$00,$1A,$0F DFB $34,$D8,$34,$00 DFB $84,$0F,$48,$88 DFB $1A,$00,$34,$0F DFB $C4,$00,$48,$84 DFB $1A,$0F,$38,$84 DFB $3C,$8E,$1A,$00 DFB $1C,$1C,$00,$6E DFB $C4,$38,$48,$3A DFB $00,$1C,$C4,$84 DFB $88,$68,$DA,$0C DFB $34,$00,$1A,$88 DFB $00,$34,$1A,$0F DFB $2A,$10,$08,$00 DFB $15,$0C,$00,$1A DFB $0F,$00,$20,$12 DFB $00,$26,$0C,$00 DFB $28,$10,$01,$2A DFB $0E,$01,$2B,$11 DFB $02,$2D,$0A,$03 DFB $2F,$0D,$04,$34 DFB $10,$04,$38,$13 DFB $05,$3D,$0C,$05 DFB $41,$0E,$06,$44 DFB $10,$06,$48,$12 DFB $07,$4A,$0E,$07 DFB $4C,$10,$07,$4C DFB $12,$07,$4C,$14 DFB $07,$4C,$14,$07 DFB $F0,$88,$28,$A0 DFB $78,$32,$80,$6C DFB $44,$80,$60,$4A DFB $60,$50,$50,$40 DFB $38,$54,$20,$20 DFB $58,$FE,$FD,$FF DFB $01,$03,$05,$07 DFB $06,$FE,$01,$03 DFB $05,$05,$03,$01 DFB $FE,$C0,$30,$0C DFB $03,$57,$50,$5A DFB $4D,$5A,$53,$5C DFB $4A,$5C,$50,$5C DFB $56,$10,$0A,$90 DFB $0A,$10,$0B,$90 DFB $0B,$0E,$21,$35 DFB $62,$75,$87,$05 DFB $04,$F3,$FF,$FF DFB $FF,$F3,$33,$FF DFB $FF,$C3,$30,$CF DFB $FF,$00,$00,$03 DFB $FF,$00,$00,$00 DFB $FF,$07,$05,$FF DFB $00,$03,$FF,$FF DFB $FC,$00,$00,$FF DFB $FF,$F0,$00,$00 DFB $3F,$FF,$C0,$00 DFB $00,$0F,$FF,$00 DFB $00,$00,$03,$FF DFB $00,$00,$00,$00 DFB $00,$00,$00,$00 DFB $00,$00,$20,$18 DFB $8C,$FF,$0C,$18 DFB $30,$40,$08,$03 DFB $F3,$FF,$FF,$FC DFB $3F,$FF,$3F,$0F DFB $FF,$00,$00,$FF DFB $FF,$0F,$FF,$FC DFB $3F,$FF,$F0,$FF DFB $FF,$CF,$FF,$FF DFB $04,$18,$31,$FF DFB $30,$18,$0C,$02 DFB $08,$03,$FF,$CF DFB $FF,$FC,$3F,$FF DFB $F0,$FC,$FF,$00 DFB $00,$FF,$F0,$FF DFB $FF,$FC,$3F,$FF DFB $FF,$0F,$FF,$FF DFB $F3,$FF,$81,$5A DFB $3C,$7E,$7E,$3C DFB $5A,$81,$08,$03 DFB $3F,$FC,$FF,$CC DFB $33,$FF,$F0,$0F DFB $FF,$C0,$03,$FF DFB $C0,$03,$FF,$F0 DFB $0F,$FF,$CC,$33 DFB $FF,$3F,$FC,$FF DFB $10,$28,$10,$10 DFB $38,$10,$00,$F8 DFB $70,$20,$00,$03 DFB $02,$33,$FF,$CF DFB $FF,$33,$FF,$04 DFB $02,$CF,$FF,$CF DFB $FF,$CF,$FF,$33 DFB $FF,$0F,$C3,$3C DFB $F0,$FF,$CF,$3F DFB $3F,$CF,$FC,$3F DFB $F3,$CF,$CF,$F3 DFB $3F,$FC,$FC,$03 DFB $FF,$F0,$F0,$FF DFB $C3,$FC,$3F,$0F DFB $FF,$0F,$3F,$FF DFB $CF,$FF,$00,$FF DFB $F0,$FF,$0F,$C3 DFB $FF,$C3,$CF,$FF DFB $F3,$3F,$FF,$FC DFB $3F,$FF,$FC,$FF DFB $C0,$3F,$FF,$FC DFB $3F,$C3,$FF,$F3 DFB $FF,$FC,$FF,$CF DFB $FF,$FF,$3F,$CF DFB $FF,$FF,$3F,$3F DFB $FF,$FF,$CF,$3F DFB $FF,$FF,$CF,$FF DFB $F0,$0F,$FF,$FF DFB $0F,$F0,$FF,$FC DFB $FF,$FF,$3F,$F3 DFB $FF,$FF,$CF,$CF DFB $FF,$FF,$F3,$CF DFB $FF,$FF,$F3,$3F DFB $FF,$FF,$FC,$3F DFB $FF,$FF,$FC,$0F DFB $0D,$00,$00,$00 DFB $FF,$00,$FF,$00 DFB $FF,$00,$00,$00 DFB $FF,$FF,$00,$00 DFB $00,$FF,$00,$FF DFB $00,$FF,$00,$00 DFB $00,$FF,$FF,$00 DFB $00,$00,$FF,$00 DFB $FF,$00,$FF,$00 DFB $00,$00,$FF,$FF DFB $FF,$00,$FF,$FF DFB $00,$FF,$00,$FF DFB $00,$FF,$FF,$FF DFB $FF,$FF,$00,$FF DFB $FF,$00,$FF,$00 DFB $FF,$00,$FF,$FF DFB $FF,$FF,$FF,$00 DFB $FF,$FF,$00,$FF DFB $00,$FF,$00,$FF DFB $FF,$FF,$FF,$FF DFB $00,$FF,$FF,$00 DFB $00,$00,$FF,$00 DFB $00,$00,$FF,$FF DFB $FF,$00,$FF,$FF DFB $00,$00,$00,$FF DFB $00,$00,$00,$FF DFB $FF,$FF,$00,$FF DFB $FF,$00,$00,$00 DFB $FF,$00,$00,$00 DFB $FF,$FF,$FF,$00 DFB $FF,$FF,$00,$FF DFB $00,$FF,$00,$FF DFB $FF,$FF,$FF,$FF DFB $00,$FF,$FF,$00 DFB $FF,$00,$FF,$00 DFB $FF,$FF,$FF,$FF DFB $FF,$00,$FF,$FF DFB $00,$FF,$00,$FF DFB $00,$FF,$FF,$FF DFB $FF,$FF,$00,$FF DFB $FF,$00,$FF,$00 DFB $FF,$00,$00,$00 DFB $FF,$FF,$FF,$00 DFB $FF,$FF,$00,$FF DFB $00,$FF,$00,$00 DFB $00,$FF,$FF,$FF DFB $00,$FF,$FF,$00 DFB $FF,$00,$FF,$00 DFB $00,$00,$FF,$FF DFB $0F,$0D,$00,$00 DFB $00,$FF,$00,$FF DFB $00,$FF,$00,$00 DFB $0F,$FF,$FF,$00 DFB $00,$00,$FF,$00 DFB $FF,$00,$FF,$00 DFB $00,$03,$FF,$FF DFB $00,$00,$00,$FF DFB $00,$FF,$00,$FF DFB $00,$00,$00,$FF DFB $FF,$00,$FF,$FF DFB $FF,$00,$3F,$00 DFB $FF,$00,$FF,$00 DFB $3F,$FF,$00,$FF DFB $FF,$FF,$00,$3F DFB $00,$FF,$00,$FF DFB $C0,$3F,$FF,$00 DFB $FF,$FF,$FF,$00 DFB $0F,$00,$FF,$00 DFB $FF,$F0,$3F,$FF DFB $00,$00,$00,$FF DFB $00,$0F,$00,$FF DFB $00,$FF,$F0,$3F DFB $FF,$00,$00,$00 DFB $FF,$00,$C3,$00 DFB $FF,$00,$FF,$F0 DFB $3F,$FF,$00,$00 DFB $00,$FF,$00,$F0 DFB $00,$FF,$00,$FF DFB $F0,$3F,$FF,$00 DFB $FF,$FF,$FF,$00 DFB $F0,$00,$FF,$00 DFB $FF,$F0,$3F,$FF DFB $00,$FF,$FF,$FF DFB $00,$FC,$00,$FF DFB $00,$FF,$C0,$22 DFB $C9,$7D,$FF,$FF DFB $FF,$00,$FC,$00 DFB $FF,$00,$FF,$00 DFB $3F,$FF,$00,$00 DFB $00,$FF,$00,$FF DFB $00,$FF,$00,$00 DFB $00,$FF,$FF,$00 DFB $00,$00,$FF,$00 DFB $FF,$00,$FF,$00 DFB $00,$03,$FF,$FF DFB $00,$00,$00,$FF DFB $00,$FF,$00,$FF DFB $00,$00,$0F,$FF DFB $FF,$F9,$5D,$19 DFB $5E,$39,$5E,$59 DFB $5E,$79,$5E,$99 DFB $5E,$0A,$03,$FC DFB $3F,$FF,$F0,$3F DFB $FF,$C0,$3F,$FF DFB $FC,$3F,$FF,$FC DFB $3F,$FF,$FC,$3F DFB $FF,$FC,$3F,$FF DFB $FC,$3F,$FF,$C0 DFB $03,$FF,$C0,$03 DFB $FF,$0A,$03,$C0 DFB $03,$FF,$00,$00 DFB $FF,$0F,$F0,$FF DFB $FF,$F0,$FF,$FF DFB $C3,$FF,$FC,$0F DFB $FF,$F0,$3F,$FF DFB $C3,$FF,$FF,$00 DFB $00,$FF,$00,$00 DFB $FF,$0A,$03,$C0 DFB $03,$FF,$00,$00 DFB $FF,$0F,$F0,$FF DFB $FF,$F0,$FF,$FC DFB $03,$FF,$FC,$03 DFB $FF,$FF,$F0,$FF DFB $0F,$F0,$FF,$00 DFB $00,$FF,$C0,$03 DFB $FF,$0A,$03,$0F DFB $FF,$FF,$0F,$FF DFB $FF,$0F,$0F,$FF DFB $0F,$0F,$FF,$00 DFB $03,$FF,$00,$03 DFB $FF,$FF,$0F,$FF DFB $FF,$0F,$FF,$FF DFB $0F,$FF,$FF,$0F DFB $FF,$0A,$03,$00 DFB $03,$FF,$00,$03 DFB $FF,$0F,$FF,$FF DFB $0F,$FF,$FF,$00 DFB $03,$FF,$00,$00 DFB $FF,$FF,$F0,$FF DFB $FF,$F0,$FF,$00 DFB $00,$FF,$00,$03 DFB $FF,$0A,$03,$C0 DFB $03,$FF,$00,$03 DFB $FF,$0F,$FF,$FF DFB $0F,$FF,$FF,$00 DFB $03,$FF,$00,$00 DFB $FF,$0F,$F0,$FF DFB $0F,$F0,$FF,$00 DFB $00,$FF,$C0,$03 DFB $FF,$0A,$13,$FF DFB $FF,$FC,$00,$3F DFB $F0,$00,$FF,$00 DFB $0F,$C3,$FC,$3C DFB $00,$03,$F0,$00 DFB $3F,$FF,$3F,$CF DFB $FC,$00,$0F,$C0 DFB $00,$3F,$00,$0F DFB $C3,$FC,$3C,$00 DFB $03,$C0,$00,$3F DFB $FF,$0F,$0F,$FC DFB $3F,$C3,$C3,$FC DFB $3F,$F0,$FF,$C0 DFB $FC,$3F,$F0,$FF DFB $C3,$FF,$FF,$FF DFB $C0,$3F,$FC,$3F DFB $C3,$C3,$FC,$3F DFB $F0,$FF,$C0,$3C DFB $3F,$F0,$FF,$C3 DFB $FF,$FF,$FF,$F0 DFB $FF,$FC,$3F,$C3 DFB $C3,$FC,$3F,$F0 DFB $FF,$C3,$0C,$3F DFB $F0,$FF,$F0,$03 DFB $FF,$FF,$F0,$FF DFB $FC,$00,$0F,$C3 DFB $FC,$3F,$F0,$FF DFB $C3,$0C,$3F,$F0 DFB $FF,$FC,$00,$FF DFB $FF,$C0,$3F,$FC DFB $00,$3F,$C3,$FC DFB $3F,$F0,$FF,$C3 DFB $C0,$3F,$F0,$FF DFB $FF,$FC,$3F,$FF DFB $0F,$0F,$FC,$3F DFB $FF,$C3,$FC,$3F DFB $F0,$FF,$C3,$F0 DFB $3F,$F0,$FF,$FF DFB $FC,$3F,$FF,$3F DFB $CF,$FC,$3F,$FF DFB $C0,$00,$3F,$00 DFB $0F,$C3,$FC,$3F DFB $F0,$FF,$C0,$00 DFB $3F,$FF,$FF,$FF DFB $FC,$3F,$FF,$F0 DFB $00,$FF,$00,$0F DFB $C3,$FC,$3F,$F0 DFB $FF,$C0,$00,$FF DFB $FF,$6E,$80,$6D DFB $2F,$81,$72,$80 DFB $70,$70,$70,$46 DFB $04,$10,$06,$06 DFB $4D,$20,$12,$01 DFB $A0,$5F,$66,$68 DFB $80,$C0,$D0,$D0 DFB $D0,$C6,$04,$10 DFB $86,$CD,$80,$11 DFB $0D,$8D,$0D,$0D DFB $8D,$0D,$0D,$8D DFB $0D,$0D,$8D,$0D DFB $0D,$8D,$0D,$8D DFB $8D,$0D,$0D,$8D DFB $0D,$0D,$8D,$0D DFB $0D,$8D,$0D,$0D DFB $8D,$0D,$0D,$8D DFB $0D,$0D,$8D,$0D DFB $0D,$8D,$0D,$0D DFB $8D,$0D,$0D,$8D DFB $0D,$0D,$8D,$0D DFB $8D,$8D,$0D,$0D DFB $8D,$0D,$0D,$8D DFB $0D,$0D,$8D,$0D DFB $0D,$8D,$0D,$0D DFB $8D,$0D,$0D,$8D DFB $0D,$0D,$8D,$0D DFB $0D,$8D,$0D,$0D DFB $8D,$8D,$0D,$8D DFB $0D,$8D,$8D,$0D DFB $0D,$8D,$0D,$0D DFB $41,$90,$5F,$01 DFB $67,$60,$00,$A8 DFB $00,$04,$94,$B1 DFB $00,$00,$00,$00 DFB $00,$00,$00,$00 DFB $00,$00,$00,$00 DFB $00,$00,$00,$00 DFB $00,$00,$00,$00 DFB $00,$00,$00,$00 DFB $00,$00,$00,$00 DFB $00,$00,$00,$00 DFB $00,$00,$00,$00 DFB $00,$00,$00,$00 DFB $00,$00,$00,$00 DFB $00,$00,$00,$00 DFB $00,$00,$00,$00 DFB $00,$00,$00,$00 DFB $00,$00,$00,$00 DFB $00,$00 ; ORG RUNAD ; DFB $3F,$1F