ca65 V2.15 - Git fa0709a Main file : source/plus4/plus4.a65 Current file: source/plus4/plus4.a65 000000r 1 .include "defines.inc" 000000r 2 000000r 2 COMPUTER_UNKNOWN=0 000000r 2 000000r 2 PLUS4_GENERAL=COMPUTER_UNKNOWN + $10 000000r 2 000000r 2 PLUS4_BETA_0119=PLUS4_GENERAL + 1 000000r 2 PLUS4_BETA_0203=PLUS4_GENERAL + 2 000000r 2 PLUS4_01=PLUS4_GENERAL + 11 000000r 2 PLUS4_02=PLUS4_GENERAL + 12 000000r 2 PLUS4_03=PLUS4_GENERAL + 13 000000r 2 PLUS4_04=PLUS4_GENERAL + 14 000000r 2 PLUS4_05=PLUS4_GENERAL + 15 000000r 2 000000r 2 .if .defined(plus4pal) .and .defined(plus4ntsc) 000000r 2 .error "You cannot define plus4pal and plus4ntsc" 000000r 2 .endif 000000r 2 000000r 2 .if .defined(plus4beta) .and (.defined(plus4pal) .or .defined(plus4ntsc)) 000000r 2 .error "You must either specify plus4beta, or an plus4pal or plus4ntsc." 000000r 2 .endif 000000r 2 000000r 2 .if .defined(plus4beta) 000000r 2 IS_NTSC=0 000000r 2 IS_PAL=1 000000r 2 .if plus4beta=0119 000000r 2 CompileComputer=PLUS4_BETA_0119 000000r 2 FILLER_FD00=$00 000000r 2 CONST_E447_T1PIPE=$02C7 000000r 2 CONST_E452_T1PIPE=$00AF 000000r 2 CONST_E45D_T1PIPE=$0162 000000r 2 ROM_CHECKSUM=$EC 000000r 2 ROM_VERSION=$01 000000r 2 VERSION_INFO_D800=$1601 000000r 2 FILLER_FF40=$50 000000r 2 LF338_NTSC=$40 000000r 2 .elseif plus4beta=0203 000000r 2 CompileComputer=PLUS4_BETA_0203 000000r 2 FILLER_FD00=$00 000000r 2 CONST_E447_T1PIPE=$02C7 000000r 2 CONST_E452_T1PIPE=$00AF 000000r 2 CONST_E45D_T1PIPE=$0162 000000r 2 ROM_CHECKSUM=$EC 000000r 2 ROM_VERSION=$01 000000r 2 VERSION_INFO_D800=$2401 000000r 2 FILLER_FF40=$50 000000r 2 LF338_NTSC=$40 000000r 2 .else 000000r 2 .error "You must specify plus4beta" 000000r 2 .endif 000000r 2 000000r 2 .elseif .defined(plus4pal) 000000r 2 IS_NTSC=0 000000r 2 IS_PAL=1 000000r 2 000000r 2 .if plus4pal=01 000000r 2 CompileComputer=PLUS4_01 000000r 2 FILLER_FD00=$00 000000r 2 CONST_E447_T1PIPE=$02C7 000000r 2 CONST_E452_T1PIPE=$00AF 000000r 2 CONST_E45D_T1PIPE=$0162 000000r 2 ROM_CHECKSUM=$F4 000000r 2 ROM_VERSION=$81 000000r 2 VERSION_INFO_D800=$1702 000000r 2 FILLER_FF40=$40 000000r 2 LF338_NTSC=$00 000000r 2 .elseif plus4pal=02 000000r 2 .error "plus4pal == 2 is unknown" 000000r 2 .elseif plus4pal=03 000000r 2 CompileComputer=PLUS4_03 000000r 2 FILLER_FD00=$00 000000r 2 CONST_E447_T1PIPE=$034E 000000r 2 CONST_E452_T1PIPE=$00D0 000000r 2 CONST_E45D_T1PIPE=$01A4 000000r 2 ROM_CHECKSUM=$F1 000000r 2 ROM_VERSION=$83 000000r 2 VERSION_INFO_D800=$0405 000000r 2 FILLER_FF40=$FF 000000r 2 LF338_NTSC=$00 000000r 2 .elseif plus4pal=04 000000r 2 CompileComputer=PLUS4_04 000000r 2 FILLER_FD00=$00 000000r 2 CONST_E447_T1PIPE=$034E 000000r 2 CONST_E452_T1PIPE=$00D0 000000r 2 CONST_E45D_T1PIPE=$01A4 000000r 2 ROM_CHECKSUM=$2A 000000r 2 ROM_VERSION=$84 000000r 2 VERSION_INFO_D800=$0506 000000r 2 FILLER_FF40=$FF 000000r 2 LF338_NTSC=$00 000000r 2 .elseif plus4pal=05 000000r 2 CompileComputer=PLUS4_05 000000r 2 FILLER_FD00=$00 000000r 2 CONST_E447_T1PIPE=$034E 000000r 2 CONST_E452_T1PIPE=$00D0 000000r 2 CONST_E45D_T1PIPE=$01A4 000000r 2 ROM_CHECKSUM=$5E 000000r 2 ROM_VERSION=$85 000000r 2 VERSION_INFO_D800=$0908 000000r 2 FILLER_FF40=$FF 000000r 2 LF338_NTSC=$00 000000r 2 .else 000000r 2 .error "You must specify plus4pal <= 5" 000000r 2 .endif 000000r 2 .elseif .defined(plus4ntsc) 000000r 2 IS_NTSC=1 000000r 2 IS_PAL=0 000000r 2 000000r 2 .if plus4ntsc=01 000000r 2 .error "plus4ntsc == 1 is unknown" 000000r 2 .elseif plus4ntsc=02 000000r 2 .error "plus4ntsc == 2 is unknown" 000000r 2 .elseif plus4ntsc=03 000000r 2 .error "plus4ntsc == 3 is unknown" 000000r 2 .elseif plus4ntsc=04 000000r 2 CompileComputer=PLUS4_04 000000r 2 FILLER_FD00=$00 000000r 2 CONST_E447_T1PIPE=$034E 000000r 2 CONST_E452_T1PIPE=$00D0 000000r 2 CONST_E45D_T1PIPE=$01A4 000000r 2 ROM_CHECKSUM=$90 000000r 2 ROM_VERSION=$04 000000r 2 VERSION_INFO_D800=$0506 000000r 2 FILLER_FF40=$FF 000000r 2 LF338_NTSC=$40 000000r 2 .elseif plus4ntsc=05 000000r 2 CompileComputer=PLUS4_05 000000r 2 FILLER_FD00=$FF 000000r 2 CONST_E447_T1PIPE=$034E 000000r 2 CONST_E452_T1PIPE=$00D0 000000r 2 CONST_E45D_T1PIPE=$01A4 000000r 2 ROM_CHECKSUM=$C4 000000r 2 ROM_VERSION=$05 000000r 2 VERSION_INFO_D800=$0908 000000r 2 FILLER_FF40=$FF 000000r 2 LF338_NTSC=$40 000000r 2 .else 000000r 2 .error "You must specify plus4ntsc <= 5" 000000r 2 .endif 000000r 2 .endif 000000r 2 000000r 2 .if 0 000000r 2 VIC20_GENERAL=COMPUTER_UNKNOWN + $10 000000r 2 VIC20_02=VIC20_GENERAL + 2 000000r 2 VIC20_06=VIC20_GENERAL + 6 000000r 2 VIC20_07=VIC20_GENERAL + 7 000000r 2 000000r 2 C64_GENERAL=VIC20_GENERAL + $20 000000r 2 C64_01=C64_GENERAL + 1 000000r 2 C64_02=C64_GENERAL + 2 000000r 2 C64_03=C64_GENERAL + 3 000000r 2 C64_SX64=C64_GENERAL + 4 000000r 2 C64_4064=C64_GENERAL + 5 000000r 2 C64_GS=C64_GENERAL + 6 000000r 2 000000r 2 .ifdef vic20 000000r 2 CompileComputer=VIC20_GENERAL + vic20 000000r 2 .elseif .defined(c64) 000000r 2 .if c64 = 4064 000000r 2 CompileComputer=C64_4064 000000r 2 .else 000000r 2 CompileComputer=C64_GENERAL + c64 000000r 2 .endif 000000r 2 .endif 000000r 2 000000r 2 .ifdef sx64 000000r 2 CompileComputer=C64_SX64 000000r 2 c64 = sx64 000000r 2 .endif 000000r 2 000000r 2 .ifdef c64gs 000000r 2 CompileComputer=C64_GS 000000r 2 c64 = c64gs 000000r 2 .endif 000000r 2 000000r 2 .ifndef CompileComputer 000000r 2 CompileComputer=COMPUTER_UNKNOWN 000000r 2 .endif 000000r 2 .endif 000000r 2 000000r 2 .macro FillCount count,filler 000000r 2 .repeat count 000000r 2 .ifblank filler 000000r 2 .byte DRIVEFILLER 000000r 2 .else 000000r 2 .byte filler 000000r 2 .endif 000000r 2 .endrep 000000r 2 .endmacro 000000r 2 000000r 2 .macro FillUntil address,filler 000000r 2 FillCount address-*,filler 000000r 2 .endmacro 000000r 2 000000r 2 .macro FillNOP count 000000r 2 FillCount count,$EA 000000r 2 .endmacro 000000r 2 000000r 2 .if 0 000000r 2 IEEE_LISTEN = $20 ; on ATN, with primary address 000000r 2 IEEE_TALK = $40 ; on ATN, with primary address 000000r 2 IEEE_OPEN = $60 ; on ATN, with secondary address 000000r 2 IEEE_CLOSE = $E0 ; on ATN, with primary address 000000r 2 IEEE_SECONDARY = $F0 ; on ATN, with secondary address 000000r 2 000000r 2 IEEE_LOAD = IEEE_OPEN + 0 000000r 2 IEEE_SAVE = IEEE_OPEN + 1 000000r 2 000000r 2 IEEE_UNLISTEN = IEEE_LISTEN + $1F 000000r 2 IEEE_UNTALK = IEEE_TALK + $1F 000000r 2 000000r 2 STATUS_IEC_DEVICE_NOT_PRESENT = $80 000000r 2 STATUS_IEC_EOI = $40 000000r 2 STATUS_IEC_TIMEOUT_READ = $02 000000r 2 STATUS_IEC_TIMEOUT_WRITE = $01 000000r 2 000000r 2 STATUS_VERIFY = $10 000000r 2 000000r 2 STATUS_TAPE_EOT = $80 000000r 2 STATUS_TAPE_EOF = $40 ; not on LOAD and VERIFY 000000r 2 STATUS_TAPE_CHKSUM_ERR = $20 000000r 2 STATUS_TAPE_UNRECOVERABLE_READ_ERROR = $10 000000r 2 STATUS_TAPE_LONG_BLOCK = $08 000000r 2 STATUS_TAPE_SHORT_BLOCK = $04 000000r 2 000000r 2 .endif 000000r 2 000000r 1 000000r 1 .setcpu "6502" 000000r 1 000000r 1 .segment "BASIC35" 000000r 1 000000r 1 PDIR := $0000 000000r 1 PORT := $0001 000000r 1 SRCHTK := $0002 000000r 1 ZPVEC1 := $0003 000000r 1 ZPVEC2 := $0005 000000r 1 CHARAC := $0007 000000r 1 ENDCHR := $0008 000000r 1 TRMPOS := $0009 000000r 1 VERCK := $000A 000000r 1 COUNT := $000B 000000r 1 DIMFLG := $000C 000000r 1 VALTYP := $000D 000000r 1 INTFLG := $000E 000000r 1 DORES := $000F 000000r 1 SUBFLG := $0010 000000r 1 INPFLG := $0011 000000r 1 TANSGN := $0012 000000r 1 CHANNL := $0013 000000r 1 LINNUM := $0014 000000r 1 TEMPPT := $0016 000000r 1 LASTPT := $0017 000000r 1 TEMPST := $0019 000000r 1 INDEX1 := $0022 000000r 1 INDEX2 := $0024 000000r 1 RESH0 := $0026 000000r 1 TXTTAB := $002B 000000r 1 VARTAB := $002D 000000r 1 ARYTAB := $002F 000000r 1 STREND := $0031 000000r 1 FRETOP := $0033 000000r 1 FRESPC := $0035 000000r 1 MEMSIZ := $0037 000000r 1 CHRLIN := $0039 000000r 1 TXTPTR := $003B 000000r 1 FNDPNT := $003D 000000r 1 DATLIN := $003F 000000r 1 DATPTR := $0041 000000r 1 INPPTR := $0043 000000r 1 VARNAM := $0045 000000r 1 VARPNT := $0047 000000r 1 FORPNT := $0049 000000r 1 OPPTR := $004B 000000r 1 OPMASK := $004D 000000r 1 DEFPNT := $004E 000000r 1 DSCPNT := $0050 000000r 1 HELPER := $0053 000000r 1 JMPER := $0054 000000r 1 TEMPF1 := $0057 000000r 1 FACEXP := $0061 000000r 1 FACH0 := $0062 000000r 1 FACSGN := $0066 000000r 1 SGNFLG := $0067 000000r 1 BITS := $0068 000000r 1 ARGEXP := $0069 000000r 1 ARGH0 := $006A 000000r 1 ARGSGN := $006E 000000r 1 ARISGN := $006F 000000r 1 FACOV := $0070 000000r 1 FBUFPT := $0071 000000r 1 AUTINC := $0073 000000r 1 MVDFLG := $0075 000000r 1 KEYNUM := $0076 000000r 1 DSDESC := $0079 000000r 1 TOS := $007C 000000r 1 TMPTON := $007E 000000r 1 VOICNO := $0080 000000r 1 RUNMOD := $0081 000000r 1 POINT := $0082 000000r 1 GRAPHM := $0083 000000r 1 COLSEL := $0084 000000r 1 MC1 := $0085 000000r 1 FG := $0086 000000r 1 SCXMAX := $0087 000000r 1 SCYMAX := $0088 000000r 1 LTFLAG := $0089 000000r 1 RTFLAG := $008A 000000r 1 STOPNB := $008B 000000r 1 GRAPNT := $008C 000000r 1 VTEMP1 := $008E 000000r 1 VTEMP2 := $008F 000000r 1 STATUS := $0090 000000r 1 STKEY := $0091 000000r 1 VERFCK := $0093 000000r 1 C3P0 := $0094 000000r 1 BSOUR := $0095 000000r 1 RSAV := $0096 000000r 1 LDTND := $0097 000000r 1 DFLTN := $0098 000000r 1 DFLTO := $0099 000000r 1 MSGFLG := $009A 000000r 1 SAL := $009B 000000r 1 EAL := $009D 000000r 1 T1 := $009F 000000r 1 T2 := $00A1 000000r 1 TIME := $00A3 000000r 1 R2D2 := $00A6 000000r 1 TPBYTE := $00A7 000000r 1 BSOUR1 := $00A8 000000r 1 FPVERR := $00A9 000000r 1 DCOUNT := $00AA 000000r 1 FNLEN := $00AB 000000r 1 LA := $00AC 000000r 1 SA := $00AD 000000r 1 FA := $00AE 000000r 1 FNADR := $00AF 000000r 1 ERRSUM := $00B1 000000r 1 STAL := $00B2 000000r 1 MEMUSS := $00B4 000000r 1 TAPEBS := $00B6 000000r 1 TMP2 := $00B8 000000r 1 WRBASE := $00BA 000000r 1 IMPARM := $00BC 000000r 1 FETPTR := $00BE 000000r 1 SEDSAL := $00C0 000000r 1 RVS := $00C2 000000r 1 INDX := $00C3 000000r 1 LSXP := $00C4 000000r 1 SFDX := $00C6 000000r 1 CRSW := $00C7 000000r 1 PNT := $00C8 000000r 1 PNTR := $00CA 000000r 1 QTSW := $00CB 000000r 1 SEDT1 := $00CC 000000r 1 TBLX := $00CD 000000r 1 DATAX := $00CE 000000r 1 INSRT := $00CF 000000r 1 CIRSEG := $00E9 000000r 1 USER := $00EA 000000r 1 KEYTAB := $00EC 000000r 1 NDX := $00EF 000000r 1 STPFLG := $00F0 000000r 1 T0 := $00F1 000000r 1 CHRPTR := $00F3 000000r 1 BUFEND := $00F4 000000r 1 CHKSUM := $00F5 000000r 1 LENGTH := $00F6 000000r 1 PASS := $00F7 000000r 1 TYPE := $00F8 000000r 1 USEKDY := $00F9 000000r 1 XSTOP := $00FA 000000r 1 CURBNK := $00FB 000000r 1 XON := $00FC 000000r 1 XOFF := $00FD 000000r 1 SEDT2 := $00FE 000000r 1 LOFBUF := $00FF 000000r 1 FBUFFER := $0100 000000r 1 SAVEA := $0110 000000r 1 SAVEY := $0111 000000r 1 COLKEY := $0113 000000r 1 SYSSTK := $0124 000000r 1 BUF := $0200 000000r 1 OLDLIN := $0259 000000r 1 OLDTXT := $025B 000000r 1 XCNT := $025D 000000r 1 FNBUFR := $025E 000000r 1 DOSF1L := $026E 000000r 1 DOSDS1 := $026F 000000r 1 DOSF1A := $0270 000000r 1 DOSF2L := $0272 000000r 1 DOSDS2 := $0273 000000r 1 DOSF2A := $0274 000000r 1 DOSLA := $0276 000000r 1 DOSFA := $0277 000000r 1 DOSSA := $0278 000000r 1 DODDID := $0279 000000r 1 DIDCHK := $027B 000000r 1 DOSSTR := $027C 000000r 1 DOSSPC := $027D 000000r 1 YABS := $0287 000000r 1 XSGN := $0289 000000r 1 YSGN := $028B 000000r 1 FCT1 := $028D 000000r 1 FCT2 := $028F 000000r 1 XPOS := $02AD 000000r 1 YPO := $02AF 000000r 1 XDEST := $02B1 000000r 1 YDEST := $02B3 000000r 1 XABS := $02B5 000000r 1 ERRVAL := $02C1 000000r 1 LESSER := $02C3 000000r 1 ANGSGN := $02C5 000000r 1 SINVAL := $02C6 000000r 1 COSVAL := $02C8 000000r 1 ANGCNT := $02CA 000000r 1 BNR := $02CD 000000r 1 ENR := $02CE 000000r 1 DOLR := $02CF 000000r 1 FLAG := $02D0 000000r 1 SWE := $02D1 000000r 1 USGN := $02D2 000000r 1 UEXP := $02D3 000000r 1 VN := $02D4 000000r 1 CHSN := $02D5 000000r 1 VF := $02D6 000000r 1 NF := $02D7 000000r 1 POSP := $02D8 000000r 1 FESP := $02D9 000000r 1 ETOF := $02DA 000000r 1 CFORM := $02DB 000000r 1 SNO := $02DC 000000r 1 BLFD := $02DD 000000r 1 BEGFD := $02DE 000000r 1 LFOR := $02DF 000000r 1 ENDFD := $02E0 000000r 1 CHRPAG := $02E4 000000r 1 BITCNT := $02E5 000000r 1 SCALEM := $02E6 000000r 1 WIDTH := $02E7 000000r 1 FILFLG := $02E8 000000r 1 BITMSK := $02E9 000000r 1 NUMCNT := $02EA 000000r 1 TRCFLG := $02EB 000000r 1 T3 := $02EC 000000r 1 T4 := $02ED 000000r 1 VTEMP3 := $02EF 000000r 1 VTEMP4 := $02F0 000000r 1 VTEMP5 := $02F1 000000r 1 ADRAY1 := $02F2 000000r 1 ADRAY2 := $02F4 000000r 1 BNKVEC := $02FE 000000r 1 lIERROR := $0300 000000r 1 lIMAIN := $0302 000000r 1 lICRNCH := $0304 000000r 1 lIQPLOP := $0306 000000r 1 lIGONE := $0308 000000r 1 lIEVAL := $030A 000000r 1 lIESCLK := $030C 000000r 1 lIESCPR := $030E 000000r 1 lIESCEX := $0310 000000r 1 lITIME := $0312 000000r 1 lICINV := $0314 000000r 1 lICBINV := $0316 000000r 1 lIOPEN := $0318 000000r 1 lICLOSE := $031A 000000r 1 lICHKIN := $031C 000000r 1 lICHKOUT := $031E 000000r 1 lICLRCHN := $0320 000000r 1 lICHRIN := $0322 000000r 1 lICHROUT := $0324 000000r 1 lISTOP := $0326 000000r 1 lIGETIN := $0328 000000r 1 lICLALL := $032A 000000r 1 lIUSRCMD := $032C 000000r 1 lILOAD := $032E 000000r 1 lISAVE := $0330 000000r 1 lTAPBUF := $0332 000000r 1 L0333 := $0333 000000r 1 WRLEN := $03F3 000000r 1 RDCNT := $03F5 000000r 1 ESTAKL := $0437 000000r 1 ESTAKH := $0455 000000r 1 CHRGET := $0473 000000r 1 CHRGOT := $0479 000000r 1 QNUM := $0485 000000r 1 INDSUB := $0494 000000r 1 ZERO := $04A2 000000r 1 INDTXT := $04A5 000000r 1 INDIN1 := $04B0 000000r 1 INDIN2 := $04BB 000000r 1 INDST1 := $04C6 000000r 1 INDLOW := $04D1 000000r 1 INDFMO := $04DC 000000r 1 PUFILL := $04E7 000000r 1 PUCOMA := $04E8 000000r 1 PUDOT := $04E9 000000r 1 PUMONY := $04EA 000000r 1 TMPDES := $04EB 000000r 1 ERRNUM := $04EF 000000r 1 ERRLIN := $04F0 000000r 1 TRAPNO := $04F2 000000r 1 TMPTRP := $04F4 000000r 1 ERRTXT := $04F5 000000r 1 OLDSTK := $04F7 000000r 1 TMPTXT := $04F8 000000r 1 TMPLIN := $04FA 000000r 1 MTIMLO := $04FC 000000r 1 MTIMHI := $04FE 000000r 1 lIUSRPOK := $0500 000000r 1 lIUSRADD := $0501 000000r 1 RNDX := $0503 000000r 1 DEJAVU := $0508 000000r 1 LAT := $0509 000000r 1 FAT := $0513 000000r 1 SAT := $051D 000000r 1 KEYD := $0527 000000r 1 MEMSTR := $0531 000000r 1 MSIZ := $0533 000000r 1 TIMOUT := $0535 000000r 1 FILEND := $0536 000000r 1 CTALLY := $0537 000000r 1 CBUFVA := $0538 000000r 1 TPTR := $0539 000000r 1 FLTYPE := $053A 000000r 1 COLOR := $053B 000000r 1 FLASH := $053C 000000r 1 HIBASE := $053E 000000r 1 XMAX := $053F 000000r 1 RPTFLG := $0540 000000r 1 KOUNT := $0541 000000r 1 DELAY := $0542 000000r 1 SHFLAG := $0543 000000r 1 LSTSHF := $0544 000000r 1 KEYLOG := $0545 000000r 1 MODE := $0547 000000r 1 AUTODN := $0548 000000r 1 ROLFLG := $054A 000000r 1 FORMAT := $054B 000000r 1 MSAL := $054C 000000r 1 WRAP := $054F 000000r 1 TMPC := $0550 000000r 1 DIFF := $0551 000000r 1 PCH := $0552 000000r 1 PCL := $0553 000000r 1 FLGS := $0554 000000r 1 ACC := $0555 000000r 1 XR := $0556 000000r 1 YR := $0557 000000r 1 SP := $0558 000000r 1 INVL := $0559 000000r 1 INVH := $055A 000000r 1 CMPFLG := $055B 000000r 1 BAD := $055C 000000r 1 KYNDX := $055D 000000r 1 KEYIDX := $055E 000000r 1 KEYBUF := $055F 000000r 1 PKYBUF := $0567 000000r 1 KDATA := $05E7 000000r 1 KDYCMD := $05E8 000000r 1 KDYNUM := $05E9 000000r 1 KDYPRS := $05EA 000000r 1 PAT := $05EC 000000r 1 LNGJMP := $05F0 000000r 1 FETARG := $05F2 000000r 1 FETXRG := $05F3 000000r 1 FETSRG := $05F4 000000r 1 AREA := $05F5 000000r 1 APECH := $065E 000000r 1 STKTOP := $06EC 000000r 1 WROUT := $07B0 000000r 1 PARITY := $07B1 000000r 1 TT1 := $07B2 000000r 1 TT3 := $07B3 000000r 1 RDBITS := $07B5 000000r 1 ERRSP := $07B6 000000r 1 FPERRS := $07B7 000000r 1 DSAMP1 := $07B8 000000r 1 DSAMP2 := $07BA 000000r 1 ZCELL := $07BC 000000r 1 SRECOV := $07BE 000000r 1 DRECOV := $07BF 000000r 1 TRSAVE := $07C0 000000r 1 RDETMP := $07C4 000000r 1 LDRSCN := $07C5 000000r 1 CDERRM := $07C6 000000r 1 VSAVE := $07C7 000000r 1 T1PIPE := $07C8 000000r 1 ENEXT := $07CC 000000r 1 UOUTQ := $07CD 000000r 1 UOUTFG := $07CE 000000r 1 SOUTQ := $07CF 000000r 1 SOUNFG := $07D0 000000r 1 INQFPT := $07D1 000000r 1 INQRPT := $07D2 000000r 1 INQCNT := $07D3 000000r 1 ASTAT := $07D4 000000r 1 AINTMP := $07D5 000000r 1 ALSTOP := $07D6 000000r 1 ARSTOP := $07D7 000000r 1 APRES := $07D8 000000r 1 KLUDES := $07D9 000000r 1 SCBOT := $07E5 000000r 1 SCTOP := $07E6 000000r 1 SCLF := $07E7 000000r 1 SCRT := $07E8 000000r 1 SCRDIS := $07E9 000000r 1 INSFL := $07EA 000000r 1 LSTCH := $07EB 000000r 1 LOGSCR := $07EC 000000r 1 TCOLOR := $07ED 000000r 1 BITABL := $07EE 000000r 1 SAREG := $07F2 000000r 1 SXREG := $07F3 000000r 1 SYREG := $07F4 000000r 1 SPREG := $07F5 000000r 1 LSTX := $07F6 000000r 1 STPDSB := $07F7 000000r 1 RAMROM := $07F8 000000r 1 COLSW := $07F9 000000r 1 FFRMSK := $07FA 000000r 1 VMBMSK := $07FB 000000r 1 LSEM := $07FC 000000r 1 PALCNT := $07FD 000000r 1 UNUSED := $07FE 000000r 1 TEDATR := $0800 000000r 1 VICSCN := $0C00 000000r 1 BASBGN := $1000 000000r 1 TEDATRHI := $1800 000000r 1 TEDSCNHI := $1C00 000000r 1 GRBASE := $2000 000000r 1 000000r 1 .org $8000 008000 1 008000 1 4C 19 80 L8000: jmp L8019 008003 1 008003 1 4C 0A 80 L8003: jmp L800A 008006 1 008006 1 00 L8006: .byte $00 008007 1 008007 1 43 42 4D L8007: .byte "CBM" 00800A 1 00800A 1 20 CC FF L800A: jsr kCLRCHN 00800D 1 20 D8 8A jsr L8AD8 008010 1 85 13 sta CHANNL 008012 1 20 C9 C7 jsr LC7C9 008015 1 58 cli 008016 1 4C 7E 86 L8016: jmp L867E 008019 1 008019 1 20 17 81 L8019: jsr L8117 00801C 1 20 2E 80 jsr L802E 00801F 1 20 C2 80 jsr L80C2 008022 1 20 F4 FC jsr LFCF4 008025 1 A2 FB ldx #$FB 008027 1 9A txs 008028 1 D0 EC bne L8016 00802A 1 71 98 L802A: .addr L9871 00802C 1 71 94 .addr L9471 00802E 1 A9 4C L802E: lda #$4C 008030 1 85 54 sta JMPER 008032 1 8D 00 05 sta lIUSRPOK 008035 1 A9 1C lda #$1C 008037 1 A0 99 ldy #$99 008039 1 8D 01 05 sta lIUSRADD 00803C 1 8C 02 05 sty $0502 00803F 1 A2 03 ldx #$03 008041 1 BD 2A 80 L8041: lda L802A,x 008044 1 9D F2 02 sta ADRAY1,x 008047 1 CA dex 008048 1 10 F7 bpl L8041 00804A 1 A2 32 ldx #$32 00804C 1 BD 22 81 L804C: lda L8122,x 00804F 1 9D 72 04 sta $0472,x 008052 1 CA dex 008053 1 D0 F7 bne L804C 008055 1 86 68 stx BITS 008057 1 86 13 stx CHANNL 008059 1 86 18 stx $18 00805B 1 8E EB 02 stx TRCFLG 00805E 1 .if CompileComputer < PLUS4_01 00805E 1 stx MVDFLG 00805E 1 stx AUTINC 00805E 1 stx $74 00805E 1 stx WIDTH 00805E 1 stx SCALEM 00805E 1 stx FILFLG 00805E 1 .endif 00805E 1 8E 00 10 stx BASBGN 008061 1 .if CompileComputer >= PLUS4_01 008061 1 8A txa 008062 1 A2 03 ldx #$03 008064 1 95 72 L8064: sta $72,x 008066 1 9D E5 02 sta BITCNT,x 008069 1 CA dex 00806A 1 D0 F8 bne L8064 00806C 1 EA nop 00806D 1 8E 03 05 stx RNDX 008070 1 .endif 008070 1 E8 inx 008071 1 8E FD 01 stx $01FD 008074 1 8E FC 01 stx $01FC 008077 1 AE 3B 05 ldx COLOR 00807A 1 86 86 stx FG 00807C 1 A2 36 ldx #$36 00807E 1 86 85 stx MC1 008080 1 A2 19 ldx #$19 008082 1 86 16 stx TEMPPT 008084 1 A2 01 ldx #$01 008086 1 A0 10 ldy #$10 008088 1 86 2B stx TXTTAB 00808A 1 84 2C sty $2C 00808C 1 A2 05 ldx #$05 00808E 1 86 22 stx INDEX1 008090 1 A9 D0 lda #$D0 008092 1 8D E4 02 sta CHRPAG 008095 1 A2 02 ldx #$02 008097 1 BD 32 05 L8097: lda $0532,x 00809A 1 95 36 sta $36,x 00809C 1 95 32 sta $32,x 00809E 1 CA dex 00809F 1 D0 F6 bne L8097 0080A1 1 A0 00 L80A1: ldy #$00 0080A3 1 B9 47 81 L80A3: lda L8147,y 0080A6 1 9D A5 04 sta INDTXT,x 0080A9 1 E8 inx 0080AA 1 C8 iny 0080AB 1 C0 0B cpy #$0B 0080AD 1 90 F4 bcc L80A3 0080AF 1 A4 22 ldy INDEX1 0080B1 1 B9 BC 80 lda L80BC,y 0080B4 1 9D 9F 04 sta $049F,x 0080B7 1 C6 22 dec INDEX1 0080B9 1 10 E6 bpl L80A1 0080BB 1 60 rts 0080BC 1 0080BC 1 64 5F 6F 24 L80BC: .byte $64,$5F,$6F,$24,$22,$3B 0080C0 1 22 3B 0080C2 1 A5 2B L80C2: lda TXTTAB 0080C4 1 A4 2C ldy $2C 0080C6 1 20 23 89 jsr L8923 0080C9 1 20 4F FF jsr LFF4F 0080CC 1 93 0D .byte $93,$0D 0080CE 1 20 43 4F 4D .byte " COMMODORE BASIC V3.5 " 0080D2 1 4D 4F 44 4F 0080D6 1 52 45 20 42 0080E4 1 0080E4 1 0080E4 1 00 .byte $00 0080E5 1 A5 37 lda MEMSIZ 0080E7 1 38 sec 0080E8 1 E5 2B sbc TXTTAB 0080EA 1 AA tax 0080EB 1 A5 38 lda $38 0080ED 1 E5 2C sbc $2C 0080EF 1 20 5F A4 jsr LA45F 0080F2 1 20 4F FF jsr LFF4F 0080F5 1 20 42 59 54 .byte " BYTES FREE" 0080F9 1 45 53 20 46 0080FD 1 52 45 45 008100 1 008100 1 0D 00 .byte $0D,$00 008102 1 4C 7B 8A jmp L8A7B 008105 1 008105 1 86 86 L8105: .addr IERROR 008107 1 12 87 .addr IMAIN 008109 1 56 89 .addr ICRNCH 00810B 1 6E 8B .addr IQPLOP 00810D 1 D6 8B .addr IGONE 00810F 1 17 94 .addr IEVAL 008111 1 6A 89 .addr IBASIC1 008113 1 88 8B .addr IBASIC2 008115 1 8B 8C .addr IBASIC3 008117 1 A2 11 L8117: ldx #$11 008119 1 BD 05 81 L8119: lda L8105,x 00811C 1 9D 00 03 sta lIERROR,x 00811F 1 CA dex 008120 1 10 F7 bpl L8119 008122 1 60 L8122: rts 008123 1 008123 1 E6 3B L8123: inc TXTPTR 008125 1 D0 02 bne L8129 008127 1 E6 3C inc $3C 008129 1 78 L8129: sei 00812A 1 8D 3F FF sta TEDROMSEL 00812D 1 A0 00 ldy #$00 00812F 1 B1 3B lda (TXTPTR),y 008131 1 8D 3E FF sta TEDRAMSEL 008134 1 58 cli 008135 1 C9 3A cmp #$3A 008137 1 B0 0A bcs L8143 008139 1 C9 20 cmp #$20 00813B 1 F0 E6 beq L8123 00813D 1 38 sec 00813E 1 E9 30 sbc #$30 008140 1 38 sec 008141 1 E9 D0 sbc #$D0 008143 1 60 L8143: rts 008144 1 008144 1 8D 9C 04 sta $049C 008147 1 78 L8147: sei 008148 1 8D 3F FF sta TEDROMSEL 00814B 1 B1 00 lda (PDIR),y 00814D 1 8D 3E FF sta TEDRAMSEL 008150 1 58 cli 008151 1 60 rts 008152 1 008152 1 00 00 00 .byte $00,$00,$00 008155 1 A9 43 L8155: lda #$43 008157 1 D0 32 bne L818B 008159 1 A9 4E L8159: lda #$4E 00815B 1 D0 2E bne L818B 00815D 1 A9 14 L815D: lda #$14 00815F 1 D0 2A bne L818B 008161 1 A9 47 L8161: lda #$47 008163 1 D0 26 bne L818B 008165 1 A9 4E L8165: lda #$4E 008167 1 D0 22 bne L818B 008169 1 A9 5C L8169: lda #$5C 00816B 1 D0 1E bne L818B 00816D 1 A9 5F L816D: lda #$5F 00816F 1 D0 1A bne L818B 008171 1 A9 3D L8171: lda #$3D 008173 1 D0 16 bne L818B 008175 1 A9 57 L8175: lda #$57 008177 1 D0 12 bne L818B 008179 1 A9 59 L8179: lda #$59 00817B 1 D0 0E bne L818B 00817D 1 A9 62 L817D: lda #$62 00817F 1 D0 0A bne L818B 008181 1 A9 50 L8181: lda #$50 008183 1 D0 06 bne L818B 008185 1 A9 6C L8185: lda #$6C 008187 1 D0 02 bne L818B 008189 1 A9 5A L8189: lda #$5A 00818B 1 4C 94 04 L818B: jmp INDSUB 00818E 1 00818E 1 45 4E .byte "EN" 008190 1 C4 .byte $C4 008191 1 46 4F .byte "FO" 008193 1 D2 .byte $D2 008194 1 4E 45 58 .byte "NEX" 008197 1 D4 .byte $D4 008198 1 44 41 54 .byte "DAT" 00819B 1 C1 .byte $C1 00819C 1 49 4E 50 55 .byte "INPUT" 0081A0 1 54 0081A1 1 A3 .byte $A3 0081A2 1 49 4E 50 55 .byte "INPU" 0081A6 1 D4 .byte $D4 0081A7 1 44 49 .byte "DI" 0081A9 1 CD .byte $CD 0081AA 1 52 45 41 .byte "REA" 0081AD 1 C4 .byte $C4 0081AE 1 4C 45 .byte "LE" 0081B0 1 D4 .byte $D4 0081B1 1 47 4F 54 .byte "GOT" 0081B4 1 CF .byte $CF 0081B5 1 52 55 .byte "RU" 0081B7 1 CE .byte $CE 0081B8 1 49 .byte "I" 0081B9 1 C6 .byte $C6 0081BA 1 52 45 53 54 .byte "RESTOR" 0081BE 1 4F 52 0081C0 1 C5 .byte $C5 0081C1 1 47 4F 53 55 .byte "GOSU" 0081C5 1 C2 .byte $C2 0081C6 1 52 45 54 55 .byte "RETUR" 0081CA 1 52 0081CB 1 CE .byte $CE 0081CC 1 52 45 .byte "RE" 0081CE 1 CD .byte $CD 0081CF 1 53 54 4F .byte "STO" 0081D2 1 D0 .byte $D0 0081D3 1 4F .byte "O" 0081D4 1 CE .byte $CE 0081D5 1 57 41 49 .byte "WAI" 0081D8 1 D4 .byte $D4 0081D9 1 4C 4F 41 .byte "LOA" 0081DC 1 C4 .byte $C4 0081DD 1 53 41 56 .byte "SAV" 0081E0 1 C5 .byte $C5 0081E1 1 56 45 52 49 .byte "VERIF" 0081E5 1 46 0081E6 1 D9 .byte $D9 0081E7 1 44 45 .byte "DE" 0081E9 1 C6 .byte $C6 0081EA 1 50 4F 4B .byte "POK" 0081ED 1 C5 .byte $C5 0081EE 1 50 52 49 4E .byte "PRINT" 0081F2 1 54 0081F3 1 A3 .byte $A3 0081F4 1 50 52 49 4E .byte "PRIN" 0081F8 1 D4 .byte $D4 0081F9 1 43 4F 4E .byte "CON" 0081FC 1 D4 .byte $D4 0081FD 1 4C 49 53 .byte "LIS" 008200 1 D4 .byte $D4 008201 1 43 4C .byte "CL" 008203 1 D2 .byte $D2 008204 1 43 4D .byte "CM" 008206 1 C4 .byte $C4 008207 1 53 59 .byte "SY" 008209 1 D3 .byte $D3 00820A 1 4F 50 45 .byte "OPE" 00820D 1 CE .byte $CE 00820E 1 43 4C 4F 53 .byte "CLOS" 008212 1 C5 .byte $C5 008213 1 47 45 .byte "GE" 008215 1 D4 .byte $D4 008216 1 4E 45 .byte "NE" 008218 1 D7 .byte $D7 008219 1 54 41 42 .byte "TAB" 00821C 1 A8 .byte $A8 00821D 1 54 .byte "T" 00821E 1 CF .byte $CF 00821F 1 46 .byte "F" 008220 1 CE .byte $CE 008221 1 53 50 43 .byte "SPC" 008224 1 A8 .byte $A8 008225 1 54 48 45 .byte "THE" 008228 1 CE .byte $CE 008229 1 4E 4F .byte "NO" 00822B 1 D4 .byte $D4 00822C 1 53 54 45 .byte "STE" 00822F 1 D0 AB AD AA .byte $D0,$AB,$AD,$AA,$AF,$DE 008233 1 AF DE 008235 1 41 4E .byte "AN" 008237 1 C4 .byte $C4 008238 1 4F .byte "O" 008239 1 D2 BE BD BC .byte $D2,$BE,$BD,$BC 00823D 1 53 47 .byte "SG" 00823F 1 CE .byte $CE 008240 1 49 4E .byte "IN" 008242 1 D4 .byte $D4 008243 1 41 42 .byte "AB" 008245 1 D3 .byte $D3 008246 1 55 53 .byte "US" 008248 1 D2 .byte $D2 008249 1 46 52 .byte "FR" 00824B 1 C5 .byte $C5 00824C 1 50 4F .byte "PO" 00824E 1 D3 .byte $D3 00824F 1 53 51 .byte "SQ" 008251 1 D2 .byte $D2 008252 1 52 4E .byte "RN" 008254 1 C4 .byte $C4 008255 1 4C 4F .byte "LO" 008257 1 C7 .byte $C7 008258 1 45 58 .byte "EX" 00825A 1 D0 .byte $D0 00825B 1 43 4F .byte "CO" 00825D 1 D3 .byte $D3 00825E 1 53 49 .byte "SI" 008260 1 CE .byte $CE 008261 1 54 41 .byte "TA" 008263 1 CE .byte $CE 008264 1 41 54 .byte "AT" 008266 1 CE .byte $CE 008267 1 50 45 45 .byte "PEE" 00826A 1 CB .byte $CB 00826B 1 4C 45 .byte "LE" 00826D 1 CE .byte $CE 00826E 1 53 54 52 .byte "STR" 008271 1 A4 .byte $A4 008272 1 56 41 .byte "VA" 008274 1 CC .byte $CC 008275 1 41 53 .byte "AS" 008277 1 C3 .byte $C3 008278 1 43 48 52 .byte "CHR" 00827B 1 A4 .byte $A4 00827C 1 4C 45 46 54 .byte "LEFT" 008280 1 A4 .byte $A4 008281 1 52 49 47 48 .byte "RIGHT" 008285 1 54 008286 1 A4 .byte $A4 008287 1 4D 49 44 .byte "MID" 00828A 1 A4 .byte $A4 00828B 1 47 .byte "G" 00828C 1 CF .byte $CF 00828D 1 52 47 .byte "RG" 00828F 1 D2 .byte $D2 008290 1 52 43 4C .byte "RCL" 008293 1 D2 .byte $D2 008294 1 52 4C 55 .byte "RLU" 008297 1 CD .byte $CD 008298 1 4A 4F .byte "JO" 00829A 1 D9 .byte $D9 00829B 1 52 44 4F .byte "RDO" 00829E 1 D4 .byte $D4 00829F 1 44 45 .byte "DE" 0082A1 1 C3 .byte $C3 0082A2 1 48 45 58 .byte "HEX" 0082A5 1 A4 .byte $A4 0082A6 1 45 52 52 .byte "ERR" 0082A9 1 A4 .byte $A4 0082AA 1 49 4E 53 54 .byte "INST" 0082AE 1 D2 .byte $D2 0082AF 1 45 4C 53 .byte "ELS" 0082B2 1 C5 .byte $C5 0082B3 1 52 45 53 55 .byte "RESUM" 0082B7 1 4D 0082B8 1 C5 .byte $C5 0082B9 1 54 52 41 .byte "TRA" 0082BC 1 D0 .byte $D0 0082BD 1 54 52 4F .byte "TRO" 0082C0 1 CE .byte $CE 0082C1 1 54 52 4F 46 .byte "TROF" 0082C5 1 C6 .byte $C6 0082C6 1 53 4F 55 4E .byte "SOUN" 0082CA 1 C4 .byte $C4 0082CB 1 56 4F .byte "VO" 0082CD 1 CC .byte $CC 0082CE 1 41 55 54 .byte "AUT" 0082D1 1 CF .byte $CF 0082D2 1 50 55 44 45 .byte "PUDE" 0082D6 1 C6 .byte $C6 0082D7 1 47 52 41 50 .byte "GRAPHI" 0082DB 1 48 49 0082DD 1 C3 .byte $C3 0082DE 1 50 41 49 4E .byte "PAIN" 0082E2 1 D4 .byte $D4 0082E3 1 43 48 41 .byte "CHA" 0082E6 1 D2 .byte $D2 0082E7 1 42 4F .byte "BO" 0082E9 1 D8 .byte $D8 0082EA 1 43 49 52 43 .byte "CIRCL" 0082EE 1 4C 0082EF 1 C5 .byte $C5 0082F0 1 47 53 48 41 .byte "GSHAP" 0082F4 1 50 0082F5 1 C5 .byte $C5 0082F6 1 53 53 48 41 .byte "SSHAP" 0082FA 1 50 0082FB 1 C5 .byte $C5 0082FC 1 44 52 41 .byte "DRA" 0082FF 1 D7 .byte $D7 008300 1 4C 4F 43 41 .byte "LOCAT" 008304 1 54 008305 1 C5 .byte $C5 008306 1 43 4F 4C 4F .byte "COLO" 00830A 1 D2 .byte $D2 00830B 1 53 43 4E 43 .byte "SCNCL" 00830F 1 4C 008310 1 D2 .byte $D2 008311 1 53 43 41 4C .byte "SCAL" 008315 1 C5 .byte $C5 008316 1 48 45 4C .byte "HEL" 008319 1 D0 .byte $D0 00831A 1 44 .byte "D" 00831B 1 CF .byte $CF 00831C 1 4C 4F 4F .byte "LOO" 00831F 1 D0 .byte $D0 008320 1 45 58 49 .byte "EXI" 008323 1 D4 .byte $D4 008324 1 44 49 52 45 .byte "DIRECTOR" 008328 1 43 54 4F 52 00832C 1 D9 .byte $D9 00832D 1 44 53 41 56 .byte "DSAV" 008331 1 C5 .byte $C5 008332 1 44 4C 4F 41 .byte "DLOA" 008336 1 C4 .byte $C4 008337 1 48 45 41 44 .byte "HEADE" 00833B 1 45 00833C 1 D2 .byte $D2 00833D 1 53 43 52 41 .byte "SCRATC" 008341 1 54 43 008343 1 C8 .byte $C8 008344 1 43 4F 4C 4C .byte "COLLEC" 008348 1 45 43 00834A 1 D4 .byte $D4 00834B 1 43 4F 50 .byte "COP" 00834E 1 D9 .byte $D9 00834F 1 52 45 4E 41 .byte "RENAM" 008353 1 4D 008354 1 C5 .byte $C5 008355 1 42 41 43 4B .byte "BACKU" 008359 1 55 00835A 1 D0 .byte $D0 00835B 1 44 45 4C 45 .byte "DELET" 00835F 1 54 008360 1 C5 .byte $C5 008361 1 52 45 4E 55 .byte "RENUMBE" 008365 1 4D 42 45 008368 1 D2 .byte $D2 008369 1 4B 45 .byte "KE" 00836B 1 D9 .byte $D9 00836C 1 4D 4F 4E 49 .byte "MONITO" 008370 1 54 4F 008372 1 D2 .byte $D2 008373 1 55 53 49 4E .byte "USIN" 008377 1 C7 .byte $C7 008378 1 55 4E 54 49 .byte "UNTI" 00837C 1 CC .byte $CC 00837D 1 57 48 49 4C .byte "WHIL" 008381 1 C5 00 .byte $C5,$00 008383 1 D9 8C C9 AD L8383: .word L8CDA-1,LADCA-1,L9294-1,L8DB0-1 008387 1 93 92 AF 8D 00838B 1 ED 90 07 91 .word L90EE-1,L9108-1,L969B-1,L914F-1 00838F 1 9A 96 4E 91 008393 1 7B 8E 4C 8D .word L8E7C-1,L8D4D-1,L8BBC-1,L8DE1-1 008397 1 BB 8B E0 8D 00839B 1 99 8C 2B 8D .word L8C9A-1,L8D2C-1,L8D83-1,L8E0B-1 00839F 1 82 8D 0A 8E 0083A3 1 D7 8C 1A 8E .word L8CD8-1,L8E1B-1,L9E6A-1,LA7F3-1 0083A7 1 69 9E F2 A7 0083AB 1 DD A7 EF A7 .word LA7DE-1,LA7F0-1,L9A9D-1,L9E12-1 0083AF 1 9C 9A 11 9E 0083B3 1 DF 8F FF 8F .word L8FE0-1,L9000-1,L8D03-1,L8AFF-1 0083B7 1 02 8D FE 8A 0083BB 1 97 8A E5 8F .word L8A98-1,L8FE6-1,LA7B5-1,LA84D-1 0083BF 1 B4 A7 4C A8 0083C3 1 59 A8 B7 90 .word LA85A-1,L90B8-1,L8A79-1,L8E0B-1 0083C7 1 78 8A 0A 8E 0083CB 1 3F B4 2A B4 .word LB440-1,LB42B-1,LB652-1,LB655-1 0083CF 1 51 B6 54 B6 0083D3 1 48 B8 BC B8 .word LB849-1,LB8BD-1,LB6CD-1,LB544-1 0083D7 1 CC B6 43 B5 0083DB 1 C2 C5 D0 B8 .word LC5C3-1,LB8D1-1,LB9D4-1,LBAE2-1 0083DF 1 D3 B9 E1 BA 0083E3 1 1D C0 34 BD .word LC01E-1,LBD35-1,LBE29-1,LC4D9-1 0083E7 1 28 BE D8 C4 0083EB 1 0E C5 19 C5 .word LC50F-1,LC51A-1,LC567-1,LC5B8-1 0083EF 1 66 C5 B7 C5 0083F3 1 E7 B6 56 B5 .word LB6E8-1,LB557-1,LB603-1,LB5AC-1 0083F7 1 02 B6 AB B5 0083FB 1 BB C8 40 C9 .word LC8BC-1,LC941-1,LC951-1,LC968-1 0083FF 1 50 C9 67 C9 008403 1 9B C9 CB C9 .word LC99C-1,LC9CC-1,LC9DA-1,LC9F4-1 008407 1 D9 C9 F3 C9 00840B 1 FF C9 59 AE .word LCA00-1,LAE5A-1,LAB8F-1,LB729-1 00840F 1 8E AB 28 B7 008413 1 51 FF .word kMLMONITOR-1 008415 1 008415 1 BE A2 58 A3 L8415: .word LA2BE,LA358,LA2DD 008419 1 DD A2 00841B 1 00 05 62 9A .word lIUSRPOK,L9A62,L9A7D,LA5E4 00841F 1 7D 9A E4 A5 008423 1 07 A7 1E A0 .word LA707,LA01E,LA660,LAA70 008427 1 60 A6 70 AA 00842B 1 77 AA C0 AA .word LAA77,LAAC0,LAB1A,L9DFA 00842F 1 1A AB FA 9D 008433 1 61 9D 66 9B .word L9D61,L9B66,L9D93,L9D70 008437 1 93 9D 70 9D 00843B 1 BB 9C CF 9C .word L9CBB,L9CCF,L9D03,L9D15 00843F 1 03 9D 15 9D 008443 1 79 BF 85 BF .word LBF79,LBF85,LBF87,LBFC1 008447 1 87 BF C1 BF 00844B 1 FD BF 1B 9E .word LBFFD,L9E1B,LB507,LB4BE 00844F 1 07 B5 BE B4 008453 1 008453 1 79 L8453: .byte $79 008454 1 9D 9E L8454: .word L9E9E-1 008456 1 79 .byte $79 008457 1 86 9E .word L9E87-1 008459 1 7B .byte $7B 00845A 1 7A A0 .word LA07B-1 00845C 1 7B .byte $7B 00845D 1 96 A1 .word LA197-1 00845F 1 7F .byte $7F 008460 1 ED A5 .word LA5EE-1 008462 1 50 .byte $50 008463 1 FA 95 .word L95FB-1 008465 1 46 .byte $46 008466 1 F7 95 .word L95F8-1 008468 1 7D .byte $7D 008469 1 26 A6 .word LA627-1 00846B 1 5A .byte $5A 00846C 1 64 94 .word L9465-1 00846E 1 64 .byte $64 00846F 1 27 96 .word L9628-1 008471 1 008471 1 54 4F 4F 20 .byte "TOO MANY FILE" 008475 1 4D 41 4E 59 008479 1 20 46 49 4C 00847E 1 00847E 1 D3 .byte $D3 00847F 1 46 49 4C 45 .byte "FILE OPE" 008483 1 20 4F 50 45 008487 1 CE .byte $CE 008488 1 46 49 4C 45 .byte "FILE NOT OPE" 00848C 1 20 4E 4F 54 008490 1 20 4F 50 45 008494 1 008494 1 CE .byte $CE 008495 1 46 49 4C 45 .byte "FILE NOT FOUN" 008499 1 20 4E 4F 54 00849D 1 20 46 4F 55 0084A2 1 0084A2 1 C4 .byte $C4 0084A3 1 44 45 56 49 .byte "DEVICE NOT PRESEN" 0084A7 1 43 45 20 4E 0084AB 1 4F 54 20 50 0084B4 1 0084B4 1 0084B4 1 D4 .byte $D4 0084B5 1 4E 4F 54 20 .byte "NOT INPUT FIL" 0084B9 1 49 4E 50 55 0084BD 1 54 20 46 49 0084C2 1 0084C2 1 C5 .byte $C5 0084C3 1 4E 4F 54 20 .byte "NOT OUTPUT FIL" 0084C7 1 4F 55 54 50 0084CB 1 55 54 20 46 0084D1 1 0084D1 1 C5 .byte $C5 0084D2 1 4D 49 53 53 .byte "MISSING FILE NAM" 0084D6 1 49 4E 47 20 0084DA 1 46 49 4C 45 0084E2 1 0084E2 1 C5 .byte $C5 0084E3 1 .if CompileComputer = PLUS4_BETA_0203 0084E3 1 .byte "IHLEGAL DEVICE NUMBE" 0084E3 1 .else 0084E3 1 49 4C 4C 45 .byte "ILLEGAL DEVICE NUMBE" 0084E7 1 47 41 4C 20 0084EB 1 44 45 56 49 0084F7 1 .endif 0084F7 1 0084F7 1 0084F7 1 D2 .byte $D2 0084F8 1 4E 45 58 54 .byte "NEXT WITHOUT FO" 0084FC 1 20 57 49 54 008500 1 48 4F 55 54 008507 1 008507 1 D2 .byte $D2 008508 1 53 59 4E 54 .byte "SYNTA" 00850C 1 41 00850D 1 D8 .byte $D8 00850E 1 52 45 54 55 .byte "RETURN WITHOUT GOSU" 008512 1 52 4E 20 57 008516 1 49 54 48 4F 008521 1 008521 1 008521 1 C2 .byte $C2 008522 1 4F 55 54 20 .byte "OUT OF DAT" 008526 1 4F 46 20 44 00852A 1 41 54 00852C 1 00852C 1 C1 .byte $C1 00852D 1 49 4C 4C 45 .byte "ILLEGAL QUANTIT" 008531 1 47 41 4C 20 008535 1 51 55 41 4E 00853C 1 00853C 1 D9 .byte $D9 00853D 1 4F 56 45 52 .byte "OVERFLO" 008541 1 46 4C 4F 008544 1 D7 .byte $D7 008545 1 4F 55 54 20 .byte "OUT OF MEMOR" 008549 1 4F 46 20 4D 00854D 1 45 4D 4F 52 008551 1 008551 1 D9 .byte $D9 008552 1 55 4E 44 45 .byte "UNDEF'D STATEMEN" 008556 1 46 27 44 20 00855A 1 53 54 41 54 008562 1 008562 1 D4 .byte $D4 008563 1 42 41 44 20 .byte "BAD SUBSCRIP" 008567 1 53 55 42 53 00856B 1 43 52 49 50 00856F 1 00856F 1 D4 .byte $D4 008570 1 52 45 44 49 .byte "REDIM'D ARRA" 008574 1 4D 27 44 20 008578 1 41 52 52 41 00857C 1 00857C 1 D9 .byte $D9 00857D 1 44 49 56 49 .byte "DIVISION BY ZER" 008581 1 53 49 4F 4E 008585 1 20 42 59 20 00858C 1 00858C 1 CF .byte $CF 00858D 1 49 4C 4C 45 .byte "ILLEGAL DIREC" 008591 1 47 41 4C 20 008595 1 44 49 52 45 00859A 1 00859A 1 D4 .byte $D4 00859B 1 54 59 50 45 .byte "TYPE MISMATC" 00859F 1 20 4D 49 53 0085A3 1 4D 41 54 43 0085A7 1 0085A7 1 C8 .byte $C8 0085A8 1 53 54 52 49 .byte "STRING TOO LON" 0085AC 1 4E 47 20 54 0085B0 1 4F 4F 20 4C 0085B6 1 0085B6 1 C7 .byte $C7 0085B7 1 46 49 4C 45 .byte "FILE DAT" 0085BB 1 20 44 41 54 0085BF 1 C1 .byte $C1 0085C0 1 46 4F 52 4D .byte "FORMULA TOO COMPLE" 0085C4 1 55 4C 41 20 0085C8 1 54 4F 4F 20 0085D2 1 0085D2 1 0085D2 1 D8 .byte $D8 0085D3 1 43 41 4E 27 .byte "CAN'T CONTINU" 0085D7 1 54 20 43 4F 0085DB 1 4E 54 49 4E 0085E0 1 0085E0 1 C5 .byte $C5 0085E1 1 55 4E 44 45 .byte "UNDEF'D FUNCTIO" 0085E5 1 46 27 44 20 0085E9 1 46 55 4E 43 0085F0 1 0085F0 1 CE .byte $CE 0085F1 1 56 45 52 49 .byte "VERIF" 0085F5 1 46 0085F6 1 D9 .byte $D9 0085F7 1 4C 4F 41 .byte "LOA" 0085FA 1 C4 .byte $C4 0085FB 1 42 52 45 41 .byte "BREAK" 0085FF 1 4B 008600 1 00 A0 .byte $00,$A0 008602 1 43 41 4E 27 .byte "CAN'T RESUM" 008606 1 54 20 52 45 00860A 1 53 55 4D 00860D 1 00860D 1 C5 .byte $C5 00860E 1 4C 4F 4F 50 .byte "LOOP NOT FOUN" 008612 1 20 4E 4F 54 008616 1 20 46 4F 55 00861B 1 00861B 1 C4 .byte $C4 00861C 1 4C 4F 4F 50 .byte "LOOP WITHOUT D" 008620 1 20 57 49 54 008624 1 48 4F 55 54 00862A 1 00862A 1 CF .byte $CF 00862B 1 44 49 52 45 .byte "DIRECT MODE ONL" 00862F 1 43 54 20 4D 008633 1 4F 44 45 20 00863A 1 00863A 1 D9 .byte $D9 00863B 1 4E 4F 20 47 .byte "NO GRAPHICS ARE" 00863F 1 52 41 50 48 008643 1 49 43 53 20 00864A 1 00864A 1 C1 .byte $C1 00864B 1 42 41 44 20 .byte "BAD DIS" 00864F 1 44 49 53 008652 1 CB .byte $CB 008653 1 AA L8653: tax 008654 1 A0 00 ldy #$00 008656 1 A9 71 lda #$71 008658 1 85 24 sta INDEX2 00865A 1 A9 84 lda #$84 00865C 1 85 25 sta $25 00865E 1 CA L865E: dex 00865F 1 30 1C bmi L867D 008661 1 B1 24 L8661: lda (INDEX2),y 008663 1 48 pha 008664 1 E6 24 inc INDEX2 008666 1 D0 02 bne L866A 008668 1 E6 25 inc $25 00866A 1 68 L866A: pla 00866B 1 10 F4 bpl L8661 00866D 1 30 EF bmi L865E 00866F 1 20 4F FF L866F: jsr LFF4F 008672 1 0D 0A .byte $0D,$0A 008674 1 52 45 41 44 .byte "READY." 008678 1 59 2E 00867A 1 0D 0A 00 .byte $0D,$0A,$00 00867D 1 60 L867D: rts 00867E 1 00867E 1 A2 80 L867E: ldx #$80 008680 1 2C .byte $2C 008681 1 A2 10 L8681: ldx #$10 008683 1 6C 00 03 L8683: jmp (lIERROR) 008686 1 008686 1 8A IERROR: txa 008687 1 30 7A bmi L8703 008689 1 8E EF 04 stx ERRNUM 00868C 1 24 81 bit RUNMOD 00868E 1 10 35 bpl L86C5 008690 1 A0 01 ldy #$01 008692 1 B9 39 00 L8692: lda CHRLIN,y 008695 1 99 F0 04 sta ERRLIN,y 008698 1 B9 5B 02 lda OLDTXT,y 00869B 1 99 F5 04 sta ERRTXT,y 00869E 1 88 dey 00869F 1 10 F1 bpl L8692 0086A1 1 E0 11 cpx #$11 0086A3 1 F0 20 beq L86C5 0086A5 1 AC F3 04 ldy $04F3 0086A8 1 C8 iny 0086A9 1 F0 1A beq L86C5 0086AB 1 88 dey 0086AC 1 84 15 sty $15 0086AE 1 8C F4 04 sty TMPTRP 0086B1 1 AC F2 04 ldy TRAPNO 0086B4 1 84 14 sty LINNUM 0086B6 1 A2 FF ldx #$FF 0086B8 1 8E F3 04 stx $04F3 0086BB 1 AE F7 04 ldx OLDSTK 0086BE 1 9A txs 0086BF 1 20 69 8D jsr L8D69 0086C2 1 4C DC 8B jmp L8BDC 0086C5 1 0086C5 1 CA L86C5: dex 0086C6 1 8A txa 0086C7 1 48 pha 0086C8 1 A9 00 lda #$00 0086CA 1 85 83 sta GRAPHM 0086CC 1 20 C9 C7 jsr LC7C9 0086CF 1 68 pla 0086D0 1 20 53 86 jsr L8653 0086D3 1 20 CC FF jsr kCLRCHN 0086D6 1 A9 00 lda #$00 0086D8 1 85 13 sta CHANNL 0086DA 1 20 3E 90 jsr L903E 0086DD 1 20 B0 90 jsr L90B0 0086E0 1 A0 00 ldy #$00 0086E2 1 B1 24 L86E2: lda (INDEX2),y 0086E4 1 48 pha 0086E5 1 29 7F and #$7F 0086E7 1 20 B2 90 jsr L90B2 0086EA 1 C8 iny 0086EB 1 68 pla 0086EC 1 10 F4 bpl L86E2 0086EE 1 20 D8 8A jsr L8AD8 0086F1 1 20 4F FF jsr LFF4F 0086F4 1 20 45 52 52 .byte " ERROR" 0086F8 1 4F 52 0086FA 1 00 .byte $00 0086FB 1 A4 3A L86FB: ldy $3A 0086FD 1 C8 iny 0086FE 1 F0 03 beq L8703 008700 1 20 53 A4 jsr LA453 008703 1 20 6F 86 L8703: jsr L866F 008706 1 A9 80 lda #$80 008708 1 20 90 FF jsr kSETMSF 00870B 1 A9 00 lda #$00 00870D 1 85 81 sta RUNMOD 00870F 1 6C 02 03 L870F: jmp (lIMAIN) 008712 1 008712 1 IMAIN: 008712 1 .if CompileComputer >= PLUS4_01 008712 1 A2 FF ldx #$FF 008714 1 86 3A stx $3A 008716 1 .endif 008716 1 20 5A 88 jsr L885A 008719 1 86 3B stx TXTPTR 00871B 1 84 3C sty $3C 00871D 1 20 73 04 jsr CHRGET 008720 1 AA tax 008721 1 F0 EC L8721: beq L870F 008723 1 .if CompileComputer < PLUS4_01 008723 1 ldx #$FF 008723 1 stx $3A 008723 1 .endif 008723 1 90 09 bcc L872E 008725 1 20 53 89 jsr L8953 008728 1 20 79 04 jsr CHRGOT 00872B 1 4C D9 8B jmp L8BD9 00872E 1 00872E 1 20 3E 8E L872E: jsr L8E3E 008731 1 20 53 89 jsr L8953 008734 1 84 0B sty COUNT 008736 1 20 3D 8A jsr L8A3D 008739 1 90 4A bcc L8785 00873B 1 A0 01 ldy #$01 00873D 1 20 D1 04 jsr INDLOW 008740 1 85 23 sta $23 008742 1 A5 2D lda VARTAB 008744 1 85 22 sta INDEX1 008746 1 A5 60 lda $60 008748 1 85 25 sta $25 00874A 1 88 dey 00874B 1 20 D1 04 jsr INDLOW 00874E 1 18 clc 00874F 1 E5 5F sbc $5F 008751 1 49 FF eor #$FF 008753 1 18 clc 008754 1 65 2D adc VARTAB 008756 1 85 2D sta VARTAB 008758 1 85 24 sta INDEX2 00875A 1 A5 2E lda $2E 00875C 1 69 FF adc #$FF 00875E 1 85 2E sta $2E 008760 1 E5 60 sbc $60 008762 1 AA tax 008763 1 38 sec 008764 1 A5 5F lda $5F 008766 1 E5 2D sbc VARTAB 008768 1 A8 tay 008769 1 B0 03 bcs L876E 00876B 1 E8 inx 00876C 1 C6 25 dec $25 00876E 1 18 L876E: clc 00876F 1 65 22 adc INDEX1 008771 1 90 03 bcc L8776 008773 1 C6 23 dec $23 008775 1 18 clc 008776 1 20 B0 04 L8776: jsr INDIN1 008779 1 91 24 sta (INDEX2),y 00877B 1 C8 iny 00877C 1 D0 F8 bne L8776 00877E 1 E6 23 inc $23 008780 1 E6 25 inc $25 008782 1 CA dex 008783 1 D0 F1 bne L8776 008785 1 20 9A 8A L8785: jsr L8A9A 008788 1 20 18 88 jsr L8818 00878B 1 A0 00 ldy #$00 00878D 1 20 A5 04 jsr INDTXT 008790 1 F0 8F beq L8721 008792 1 18 clc 008793 1 A5 2D lda VARTAB 008795 1 A4 2E ldy $2E 008797 1 85 5A sta $5A 008799 1 84 5B sty $5B 00879B 1 65 0B adc COUNT 00879D 1 90 01 bcc L87A0 00879F 1 C8 iny 0087A0 1 18 L87A0: clc 0087A1 1 69 04 adc #$04 0087A3 1 90 01 bcc L87A6 0087A5 1 C8 iny 0087A6 1 85 58 L87A6: sta $58 0087A8 1 84 59 sty $59 0087AA 1 20 C0 88 jsr L88C0 0087AD 1 A0 00 ldy #$00 0087AF 1 A9 01 lda #$01 0087B1 1 91 5F sta ($5F),y 0087B3 1 C8 iny 0087B4 1 91 5F sta ($5F),y 0087B6 1 C8 iny 0087B7 1 A5 14 lda LINNUM 0087B9 1 91 5F sta ($5F),y 0087BB 1 A5 15 lda $15 0087BD 1 C8 iny 0087BE 1 91 5F sta ($5F),y 0087C0 1 C8 iny 0087C1 1 98 tya 0087C2 1 18 clc 0087C3 1 65 5F adc $5F 0087C5 1 85 5F sta $5F 0087C7 1 90 02 bcc L87CB 0087C9 1 E6 60 inc $60 0087CB 1 A5 31 L87CB: lda STREND 0087CD 1 A4 32 ldy $32 0087CF 1 85 2D sta VARTAB 0087D1 1 84 2E sty $2E 0087D3 1 A4 0B ldy COUNT 0087D5 1 88 dey 0087D6 1 20 A5 04 L87D6: jsr INDTXT 0087D9 1 91 5F sta ($5F),y 0087DB 1 88 dey 0087DC 1 10 F8 bpl L87D6 0087DE 1 20 18 88 jsr L8818 0087E1 1 20 93 8A jsr L8A93 0087E4 1 A5 73 lda AUTINC 0087E6 1 05 74 ora $74 0087E8 1 F0 2B beq L8815 0087EA 1 A5 14 lda LINNUM 0087EC 1 18 clc 0087ED 1 65 73 adc AUTINC 0087EF 1 85 63 sta $63 0087F1 1 A5 15 lda $15 0087F3 1 65 74 adc $74 0087F5 1 85 62 sta FACH0 0087F7 1 A2 90 ldx #$90 0087F9 1 38 sec 0087FA 1 20 CE A2 jsr LA2CE 0087FD 1 20 6F A4 jsr LA46F 008800 1 A2 00 ldx #$00 008802 1 BD 01 01 L8802: lda $0101,x 008805 1 F0 06 beq L880D 008807 1 9D 27 05 sta KEYD,x 00880A 1 E8 inx 00880B 1 D0 F5 bne L8802 00880D 1 A9 1D L880D: lda #$1D 00880F 1 9D 27 05 sta KEYD,x 008812 1 E8 inx 008813 1 86 EF stx NDX 008815 1 4C 0F 87 L8815: jmp L870F 008818 1 008818 1 A5 2B L8818: lda TXTTAB 00881A 1 A4 2C ldy $2C 00881C 1 85 22 sta INDEX1 00881E 1 84 23 sty $23 008820 1 18 clc 008821 1 A0 00 L8821: ldy #$00 008823 1 20 B0 04 jsr INDIN1 008826 1 D0 06 bne L882E 008828 1 C8 iny 008829 1 20 B0 04 jsr INDIN1 00882C 1 F0 2B beq L8859 00882E 1 A0 04 L882E: ldy #$04 008830 1 C8 L8830: iny 008831 1 20 B0 04 jsr INDIN1 008834 1 D0 FA bne L8830 008836 1 C8 iny 008837 1 98 tya 008838 1 65 22 adc INDEX1 00883A 1 AA tax 00883B 1 A0 00 ldy #$00 00883D 1 91 22 sta (INDEX1),y 00883F 1 98 tya 008840 1 65 23 adc $23 008842 1 C8 iny 008843 1 91 22 sta (INDEX1),y 008845 1 86 22 stx INDEX1 008847 1 85 23 sta $23 008849 1 90 D6 bcc L8821 00884B 1 18 L884B: clc 00884C 1 A5 22 lda INDEX1 00884E 1 A4 23 ldy $23 008850 1 69 02 adc #$02 008852 1 90 01 bcc L8855 008854 1 C8 iny 008855 1 85 2D L8855: sta VARTAB 008857 1 84 2E sty $2E 008859 1 60 L8859: rts 00885A 1 00885A 1 A2 00 L885A: ldx #$00 00885C 1 20 91 A7 L885C: jsr LA791 00885F 1 C9 0D cmp #$0D 008861 1 F0 0B beq L886E 008863 1 9D 00 02 sta BUF,x 008866 1 E8 inx 008867 1 E0 59 cpx #$59 008869 1 90 F1 bcc L885C 00886B 1 4C 4C CC jmp LCC4C 00886E 1 00886E 1 4C 31 90 L886E: jmp L9031 008871 1 008871 1 20 60 A7 L8871: jsr LA760 008874 1 A5 3D L8874: lda FNDPNT 008876 1 C9 B0 cmp #$B0 008878 1 D0 06 bne L8880 00887A 1 A5 3E lda $3E 00887C 1 C9 07 cmp #$07 00887E 1 F0 3D beq L88BD 008880 1 A0 00 L8880: ldy #$00 008882 1 A5 02 lda SRCHTK 008884 1 C9 81 cmp #$81 008886 1 D0 1B bne L88A3 008888 1 D1 3D cmp (FNDPNT),y 00888A 1 D0 33 bne L88BF 00888C 1 A0 02 ldy #$02 00888E 1 A5 4A lda $4A 008890 1 C9 FF cmp #$FF 008892 1 F0 2B beq L88BF 008894 1 D1 3D cmp (FNDPNT),y 008896 1 D0 07 bne L889F 008898 1 88 dey 008899 1 A5 49 lda FORPNT 00889B 1 D1 3D cmp (FNDPNT),y 00889D 1 F0 20 beq L88BF 00889F 1 A2 12 L889F: ldx #$12 0088A1 1 D0 0E bne L88B1 0088A3 1 B1 3D L88A3: lda (FNDPNT),y 0088A5 1 C5 02 cmp SRCHTK 0088A7 1 F0 16 beq L88BF 0088A9 1 A2 12 ldx #$12 0088AB 1 C9 81 cmp #$81 0088AD 1 F0 02 beq L88B1 0088AF 1 A2 05 ldx #$05 0088B1 1 8A L88B1: txa 0088B2 1 18 clc 0088B3 1 65 3D adc FNDPNT 0088B5 1 85 3D sta FNDPNT 0088B7 1 90 BB bcc L8874 0088B9 1 E6 3E inc $3E 0088BB 1 D0 B7 bne L8874 0088BD 1 A0 01 L88BD: ldy #$01 0088BF 1 60 L88BF: rts 0088C0 1 0088C0 1 20 23 89 L88C0: jsr L8923 0088C3 1 85 31 sta STREND 0088C5 1 84 32 sty $32 0088C7 1 38 sec 0088C8 1 A5 5A lda $5A 0088CA 1 E5 5F sbc $5F 0088CC 1 85 22 sta INDEX1 0088CE 1 A8 tay 0088CF 1 A5 5B lda $5B 0088D1 1 E5 60 sbc $60 0088D3 1 AA tax 0088D4 1 E8 inx 0088D5 1 98 tya 0088D6 1 F0 25 beq L88FD 0088D8 1 A5 5A lda $5A 0088DA 1 38 sec 0088DB 1 E5 22 sbc INDEX1 0088DD 1 85 5A sta $5A 0088DF 1 B0 03 bcs L88E4 0088E1 1 C6 5B dec $5B 0088E3 1 38 sec 0088E4 1 A5 58 L88E4: lda $58 0088E6 1 E5 22 sbc INDEX1 0088E8 1 85 58 sta $58 0088EA 1 B0 09 bcs L88F5 0088EC 1 C6 59 dec $59 0088EE 1 90 05 bcc L88F5 0088F0 1 20 89 81 L88F0: jsr L8189 0088F3 1 91 58 sta ($58),y 0088F5 1 88 L88F5: dey 0088F6 1 D0 F8 bne L88F0 0088F8 1 20 89 81 jsr L8189 0088FB 1 91 58 sta ($58),y 0088FD 1 C6 5B L88FD: dec $5B 0088FF 1 C6 59 dec $59 008901 1 CA dex 008902 1 D0 F1 bne L88F5 008904 1 60 rts 008905 1 008905 1 8C F4 07 L8905: sty SYREG 008908 1 38 sec 008909 1 A5 7C lda TOS 00890B 1 ED F4 07 sbc SYREG 00890E 1 85 7C sta TOS 008910 1 A5 7D lda $7D 008912 1 E9 00 sbc #$00 008914 1 85 7D sta $7D 008916 1 C9 06 cmp #$06 008918 1 90 36 bcc L8950 00891A 1 D0 06 bne L8922 00891C 1 A5 7C lda TOS 00891E 1 C9 EC cmp #$EC 008920 1 90 2E bcc L8950 008922 1 60 L8922: rts 008923 1 008923 1 C4 34 L8923: cpy $34 008925 1 90 28 bcc L894F 008927 1 D0 04 bne L892D 008929 1 C5 33 cmp FRETOP 00892B 1 90 22 bcc L894F 00892D 1 48 L892D: pha 00892E 1 A2 09 ldx #$09 008930 1 98 tya 008931 1 48 L8931: pha 008932 1 B5 57 lda TEMPF1,x 008934 1 CA dex 008935 1 10 FA bpl L8931 008937 1 20 54 A9 jsr LA954 00893A 1 A2 F7 ldx #$F7 00893C 1 68 L893C: pla 00893D 1 95 61 sta FACEXP,x 00893F 1 E8 inx 008940 1 30 FA bmi L893C 008942 1 68 pla 008943 1 A8 tay 008944 1 68 pla 008945 1 C4 34 cpy $34 008947 1 90 06 bcc L894F 008949 1 D0 05 bne L8950 00894B 1 C5 33 cmp FRETOP 00894D 1 B0 01 bcs L8950 00894F 1 60 L894F: rts 008950 1 008950 1 4C 81 86 L8950: jmp L8681 008953 1 008953 1 6C 04 03 L8953: jmp (lICRNCH) 008956 1 008956 1 A5 3B ICRNCH: lda TXTPTR 008958 1 48 pha 008959 1 A5 3C lda $3C 00895B 1 48 pha 00895C 1 20 79 04 L895C: jsr CHRGOT 00895F 1 4C 65 89 jmp L8965 008962 1 008962 1 20 73 04 L8962: jsr CHRGET 008965 1 90 FB L8965: bcc L8962 008967 1 6C 0C 03 jmp (lIESCLK) 00896A 1 00896A 1 90 68 IBASIC1:bcc L89D4 00896C 1 C9 00 cmp #$00 00896E 1 F0 55 beq L89C5 008970 1 C9 3A cmp #$3A 008972 1 F0 EE beq L8962 008974 1 C9 3F cmp #$3F 008976 1 D0 04 bne L897C 008978 1 A9 99 lda #$99 00897A 1 D0 2E bne L89AA 00897C 1 C9 80 L897C: cmp #$80 00897E 1 90 0B bcc L898B 008980 1 C9 FF cmp #$FF 008982 1 F0 DE beq L8962 008984 1 A0 01 ldy #$01 008986 1 20 EA 89 jsr L89EA 008989 1 F0 D1 beq L895C 00898B 1 C9 22 L898B: cmp #$22 00898D 1 D0 0D bne L899C 00898F 1 20 73 04 L898F: jsr CHRGET 008992 1 C9 00 cmp #$00 008994 1 F0 2F beq L89C5 008996 1 C9 22 cmp #$22 008998 1 F0 C8 beq L8962 00899A 1 D0 F3 bne L898F 00899C 1 20 03 8A L899C: jsr L8A03 00899F 1 90 C1 bcc L8962 0089A1 1 C0 00 cpy #$00 0089A3 1 F0 03 beq L89A8 0089A5 1 20 EA 89 jsr L89EA 0089A8 1 A5 0B L89A8: lda COUNT 0089AA 1 A0 00 L89AA: ldy #$00 0089AC 1 91 3B sta (TXTPTR),y 0089AE 1 C9 8F cmp #$8F 0089B0 1 F0 0D beq L89BF 0089B2 1 C9 83 cmp #$83 0089B4 1 D0 AC bne L8962 0089B6 1 20 73 04 jsr CHRGET 0089B9 1 20 B0 8D jsr L8DB0 0089BC 1 4C 5C 89 jmp L895C 0089BF 1 0089BF 1 20 73 04 L89BF: jsr CHRGET 0089C2 1 20 0B 8E jsr L8E0B 0089C5 1 A6 3B L89C5: ldx TXTPTR 0089C7 1 68 pla 0089C8 1 85 3C sta $3C 0089CA 1 68 pla 0089CB 1 85 3B sta TXTPTR 0089CD 1 38 sec 0089CE 1 8A txa 0089CF 1 E5 3B sbc TXTPTR 0089D1 1 A8 tay 0089D2 1 C8 iny 0089D3 1 60 rts 0089D4 1 0089D4 1 48 L89D4: pha 0089D5 1 88 dey 0089D6 1 88 dey 0089D7 1 20 EA 89 jsr L89EA 0089DA 1 A0 00 ldy #$00 0089DC 1 A9 FE lda #$FE 0089DE 1 91 3B sta (TXTPTR),y 0089E0 1 C8 iny 0089E1 1 68 pla 0089E2 1 91 3B sta (TXTPTR),y 0089E4 1 20 73 04 jsr CHRGET 0089E7 1 4C 62 89 jmp L8962 0089EA 1 0089EA 1 18 L89EA: clc 0089EB 1 98 tya 0089EC 1 65 3B adc TXTPTR 0089EE 1 85 22 sta INDEX1 0089F0 1 A5 3C lda $3C 0089F2 1 69 00 adc #$00 0089F4 1 85 23 sta $23 0089F6 1 A0 00 ldy #$00 0089F8 1 20 B0 04 L89F8: jsr INDIN1 0089FB 1 91 3B sta (TXTPTR),y 0089FD 1 C8 iny 0089FE 1 C9 00 cmp #$00 008A00 1 D0 F6 bne L89F8 008A02 1 60 rts 008A03 1 008A03 1 A9 81 L8A03: lda #$81 008A05 1 A0 8E ldy #$8E 008A07 1 85 23 sta $23 008A09 1 84 22 sty INDEX1 008A0B 1 A0 00 ldy #$00 008A0D 1 84 0B sty COUNT 008A0F 1 88 dey 008A10 1 C8 L8A10: iny 008A11 1 20 A5 04 L8A11: jsr INDTXT 008A14 1 38 sec 008A15 1 F1 22 sbc (INDEX1),y 008A17 1 F0 F7 beq L8A10 008A19 1 C9 80 cmp #$80 008A1B 1 F0 1B beq L8A38 008A1D 1 B1 22 L8A1D: lda (INDEX1),y 008A1F 1 30 03 bmi L8A24 008A21 1 C8 iny 008A22 1 D0 F9 bne L8A1D 008A24 1 C8 L8A24: iny 008A25 1 E6 0B inc COUNT 008A27 1 18 clc 008A28 1 98 tya 008A29 1 65 22 adc INDEX1 008A2B 1 85 22 sta INDEX1 008A2D 1 90 02 bcc L8A31 008A2F 1 E6 23 inc $23 008A31 1 18 L8A31: clc 008A32 1 A0 00 ldy #$00 008A34 1 B1 22 lda (INDEX1),y 008A36 1 D0 D9 bne L8A11 008A38 1 05 0B L8A38: ora COUNT 008A3A 1 85 0B sta COUNT 008A3C 1 60 rts 008A3D 1 008A3D 1 A5 2B L8A3D: lda TXTTAB 008A3F 1 A6 2C ldx $2C 008A41 1 A0 01 L8A41: ldy #$01 008A43 1 85 5F sta $5F 008A45 1 86 60 stx $60 008A47 1 20 D1 04 jsr INDLOW 008A4A 1 F0 2B beq L8A77 008A4C 1 C8 iny 008A4D 1 C8 iny 008A4E 1 20 D1 04 jsr INDLOW 008A51 1 85 78 sta $78 008A53 1 A5 15 lda $15 008A55 1 C5 78 cmp $78 008A57 1 90 1F bcc L8A78 008A59 1 F0 03 beq L8A5E 008A5B 1 88 dey 008A5C 1 D0 0E bne L8A6C 008A5E 1 88 L8A5E: dey 008A5F 1 20 D1 04 jsr INDLOW 008A62 1 85 78 sta $78 008A64 1 A5 14 lda LINNUM 008A66 1 C5 78 cmp $78 008A68 1 90 0E bcc L8A78 008A6A 1 F0 0C beq L8A78 008A6C 1 88 L8A6C: dey 008A6D 1 20 D1 04 jsr INDLOW 008A70 1 AA tax 008A71 1 88 dey 008A72 1 20 D1 04 jsr INDLOW 008A75 1 B0 CA bcs L8A41 008A77 1 18 L8A77: clc 008A78 1 60 L8A78: rts 008A79 1 008A79 1 D0 FD L8A79: bne L8A78 008A7B 1 A9 00 L8A7B: lda #$00 008A7D 1 A8 tay 008A7E 1 91 2B sta (TXTTAB),y 008A80 1 C8 iny 008A81 1 91 2B sta (TXTTAB),y 008A83 1 8D EB 02 sta TRCFLG 008A86 1 A5 2B lda TXTTAB 008A88 1 18 clc 008A89 1 69 02 adc #$02 008A8B 1 85 2D sta VARTAB 008A8D 1 A5 2C lda $2C 008A8F 1 69 00 adc #$00 008A91 1 85 2E sta $2E 008A93 1 20 F1 8A L8A93: jsr L8AF1 008A96 1 A9 00 lda #$00 008A98 1 D0 52 L8A98: bne L8AEC 008A9A 1 20 E7 FF L8A9A: jsr kCLALL 008A9D 1 A0 00 ldy #$00 008A9F 1 84 79 sty DSDESC 008AA1 1 88 dey 008AA2 1 8C F3 04 sty $04F3 008AA5 1 8C F0 04 sty ERRLIN 008AA8 1 8C F1 04 sty $04F1 008AAB 1 8C EF 04 sty ERRNUM 008AAE 1 A5 37 lda MEMSIZ 008AB0 1 A4 38 ldy $38 008AB2 1 85 33 sta FRETOP 008AB4 1 84 34 sty $34 008AB6 1 A9 B0 lda #$B0 008AB8 1 A0 07 ldy #$07 008ABA 1 85 7C sta TOS 008ABC 1 84 7D sty $7D 008ABE 1 A5 2D lda VARTAB 008AC0 1 A4 2E ldy $2E 008AC2 1 85 2F sta ARYTAB 008AC4 1 84 30 sty $30 008AC6 1 85 31 sta STREND 008AC8 1 84 32 sty $32 008ACA 1 A2 03 ldx #$03 008ACC 1 BD ED 8A L8ACC: lda L8AED,x 008ACF 1 9D E7 04 sta PUFILL,x 008AD2 1 CA dex 008AD3 1 10 F7 bpl L8ACC 008AD5 1 20 B1 8C L8AD5: jsr L8CB1 008AD8 1 A2 19 L8AD8: ldx #$19 008ADA 1 86 16 stx TEMPPT 008ADC 1 68 pla 008ADD 1 A8 tay 008ADE 1 68 pla 008ADF 1 A2 FA ldx #$FA 008AE1 1 9A txs 008AE2 1 48 pha 008AE3 1 98 tya 008AE4 1 48 pha 008AE5 1 A9 00 lda #$00 008AE7 1 8D 5C 02 sta $025C 008AEA 1 85 10 sta SUBFLG 008AEC 1 60 L8AEC: rts 008AED 1 008AED 1 20 2C 2E 24 L8AED: .byte " ,.$" 008AF1 1 18 L8AF1: clc 008AF2 1 A5 2B lda TXTTAB 008AF4 1 69 FF adc #$FF 008AF6 1 85 3B sta TXTPTR 008AF8 1 A5 2C lda $2C 008AFA 1 69 FF adc #$FF 008AFC 1 85 3C sta $3C 008AFE 1 60 rts 008AFF 1 008AFF 1 20 CA AE L8AFF: jsr LAECA 008B02 1 A0 01 L8B02: ldy #$01 008B04 1 20 D1 04 jsr INDLOW 008B07 1 D0 06 bne L8B0F 008B09 1 88 dey 008B0A 1 20 D1 04 jsr INDLOW 008B0D 1 F0 2E beq L8B3D 008B0F 1 20 C0 8C L8B0F: jsr L8CC0 008B12 1 20 3E 90 jsr L903E 008B15 1 A0 02 ldy #$02 008B17 1 20 D1 04 jsr INDLOW 008B1A 1 AA tax 008B1B 1 C8 iny 008B1C 1 20 D1 04 jsr INDLOW 008B1F 1 C5 15 cmp $15 008B21 1 D0 04 bne L8B27 008B23 1 E4 14 cpx LINNUM 008B25 1 F0 02 beq L8B29 008B27 1 B0 14 L8B27: bcs L8B3D 008B29 1 20 40 8B L8B29: jsr L8B40 008B2C 1 A0 00 ldy #$00 008B2E 1 20 D1 04 jsr INDLOW 008B31 1 AA tax 008B32 1 C8 iny 008B33 1 20 D1 04 jsr INDLOW 008B36 1 86 5F stx $5F 008B38 1 85 60 sta $60 008B3A 1 4C 02 8B jmp L8B02 008B3D 1 008B3D 1 4C 3E 90 L8B3D: jmp L903E 008B40 1 008B40 1 A0 03 L8B40: ldy #$03 008B42 1 84 49 sty FORPNT 008B44 1 84 0F sty DORES 008B46 1 20 5F A4 jsr LA45F 008B49 1 A9 20 lda #$20 008B4B 1 A4 49 L8B4B: ldy FORPNT 008B4D 1 29 7F and #$7F 008B4F 1 20 B2 90 L8B4F: jsr L90B2 008B52 1 C9 22 cmp #$22 008B54 1 D0 06 bne L8B5C 008B56 1 A5 0F lda DORES 008B58 1 49 FF eor #$FF 008B5A 1 85 0F sta DORES 008B5C 1 C8 L8B5C: iny 008B5D 1 F0 DE beq L8B3D 008B5F 1 24 53 bit HELPER 008B61 1 10 03 bpl L8B66 008B63 1 20 0C B7 jsr LB70C 008B66 1 20 D1 04 L8B66: jsr INDLOW 008B69 1 F0 50 beq L8BBB 008B6B 1 6C 06 03 jmp (lIQPLOP) 008B6E 1 008B6E 1 10 DF IQPLOP: bpl L8B4F 008B70 1 C9 FF cmp #$FF 008B72 1 F0 DB beq L8B4F 008B74 1 24 0F bit DORES 008B76 1 30 D7 bmi L8B4F 008B78 1 C9 FE cmp #$FE 008B7A 1 D0 17 bne L8B93 008B7C 1 C8 iny 008B7D 1 20 D1 04 jsr INDLOW 008B80 1 F0 0C beq L8B8E 008B82 1 84 49 sty FORPNT 008B84 1 38 sec 008B85 1 6C 0E 03 jmp (lIESCPR) 008B88 1 008B88 1 B0 C5 IBASIC2:bcs L8B4F 008B8A 1 A0 00 ldy #$00 008B8C 1 F0 24 beq L8BB2 008B8E 1 88 L8B8E: dey 008B8F 1 A9 FE lda #$FE 008B91 1 D0 BC bne L8B4F 008B93 1 AA L8B93: tax 008B94 1 84 49 sty FORPNT 008B96 1 A0 81 ldy #$81 008B98 1 84 23 sty $23 008B9A 1 A0 8E ldy #$8E 008B9C 1 84 22 sty INDEX1 008B9E 1 A0 00 ldy #$00 008BA0 1 CA L8BA0: dex 008BA1 1 10 0F bpl L8BB2 008BA3 1 B1 22 L8BA3: lda (INDEX1),y 008BA5 1 48 pha 008BA6 1 E6 22 inc INDEX1 008BA8 1 D0 02 bne L8BAC 008BAA 1 E6 23 inc $23 008BAC 1 68 L8BAC: pla 008BAD 1 10 F4 bpl L8BA3 008BAF 1 30 EF bmi L8BA0 008BB1 1 C8 L8BB1: iny 008BB2 1 B1 22 L8BB2: lda (INDEX1),y 008BB4 1 30 95 bmi L8B4B 008BB6 1 20 B2 90 jsr L90B2 008BB9 1 D0 F6 bne L8BB1 008BBB 1 60 L8BBB: rts 008BBC 1 008BBC 1 D0 06 L8BBC: bne L8BC4 008BBE 1 20 20 8D jsr L8D20 008BC1 1 4C 93 8A jmp L8A93 008BC4 1 008BC4 1 20 9A 8A L8BC4: jsr L8A9A 008BC7 1 20 79 04 jsr CHRGOT 008BCA 1 20 4D 8D jsr L8D4D 008BCD 1 20 20 8D jsr L8D20 008BD0 1 4C DC 8B jmp L8BDC 008BD3 1 008BD3 1 6C 08 03 L8BD3: jmp (lIGONE) 008BD6 1 008BD6 1 20 73 04 IGONE: jsr CHRGET 008BD9 1 20 25 8C L8BD9: jsr L8C25 008BDC 1 20 C0 8C L8BDC: jsr L8CC0 008BDF 1 24 81 bit RUNMOD 008BE1 1 10 07 bpl L8BEA 008BE3 1 20 1A 8C jsr L8C1A 008BE6 1 BA tsx 008BE7 1 8E F7 04 stx OLDSTK 008BEA 1 A0 00 L8BEA: ldy #$00 008BEC 1 20 A5 04 jsr INDTXT 008BEF 1 F0 03 beq L8BF4 008BF1 1 4C 93 8C jmp L8C93 008BF4 1 008BF4 1 24 81 L8BF4: bit RUNMOD 008BF6 1 10 1F bpl L8C17 008BF8 1 A0 02 ldy #$02 008BFA 1 20 A5 04 jsr INDTXT 008BFD 1 F0 18 beq L8C17 008BFF 1 C8 iny 008C00 1 20 A5 04 jsr INDTXT 008C03 1 85 39 sta CHRLIN 008C05 1 C8 iny 008C06 1 20 A5 04 jsr INDTXT 008C09 1 85 3A sta $3A 008C0B 1 98 tya 008C0C 1 18 clc 008C0D 1 65 3B adc TXTPTR 008C0F 1 85 3B sta TXTPTR 008C11 1 90 C0 bcc L8BD3 008C13 1 E6 3C inc $3C 008C15 1 D0 BC bne L8BD3 008C17 1 4C 7E 86 L8C17: jmp L867E 008C1A 1 008C1A 1 A5 3B L8C1A: lda TXTPTR 008C1C 1 A4 3C ldy $3C 008C1E 1 8D 5B 02 sta OLDTXT 008C21 1 8C 5C 02 sty $025C 008C24 1 60 L8C24: rts 008C25 1 008C25 1 F0 FD L8C25: beq L8C24 008C27 1 2C EB 02 bit TRCFLG 008C2A 1 10 13 bpl L8C3F 008C2C 1 24 81 bit RUNMOD 008C2E 1 10 0F bpl L8C3F 008C30 1 48 pha 008C31 1 A9 5B lda #$5B 008C33 1 20 B2 90 jsr L90B2 008C36 1 20 5B A4 jsr LA45B 008C39 1 A9 5D lda #$5D 008C3B 1 20 B2 90 jsr L90B2 008C3E 1 68 pla 008C3F 1 C9 FE L8C3F: cmp #$FE 008C41 1 F0 3F beq L8C82 008C43 1 C9 CB cmp #$CB 008C45 1 F0 2D beq L8C74 008C47 1 C9 CA cmp #$CA 008C49 1 F0 20 beq L8C6B 008C4B 1 C9 FB cmp #$FB 008C4D 1 B0 3E bcs L8C8D 008C4F 1 C9 A3 cmp #$A3 008C51 1 90 06 bcc L8C59 008C53 1 C9 D5 cmp #$D5 008C55 1 90 36 bcc L8C8D 008C57 1 E9 32 sbc #$32 008C59 1 38 L8C59: sec 008C5A 1 E9 80 sbc #$80 008C5C 1 90 32 bcc L8C90 008C5E 1 0A asl a 008C5F 1 A8 tay 008C60 1 B9 84 83 lda L8383+1,y 008C63 1 48 pha 008C64 1 B9 83 83 lda L8383,y 008C67 1 48 pha 008C68 1 4C 73 04 jmp CHRGET 008C6B 1 008C6B 1 A9 B6 L8C6B: lda #$B6 008C6D 1 48 pha 008C6E 1 A9 5A lda #$5A 008C70 1 48 pha 008C71 1 4C 73 04 L8C71: jmp CHRGET 008C74 1 008C74 1 20 73 04 L8C74: jsr CHRGET 008C77 1 C9 A4 cmp #$A4 008C79 1 D0 12 bne L8C8D 008C7B 1 20 73 04 jsr CHRGET 008C7E 1 4C 4D 8D jmp L8D4D 008C81 1 008C81 1 .if CompileComputer >= PLUS4_BETA_0203 008C81 1 00 .byte $00 008C82 1 .else 008C82 1 .byte $37 008C82 1 .endif 008C82 1 20 73 04 L8C82: jsr CHRGET 008C85 1 F0 06 beq L8C8D 008C87 1 38 sec 008C88 1 6C 10 03 jmp (lIESCEX) 008C8B 1 008C8B 1 90 E4 IBASIC3:bcc L8C71 008C8D 1 4C A1 94 L8C8D: jmp L94A1 008C90 1 008C90 1 4C 7C 8E L8C90: jmp L8E7C 008C93 1 008C93 1 C9 3A L8C93: cmp #$3A 008C95 1 D0 F6 bne L8C8D 008C97 1 4C D3 8B jmp L8BD3 008C9A 1 008C9A 1 F0 15 L8C9A: beq L8CB1 008C9C 1 20 E1 9D jsr L9DE1 008C9F 1 84 14 sty LINNUM 008CA1 1 85 15 sta $15 008CA3 1 20 3D 8A jsr L8A3D 008CA6 1 B0 03 bcs L8CAB 008CA8 1 4C 8F 8D jmp L8D8F 008CAB 1 008CAB 1 A5 5F L8CAB: lda $5F 008CAD 1 A4 60 ldy $60 008CAF 1 B0 05 bcs L8CB6 008CB1 1 38 L8CB1: sec 008CB2 1 A5 2B lda TXTTAB 008CB4 1 A4 2C ldy $2C 008CB6 1 E9 01 L8CB6: sbc #$01 008CB8 1 B0 01 bcs L8CBB 008CBA 1 88 dey 008CBB 1 85 41 L8CBB: sta DATPTR 008CBD 1 84 42 sty $42 008CBF 1 60 L8CBF: rts 008CC0 1 008CC0 1 20 E1 FF L8CC0: jsr kSTOP 008CC3 1 D0 FA bne L8CBF 008CC5 1 08 php 008CC6 1 AC F3 04 ldy $04F3 008CC9 1 C8 iny 008CCA 1 F0 0B beq L8CD7 008CCC 1 20 E1 FF L8CCC: jsr kSTOP 008CCF 1 F0 FB beq L8CCC 008CD1 1 28 plp 008CD2 1 A2 1E ldx #$1E 008CD4 1 4C 83 86 jmp L8683 008CD7 1 008CD7 1 28 L8CD7: plp 008CD8 1 B0 01 L8CD8: bcs L8CDB 008CDA 1 18 L8CDA: clc 008CDB 1 D0 E2 L8CDB: bne L8CBF 008CDD 1 24 81 bit RUNMOD 008CDF 1 10 0D bpl L8CEE 008CE1 1 20 1A 8C jsr L8C1A 008CE4 1 A5 39 lda CHRLIN 008CE6 1 A4 3A ldy $3A 008CE8 1 8D 59 02 sta OLDLIN 008CEB 1 8C 5A 02 sty $025A 008CEE 1 68 L8CEE: pla 008CEF 1 68 pla 008CF0 1 90 0E bcc L8D00 008CF2 1 20 4F FF jsr LFF4F 008CF5 1 0D 0A .byte $0D,$0A 008CF7 1 42 52 45 41 .byte "BREAK" 008CFB 1 4B 008CFC 1 00 .byte $00 008CFD 1 4C FB 86 jmp L86FB 008D00 1 008D00 1 4C 7E 86 L8D00: jmp L867E 008D03 1 008D03 1 D0 BA L8D03: bne L8CBF 008D05 1 A2 1A ldx #$1A 008D07 1 AC 5C 02 ldy $025C 008D0A 1 D0 03 bne L8D0F 008D0C 1 4C 83 86 jmp L8683 008D0F 1 008D0F 1 AD 5B 02 L8D0F: lda OLDTXT 008D12 1 85 3B sta TXTPTR 008D14 1 84 3C sty $3C 008D16 1 AD 59 02 lda OLDLIN 008D19 1 AC 5A 02 ldy $025A 008D1C 1 85 39 sta CHRLIN 008D1E 1 84 3A sty $3A 008D20 1 A9 80 L8D20: lda #$80 008D22 1 85 81 sta RUNMOD 008D24 1 0A asl a 008D25 1 85 73 sta AUTINC 008D27 1 85 74 sta $74 008D29 1 4C 90 FF jmp kSETMSF 008D2C 1 008D2C 1 A0 05 L8D2C: ldy #$05 008D2E 1 20 05 89 jsr L8905 008D31 1 88 dey 008D32 1 A5 3C lda $3C 008D34 1 91 7C sta (TOS),y 008D36 1 88 dey 008D37 1 A5 3B lda TXTPTR 008D39 1 91 7C sta (TOS),y 008D3B 1 88 dey 008D3C 1 A5 3A lda $3A 008D3E 1 91 7C sta (TOS),y 008D40 1 88 dey 008D41 1 A5 39 lda CHRLIN 008D43 1 91 7C sta (TOS),y 008D45 1 88 dey 008D46 1 A9 8D lda #$8D 008D48 1 91 7C sta (TOS),y 008D4A 1 20 79 04 jsr CHRGOT 008D4D 1 20 3E 8E L8D4D: jsr L8E3E 008D50 1 20 C1 8D jsr L8DC1 008D53 1 38 sec 008D54 1 A5 39 lda CHRLIN 008D56 1 E5 14 sbc LINNUM 008D58 1 A5 3A lda $3A 008D5A 1 E5 15 sbc $15 008D5C 1 B0 0B bcs L8D69 008D5E 1 98 tya 008D5F 1 38 sec 008D60 1 65 3B adc TXTPTR 008D62 1 A6 3C ldx $3C 008D64 1 90 07 bcc L8D6D 008D66 1 E8 inx 008D67 1 B0 04 bcs L8D6D 008D69 1 A5 2B L8D69: lda TXTTAB 008D6B 1 A6 2C ldx $2C 008D6D 1 20 41 8A L8D6D: jsr L8A41 008D70 1 90 1D bcc L8D8F 008D72 1 A5 5F lda $5F 008D74 1 E9 01 sbc #$01 008D76 1 85 3B sta TXTPTR 008D78 1 A5 60 lda $60 008D7A 1 E9 00 sbc #$00 008D7C 1 85 3C sta $3C 008D7E 1 24 81 bit RUNMOD 008D80 1 10 9E bpl L8D20 008D82 1 60 rts 008D83 1 008D83 1 A9 8D L8D83: lda #$8D 008D85 1 85 02 sta SRCHTK 008D87 1 20 71 88 jsr L8871 008D8A 1 F0 08 beq L8D94 008D8C 1 A2 0C ldx #$0C 008D8E 1 2C .byte $2C 008D8F 1 A2 11 L8D8F: ldx #$11 008D91 1 4C 83 86 jmp L8683 008D94 1 008D94 1 20 69 A7 L8D94: jsr LA769 008D97 1 A0 05 ldy #$05 008D99 1 20 72 A7 jsr LA772 008D9C 1 88 dey 008D9D 1 B1 3D lda (FNDPNT),y 008D9F 1 85 3C sta $3C 008DA1 1 88 dey 008DA2 1 B1 3D lda (FNDPNT),y 008DA4 1 85 3B sta TXTPTR 008DA6 1 88 dey 008DA7 1 B1 3D lda (FNDPNT),y 008DA9 1 20 7F CD jsr LCD7F 008DAC 1 B1 3D lda (FNDPNT),y 008DAE 1 85 39 sta CHRLIN 008DB0 1 20 BE 8D L8DB0: jsr L8DBE 008DB3 1 98 L8DB3: tya 008DB4 1 18 clc 008DB5 1 65 3B adc TXTPTR 008DB7 1 85 3B sta TXTPTR 008DB9 1 90 02 bcc L8DBD 008DBB 1 E6 3C inc $3C 008DBD 1 60 L8DBD: rts 008DBE 1 008DBE 1 A2 3A L8DBE: ldx #$3A 008DC0 1 2C .byte $2C 008DC1 1 A2 00 L8DC1: ldx #$00 008DC3 1 86 07 stx CHARAC 008DC5 1 A0 00 ldy #$00 008DC7 1 84 08 sty ENDCHR 008DC9 1 A5 08 L8DC9: lda ENDCHR 008DCB 1 A6 07 ldx CHARAC 008DCD 1 85 07 sta CHARAC 008DCF 1 86 08 stx ENDCHR 008DD1 1 20 A5 04 L8DD1: jsr INDTXT 008DD4 1 F0 E7 beq L8DBD 008DD6 1 C5 08 cmp ENDCHR 008DD8 1 F0 E3 beq L8DBD 008DDA 1 C8 iny 008DDB 1 C9 22 cmp #$22 008DDD 1 D0 F2 bne L8DD1 008DDF 1 F0 E8 beq L8DC9 008DE1 1 20 2C 93 L8DE1: jsr L932C 008DE4 1 20 79 04 jsr CHRGOT 008DE7 1 C9 89 cmp #$89 008DE9 1 F0 05 beq L8DF0 008DEB 1 A9 A7 lda #$A7 008DED 1 20 93 94 jsr L9493 008DF0 1 A5 61 L8DF0: lda FACEXP 008DF2 1 D0 1C bne L8E10 008DF4 1 20 B0 8D L8DF4: jsr L8DB0 008DF7 1 A0 00 ldy #$00 008DF9 1 20 A5 04 jsr INDTXT 008DFC 1 F0 0D beq L8E0B 008DFE 1 20 73 04 jsr CHRGET 008E01 1 C9 D5 cmp #$D5 008E03 1 D0 EF bne L8DF4 008E05 1 20 73 04 jsr CHRGET 008E08 1 4C 10 8E jmp L8E10 008E0B 1 008E0B 1 20 C1 8D L8E0B: jsr L8DC1 008E0E 1 F0 A3 beq L8DB3 008E10 1 20 79 04 L8E10: jsr CHRGOT 008E13 1 B0 03 bcs L8E18 008E15 1 4C 4D 8D jmp L8D4D 008E18 1 008E18 1 4C 25 8C L8E18: jmp L8C25 008E1B 1 008E1B 1 20 84 9D L8E1B: jsr L9D84 008E1E 1 48 pha 008E1F 1 C9 8D cmp #$8D 008E21 1 F0 07 beq L8E2A 008E23 1 C9 89 L8E23: cmp #$89 008E25 1 F0 03 beq L8E2A 008E27 1 4C A1 94 jmp L94A1 008E2A 1 008E2A 1 C6 65 L8E2A: dec $65 008E2C 1 D0 04 bne L8E32 008E2E 1 68 pla 008E2F 1 4C 3F 8C jmp L8C3F 008E32 1 008E32 1 20 73 04 L8E32: jsr CHRGET 008E35 1 20 3E 8E jsr L8E3E 008E38 1 C9 2C cmp #$2C 008E3A 1 F0 EE beq L8E2A 008E3C 1 68 pla 008E3D 1 60 L8E3D: rts 008E3E 1 008E3E 1 A2 00 L8E3E: ldx #$00 008E40 1 86 08 stx ENDCHR 008E42 1 86 14 stx LINNUM 008E44 1 86 15 stx $15 008E46 1 B0 F5 L8E46: bcs L8E3D 008E48 1 E6 08 inc ENDCHR 008E4A 1 E9 2F sbc #$2F 008E4C 1 85 07 sta CHARAC 008E4E 1 A5 15 lda $15 008E50 1 85 22 sta INDEX1 008E52 1 C9 19 cmp #$19 008E54 1 B0 CD bcs L8E23 008E56 1 A5 14 lda LINNUM 008E58 1 0A asl a 008E59 1 26 22 rol INDEX1 008E5B 1 0A asl a 008E5C 1 26 22 rol INDEX1 008E5E 1 65 14 adc LINNUM 008E60 1 85 14 sta LINNUM 008E62 1 A5 22 lda INDEX1 008E64 1 65 15 adc $15 008E66 1 85 15 sta $15 008E68 1 06 14 asl LINNUM 008E6A 1 26 15 rol $15 008E6C 1 A5 14 lda LINNUM 008E6E 1 65 07 adc CHARAC 008E70 1 85 14 sta LINNUM 008E72 1 90 02 bcc L8E76 008E74 1 E6 15 inc $15 008E76 1 20 73 04 L8E76: jsr CHRGET 008E79 1 4C 46 8E jmp L8E46 008E7C 1 008E7C 1 20 A5 96 L8E7C: jsr L96A5 008E7F 1 85 49 sta FORPNT 008E81 1 84 4A sty $4A 008E83 1 A9 B2 lda #$B2 008E85 1 20 93 94 jsr L9493 008E88 1 A5 0E lda INTFLG 008E8A 1 48 pha 008E8B 1 A5 0D lda VALTYP 008E8D 1 48 pha 008E8E 1 20 2C 93 jsr L932C 008E91 1 68 pla 008E92 1 2A rol a 008E93 1 20 1B 93 jsr L931B 008E96 1 D0 18 bne L8EB0 008E98 1 68 pla 008E99 1 10 12 L8E99: bpl L8EAD 008E9B 1 20 A0 A2 jsr LA2A0 008E9E 1 20 86 98 jsr L9886 008EA1 1 A0 00 ldy #$00 008EA3 1 A5 64 lda $64 008EA5 1 91 49 sta (FORPNT),y 008EA7 1 C8 iny 008EA8 1 A5 65 lda $65 008EAA 1 91 49 sta (FORPNT),y 008EAC 1 60 rts 008EAD 1 008EAD 1 4C 55 A2 L8EAD: jmp LA255 008EB0 1 008EB0 1 68 L8EB0: pla 008EB1 1 A4 4A L8EB1: ldy $4A 008EB3 1 C0 04 cpy #$04 008EB5 1 D0 72 bne L8F29 008EB7 1 20 4E 9C jsr L9C4E 008EBA 1 C9 06 cmp #$06 008EBC 1 D0 3E bne L8EFC 008EBE 1 A0 00 ldy #$00 008EC0 1 84 61 sty FACEXP 008EC2 1 84 66 sty FACSGN 008EC4 1 84 71 L8EC4: sty FBUFPT 008EC6 1 20 F4 8E jsr L8EF4 008EC9 1 20 62 A1 jsr LA162 008ECC 1 E6 71 inc FBUFPT 008ECE 1 A4 71 ldy FBUFPT 008ED0 1 20 F4 8E jsr L8EF4 008ED3 1 20 91 A2 jsr LA291 008ED6 1 AA tax 008ED7 1 F0 05 beq L8EDE 008ED9 1 E8 inx 008EDA 1 8A txa 008EDB 1 20 6D A1 jsr LA16D 008EDE 1 A4 71 L8EDE: ldy FBUFPT 008EE0 1 C8 iny 008EE1 1 C0 06 cpy #$06 008EE3 1 D0 DF bne L8EC4 008EE5 1 20 62 A1 jsr LA162 008EE8 1 20 27 A3 jsr LA327 008EEB 1 A6 64 ldx $64 008EED 1 A4 63 ldy $63 008EEF 1 A5 65 lda $65 008EF1 1 4C DB FF jmp kSETTIM 008EF4 1 008EF4 1 20 B0 04 L8EF4: jsr INDIN1 008EF7 1 20 85 04 jsr QNUM 008EFA 1 90 03 bcc L8EFF 008EFC 1 4C 1C 99 L8EFC: jmp L991C 008EFF 1 008EFF 1 E9 2F L8EFF: sbc #$2F 008F01 1 4C 0A A4 jmp LA40A 008F04 1 008F04 1 68 L8F04: pla 008F05 1 C8 iny 008F06 1 C5 34 L8F06: cmp $34 008F08 1 90 18 bcc L8F22 008F0A 1 D0 08 bne L8F14 008F0C 1 88 dey 008F0D 1 20 DC 04 jsr INDFMO 008F10 1 C5 33 cmp FRETOP 008F12 1 90 0E bcc L8F22 008F14 1 A4 65 L8F14: ldy $65 008F16 1 C4 2E cpy $2E 008F18 1 90 08 bcc L8F22 008F1A 1 D0 24 bne L8F40 008F1C 1 A5 64 lda $64 008F1E 1 C5 2D cmp VARTAB 008F20 1 B0 1E bcs L8F40 008F22 1 A5 64 L8F22: lda $64 008F24 1 A4 65 ldy $65 008F26 1 4C 5E 8F jmp L8F5E 008F29 1 008F29 1 A0 02 L8F29: ldy #$02 008F2B 1 20 DC 04 jsr INDFMO 008F2E 1 C5 7B cmp $7B 008F30 1 D0 D4 bne L8F06 008F32 1 48 pha 008F33 1 88 dey 008F34 1 20 DC 04 jsr INDFMO 008F37 1 C5 7A cmp $7A 008F39 1 D0 C9 bne L8F04 008F3B 1 A5 79 lda DSDESC 008F3D 1 F0 C5 beq L8F04 008F3F 1 68 pla 008F40 1 A0 00 L8F40: ldy #$00 008F42 1 20 DC 04 jsr INDFMO 008F45 1 20 54 9B jsr L9B54 008F48 1 A5 50 lda DSCPNT 008F4A 1 A4 51 ldy $51 008F4C 1 85 6F sta ARISGN 008F4E 1 84 70 sty FACOV 008F50 1 20 1B 9C jsr L9C1B 008F53 1 A5 6F lda ARISGN 008F55 1 A4 70 ldy FACOV 008F57 1 20 AA 9C jsr L9CAA 008F5A 1 A9 61 lda #$61 008F5C 1 A0 00 ldy #$00 008F5E 1 85 50 L8F5E: sta DSCPNT 008F60 1 84 51 sty $51 008F62 1 85 22 sta INDEX1 008F64 1 84 23 sty $23 008F66 1 20 AA 9C jsr L9CAA 008F69 1 20 9C 8F jsr L8F9C 008F6C 1 90 0B bcc L8F79 008F6E 1 A0 00 ldy #$00 008F70 1 A5 49 lda FORPNT 008F72 1 91 22 sta (INDEX1),y 008F74 1 C8 iny 008F75 1 A5 4A lda $4A 008F77 1 91 22 sta (INDEX1),y 008F79 1 A5 49 L8F79: lda FORPNT 008F7B 1 85 22 sta INDEX1 008F7D 1 A5 4A lda $4A 008F7F 1 85 23 sta $23 008F81 1 20 9C 8F jsr L8F9C 008F84 1 90 09 bcc L8F8F 008F86 1 88 dey 008F87 1 A9 FF lda #$FF 008F89 1 91 22 sta (INDEX1),y 008F8B 1 88 dey 008F8C 1 8A txa 008F8D 1 91 22 sta (INDEX1),y 008F8F 1 A0 02 L8F8F: ldy #$02 008F91 1 A9 50 L8F91: lda #$50 008F93 1 20 94 04 jsr INDSUB 008F96 1 91 49 sta (FORPNT),y 008F98 1 88 dey 008F99 1 10 F6 bpl L8F91 008F9B 1 60 rts 008F9C 1 008F9C 1 A0 00 L8F9C: ldy #$00 008F9E 1 20 B0 04 jsr INDIN1 008FA1 1 48 pha 008FA2 1 F0 39 beq L8FDD 008FA4 1 C8 iny 008FA5 1 20 B0 04 jsr INDIN1 008FA8 1 AA tax 008FA9 1 C8 iny 008FAA 1 20 B0 04 jsr INDIN1 008FAD 1 C5 38 cmp $38 008FAF 1 90 06 bcc L8FB7 008FB1 1 D0 2A bne L8FDD 008FB3 1 E4 37 cpx MEMSIZ 008FB5 1 B0 26 bcs L8FDD 008FB7 1 20 B0 04 L8FB7: jsr INDIN1 008FBA 1 C5 34 cmp $34 008FBC 1 90 1F bcc L8FDD 008FBE 1 D0 04 bne L8FC4 008FC0 1 E4 33 cpx FRETOP 008FC2 1 90 19 bcc L8FDD 008FC4 1 C5 7B L8FC4: cmp $7B 008FC6 1 D0 04 bne L8FCC 008FC8 1 E4 7A cpx $7A 008FCA 1 F0 11 beq L8FDD 008FCC 1 86 22 L8FCC: stx INDEX1 008FCE 1 85 23 sta $23 008FD0 1 68 pla 008FD1 1 AA tax 008FD2 1 18 clc 008FD3 1 65 22 adc INDEX1 008FD5 1 85 22 sta INDEX1 008FD7 1 90 02 bcc L8FDB 008FD9 1 E6 23 inc $23 008FDB 1 38 L8FDB: sec 008FDC 1 60 rts 008FDD 1 008FDD 1 68 L8FDD: pla 008FDE 1 18 clc 008FDF 1 60 rts 008FE0 1 008FE0 1 20 E6 8F L8FE0: jsr L8FE6 008FE3 1 4C FE 90 jmp L90FE 008FE6 1 008FE6 1 20 84 9D L8FE6: jsr L9D84 008FE9 1 F0 05 beq L8FF0 008FEB 1 A9 2C lda #$2C 008FED 1 20 93 94 jsr L9493 008FF0 1 08 L8FF0: php 008FF1 1 86 13 stx CHANNL 008FF3 1 20 97 A7 jsr LA797 008FF6 1 28 plp 008FF7 1 4C 00 90 jmp L9000 008FFA 1 008FFA 1 20 8B 90 L8FFA: jsr L908B 008FFD 1 20 79 04 L8FFD: jsr CHRGOT 009000 1 F0 3C L9000: beq L903E 009002 1 C9 FB cmp #$FB 009004 1 D0 03 bne L9009 009006 1 4C F7 AE jmp LAEF7 009009 1 009009 1 F0 43 L9009: beq L904E 00900B 1 C9 A3 cmp #$A3 00900D 1 F0 50 beq L905F 00900F 1 C9 A6 cmp #$A6 009011 1 18 clc 009012 1 F0 4B beq L905F 009014 1 C9 2C cmp #$2C 009016 1 F0 37 beq L904F 009018 1 C9 3B cmp #$3B 00901A 1 F0 5E beq L907A 00901C 1 20 2C 93 jsr L932C 00901F 1 24 0D bit VALTYP 009021 1 30 D7 bmi L8FFA 009023 1 20 6F A4 jsr LA46F 009026 1 20 74 9B jsr L9B74 009029 1 20 8B 90 jsr L908B 00902C 1 20 A6 90 jsr L90A6 00902F 1 D0 CC bne L8FFD 009031 1 A9 00 L9031: lda #$00 009033 1 9D 00 02 sta BUF,x 009036 1 A2 FF ldx #$FF 009038 1 A0 01 ldy #$01 00903A 1 A5 13 lda CHANNL 00903C 1 D0 10 bne L904E 00903E 1 A9 0D L903E: lda #$0D 009040 1 20 B2 90 jsr L90B2 009043 1 24 13 bit CHANNL 009045 1 10 05 bpl L904C 009047 1 A9 0A lda #$0A 009049 1 20 B2 90 jsr L90B2 00904C 1 49 FF L904C: eor #$FF 00904E 1 60 L904E: rts 00904F 1 00904F 1 38 L904F: sec 009050 1 20 F0 FF jsr kPLOT 009053 1 98 tya 009054 1 38 sec 009055 1 E9 0A L9055: sbc #$0A 009057 1 B0 FC bcs L9055 009059 1 49 FF eor #$FF 00905B 1 69 01 adc #$01 00905D 1 D0 16 bne L9075 00905F 1 08 L905F: php 009060 1 38 sec 009061 1 20 F0 FF jsr kPLOT 009064 1 84 09 sty TRMPOS 009066 1 20 81 9D jsr L9D81 009069 1 C9 29 cmp #$29 00906B 1 D0 13 bne L9080 00906D 1 28 plp 00906E 1 90 06 bcc L9076 009070 1 8A txa 009071 1 E5 09 sbc TRMPOS 009073 1 90 05 bcc L907A 009075 1 AA L9075: tax 009076 1 E8 L9076: inx 009077 1 CA L9077: dex 009078 1 D0 09 bne L9083 00907A 1 20 73 04 L907A: jsr CHRGET 00907D 1 4C 09 90 jmp L9009 009080 1 009080 1 4C A1 94 L9080: jmp L94A1 009083 1 009083 1 20 A6 90 L9083: jsr L90A6 009086 1 D0 EF bne L9077 009088 1 20 74 9B L9088: jsr L9B74 00908B 1 20 4E 9C L908B: jsr L9C4E 00908E 1 AA tax 00908F 1 A0 00 ldy #$00 009091 1 E8 inx 009092 1 CA L9092: dex 009093 1 F0 B9 beq L904E 009095 1 20 B0 04 jsr INDIN1 009098 1 20 B2 90 jsr L90B2 00909B 1 C8 iny 00909C 1 C9 0D cmp #$0D 00909E 1 D0 F2 bne L9092 0090A0 1 20 4C 90 jsr L904C 0090A3 1 4C 92 90 jmp L9092 0090A6 1 0090A6 1 A5 13 L90A6: lda CHANNL 0090A8 1 F0 03 beq L90AD 0090AA 1 A9 20 L90AA: lda #$20 0090AC 1 2C .byte $2C 0090AD 1 A9 1D L90AD: lda #$1D 0090AF 1 2C .byte $2C 0090B0 1 A9 3F L90B0: lda #$3F 0090B2 1 20 8B A7 L90B2: jsr LA78B 0090B5 1 29 FF and #$FF 0090B7 1 60 rts 0090B8 1 0090B8 1 20 86 9A L90B8: jsr L9A86 0090BB 1 85 80 sta VOICNO 0090BD 1 C9 23 cmp #$23 0090BF 1 F0 0A beq L90CB 0090C1 1 C9 F9 cmp #$F9 0090C3 1 D0 16 bne L90DB 0090C5 1 20 73 04 jsr CHRGET 0090C8 1 4C DB 90 jmp L90DB 0090CB 1 0090CB 1 20 73 04 L90CB: jsr CHRGET 0090CE 1 20 84 9D jsr L9D84 0090D1 1 A9 2C lda #$2C 0090D3 1 20 93 94 jsr L9493 0090D6 1 86 13 stx CHANNL 0090D8 1 20 A6 A7 jsr LA7A6 0090DB 1 A2 01 L90DB: ldx #$01 0090DD 1 A0 02 ldy #$02 0090DF 1 A9 00 lda #$00 0090E1 1 8D 01 02 sta $0201 0090E4 1 A9 40 lda #$40 0090E6 1 20 58 91 jsr L9158 0090E9 1 A6 13 ldx CHANNL 0090EB 1 D0 13 bne L9100 0090ED 1 60 rts 0090EE 1 0090EE 1 20 84 9D L90EE: jsr L9D84 0090F1 1 A9 2C lda #$2C 0090F3 1 20 93 94 jsr L9493 0090F6 1 86 13 stx CHANNL 0090F8 1 20 A6 A7 jsr LA7A6 0090FB 1 20 17 91 jsr L9117 0090FE 1 A5 13 L90FE: lda CHANNL 009100 1 20 CC FF L9100: jsr kCLRCHN 009103 1 A2 00 ldx #$00 009105 1 86 13 stx CHANNL 009107 1 60 rts 009108 1 009108 1 C9 22 L9108: cmp #$22 00910A 1 D0 0B bne L9117 00910C 1 20 4E 94 jsr L944E 00910F 1 A9 3B lda #$3B 009111 1 20 93 94 jsr L9493 009114 1 20 8B 90 jsr L908B 009117 1 20 86 9A L9117: jsr L9A86 00911A 1 A9 2C lda #$2C 00911C 1 8D FF 01 sta $01FF 00911F 1 20 42 91 L911F: jsr L9142 009122 1 A5 13 lda CHANNL 009124 1 F0 0D beq L9133 009126 1 20 B7 FF jsr kREADST 009129 1 29 02 and #$02 00912B 1 F0 06 beq L9133 00912D 1 20 FE 90 jsr L90FE 009130 1 4C B0 8D jmp L8DB0 009133 1 009133 1 AD 00 02 L9133: lda BUF 009136 1 D0 1E bne L9156 009138 1 A5 13 lda CHANNL 00913A 1 D0 E3 bne L911F 00913C 1 20 BE 8D jsr L8DBE 00913F 1 4C B3 8D jmp L8DB3 009142 1 009142 1 A5 13 L9142: lda CHANNL 009144 1 D0 06 bne L914C 009146 1 20 B0 90 jsr L90B0 009149 1 20 AA 90 jsr L90AA 00914C 1 4C 5A 88 L914C: jmp L885A 00914F 1 00914F 1 A6 41 L914F: ldx DATPTR 009151 1 A4 42 ldy $42 009153 1 A9 98 lda #$98 009155 1 2C .byte $2C 009156 1 A9 00 L9156: lda #$00 009158 1 85 11 L9158: sta INPFLG 00915A 1 86 43 stx INPPTR 00915C 1 84 44 sty $44 00915E 1 20 A5 96 L915E: jsr L96A5 009161 1 85 49 sta FORPNT 009163 1 84 4A sty $4A 009165 1 A2 01 ldx #$01 009167 1 B5 3B L9167: lda TXTPTR,x 009169 1 95 4B sta OPPTR,x 00916B 1 B5 43 lda INPPTR,x 00916D 1 95 3B sta TXTPTR,x 00916F 1 CA dex 009170 1 10 F5 bpl L9167 009172 1 20 79 04 jsr CHRGOT 009175 1 D0 31 bne L91A8 009177 1 24 11 bit INPFLG 009179 1 50 1A bvc L9195 00917B 1 A5 80 lda VOICNO 00917D 1 C9 F9 cmp #$F9 00917F 1 D0 08 bne L9189 009181 1 20 AF A7 L9181: jsr LA7AF 009184 1 AA tax 009185 1 F0 FA beq L9181 009187 1 D0 03 bne L918C 009189 1 20 AF A7 L9189: jsr LA7AF 00918C 1 8D 00 02 L918C: sta BUF 00918F 1 A2 FF ldx #$FF 009191 1 A0 01 ldy #$01 009193 1 D0 0F bne L91A4 009195 1 10 03 L9195: bpl L919A 009197 1 4C 40 92 jmp L9240 00919A 1 00919A 1 A5 13 L919A: lda CHANNL 00919C 1 D0 03 bne L91A1 00919E 1 20 B0 90 jsr L90B0 0091A1 1 20 42 91 L91A1: jsr L9142 0091A4 1 86 3B L91A4: stx TXTPTR 0091A6 1 84 3C sty $3C 0091A8 1 20 73 04 L91A8: jsr CHRGET 0091AB 1 24 0D bit VALTYP 0091AD 1 10 31 bpl L91E0 0091AF 1 24 11 bit INPFLG 0091B1 1 50 09 bvc L91BC 0091B3 1 E8 inx 0091B4 1 86 3B stx TXTPTR 0091B6 1 A9 00 lda #$00 0091B8 1 85 07 sta CHARAC 0091BA 1 F0 0C beq L91C8 0091BC 1 85 07 L91BC: sta CHARAC 0091BE 1 C9 22 cmp #$22 0091C0 1 F0 07 beq L91C9 0091C2 1 A9 3A lda #$3A 0091C4 1 85 07 sta CHARAC 0091C6 1 A9 2C lda #$2C 0091C8 1 18 L91C8: clc 0091C9 1 85 08 L91C9: sta ENDCHR 0091CB 1 A5 3B lda TXTPTR 0091CD 1 A4 3C ldy $3C 0091CF 1 69 00 adc #$00 0091D1 1 90 01 bcc L91D4 0091D3 1 C8 iny 0091D4 1 20 7A 9B L91D4: jsr L9B7A 0091D7 1 20 C6 9D jsr L9DC6 0091DA 1 20 B1 8E jsr L8EB1 0091DD 1 4C E8 91 jmp L91E8 0091E0 1 0091E0 1 20 7F A3 L91E0: jsr LA37F 0091E3 1 A5 0E lda INTFLG 0091E5 1 20 99 8E jsr L8E99 0091E8 1 20 79 04 L91E8: jsr CHRGOT 0091EB 1 F0 3B beq L9228 0091ED 1 C9 2C cmp #$2C 0091EF 1 F0 37 beq L9228 0091F1 1 A5 11 lda INPFLG 0091F3 1 F0 0A beq L91FF 0091F5 1 30 04 bmi L91FB 0091F7 1 A6 13 ldx CHANNL 0091F9 1 D0 08 bne L9203 0091FB 1 A2 16 L91FB: ldx #$16 0091FD 1 D0 06 bne L9205 0091FF 1 A5 13 L91FF: lda CHANNL 009201 1 F0 05 beq L9208 009203 1 A2 18 L9203: ldx #$18 009205 1 4C 83 86 L9205: jmp L8683 009208 1 009208 1 20 4F FF L9208: jsr LFF4F 00920B 1 3F 52 45 44 .byte "?REDO FROM START" 00920F 1 4F 20 46 52 009213 1 4F 4D 20 53 00921B 1 00921B 1 0D 00 .byte $0D,$00 00921D 1 AD 5B 02 lda OLDTXT 009220 1 AC 5C 02 ldy $025C 009223 1 85 3B sta TXTPTR 009225 1 84 3C sty $3C 009227 1 60 rts 009228 1 009228 1 A2 01 L9228: ldx #$01 00922A 1 B5 3B L922A: lda TXTPTR,x 00922C 1 95 43 sta INPPTR,x 00922E 1 B5 4B lda OPPTR,x 009230 1 95 3B sta TXTPTR,x 009232 1 CA dex 009233 1 10 F5 bpl L922A 009235 1 20 79 04 jsr CHRGOT 009238 1 F0 30 beq L926A 00923A 1 20 91 94 jsr L9491 00923D 1 4C 5E 91 jmp L915E 009240 1 009240 1 20 BE 8D L9240: jsr L8DBE 009243 1 C8 iny 009244 1 AA tax 009245 1 D0 15 bne L925C 009247 1 A2 0D ldx #$0D 009249 1 C8 iny 00924A 1 20 A5 04 jsr INDTXT 00924D 1 F0 6C beq L92BB 00924F 1 C8 iny 009250 1 20 A5 04 jsr INDTXT 009253 1 85 3F sta DATLIN 009255 1 C8 iny 009256 1 20 A5 04 jsr INDTXT 009259 1 C8 iny 00925A 1 85 40 sta $40 00925C 1 20 B3 8D L925C: jsr L8DB3 00925F 1 20 79 04 jsr CHRGOT 009262 1 AA tax 009263 1 E0 83 cpx #$83 009265 1 D0 D9 bne L9240 009267 1 4C A8 91 jmp L91A8 00926A 1 00926A 1 A5 43 L926A: lda INPPTR 00926C 1 A4 44 ldy $44 00926E 1 A6 11 ldx INPFLG 009270 1 10 03 bpl L9275 009272 1 4C BB 8C jmp L8CBB 009275 1 009275 1 A0 00 L9275: ldy #$00 009277 1 20 55 81 jsr L8155 00927A 1 F0 17 beq L9293 00927C 1 A5 13 lda CHANNL 00927E 1 D0 13 bne L9293 009280 1 20 4F FF jsr LFF4F 009283 1 3F 45 58 54 .byte "?EXTRA IGNORED" 009287 1 52 41 20 49 00928B 1 47 4E 4F 52 009291 1 009291 1 0D 00 .byte $0D,$00 009293 1 60 L9293: rts 009294 1 009294 1 D0 13 L9294: bne L92A9 009296 1 A0 FF ldy #$FF 009298 1 D0 14 bne L92AE 00929A 1 A0 12 L929A: ldy #$12 00929C 1 20 72 A7 jsr LA772 00929F 1 20 79 04 jsr CHRGOT 0092A2 1 C9 2C cmp #$2C 0092A4 1 D0 6D bne L9313 0092A6 1 20 73 04 jsr CHRGET 0092A9 1 20 A5 96 L92A9: jsr L96A5 0092AC 1 85 49 sta FORPNT 0092AE 1 84 4A L92AE: sty $4A 0092B0 1 A0 81 ldy #$81 0092B2 1 84 02 sty SRCHTK 0092B4 1 20 71 88 jsr L8871 0092B7 1 F0 05 beq L92BE 0092B9 1 A2 0A ldx #$0A 0092BB 1 4C 83 86 L92BB: jmp L8683 0092BE 1 0092BE 1 20 69 A7 L92BE: jsr LA769 0092C1 1 A5 3D lda FNDPNT 0092C3 1 18 clc 0092C4 1 69 03 adc #$03 0092C6 1 A4 3E ldy $3E 0092C8 1 90 01 bcc L92CB 0092CA 1 C8 iny 0092CB 1 20 1F A2 L92CB: jsr LA21F 0092CE 1 A0 08 ldy #$08 0092D0 1 B1 3D lda (FNDPNT),y 0092D2 1 85 66 sta FACSGN 0092D4 1 A0 01 ldy #$01 0092D6 1 B1 3D lda (FNDPNT),y 0092D8 1 48 pha 0092D9 1 AA tax 0092DA 1 C8 iny 0092DB 1 B1 3D lda (FNDPNT),y 0092DD 1 48 pha 0092DE 1 A8 tay 0092DF 1 8A txa 0092E0 1 20 9B 9E jsr L9E9B 0092E3 1 68 pla 0092E4 1 A8 tay 0092E5 1 68 pla 0092E6 1 AA tax 0092E7 1 20 59 A2 jsr LA259 0092EA 1 A5 3D lda FNDPNT 0092EC 1 18 clc 0092ED 1 69 09 adc #$09 0092EF 1 A4 3E ldy $3E 0092F1 1 90 01 bcc L92F4 0092F3 1 C8 iny 0092F4 1 20 E0 A2 L92F4: jsr LA2E0 0092F7 1 A0 08 ldy #$08 0092F9 1 38 sec 0092FA 1 F1 3D sbc (FNDPNT),y 0092FC 1 F0 9C beq L929A 0092FE 1 A0 11 ldy #$11 009300 1 B1 3D lda (FNDPNT),y 009302 1 85 3B sta TXTPTR 009304 1 88 dey 009305 1 B1 3D lda (FNDPNT),y 009307 1 85 3C sta $3C 009309 1 88 dey 00930A 1 B1 3D lda (FNDPNT),y 00930C 1 85 3A sta $3A 00930E 1 88 dey 00930F 1 B1 3D lda (FNDPNT),y 009311 1 85 39 sta CHRLIN 009313 1 60 L9313: rts 009314 1 009314 1 20 2C 93 L9314: jsr L932C 009317 1 18 L9317: clc 009318 1 90 01 bcc L931B 00931A 1 38 L931A: sec 00931B 1 24 0D L931B: bit VALTYP 00931D 1 30 03 bmi L9322 00931F 1 B0 03 bcs L9324 009321 1 60 L9321: rts 009322 1 009322 1 B0 FD L9322: bcs L9321 009324 1 A2 16 L9324: ldx #$16 009326 1 2C .byte $2C 009327 1 A2 19 L9327: ldx #$19 009329 1 4C 83 86 jmp L8683 00932C 1 00932C 1 A6 3B L932C: ldx TXTPTR 00932E 1 D0 02 bne L9332 009330 1 C6 3C dec $3C 009332 1 C6 3B L9332: dec TXTPTR 009334 1 A2 00 ldx #$00 009336 1 24 .byte $24 009337 1 48 L9337: pha 009338 1 8A txa 009339 1 48 pha 00933A 1 BA tsx 00933B 1 E0 28 cpx #$28 00933D 1 90 E8 bcc L9327 00933F 1 20 14 94 jsr L9414 009342 1 A9 00 lda #$00 009344 1 85 4D sta OPMASK 009346 1 20 79 04 L9346: jsr CHRGOT 009349 1 38 L9349: sec 00934A 1 E9 B1 sbc #$B1 00934C 1 90 17 bcc L9365 00934E 1 C9 03 cmp #$03 009350 1 B0 13 bcs L9365 009352 1 C9 01 cmp #$01 009354 1 2A rol a 009355 1 49 01 eor #$01 009357 1 45 4D eor OPMASK 009359 1 C5 4D cmp OPMASK 00935B 1 90 61 bcc L93BE 00935D 1 85 4D sta OPMASK 00935F 1 20 73 04 jsr CHRGET 009362 1 4C 49 93 jmp L9349 009365 1 009365 1 A6 4D L9365: ldx OPMASK 009367 1 D0 2C bne L9395 009369 1 B0 7E bcs L93E9 00936B 1 69 07 adc #$07 00936D 1 90 7A bcc L93E9 00936F 1 65 0D adc VALTYP 009371 1 D0 03 bne L9376 009373 1 4C DA 9B jmp L9BDA 009376 1 009376 1 69 FF L9376: adc #$FF 009378 1 85 22 sta INDEX1 00937A 1 0A asl a 00937B 1 65 22 adc INDEX1 00937D 1 A8 tay 00937E 1 68 L937E: pla 00937F 1 D9 53 84 cmp L8453,y 009382 1 B0 6A bcs L93EE 009384 1 20 17 93 jsr L9317 009387 1 48 L9387: pha 009388 1 20 AE 93 L9388: jsr L93AE 00938B 1 68 pla 00938C 1 A4 4B ldy OPPTR 00938E 1 10 17 bpl L93A7 009390 1 AA tax 009391 1 F0 59 beq L93EC 009393 1 D0 62 bne L93F7 009395 1 46 0D L9395: lsr VALTYP 009397 1 8A txa 009398 1 2A rol a 009399 1 A6 3B ldx TXTPTR 00939B 1 D0 02 bne L939F 00939D 1 C6 3C dec $3C 00939F 1 C6 3B L939F: dec TXTPTR 0093A1 1 A0 1B ldy #$1B 0093A3 1 85 4D sta OPMASK 0093A5 1 D0 D7 bne L937E 0093A7 1 D9 53 84 L93A7: cmp L8453,y 0093AA 1 B0 4B bcs L93F7 0093AC 1 90 D9 bcc L9387 0093AE 1 B9 55 84 L93AE: lda L8454+1,y 0093B1 1 48 pha 0093B2 1 B9 54 84 lda L8454,y 0093B5 1 48 pha 0093B6 1 20 C1 93 jsr L93C1 0093B9 1 A5 4D lda OPMASK 0093BB 1 4C 37 93 jmp L9337 0093BE 1 0093BE 1 4C A1 94 L93BE: jmp L94A1 0093C1 1 0093C1 1 A5 66 L93C1: lda FACSGN 0093C3 1 BE 53 84 ldx L8453,y 0093C6 1 A8 tay 0093C7 1 18 clc 0093C8 1 68 pla 0093C9 1 69 01 adc #$01 0093CB 1 85 22 sta INDEX1 0093CD 1 68 pla 0093CE 1 69 00 adc #$00 0093D0 1 85 23 sta $23 0093D2 1 98 tya 0093D3 1 48 pha 0093D4 1 20 A0 A2 jsr LA2A0 0093D7 1 A5 65 lda $65 0093D9 1 48 pha 0093DA 1 A5 64 lda $64 0093DC 1 48 pha 0093DD 1 A5 63 lda $63 0093DF 1 48 pha 0093E0 1 A5 62 lda FACH0 0093E2 1 48 pha 0093E3 1 A5 61 lda FACEXP 0093E5 1 48 pha 0093E6 1 6C 22 00 jmp (INDEX1) 0093E9 1 0093E9 1 A0 FF L93E9: ldy #$FF 0093EB 1 68 pla 0093EC 1 F0 23 L93EC: beq L9411 0093EE 1 C9 64 L93EE: cmp #$64 0093F0 1 F0 03 beq L93F5 0093F2 1 20 17 93 jsr L9317 0093F5 1 84 4B L93F5: sty OPPTR 0093F7 1 68 L93F7: pla 0093F8 1 4A lsr a 0093F9 1 85 12 sta TANSGN 0093FB 1 68 pla 0093FC 1 85 69 sta ARGEXP 0093FE 1 68 pla 0093FF 1 85 6A sta ARGH0 009401 1 68 pla 009402 1 85 6B sta $6B 009404 1 68 pla 009405 1 85 6C sta $6C 009407 1 68 pla 009408 1 85 6D sta $6D 00940A 1 68 pla 00940B 1 85 6E sta ARGSGN 00940D 1 45 66 eor FACSGN 00940F 1 85 6F sta ARISGN 009411 1 A5 61 L9411: lda FACEXP 009413 1 60 rts 009414 1 009414 1 6C 0A 03 L9414: jmp (lIEVAL) 009417 1 009417 1 A9 00 IEVAL: lda #$00 009419 1 85 0D sta VALTYP 00941B 1 20 73 04 L941B: jsr CHRGET 00941E 1 B0 03 bcs L9423 009420 1 4C 7F A3 L9420: jmp LA37F 009423 1 009423 1 20 3A 97 L9423: jsr L973A 009426 1 90 03 bcc L942B 009428 1 4C AD 94 jmp L94AD 00942B 1 00942B 1 C9 FF L942B: cmp #$FF 00942D 1 D0 0F bne L943E 00942F 1 A9 39 lda #$39 009431 1 A0 94 ldy #$94 009433 1 20 21 A2 jsr LA221 009436 1 4C 73 04 jmp CHRGET 009439 1 009439 1 82 49 0F DA .byte $82,$49,$0F,$DA,$A1 00943D 1 A1 00943E 1 C9 2E L943E: cmp #$2E 009440 1 F0 DE beq L9420 009442 1 C9 AB cmp #$AB 009444 1 F0 60 beq L94A6 009446 1 C9 AA cmp #$AA 009448 1 F0 D1 beq L941B 00944A 1 C9 22 cmp #$22 00944C 1 D0 0F bne L945D 00944E 1 A5 3B L944E: lda TXTPTR 009450 1 A4 3C ldy $3C 009452 1 69 00 adc #$00 009454 1 90 01 bcc L9457 009456 1 C8 iny 009457 1 20 74 9B L9457: jsr L9B74 00945A 1 4C C6 9D jmp L9DC6 00945D 1 00945D 1 C9 A8 L945D: cmp #$A8 00945F 1 D0 16 bne L9477 009461 1 A0 18 ldy #$18 009463 1 D0 43 bne L94A8 009465 1 20 86 98 L9465: jsr L9886 009468 1 A5 65 lda $65 00946A 1 49 FF eor #$FF 00946C 1 A8 tay 00946D 1 A5 64 lda $64 00946F 1 49 FF eor #$FF 009471 1 20 92 9A L9471: jsr L9A92 009474 1 4C C9 A2 jmp LA2C9 009477 1 009477 1 C9 A5 L9477: cmp #$A5 009479 1 D0 03 bne L947E 00947B 1 4C DE 9A jmp L9ADE 00947E 1 00947E 1 C9 B4 L947E: cmp #$B4 009480 1 90 03 bcc L9485 009482 1 4C 99 95 jmp L9599 009485 1 009485 1 20 8E 94 L9485: jsr L948E 009488 1 20 2C 93 jsr L932C 00948B 1 A9 29 L948B: lda #$29 00948D 1 2C .byte $2C 00948E 1 A9 28 L948E: lda #$28 009490 1 2C .byte $2C 009491 1 A9 2C L9491: lda #$2C 009493 1 A0 00 L9493: ldy #$00 009495 1 85 78 sta $78 009497 1 20 A5 04 jsr INDTXT 00949A 1 C5 78 cmp $78 00949C 1 D0 03 bne L94A1 00949E 1 4C 73 04 jmp CHRGET 0094A1 1 0094A1 1 A2 0B L94A1: ldx #$0B 0094A3 1 4C 83 86 jmp L8683 0094A6 1 0094A6 1 A0 15 L94A6: ldy #$15 0094A8 1 68 L94A8: pla 0094A9 1 68 pla 0094AA 1 4C 88 93 jmp L9388 0094AD 1 0094AD 1 20 A5 96 L94AD: jsr L96A5 0094B0 1 85 64 sta $64 0094B2 1 84 65 sty $65 0094B4 1 A6 45 ldx VARNAM 0094B6 1 A4 46 ldy $46 0094B8 1 A5 0D lda VALTYP 0094BA 1 F0 45 beq L9501 0094BC 1 A9 00 lda #$00 0094BE 1 85 70 sta FACOV 0094C0 1 E0 54 cpx #$54 0094C2 1 D0 24 bne L94E8 0094C4 1 C0 C9 cpy #$C9 0094C6 1 D0 76 bne L953E 0094C8 1 A5 64 lda $64 0094CA 1 C9 A2 cmp #$A2 0094CC 1 D0 70 bne L953E 0094CE 1 A5 65 lda $65 0094D0 1 C9 04 cmp #$04 0094D2 1 D0 6A bne L953E 0094D4 1 20 31 95 jsr L9531 0094D7 1 84 5E sty $5E 0094D9 1 88 dey 0094DA 1 84 71 sty FBUFPT 0094DC 1 A0 06 ldy #$06 0094DE 1 84 5D sty $5D 0094E0 1 A0 24 ldy #$24 0094E2 1 20 FA A4 jsr LA4FA 0094E5 1 4C 70 9B jmp L9B70 0094E8 1 0094E8 1 E0 44 L94E8: cpx #$44 0094EA 1 D0 52 bne L953E 0094EC 1 C0 D3 cpy #$D3 0094EE 1 D0 4E bne L953E 0094F0 1 20 FA 94 jsr L94FA 0094F3 1 A5 7A lda $7A 0094F5 1 A4 7B ldy $7B 0094F7 1 4C 74 9B jmp L9B74 0094FA 1 0094FA 1 A5 79 L94FA: lda DSDESC 0094FC 1 D0 40 bne L953E 0094FE 1 4C CF CC jmp LCCCF 009501 1 009501 1 24 0E L9501: bit INTFLG 009503 1 10 0F bpl L9514 009505 1 A0 00 ldy #$00 009507 1 20 DC 04 jsr INDFMO 00950A 1 AA tax 00950B 1 C8 iny 00950C 1 20 DC 04 jsr INDFMO 00950F 1 A8 tay 009510 1 8A txa 009511 1 4C 71 94 jmp L9471 009514 1 009514 1 A5 65 L9514: lda $65 009516 1 C9 04 cmp #$04 009518 1 D0 78 bne L9592 00951A 1 A5 64 lda $64 00951C 1 C9 A2 cmp #$A2 00951E 1 D0 72 bne L9592 009520 1 E0 54 cpx #$54 009522 1 D0 1B bne L953F 009524 1 C0 49 cpy #$49 009526 1 D0 6A bne L9592 009528 1 20 31 95 jsr L9531 00952B 1 98 tya 00952C 1 A2 A0 ldx #$A0 00952E 1 4C D4 A2 jmp LA2D4 009531 1 009531 1 20 DE FF L9531: jsr kRDTIM 009534 1 86 64 stx $64 009536 1 84 63 sty $63 009538 1 85 65 sta $65 00953A 1 A0 00 ldy #$00 00953C 1 84 62 sty FACH0 00953E 1 60 L953E: rts 00953F 1 00953F 1 E0 53 L953F: cpx #$53 009541 1 D0 0A bne L954D 009543 1 C0 54 cpy #$54 009545 1 D0 4B bne L9592 009547 1 20 B7 FF jsr kREADST 00954A 1 4C C1 A2 jmp LA2C1 00954D 1 00954D 1 E0 44 L954D: cpx #$44 00954F 1 D0 26 bne L9577 009551 1 C0 53 cpy #$53 009553 1 D0 3D bne L9592 009555 1 20 FA 94 jsr L94FA 009558 1 A0 00 ldy #$00 00955A 1 A9 7A lda #$7A 00955C 1 20 94 04 jsr INDSUB 00955F 1 29 0F and #$0F 009561 1 0A asl a 009562 1 85 0F sta DORES 009564 1 0A asl a 009565 1 0A asl a 009566 1 65 0F adc DORES 009568 1 85 0F sta DORES 00956A 1 C8 iny 00956B 1 A9 7A lda #$7A 00956D 1 20 94 04 jsr INDSUB 009570 1 29 0F and #$0F 009572 1 65 0F adc DORES 009574 1 4C C1 A2 jmp LA2C1 009577 1 009577 1 E0 45 L9577: cpx #$45 009579 1 D0 17 bne L9592 00957B 1 C0 52 cpy #$52 00957D 1 F0 0D beq L958C 00957F 1 C0 4C cpy #$4C 009581 1 D0 0F bne L9592 009583 1 AD F1 04 lda $04F1 009586 1 AC F0 04 ldy ERRLIN 009589 1 4C 76 9A jmp L9A76 00958C 1 00958C 1 AD EF 04 L958C: lda ERRNUM 00958F 1 4C C1 A2 jmp LA2C1 009592 1 009592 1 A5 64 L9592: lda $64 009594 1 A4 65 ldy $65 009596 1 4C 1F A2 jmp LA21F 009599 1 009599 1 C9 D5 L9599: cmp #$D5 00959B 1 B0 58 bcs L95F5 00959D 1 C9 CB cmp #$CB 00959F 1 90 02 bcc L95A3 0095A1 1 E9 01 sbc #$01 0095A3 1 48 L95A3: pha 0095A4 1 AA tax 0095A5 1 20 73 04 jsr CHRGET 0095A8 1 E0 D3 cpx #$D3 0095AA 1 F0 08 beq L95B4 0095AC 1 E0 CB cpx #$CB 0095AE 1 B0 29 bcs L95D9 0095B0 1 E0 C8 cpx #$C8 0095B2 1 90 25 bcc L95D9 0095B4 1 20 8E 94 L95B4: jsr L948E 0095B7 1 20 2C 93 jsr L932C 0095BA 1 20 91 94 jsr L9491 0095BD 1 20 1A 93 jsr L931A 0095C0 1 68 pla 0095C1 1 C9 D3 cmp #$D3 0095C3 1 F0 2D beq L95F2 0095C5 1 AA tax 0095C6 1 A5 65 lda $65 0095C8 1 48 pha 0095C9 1 A5 64 lda $64 0095CB 1 48 pha 0095CC 1 8A txa 0095CD 1 48 pha 0095CE 1 20 84 9D jsr L9D84 0095D1 1 68 pla 0095D2 1 A8 tay 0095D3 1 8A txa 0095D4 1 48 pha 0095D5 1 98 tya 0095D6 1 4C DD 95 jmp L95DD 0095D9 1 0095D9 1 20 85 94 L95D9: jsr L9485 0095DC 1 68 pla 0095DD 1 38 L95DD: sec 0095DE 1 E9 B4 sbc #$B4 0095E0 1 0A asl a 0095E1 1 A8 tay 0095E2 1 B9 16 84 lda L8415+1,y 0095E5 1 85 56 sta $56 0095E7 1 B9 15 84 lda L8415,y 0095EA 1 85 55 sta $55 0095EC 1 20 54 00 jsr JMPER 0095EF 1 4C 17 93 jmp L9317 0095F2 1 0095F2 1 4C 86 B3 L95F2: jmp LB386 0095F5 1 0095F5 1 4C A1 94 L95F5: jmp L94A1 0095F8 1 0095F8 1 A0 FF L95F8: ldy #$FF 0095FA 1 2C L95FA: .byte $2C 0095FB 1 A0 00 L95FB: ldy #$00 0095FD 1 84 0B sty COUNT 0095FF 1 20 86 98 jsr L9886 009602 1 A5 64 lda $64 009604 1 45 0B eor COUNT 009606 1 85 07 sta CHARAC 009608 1 A5 65 lda $65 00960A 1 45 0B eor COUNT 00960C 1 85 08 sta ENDCHR 00960E 1 20 81 A2 jsr LA281 009611 1 20 86 98 jsr L9886 009614 1 A5 65 lda $65 009616 1 45 0B eor COUNT 009618 1 25 08 and ENDCHR 00961A 1 45 0B eor COUNT 00961C 1 A8 tay 00961D 1 A5 64 lda $64 00961F 1 45 0B eor COUNT 009621 1 25 07 and CHARAC 009623 1 45 0B eor COUNT 009625 1 4C 71 94 jmp L9471 009628 1 009628 1 20 1B 93 L9628: jsr L931B 00962B 1 B0 13 bcs L9640 00962D 1 A5 6E lda ARGSGN 00962F 1 09 7F ora #$7F 009631 1 25 6A and ARGH0 009633 1 85 6A sta ARGH0 009635 1 A9 69 lda #$69 009637 1 A0 00 ldy #$00 009639 1 20 E0 A2 jsr LA2E0 00963C 1 AA tax 00963D 1 4C 73 96 jmp L9673 009640 1 009640 1 A9 00 L9640: lda #$00 009642 1 85 0D sta VALTYP 009644 1 C6 4D dec OPMASK 009646 1 20 4E 9C jsr L9C4E 009649 1 85 61 sta FACEXP 00964B 1 86 62 stx FACH0 00964D 1 84 63 sty $63 00964F 1 A5 6C lda $6C 009651 1 A4 6D ldy $6D 009653 1 20 52 9C jsr L9C52 009656 1 86 6C stx $6C 009658 1 84 6D sty $6D 00965A 1 AA tax 00965B 1 38 sec 00965C 1 E5 61 sbc FACEXP 00965E 1 F0 08 beq L9668 009660 1 A9 01 lda #$01 009662 1 90 04 bcc L9668 009664 1 A6 61 ldx FACEXP 009666 1 A9 FF lda #$FF 009668 1 85 66 L9668: sta FACSGN 00966A 1 A0 FF ldy #$FF 00966C 1 E8 inx 00966D 1 C8 L966D: iny 00966E 1 CA dex 00966F 1 D0 07 bne L9678 009671 1 A6 66 ldx FACSGN 009673 1 30 17 L9673: bmi L968C 009675 1 18 clc 009676 1 90 14 bcc L968C 009678 1 20 85 81 L9678: jsr L8185 00967B 1 48 pha 00967C 1 20 7D 81 jsr L817D 00967F 1 85 78 sta $78 009681 1 68 pla 009682 1 C5 78 cmp $78 009684 1 F0 E7 beq L966D 009686 1 A2 FF ldx #$FF 009688 1 B0 02 bcs L968C 00968A 1 A2 01 ldx #$01 00968C 1 E8 L968C: inx 00968D 1 8A txa 00968E 1 2A rol a 00968F 1 25 12 and TANSGN 009691 1 F0 02 beq L9695 009693 1 A9 FF lda #$FF 009695 1 4C C1 A2 L9695: jmp LA2C1 009698 1 009698 1 20 91 94 L9698: jsr L9491 00969B 1 AA L969B: tax 00969C 1 20 AA 96 jsr L96AA 00969F 1 20 79 04 jsr CHRGOT 0096A2 1 D0 F4 bne L9698 0096A4 1 60 rts 0096A5 1 0096A5 1 A2 00 L96A5: ldx #$00 0096A7 1 20 79 04 jsr CHRGOT 0096AA 1 86 0C L96AA: stx DIMFLG 0096AC 1 85 45 L96AC: sta VARNAM 0096AE 1 20 79 04 jsr CHRGOT 0096B1 1 20 3A 97 jsr L973A 0096B4 1 B0 03 bcs L96B9 0096B6 1 4C A1 94 L96B6: jmp L94A1 0096B9 1 0096B9 1 A2 00 L96B9: ldx #$00 0096BB 1 86 0D stx VALTYP 0096BD 1 86 0E stx INTFLG 0096BF 1 20 73 04 jsr CHRGET 0096C2 1 90 05 bcc L96C9 0096C4 1 20 3A 97 jsr L973A 0096C7 1 90 0B bcc L96D4 0096C9 1 AA L96C9: tax 0096CA 1 20 73 04 L96CA: jsr CHRGET 0096CD 1 90 FB bcc L96CA 0096CF 1 20 3A 97 jsr L973A 0096D2 1 B0 F6 bcs L96CA 0096D4 1 C9 24 L96D4: cmp #$24 0096D6 1 D0 06 bne L96DE 0096D8 1 A9 FF lda #$FF 0096DA 1 85 0D sta VALTYP 0096DC 1 D0 10 bne L96EE 0096DE 1 C9 25 L96DE: cmp #$25 0096E0 1 D0 13 bne L96F5 0096E2 1 A5 10 lda SUBFLG 0096E4 1 D0 D0 bne L96B6 0096E6 1 A9 80 lda #$80 0096E8 1 85 0E sta INTFLG 0096EA 1 05 45 ora VARNAM 0096EC 1 85 45 sta VARNAM 0096EE 1 8A L96EE: txa 0096EF 1 09 80 ora #$80 0096F1 1 AA tax 0096F2 1 20 73 04 jsr CHRGET 0096F5 1 86 46 L96F5: stx $46 0096F7 1 38 sec 0096F8 1 05 10 ora SUBFLG 0096FA 1 E9 28 sbc #$28 0096FC 1 D0 03 bne L9701 0096FE 1 4C 9B 98 jmp L989B 009701 1 009701 1 A0 00 L9701: ldy #$00 009703 1 84 10 sty SUBFLG 009705 1 A5 2D lda VARTAB 009707 1 A6 2E ldx $2E 009709 1 86 60 L9709: stx $60 00970B 1 85 5F L970B: sta $5F 00970D 1 E4 30 cpx $30 00970F 1 D0 04 bne L9715 009711 1 C5 2F cmp ARYTAB 009713 1 F0 2F beq L9744 009715 1 20 D1 04 L9715: jsr INDLOW 009718 1 85 78 sta $78 00971A 1 A5 45 lda VARNAM 00971C 1 C5 78 cmp $78 00971E 1 D0 10 bne L9730 009720 1 C8 iny 009721 1 20 D1 04 jsr INDLOW 009724 1 85 78 sta $78 009726 1 A5 46 lda $46 009728 1 C5 78 cmp $78 00972A 1 D0 03 bne L972F 00972C 1 4C 4C 98 jmp L984C 00972F 1 00972F 1 88 L972F: dey 009730 1 18 L9730: clc 009731 1 A5 5F lda $5F 009733 1 69 07 adc #$07 009735 1 90 D4 bcc L970B 009737 1 E8 inx 009738 1 D0 CF bne L9709 00973A 1 C9 41 L973A: cmp #$41 00973C 1 90 05 bcc L9743 00973E 1 E9 5B sbc #$5B 009740 1 38 sec 009741 1 E9 A5 sbc #$A5 009743 1 60 L9743: rts 009744 1 009744 1 68 L9744: pla 009745 1 48 pha 009746 1 C9 AF cmp #$AF 009748 1 D0 2A bne L9774 00974A 1 A9 A2 L974A: lda #$A2 00974C 1 A0 04 ldy #$04 00974E 1 60 rts 00974F 1 00974F 1 C0 C9 L974F: cpy #$C9 009751 1 F0 F7 beq L974A 009753 1 C0 49 cpy #$49 009755 1 D0 31 bne L9788 009757 1 F0 18 beq L9771 009759 1 C0 D3 L9759: cpy #$D3 00975B 1 F0 14 beq L9771 00975D 1 C0 53 cpy #$53 00975F 1 D0 27 bne L9788 009761 1 F0 0E beq L9771 009763 1 C0 54 L9763: cpy #$54 009765 1 D0 21 bne L9788 009767 1 F0 08 beq L9771 009769 1 C0 52 L9769: cpy #$52 00976B 1 F0 04 beq L9771 00976D 1 C0 4C cpy #$4C 00976F 1 D0 17 bne L9788 009771 1 4C A1 94 L9771: jmp L94A1 009774 1 009774 1 A5 45 L9774: lda VARNAM 009776 1 A4 46 ldy $46 009778 1 C9 54 cmp #$54 00977A 1 F0 D3 beq L974F 00977C 1 C9 53 cmp #$53 00977E 1 F0 E3 beq L9763 009780 1 C9 45 cmp #$45 009782 1 F0 E5 beq L9769 009784 1 C9 44 cmp #$44 009786 1 F0 D1 beq L9759 009788 1 A5 2F L9788: lda ARYTAB 00978A 1 A4 30 ldy $30 00978C 1 85 5F sta $5F 00978E 1 84 60 sty $60 009790 1 A5 31 lda STREND 009792 1 A4 32 ldy $32 009794 1 85 5A sta $5A 009796 1 84 5B sty $5B 009798 1 18 clc 009799 1 69 07 adc #$07 00979B 1 90 01 bcc L979E 00979D 1 C8 iny 00979E 1 85 58 L979E: sta $58 0097A0 1 84 59 sty $59 0097A2 1 20 C0 88 jsr L88C0 0097A5 1 A5 58 lda $58 0097A7 1 A4 59 ldy $59 0097A9 1 C8 iny 0097AA 1 85 2F sta ARYTAB 0097AC 1 84 30 sty $30 0097AE 1 85 58 sta $58 0097B0 1 84 59 sty $59 0097B2 1 A5 58 L97B2: lda $58 0097B4 1 A6 59 ldx $59 0097B6 1 E4 32 L97B6: cpx $32 0097B8 1 D0 06 bne L97C0 0097BA 1 C5 31 cmp STREND 0097BC 1 D0 02 bne L97C0 0097BE 1 F0 78 beq L9838 0097C0 1 85 22 L97C0: sta INDEX1 0097C2 1 86 23 stx $23 0097C4 1 A0 00 ldy #$00 0097C6 1 20 B0 04 jsr INDIN1 0097C9 1 AA tax 0097CA 1 C8 iny 0097CB 1 20 B0 04 jsr INDIN1 0097CE 1 08 php 0097CF 1 C8 iny 0097D0 1 20 B0 04 jsr INDIN1 0097D3 1 65 58 adc $58 0097D5 1 85 58 sta $58 0097D7 1 C8 iny 0097D8 1 20 B0 04 jsr INDIN1 0097DB 1 65 59 adc $59 0097DD 1 85 59 sta $59 0097DF 1 28 plp 0097E0 1 10 D0 bpl L97B2 0097E2 1 8A txa 0097E3 1 30 CD bmi L97B2 0097E5 1 C8 iny 0097E6 1 20 B0 04 jsr INDIN1 0097E9 1 A0 00 ldy #$00 0097EB 1 0A asl a 0097EC 1 69 05 adc #$05 0097EE 1 65 22 adc INDEX1 0097F0 1 85 22 sta INDEX1 0097F2 1 90 02 bcc L97F6 0097F4 1 E6 23 inc $23 0097F6 1 A6 23 L97F6: ldx $23 0097F8 1 E4 59 cpx $59 0097FA 1 D0 04 bne L9800 0097FC 1 C5 58 cmp $58 0097FE 1 F0 B6 beq L97B6 009800 1 A0 00 L9800: ldy #$00 009802 1 20 B0 04 jsr INDIN1 009805 1 F0 24 beq L982B 009807 1 85 78 sta $78 009809 1 C8 iny 00980A 1 20 B0 04 jsr INDIN1 00980D 1 18 clc 00980E 1 65 78 adc $78 009810 1 85 5A sta $5A 009812 1 C8 iny 009813 1 20 B0 04 jsr INDIN1 009816 1 69 00 adc #$00 009818 1 85 5B sta $5B 00981A 1 A0 00 ldy #$00 00981C 1 20 89 81 jsr L8189 00981F 1 69 07 adc #$07 009821 1 91 5A sta ($5A),y 009823 1 C8 iny 009824 1 20 89 81 jsr L8189 009827 1 69 00 adc #$00 009829 1 91 5A sta ($5A),y 00982B 1 A9 03 L982B: lda #$03 00982D 1 18 clc 00982E 1 65 22 adc INDEX1 009830 1 85 22 sta INDEX1 009832 1 90 C2 bcc L97F6 009834 1 E6 23 inc $23 009836 1 D0 BE bne L97F6 009838 1 A0 00 L9838: ldy #$00 00983A 1 A5 45 lda VARNAM 00983C 1 91 5F sta ($5F),y 00983E 1 C8 iny 00983F 1 A5 46 lda $46 009841 1 91 5F sta ($5F),y 009843 1 A9 00 lda #$00 009845 1 C8 L9845: iny 009846 1 91 5F sta ($5F),y 009848 1 C0 06 cpy #$06 00984A 1 D0 F9 bne L9845 00984C 1 A5 5F L984C: lda $5F 00984E 1 18 clc 00984F 1 69 02 adc #$02 009851 1 A4 60 ldy $60 009853 1 90 01 bcc L9856 009855 1 C8 iny 009856 1 85 47 L9856: sta VARPNT 009858 1 84 48 sty $48 00985A 1 60 rts 00985B 1 00985B 1 A5 0B L985B: lda COUNT 00985D 1 0A asl a 00985E 1 69 05 adc #$05 009860 1 65 5F adc $5F 009862 1 A4 60 ldy $60 009864 1 90 01 bcc L9867 009866 1 C8 iny 009867 1 85 58 L9867: sta $58 009869 1 84 59 sty $59 00986B 1 60 rts 00986C 1 00986C 1 90 80 00 00 .byte $90,$80,$00,$00,$00 009870 1 00 009871 1 20 86 98 L9871: jsr L9886 009874 1 A5 64 lda $64 009876 1 A4 65 ldy $65 009878 1 60 rts 009879 1 009879 1 20 73 04 L9879: jsr CHRGET 00987C 1 20 2C 93 jsr L932C 00987F 1 20 17 93 L987F: jsr L9317 009882 1 A5 66 lda FACSGN 009884 1 30 0D bmi L9893 009886 1 A5 61 L9886: lda FACEXP 009888 1 C9 90 cmp #$90 00988A 1 90 0C bcc L9898 00988C 1 A9 6C lda #$6C 00988E 1 A0 98 ldy #$98 009890 1 20 E0 A2 jsr LA2E0 009893 1 D0 03 L9893: bne L9898 009895 1 4C 1C 99 jmp L991C 009898 1 009898 1 4C 27 A3 L9898: jmp LA327 00989B 1 00989B 1 A5 0C L989B: lda DIMFLG 00989D 1 05 0E ora INTFLG 00989F 1 48 pha 0098A0 1 A5 0D lda VALTYP 0098A2 1 48 pha 0098A3 1 A0 00 ldy #$00 0098A5 1 98 L98A5: tya 0098A6 1 48 pha 0098A7 1 A5 46 lda $46 0098A9 1 48 pha 0098AA 1 A5 45 lda VARNAM 0098AC 1 48 pha 0098AD 1 20 79 98 jsr L9879 0098B0 1 68 pla 0098B1 1 85 45 sta VARNAM 0098B3 1 68 pla 0098B4 1 85 46 sta $46 0098B6 1 68 pla 0098B7 1 A8 tay 0098B8 1 BA tsx 0098B9 1 BD 02 01 lda $0102,x 0098BC 1 48 pha 0098BD 1 BD 01 01 lda $0101,x 0098C0 1 48 pha 0098C1 1 A5 64 lda $64 0098C3 1 9D 02 01 sta $0102,x 0098C6 1 A5 65 lda $65 0098C8 1 9D 01 01 sta $0101,x 0098CB 1 C8 iny 0098CC 1 84 0B sty COUNT 0098CE 1 20 79 04 jsr CHRGOT 0098D1 1 A4 0B ldy COUNT 0098D3 1 C9 2C cmp #$2C 0098D5 1 F0 CE beq L98A5 0098D7 1 20 8B 94 jsr L948B 0098DA 1 68 pla 0098DB 1 85 0D sta VALTYP 0098DD 1 68 pla 0098DE 1 85 0E sta INTFLG 0098E0 1 29 7F and #$7F 0098E2 1 85 0C sta DIMFLG 0098E4 1 A6 2F ldx ARYTAB 0098E6 1 A5 30 lda $30 0098E8 1 86 5F L98E8: stx $5F 0098EA 1 85 60 sta $60 0098EC 1 C5 32 cmp $32 0098EE 1 D0 04 bne L98F4 0098F0 1 E4 31 cpx STREND 0098F2 1 F0 46 beq L993A 0098F4 1 A0 00 L98F4: ldy #$00 0098F6 1 20 D1 04 jsr INDLOW 0098F9 1 C8 iny 0098FA 1 C5 45 cmp VARNAM 0098FC 1 D0 0B bne L9909 0098FE 1 20 D1 04 jsr INDLOW 009901 1 85 78 sta $78 009903 1 A5 46 lda $46 009905 1 C5 78 cmp $78 009907 1 F0 18 beq L9921 009909 1 C8 L9909: iny 00990A 1 20 D1 04 jsr INDLOW 00990D 1 18 clc 00990E 1 65 5F adc $5F 009910 1 AA tax 009911 1 C8 iny 009912 1 20 D1 04 jsr INDLOW 009915 1 65 60 adc $60 009917 1 90 CF bcc L98E8 009919 1 A2 12 L9919: ldx #$12 00991B 1 2C .byte $2C 00991C 1 A2 0E L991C: ldx #$0E 00991E 1 4C 83 86 L991E: jmp L8683 009921 1 009921 1 A2 13 L9921: ldx #$13 009923 1 A5 0C lda DIMFLG 009925 1 D0 F7 bne L991E 009927 1 20 5B 98 jsr L985B 00992A 1 A0 04 ldy #$04 00992C 1 20 D1 04 jsr INDLOW 00992F 1 85 78 sta $78 009931 1 A5 0B lda COUNT 009933 1 C5 78 cmp $78 009935 1 D0 E2 bne L9919 009937 1 4C C3 99 jmp L99C3 00993A 1 00993A 1 20 5B 98 L993A: jsr L985B 00993D 1 20 23 89 jsr L8923 009940 1 A0 00 ldy #$00 009942 1 84 72 sty $72 009944 1 A2 05 ldx #$05 009946 1 A5 45 lda VARNAM 009948 1 91 5F sta ($5F),y 00994A 1 10 01 bpl L994D 00994C 1 CA dex 00994D 1 C8 L994D: iny 00994E 1 A5 46 lda $46 009950 1 91 5F sta ($5F),y 009952 1 10 02 bpl L9956 009954 1 CA dex 009955 1 CA dex 009956 1 86 71 L9956: stx FBUFPT 009958 1 A5 0B lda COUNT 00995A 1 C8 iny 00995B 1 C8 iny 00995C 1 C8 iny 00995D 1 91 5F sta ($5F),y 00995F 1 A2 0B L995F: ldx #$0B 009961 1 A9 00 lda #$00 009963 1 24 0C bit DIMFLG 009965 1 50 08 bvc L996F 009967 1 68 pla 009968 1 18 clc 009969 1 69 01 adc #$01 00996B 1 AA tax 00996C 1 68 pla 00996D 1 69 00 adc #$00 00996F 1 C8 L996F: iny 009970 1 91 5F sta ($5F),y 009972 1 C8 iny 009973 1 8A txa 009974 1 91 5F sta ($5F),y 009976 1 20 2F 9A jsr L9A2F 009979 1 86 71 stx FBUFPT 00997B 1 85 72 sta $72 00997D 1 A4 22 ldy INDEX1 00997F 1 C6 0B dec COUNT 009981 1 D0 DC bne L995F 009983 1 65 59 adc $59 009985 1 B0 67 bcs L99EE 009987 1 85 59 sta $59 009989 1 A8 tay 00998A 1 8A txa 00998B 1 65 58 adc $58 00998D 1 90 03 bcc L9992 00998F 1 C8 iny 009990 1 F0 5C beq L99EE 009992 1 20 23 89 L9992: jsr L8923 009995 1 85 31 sta STREND 009997 1 84 32 sty $32 009999 1 A9 00 lda #$00 00999B 1 E6 72 inc $72 00999D 1 A4 71 ldy FBUFPT 00999F 1 F0 05 beq L99A6 0099A1 1 88 L99A1: dey 0099A2 1 91 58 sta ($58),y 0099A4 1 D0 FB bne L99A1 0099A6 1 C6 59 L99A6: dec $59 0099A8 1 C6 72 dec $72 0099AA 1 D0 F5 bne L99A1 0099AC 1 E6 59 inc $59 0099AE 1 38 sec 0099AF 1 A5 31 lda STREND 0099B1 1 E5 5F sbc $5F 0099B3 1 A0 02 ldy #$02 0099B5 1 91 5F sta ($5F),y 0099B7 1 A5 32 lda $32 0099B9 1 C8 iny 0099BA 1 E5 60 sbc $60 0099BC 1 91 5F sta ($5F),y 0099BE 1 A5 0C lda DIMFLG 0099C0 1 D0 6C bne L9A2E 0099C2 1 C8 iny 0099C3 1 20 D1 04 L99C3: jsr INDLOW 0099C6 1 85 0B sta COUNT 0099C8 1 A9 00 lda #$00 0099CA 1 85 71 sta FBUFPT 0099CC 1 85 72 L99CC: sta $72 0099CE 1 C8 iny 0099CF 1 68 pla 0099D0 1 AA tax 0099D1 1 85 64 sta $64 0099D3 1 20 D1 04 jsr INDLOW 0099D6 1 85 78 sta $78 0099D8 1 68 pla 0099D9 1 85 65 sta $65 0099DB 1 C5 78 cmp $78 0099DD 1 90 12 bcc L99F1 0099DF 1 D0 0A bne L99EB 0099E1 1 C8 iny 0099E2 1 20 D1 04 jsr INDLOW 0099E5 1 85 78 sta $78 0099E7 1 E4 78 cpx $78 0099E9 1 90 07 bcc L99F2 0099EB 1 4C 19 99 L99EB: jmp L9919 0099EE 1 0099EE 1 4C 81 86 L99EE: jmp L8681 0099F1 1 0099F1 1 C8 L99F1: iny 0099F2 1 A5 72 L99F2: lda $72 0099F4 1 05 71 ora FBUFPT 0099F6 1 18 clc 0099F7 1 F0 0A beq L9A03 0099F9 1 20 2F 9A jsr L9A2F 0099FC 1 8A txa 0099FD 1 65 64 adc $64 0099FF 1 AA tax 009A00 1 98 tya 009A01 1 A4 22 ldy INDEX1 009A03 1 65 65 L9A03: adc $65 009A05 1 86 71 stx FBUFPT 009A07 1 C6 0B dec COUNT 009A09 1 D0 C1 bne L99CC 009A0B 1 85 72 sta $72 009A0D 1 A2 05 ldx #$05 009A0F 1 A5 45 lda VARNAM 009A11 1 10 01 bpl L9A14 009A13 1 CA dex 009A14 1 A5 46 L9A14: lda $46 009A16 1 10 02 bpl L9A1A 009A18 1 CA dex 009A19 1 CA dex 009A1A 1 86 28 L9A1A: stx $28 009A1C 1 A9 00 lda #$00 009A1E 1 20 3A 9A jsr L9A3A 009A21 1 8A txa 009A22 1 65 58 adc $58 009A24 1 85 47 sta VARPNT 009A26 1 98 tya 009A27 1 65 59 adc $59 009A29 1 85 48 sta $48 009A2B 1 A8 tay 009A2C 1 A5 47 lda VARPNT 009A2E 1 60 L9A2E: rts 009A2F 1 009A2F 1 84 22 L9A2F: sty INDEX1 009A31 1 20 D1 04 jsr INDLOW 009A34 1 85 28 sta $28 009A36 1 88 dey 009A37 1 20 D1 04 jsr INDLOW 009A3A 1 85 29 L9A3A: sta $29 009A3C 1 A9 10 lda #$10 009A3E 1 85 5D sta $5D 009A40 1 A2 00 ldx #$00 009A42 1 A0 00 ldy #$00 009A44 1 8A L9A44: txa 009A45 1 0A asl a 009A46 1 AA tax 009A47 1 98 tya 009A48 1 2A rol a 009A49 1 A8 tay 009A4A 1 B0 A2 bcs L99EE 009A4C 1 06 71 asl FBUFPT 009A4E 1 26 72 rol $72 009A50 1 90 0B bcc L9A5D 009A52 1 18 clc 009A53 1 8A txa 009A54 1 65 28 adc $28 009A56 1 AA tax 009A57 1 98 tya 009A58 1 65 29 adc $29 009A5A 1 A8 tay 009A5B 1 B0 91 bcs L99EE 009A5D 1 C6 5D L9A5D: dec $5D 009A5F 1 D0 E3 bne L9A44 009A61 1 60 rts 009A62 1 009A62 1 A5 0D L9A62: lda VALTYP 009A64 1 F0 03 beq L9A69 009A66 1 20 4E 9C jsr L9C4E 009A69 1 20 54 A9 L9A69: jsr LA954 009A6C 1 38 sec 009A6D 1 A5 33 lda FRETOP 009A6F 1 E5 31 sbc STREND 009A71 1 A8 tay 009A72 1 A5 34 lda $34 009A74 1 E5 32 sbc $32 009A76 1 20 92 9A L9A76: jsr L9A92 009A79 1 38 sec 009A7A 1 4C CE A2 jmp LA2CE 009A7D 1 009A7D 1 38 L9A7D: sec 009A7E 1 20 F0 FF jsr kPLOT 009A81 1 A9 00 L9A81: lda #$00 009A83 1 4C 71 94 jmp L9471 009A86 1 009A86 1 24 81 L9A86: bit RUNMOD 009A88 1 30 A4 bmi L9A2E 009A8A 1 A2 15 ldx #$15 009A8C 1 2C .byte $2C 009A8D 1 A2 1B L9A8D: ldx #$1B 009A8F 1 4C 83 86 jmp L8683 009A92 1 009A92 1 A2 00 L9A92: ldx #$00 009A94 1 86 0D stx VALTYP 009A96 1 85 62 sta FACH0 009A98 1 84 63 sty $63 009A9A 1 A2 90 ldx #$90 009A9C 1 60 rts 009A9D 1 009A9D 1 20 CB 9A L9A9D: jsr L9ACB 009AA0 1 20 86 9A jsr L9A86 009AA3 1 20 8E 94 jsr L948E 009AA6 1 A9 80 lda #$80 009AA8 1 85 10 sta SUBFLG 009AAA 1 20 A5 96 jsr L96A5 009AAD 1 20 17 93 jsr L9317 009AB0 1 20 8B 94 jsr L948B 009AB3 1 A9 B2 lda #$B2 009AB5 1 20 93 94 jsr L9493 009AB8 1 48 pha 009AB9 1 A5 48 lda $48 009ABB 1 48 pha 009ABC 1 A5 47 lda VARPNT 009ABE 1 48 pha 009ABF 1 A5 3C lda $3C 009AC1 1 48 pha 009AC2 1 A5 3B lda TXTPTR 009AC4 1 48 pha 009AC5 1 20 B0 8D jsr L8DB0 009AC8 1 4C 3E 9B jmp L9B3E 009ACB 1 009ACB 1 A9 A5 L9ACB: lda #$A5 009ACD 1 20 93 94 jsr L9493 009AD0 1 09 80 ora #$80 009AD2 1 85 10 sta SUBFLG 009AD4 1 20 AC 96 jsr L96AC 009AD7 1 85 4E sta DEFPNT 009AD9 1 84 4F sty $4F 009ADB 1 4C 17 93 jmp L9317 009ADE 1 009ADE 1 20 CB 9A L9ADE: jsr L9ACB 009AE1 1 A5 4F lda $4F 009AE3 1 48 pha 009AE4 1 A5 4E lda DEFPNT 009AE6 1 48 pha 009AE7 1 20 85 94 jsr L9485 009AEA 1 20 17 93 jsr L9317 009AED 1 68 pla 009AEE 1 85 4E sta DEFPNT 009AF0 1 68 pla 009AF1 1 85 4F sta $4F 009AF3 1 A0 02 ldy #$02 009AF5 1 20 59 81 jsr L8159 009AF8 1 85 47 sta VARPNT 009AFA 1 AA tax 009AFB 1 C8 iny 009AFC 1 20 59 81 jsr L8159 009AFF 1 F0 8C beq L9A8D 009B01 1 85 48 sta $48 009B03 1 C8 iny 009B04 1 20 61 81 L9B04: jsr L8161 009B07 1 48 pha 009B08 1 88 dey 009B09 1 10 F9 bpl L9B04 009B0B 1 A4 48 ldy $48 009B0D 1 20 59 A2 jsr LA259 009B10 1 A5 3C lda $3C 009B12 1 48 pha 009B13 1 A5 3B lda TXTPTR 009B15 1 48 pha 009B16 1 20 59 81 jsr L8159 009B19 1 85 3B sta TXTPTR 009B1B 1 C8 iny 009B1C 1 20 59 81 jsr L8159 009B1F 1 85 3C sta $3C 009B21 1 A5 48 lda $48 009B23 1 48 pha 009B24 1 A5 47 lda VARPNT 009B26 1 48 pha 009B27 1 20 14 93 jsr L9314 009B2A 1 68 pla 009B2B 1 85 4E sta DEFPNT 009B2D 1 68 pla 009B2E 1 85 4F sta $4F 009B30 1 20 79 04 jsr CHRGOT 009B33 1 F0 03 beq L9B38 009B35 1 4C A1 94 jmp L94A1 009B38 1 009B38 1 68 L9B38: pla 009B39 1 85 3B sta TXTPTR 009B3B 1 68 pla 009B3C 1 85 3C sta $3C 009B3E 1 A0 00 L9B3E: ldy #$00 009B40 1 68 pla 009B41 1 91 4E sta (DEFPNT),y 009B43 1 68 pla 009B44 1 C8 iny 009B45 1 91 4E sta (DEFPNT),y 009B47 1 68 pla 009B48 1 C8 iny 009B49 1 91 4E sta (DEFPNT),y 009B4B 1 68 pla 009B4C 1 C8 iny 009B4D 1 91 4E sta (DEFPNT),y 009B4F 1 68 pla 009B50 1 C8 iny 009B51 1 91 4E sta (DEFPNT),y 009B53 1 60 rts 009B54 1 009B54 1 A6 64 L9B54: ldx $64 009B56 1 A4 65 ldy $65 009B58 1 86 50 stx DSCPNT 009B5A 1 84 51 sty $51 009B5C 1 20 06 A9 L9B5C: jsr LA906 009B5F 1 86 62 stx FACH0 009B61 1 84 63 sty $63 009B63 1 85 61 sta FACEXP 009B65 1 60 rts 009B66 1 009B66 1 20 17 93 L9B66: jsr L9317 009B69 1 A0 00 ldy #$00 009B6B 1 20 71 A4 jsr LA471 009B6E 1 68 pla 009B6F 1 68 pla 009B70 1 A9 FF L9B70: lda #$FF 009B72 1 A0 00 ldy #$00 009B74 1 A2 22 L9B74: ldx #$22 009B76 1 86 07 stx CHARAC 009B78 1 86 08 stx ENDCHR 009B7A 1 85 6F L9B7A: sta ARISGN 009B7C 1 84 70 sty FACOV 009B7E 1 85 62 sta FACH0 009B80 1 84 63 sty $63 009B82 1 A0 FF ldy #$FF 009B84 1 C8 L9B84: iny 009B85 1 20 C6 04 jsr INDST1 009B88 1 F0 0C beq L9B96 009B8A 1 C5 07 cmp CHARAC 009B8C 1 F0 04 beq L9B92 009B8E 1 C5 08 cmp ENDCHR 009B90 1 D0 F2 bne L9B84 009B92 1 C9 22 L9B92: cmp #$22 009B94 1 F0 01 beq L9B97 009B96 1 18 L9B96: clc 009B97 1 84 61 L9B97: sty FACEXP 009B99 1 98 tya 009B9A 1 65 6F adc ARISGN 009B9C 1 85 71 sta FBUFPT 009B9E 1 A6 70 ldx FACOV 009BA0 1 90 01 bcc L9BA3 009BA2 1 E8 inx 009BA3 1 86 72 L9BA3: stx $72 009BA5 1 98 tya 009BA6 1 20 54 9B jsr L9B54 009BA9 1 A6 6F ldx ARISGN 009BAB 1 A4 70 ldy FACOV 009BAD 1 20 2C 9C jsr L9C2C 009BB0 1 A6 16 L9BB0: ldx TEMPPT 009BB2 1 E0 22 cpx #$22 009BB4 1 D0 05 bne L9BBB 009BB6 1 A2 19 ldx #$19 009BB8 1 4C 83 86 jmp L8683 009BBB 1 009BBB 1 A5 61 L9BBB: lda FACEXP 009BBD 1 95 00 sta PDIR,x 009BBF 1 A5 62 lda FACH0 009BC1 1 95 01 sta PORT,x 009BC3 1 A5 63 lda $63 009BC5 1 95 02 sta SRCHTK,x 009BC7 1 A0 00 ldy #$00 009BC9 1 86 64 stx $64 009BCB 1 84 65 sty $65 009BCD 1 84 70 sty FACOV 009BCF 1 88 dey 009BD0 1 84 0D sty VALTYP 009BD2 1 86 17 stx LASTPT 009BD4 1 E8 inx 009BD5 1 E8 inx 009BD6 1 E8 inx 009BD7 1 86 16 stx TEMPPT 009BD9 1 60 rts 009BDA 1 009BDA 1 A5 65 L9BDA: lda $65 009BDC 1 48 pha 009BDD 1 A5 64 lda $64 009BDF 1 48 pha 009BE0 1 20 14 94 jsr L9414 009BE3 1 20 1A 93 jsr L931A 009BE6 1 68 pla 009BE7 1 85 6F sta ARISGN 009BE9 1 68 pla 009BEA 1 85 70 sta FACOV 009BEC 1 A0 00 ldy #$00 009BEE 1 20 C6 04 jsr INDST1 009BF1 1 85 78 sta $78 009BF3 1 20 DC 04 jsr INDFMO 009BF6 1 18 clc 009BF7 1 65 78 adc $78 009BF9 1 90 03 bcc L9BFE 009BFB 1 4C 4C CC jmp LCC4C 009BFE 1 009BFE 1 20 54 9B L9BFE: jsr L9B54 009C01 1 20 1B 9C jsr L9C1B 009C04 1 A5 50 lda DSCPNT 009C06 1 A4 51 ldy $51 009C08 1 20 52 9C jsr L9C52 009C0B 1 20 30 9C jsr L9C30 009C0E 1 A5 6F lda ARISGN 009C10 1 A4 70 ldy FACOV 009C12 1 20 52 9C jsr L9C52 009C15 1 20 B0 9B jsr L9BB0 009C18 1 4C 46 93 jmp L9346 009C1B 1 009C1B 1 A0 00 L9C1B: ldy #$00 009C1D 1 20 C6 04 jsr INDST1 009C20 1 48 pha 009C21 1 C8 iny 009C22 1 20 C6 04 jsr INDST1 009C25 1 AA tax 009C26 1 C8 iny 009C27 1 20 C6 04 jsr INDST1 009C2A 1 A8 tay 009C2B 1 68 pla 009C2C 1 86 22 L9C2C: stx INDEX1 009C2E 1 84 23 sty $23 009C30 1 A8 L9C30: tay 009C31 1 F0 0B beq L9C3E 009C33 1 48 pha 009C34 1 88 L9C34: dey 009C35 1 20 B0 04 jsr INDIN1 009C38 1 91 35 sta (FRESPC),y 009C3A 1 98 tya 009C3B 1 D0 F7 bne L9C34 009C3D 1 68 pla 009C3E 1 18 L9C3E: clc 009C3F 1 65 35 adc FRESPC 009C41 1 85 35 sta FRESPC 009C43 1 90 02 bcc L9C47 009C45 1 E6 36 inc $36 009C47 1 60 L9C47: rts 009C48 1 009C48 1 20 2C 93 L9C48: jsr L932C 009C4B 1 20 1A 93 L9C4B: jsr L931A 009C4E 1 A5 64 L9C4E: lda $64 009C50 1 A4 65 ldy $65 009C52 1 85 22 L9C52: sta INDEX1 009C54 1 84 23 sty $23 009C56 1 20 AA 9C jsr L9CAA 009C59 1 D0 39 bne L9C94 009C5B 1 20 9C 8F jsr L8F9C 009C5E 1 90 34 bcc L9C94 009C60 1 88 dey 009C61 1 A9 FF lda #$FF 009C63 1 91 22 sta (INDEX1),y 009C65 1 88 dey 009C66 1 8A txa 009C67 1 91 22 sta (INDEX1),y 009C69 1 48 pha 009C6A 1 49 FF eor #$FF 009C6C 1 38 sec 009C6D 1 65 22 adc INDEX1 009C6F 1 A4 23 ldy $23 009C71 1 B0 01 bcs L9C74 009C73 1 88 dey 009C74 1 85 22 L9C74: sta INDEX1 009C76 1 84 23 sty $23 009C78 1 AA tax 009C79 1 68 pla 009C7A 1 C4 34 cpy $34 009C7C 1 D0 3C bne L9CBA 009C7E 1 E4 33 cpx FRETOP 009C80 1 D0 38 bne L9CBA 009C82 1 48 pha 009C83 1 38 sec 009C84 1 65 33 adc FRETOP 009C86 1 85 33 sta FRETOP 009C88 1 90 02 bcc L9C8C 009C8A 1 E6 34 inc $34 009C8C 1 E6 33 L9C8C: inc FRETOP 009C8E 1 D0 02 bne L9C92 009C90 1 E6 34 inc $34 009C92 1 68 L9C92: pla 009C93 1 60 rts 009C94 1 009C94 1 A0 00 L9C94: ldy #$00 009C96 1 20 B0 04 jsr INDIN1 009C99 1 48 pha 009C9A 1 C8 iny 009C9B 1 20 B0 04 jsr INDIN1 009C9E 1 AA tax 009C9F 1 C8 iny 009CA0 1 20 B0 04 jsr INDIN1 009CA3 1 A8 tay 009CA4 1 86 22 stx INDEX1 009CA6 1 84 23 sty $23 009CA8 1 68 pla 009CA9 1 60 rts 009CAA 1 009CAA 1 C4 18 L9CAA: cpy $18 009CAC 1 D0 0C bne L9CBA 009CAE 1 C5 17 cmp LASTPT 009CB0 1 D0 08 bne L9CBA 009CB2 1 85 16 sta TEMPPT 009CB4 1 E9 03 sbc #$03 009CB6 1 85 17 sta LASTPT 009CB8 1 A0 00 ldy #$00 009CBA 1 60 L9CBA: rts 009CBB 1 009CBB 1 20 87 9D L9CBB: jsr L9D87 009CBE 1 8A txa 009CBF 1 48 pha 009CC0 1 A9 01 lda #$01 009CC2 1 20 5C 9B jsr L9B5C 009CC5 1 68 pla 009CC6 1 A0 00 ldy #$00 009CC8 1 91 62 sta (FACH0),y 009CCA 1 68 L9CCA: pla 009CCB 1 68 pla 009CCC 1 4C B0 9B jmp L9BB0 009CCF 1 009CCF 1 20 46 9D L9CCF: jsr L9D46 009CD2 1 48 pha 009CD3 1 20 81 81 jsr L8181 009CD6 1 85 78 sta $78 009CD8 1 68 pla 009CD9 1 C5 78 cmp $78 009CDB 1 98 tya 009CDC 1 90 05 L9CDC: bcc L9CE3 009CDE 1 20 81 81 jsr L8181 009CE1 1 AA tax 009CE2 1 98 tya 009CE3 1 48 L9CE3: pha 009CE4 1 8A L9CE4: txa 009CE5 1 48 L9CE5: pha 009CE6 1 20 5C 9B jsr L9B5C 009CE9 1 A5 50 lda DSCPNT 009CEB 1 A4 51 ldy $51 009CED 1 20 52 9C jsr L9C52 009CF0 1 68 pla 009CF1 1 A8 tay 009CF2 1 68 pla 009CF3 1 18 clc 009CF4 1 65 22 adc INDEX1 009CF6 1 85 22 sta INDEX1 009CF8 1 90 02 bcc L9CFC 009CFA 1 E6 23 inc $23 009CFC 1 98 L9CFC: tya 009CFD 1 20 30 9C jsr L9C30 009D00 1 4C B0 9B jmp L9BB0 009D03 1 009D03 1 20 46 9D L9D03: jsr L9D46 009D06 1 48 pha 009D07 1 20 81 81 jsr L8181 009D0A 1 85 78 sta $78 009D0C 1 68 pla 009D0D 1 18 clc 009D0E 1 E5 78 sbc $78 009D10 1 49 FF eor #$FF 009D12 1 4C DC 9C jmp L9CDC 009D15 1 009D15 1 A9 FF L9D15: lda #$FF 009D17 1 85 65 sta $65 009D19 1 20 79 04 jsr CHRGOT 009D1C 1 C9 29 cmp #$29 009D1E 1 F0 06 beq L9D26 009D20 1 20 91 94 jsr L9491 009D23 1 20 84 9D jsr L9D84 009D26 1 20 46 9D L9D26: jsr L9D46 009D29 1 F0 53 beq L9D7E 009D2B 1 CA dex 009D2C 1 8A txa 009D2D 1 48 pha 009D2E 1 A2 00 ldx #$00 009D30 1 48 pha 009D31 1 20 81 81 jsr L8181 009D34 1 85 78 sta $78 009D36 1 68 pla 009D37 1 18 clc 009D38 1 E5 78 sbc $78 009D3A 1 B0 A8 bcs L9CE4 009D3C 1 49 FF eor #$FF 009D3E 1 C5 65 cmp $65 009D40 1 90 A3 bcc L9CE5 009D42 1 A5 65 lda $65 009D44 1 B0 9F bcs L9CE5 009D46 1 20 8B 94 L9D46: jsr L948B 009D49 1 68 pla 009D4A 1 A8 tay 009D4B 1 68 pla 009D4C 1 85 55 sta $55 009D4E 1 68 pla 009D4F 1 68 pla 009D50 1 68 pla 009D51 1 AA tax 009D52 1 68 pla 009D53 1 85 50 sta DSCPNT 009D55 1 68 pla 009D56 1 85 51 sta $51 009D58 1 A5 55 lda $55 009D5A 1 48 pha 009D5B 1 98 tya 009D5C 1 48 pha 009D5D 1 A0 00 ldy #$00 009D5F 1 8A txa 009D60 1 60 rts 009D61 1 009D61 1 20 67 9D L9D61: jsr L9D67 009D64 1 4C 81 9A jmp L9A81 009D67 1 009D67 1 20 4B 9C L9D67: jsr L9C4B 009D6A 1 A2 00 ldx #$00 009D6C 1 86 0D stx VALTYP 009D6E 1 A8 tay 009D6F 1 60 rts 009D70 1 009D70 1 20 67 9D L9D70: jsr L9D67 009D73 1 F0 06 beq L9D7B 009D75 1 A0 00 ldy #$00 009D77 1 20 B0 04 jsr INDIN1 009D7A 1 A8 tay 009D7B 1 4C 81 9A L9D7B: jmp L9A81 009D7E 1 009D7E 1 4C 1C 99 L9D7E: jmp L991C 009D81 1 009D81 1 20 73 04 L9D81: jsr CHRGET 009D84 1 20 14 93 L9D84: jsr L9314 009D87 1 20 7F 98 L9D87: jsr L987F 009D8A 1 A6 64 ldx $64 009D8C 1 D0 F0 bne L9D7E 009D8E 1 A6 65 ldx $65 009D90 1 4C 79 04 jmp CHRGOT 009D93 1 009D93 1 20 67 9D L9D93: jsr L9D67 009D96 1 F0 37 beq L9DCF 009D98 1 A6 3B ldx TXTPTR 009D9A 1 A4 3C ldy $3C 009D9C 1 86 71 stx FBUFPT 009D9E 1 84 72 sty $72 009DA0 1 A6 22 ldx INDEX1 009DA2 1 86 3B stx TXTPTR 009DA4 1 18 clc 009DA5 1 65 22 adc INDEX1 009DA7 1 85 24 sta INDEX2 009DA9 1 A6 23 ldx $23 009DAB 1 86 3C stx $3C 009DAD 1 90 01 bcc L9DB0 009DAF 1 E8 inx 009DB0 1 86 25 L9DB0: stx $25 009DB2 1 A0 00 ldy #$00 009DB4 1 20 BB 04 jsr INDIN2 009DB7 1 48 pha 009DB8 1 98 tya 009DB9 1 91 24 sta (INDEX2),y 009DBB 1 20 79 04 jsr CHRGOT 009DBE 1 20 7F A3 jsr LA37F 009DC1 1 68 pla 009DC2 1 A0 00 ldy #$00 009DC4 1 91 24 sta (INDEX2),y 009DC6 1 A6 71 L9DC6: ldx FBUFPT 009DC8 1 A4 72 ldy $72 009DCA 1 86 3B stx TXTPTR 009DCC 1 84 3C sty $3C 009DCE 1 60 rts 009DCF 1 009DCF 1 4C 2B 9F L9DCF: jmp L9F2B 009DD2 1 009DD2 1 20 14 93 L9DD2: jsr L9314 009DD5 1 20 E4 9D jsr L9DE4 009DD8 1 20 91 94 L9DD8: jsr L9491 009DDB 1 4C 84 9D jmp L9D84 009DDE 1 009DDE 1 20 91 94 L9DDE: jsr L9491 009DE1 1 20 14 93 L9DE1: jsr L9314 009DE4 1 A5 66 L9DE4: lda FACSGN 009DE6 1 30 96 bmi L9D7E 009DE8 1 A5 61 L9DE8: lda FACEXP 009DEA 1 C9 91 cmp #$91 009DEC 1 B0 90 bcs L9D7E 009DEE 1 20 27 A3 jsr LA327 009DF1 1 A5 64 lda $64 009DF3 1 A4 65 ldy $65 009DF5 1 84 14 sty LINNUM 009DF7 1 85 15 sta $15 009DF9 1 60 rts 009DFA 1 009DFA 1 A5 15 L9DFA: lda $15 009DFC 1 48 pha 009DFD 1 A5 14 lda LINNUM 009DFF 1 48 pha 009E00 1 20 E4 9D jsr L9DE4 009E03 1 A0 00 ldy #$00 009E05 1 20 5D 81 jsr L815D 009E08 1 A8 tay 009E09 1 68 pla 009E0A 1 85 14 sta LINNUM 009E0C 1 68 pla 009E0D 1 85 15 sta $15 009E0F 1 4C 81 9A jmp L9A81 009E12 1 009E12 1 20 D2 9D L9E12: jsr L9DD2 009E15 1 8A txa 009E16 1 A0 00 ldy #$00 009E18 1 91 14 sta (LINNUM),y 009E1A 1 60 rts 009E1B 1 009E1B 1 20 67 9D L9E1B: jsr L9D67 009E1E 1 85 24 sta INDEX2 009E20 1 A0 00 ldy #$00 009E22 1 84 25 sty $25 009E24 1 84 71 sty FBUFPT 009E26 1 84 72 sty $72 009E28 1 C4 24 L9E28: cpy INDEX2 009E2A 1 F0 34 beq L9E60 009E2C 1 20 B0 04 jsr INDIN1 009E2F 1 C8 iny 009E30 1 C9 20 cmp #$20 009E32 1 F0 F4 beq L9E28 009E34 1 E6 25 inc $25 009E36 1 A6 25 ldx $25 009E38 1 E0 05 cpx #$05 009E3A 1 F0 2B beq L9E67 009E3C 1 C9 30 cmp #$30 009E3E 1 90 27 bcc L9E67 009E40 1 C9 3A cmp #$3A 009E42 1 90 0A bcc L9E4E 009E44 1 C9 41 cmp #$41 009E46 1 90 1F bcc L9E67 009E48 1 C9 47 cmp #$47 009E4A 1 B0 1B bcs L9E67 009E4C 1 E9 07 sbc #$07 009E4E 1 E9 2F L9E4E: sbc #$2F 009E50 1 0A asl a 009E51 1 0A asl a 009E52 1 0A asl a 009E53 1 0A asl a 009E54 1 A2 04 ldx #$04 009E56 1 0A L9E56: asl a 009E57 1 26 71 rol FBUFPT 009E59 1 26 72 rol $72 009E5B 1 CA dex 009E5C 1 D0 F8 bne L9E56 009E5E 1 F0 C8 beq L9E28 009E60 1 A4 71 L9E60: ldy FBUFPT 009E62 1 A5 72 lda $72 009E64 1 4C 76 9A jmp L9A76 009E67 1 009E67 1 4C 1C 99 L9E67: jmp L991C 009E6A 1 009E6A 1 20 D2 9D L9E6A: jsr L9DD2 009E6D 1 86 49 stx FORPNT 009E6F 1 A2 00 ldx #$00 009E71 1 20 79 04 jsr CHRGOT 009E74 1 F0 03 beq L9E79 009E76 1 20 D8 9D jsr L9DD8 009E79 1 86 4A L9E79: stx $4A 009E7B 1 A0 00 ldy #$00 009E7D 1 20 5D 81 L9E7D: jsr L815D 009E80 1 45 4A eor $4A 009E82 1 25 49 and FORPNT 009E84 1 F0 F7 beq L9E7D 009E86 1 60 L9E86: rts 009E87 1 009E87 1 A5 66 L9E87: lda FACSGN 009E89 1 49 FF eor #$FF 009E8B 1 85 66 sta FACSGN 009E8D 1 45 6E eor ARGSGN 009E8F 1 85 6F sta ARISGN 009E91 1 A5 61 lda FACEXP 009E93 1 4C 9E 9E jmp L9E9E 009E96 1 009E96 1 20 CD 9F L9E96: jsr L9FCD 009E99 1 90 3C bcc L9ED7 009E9B 1 20 07 A1 L9E9B: jsr LA107 009E9E 1 D0 03 L9E9E: bne L9EA3 009EA0 1 4C 81 A2 jmp LA281 009EA3 1 009EA3 1 A6 70 L9EA3: ldx FACOV 009EA5 1 86 56 stx $56 009EA7 1 A2 69 ldx #$69 009EA9 1 A5 69 lda ARGEXP 009EAB 1 A8 L9EAB: tay 009EAC 1 F0 D8 beq L9E86 009EAE 1 38 sec 009EAF 1 E5 61 sbc FACEXP 009EB1 1 F0 24 beq L9ED7 009EB3 1 90 12 bcc L9EC7 009EB5 1 84 61 sty FACEXP 009EB7 1 A4 6E ldy ARGSGN 009EB9 1 84 66 sty FACSGN 009EBB 1 49 FF eor #$FF 009EBD 1 69 00 adc #$00 009EBF 1 A0 00 ldy #$00 009EC1 1 84 56 sty $56 009EC3 1 A2 61 ldx #$61 009EC5 1 D0 04 bne L9ECB 009EC7 1 A0 00 L9EC7: ldy #$00 009EC9 1 84 70 sty FACOV 009ECB 1 C9 F9 L9ECB: cmp #$F9 009ECD 1 30 C7 bmi L9E96 009ECF 1 A8 tay 009ED0 1 A5 70 lda FACOV 009ED2 1 56 01 lsr PORT,x 009ED4 1 20 E4 9F jsr L9FE4 009ED7 1 24 6F L9ED7: bit ARISGN 009ED9 1 10 57 bpl L9F32 009EDB 1 A0 61 ldy #$61 009EDD 1 E0 69 cpx #$69 009EDF 1 F0 02 beq L9EE3 009EE1 1 A0 69 ldy #$69 009EE3 1 38 L9EE3: sec 009EE4 1 49 FF eor #$FF 009EE6 1 65 56 adc $56 009EE8 1 85 70 sta FACOV 009EEA 1 B9 04 00 lda $04,y 009EED 1 F5 04 sbc $04,x 009EEF 1 85 65 sta $65 009EF1 1 B9 03 00 lda ZPVEC1,y 009EF4 1 F5 03 sbc ZPVEC1,x 009EF6 1 85 64 sta $64 009EF8 1 B9 02 00 lda SRCHTK,y 009EFB 1 F5 02 sbc SRCHTK,x 009EFD 1 85 63 sta $63 009EFF 1 B9 01 00 lda PORT,y 009F02 1 F5 01 sbc PORT,x 009F04 1 85 62 sta FACH0 009F06 1 B0 03 L9F06: bcs L9F0B 009F08 1 20 7B 9F jsr L9F7B 009F0B 1 A0 00 L9F0B: ldy #$00 009F0D 1 98 tya 009F0E 1 18 clc 009F0F 1 A6 62 L9F0F: ldx FACH0 009F11 1 D0 4A bne L9F5D 009F13 1 A6 63 ldx $63 009F15 1 86 62 stx FACH0 009F17 1 A6 64 ldx $64 009F19 1 86 63 stx $63 009F1B 1 A6 65 ldx $65 009F1D 1 86 64 stx $64 009F1F 1 A6 70 ldx FACOV 009F21 1 86 65 stx $65 009F23 1 84 70 sty FACOV 009F25 1 69 08 adc #$08 009F27 1 C9 20 cmp #$20 009F29 1 D0 E4 bne L9F0F 009F2B 1 A9 00 L9F2B: lda #$00 009F2D 1 85 61 L9F2D: sta FACEXP 009F2F 1 85 66 L9F2F: sta FACSGN 009F31 1 60 rts 009F32 1 009F32 1 65 56 L9F32: adc $56 009F34 1 85 70 sta FACOV 009F36 1 A5 65 lda $65 009F38 1 65 6D adc $6D 009F3A 1 85 65 sta $65 009F3C 1 A5 64 lda $64 009F3E 1 65 6C adc $6C 009F40 1 85 64 sta $64 009F42 1 A5 63 lda $63 009F44 1 65 6B adc $6B 009F46 1 85 63 sta $63 009F48 1 A5 62 lda FACH0 009F4A 1 65 6A adc ARGH0 009F4C 1 85 62 sta FACH0 009F4E 1 4C 6A 9F jmp L9F6A 009F51 1 009F51 1 69 01 L9F51: adc #$01 009F53 1 06 70 asl FACOV 009F55 1 26 65 rol $65 009F57 1 26 64 rol $64 009F59 1 26 63 rol $63 009F5B 1 26 62 rol FACH0 009F5D 1 10 F2 L9F5D: bpl L9F51 009F5F 1 38 sec 009F60 1 E5 61 sbc FACEXP 009F62 1 B0 C7 bcs L9F2B 009F64 1 49 FF eor #$FF 009F66 1 69 01 adc #$01 009F68 1 85 61 sta FACEXP 009F6A 1 90 0E L9F6A: bcc L9F7A 009F6C 1 E6 61 L9F6C: inc FACEXP 009F6E 1 F0 42 beq L9FB2 009F70 1 66 62 ror FACH0 009F72 1 66 63 ror $63 009F74 1 66 64 ror $64 009F76 1 66 65 ror $65 009F78 1 66 70 ror FACOV 009F7A 1 60 L9F7A: rts 009F7B 1 009F7B 1 A5 66 L9F7B: lda FACSGN 009F7D 1 49 FF eor #$FF 009F7F 1 85 66 sta FACSGN 009F81 1 A5 62 L9F81: lda FACH0 009F83 1 49 FF eor #$FF 009F85 1 85 62 sta FACH0 009F87 1 A5 63 lda $63 009F89 1 49 FF eor #$FF 009F8B 1 85 63 sta $63 009F8D 1 A5 64 lda $64 009F8F 1 49 FF eor #$FF 009F91 1 85 64 sta $64 009F93 1 A5 65 lda $65 009F95 1 49 FF eor #$FF 009F97 1 85 65 sta $65 009F99 1 A5 70 lda FACOV 009F9B 1 49 FF eor #$FF 009F9D 1 85 70 sta FACOV 009F9F 1 E6 70 inc FACOV 009FA1 1 D0 0E bne L9FB1 009FA3 1 E6 65 L9FA3: inc $65 009FA5 1 D0 0A bne L9FB1 009FA7 1 E6 64 inc $64 009FA9 1 D0 06 bne L9FB1 009FAB 1 E6 63 inc $63 009FAD 1 D0 02 bne L9FB1 009FAF 1 E6 62 inc FACH0 009FB1 1 60 L9FB1: rts 009FB2 1 009FB2 1 A2 0F L9FB2: ldx #$0F 009FB4 1 4C 83 86 jmp L8683 009FB7 1 009FB7 1 A2 25 L9FB7: ldx #$25 009FB9 1 B4 04 L9FB9: ldy $04,x 009FBB 1 84 70 sty FACOV 009FBD 1 B4 03 ldy ZPVEC1,x 009FBF 1 94 04 sty $04,x 009FC1 1 B4 02 ldy SRCHTK,x 009FC3 1 94 03 sty ZPVEC1,x 009FC5 1 B4 01 ldy PORT,x 009FC7 1 94 02 sty SRCHTK,x 009FC9 1 A4 68 ldy BITS 009FCB 1 94 01 sty PORT,x 009FCD 1 69 08 L9FCD: adc #$08 009FCF 1 30 E8 bmi L9FB9 009FD1 1 F0 E6 beq L9FB9 009FD3 1 E9 08 sbc #$08 009FD5 1 A8 tay 009FD6 1 A5 70 lda FACOV 009FD8 1 B0 14 bcs L9FEE 009FDA 1 16 01 L9FDA: asl PORT,x 009FDC 1 90 02 bcc L9FE0 009FDE 1 F6 01 inc PORT,x 009FE0 1 76 01 L9FE0: ror PORT,x 009FE2 1 76 01 ror PORT,x 009FE4 1 76 02 L9FE4: ror SRCHTK,x 009FE6 1 76 03 ror ZPVEC1,x 009FE8 1 76 04 ror $04,x 009FEA 1 6A ror a 009FEB 1 C8 iny 009FEC 1 D0 EC bne L9FDA 009FEE 1 18 L9FEE: clc 009FEF 1 60 rts 009FF0 1 009FF0 1 81 00 00 00 L9FF0: .byte $81,$00,$00,$00,$00 009FF4 1 00 009FF5 1 03 L9FF5: .byte $03 009FF6 1 7F 5E 56 CB L9FF6: .byte $7F,$5E,$56,$CB,$79 009FFA 1 79 009FFB 1 80 13 9B 0B L9FFB: .byte $80,$13,$9B,$0B,$64 009FFF 1 64 00A000 1 80 76 38 93 LA000: .byte $80,$76,$38,$93,$16 00A004 1 16 00A005 1 82 38 AA 3B LA005: .byte $82,$38,$AA,$3B,$20 00A009 1 20 00A00A 1 80 35 04 F3 LA00A: .byte $80,$35,$04,$F3,$34 00A00E 1 34 00A00F 1 81 35 04 F3 LA00F: .byte $81,$35,$04,$F3,$34 00A013 1 34 00A014 1 80 80 00 00 LA014: .byte $80,$80,$00,$00,$00 00A018 1 00 00A019 1 80 31 72 17 LA019: .byte $80,$31,$72,$17,$F8 00A01D 1 F8 00A01E 1 20 B0 A2 LA01E: jsr LA2B0 00A021 1 F0 02 beq LA025 00A023 1 10 03 bpl LA028 00A025 1 4C 1C 99 LA025: jmp L991C 00A028 1 00A028 1 A5 61 LA028: lda FACEXP 00A02A 1 E9 7F sbc #$7F 00A02C 1 48 pha 00A02D 1 A9 80 lda #$80 00A02F 1 85 61 sta FACEXP 00A031 1 A9 0A lda #$0A 00A033 1 A0 A0 ldy #$A0 00A035 1 20 66 A0 jsr LA066 00A038 1 A9 0F lda #$0F 00A03A 1 A0 A0 ldy #$A0 00A03C 1 20 72 A0 jsr LA072 00A03F 1 A9 F0 lda #$F0 00A041 1 A0 9F ldy #$9F 00A043 1 20 6C A0 jsr LA06C 00A046 1 A9 F5 lda #$F5 00A048 1 A0 9F ldy #$9F 00A04A 1 20 B3 A6 jsr LA6B3 00A04D 1 A9 14 lda #$14 00A04F 1 A0 A0 ldy #$A0 00A051 1 20 66 A0 jsr LA066 00A054 1 68 pla 00A055 1 20 0A A4 jsr LA40A 00A058 1 A9 19 lda #$19 00A05A 1 A0 A0 ldy #$A0 00A05C 1 20 DC A0 LA05C: jsr LA0DC 00A05F 1 4C 7B A0 jmp LA07B 00A062 1 00A062 1 A9 A3 LA062: lda #$A3 00A064 1 A0 A5 ldy #$A5 00A066 1 20 DC A0 LA066: jsr LA0DC 00A069 1 4C 9E 9E jmp L9E9E 00A06C 1 00A06C 1 20 DC A0 LA06C: jsr LA0DC 00A06F 1 4C 87 9E jmp L9E87 00A072 1 00A072 1 20 DC A0 LA072: jsr LA0DC 00A075 1 4C 97 A1 jmp LA197 00A078 1 00A078 1 20 07 A1 LA078: jsr LA107 00A07B 1 D0 03 LA07B: bne LA080 00A07D 1 4C DB A0 jmp LA0DB 00A080 1 00A080 1 20 37 A1 LA080: jsr LA137 00A083 1 A9 00 lda #$00 00A085 1 85 26 sta RESH0 00A087 1 85 27 sta $27 00A089 1 85 28 sta $28 00A08B 1 85 29 sta $29 00A08D 1 A5 70 lda FACOV 00A08F 1 20 A9 A0 jsr LA0A9 00A092 1 A5 65 lda $65 00A094 1 20 A9 A0 jsr LA0A9 00A097 1 A5 64 lda $64 00A099 1 20 A9 A0 jsr LA0A9 00A09C 1 A5 63 lda $63 00A09E 1 20 A9 A0 jsr LA0A9 00A0A1 1 A5 62 lda FACH0 00A0A3 1 20 AE A0 jsr LA0AE 00A0A6 1 4C 0C A2 jmp LA20C 00A0A9 1 00A0A9 1 D0 03 LA0A9: bne LA0AE 00A0AB 1 4C B7 9F jmp L9FB7 00A0AE 1 00A0AE 1 4A LA0AE: lsr a 00A0AF 1 09 80 ora #$80 00A0B1 1 A8 LA0B1: tay 00A0B2 1 90 19 bcc LA0CD 00A0B4 1 18 clc 00A0B5 1 A5 29 lda $29 00A0B7 1 65 6D adc $6D 00A0B9 1 85 29 sta $29 00A0BB 1 A5 28 lda $28 00A0BD 1 65 6C adc $6C 00A0BF 1 85 28 sta $28 00A0C1 1 A5 27 lda $27 00A0C3 1 65 6B adc $6B 00A0C5 1 85 27 sta $27 00A0C7 1 A5 26 lda RESH0 00A0C9 1 65 6A adc ARGH0 00A0CB 1 85 26 sta RESH0 00A0CD 1 66 26 LA0CD: ror RESH0 00A0CF 1 66 27 ror $27 00A0D1 1 66 28 ror $28 00A0D3 1 66 29 ror $29 00A0D5 1 66 70 ror FACOV 00A0D7 1 98 tya 00A0D8 1 4A lsr a 00A0D9 1 D0 D6 bne LA0B1 00A0DB 1 60 LA0DB: rts 00A0DC 1 00A0DC 1 85 22 LA0DC: sta INDEX1 00A0DE 1 84 23 sty $23 00A0E0 1 A0 04 ldy #$04 00A0E2 1 B1 22 lda (INDEX1),y 00A0E4 1 85 6D sta $6D 00A0E6 1 88 dey 00A0E7 1 B1 22 lda (INDEX1),y 00A0E9 1 85 6C sta $6C 00A0EB 1 88 dey 00A0EC 1 B1 22 lda (INDEX1),y 00A0EE 1 85 6B sta $6B 00A0F0 1 88 dey 00A0F1 1 B1 22 lda (INDEX1),y 00A0F3 1 85 6E sta ARGSGN 00A0F5 1 45 66 eor FACSGN 00A0F7 1 85 6F sta ARISGN 00A0F9 1 A5 6E lda ARGSGN 00A0FB 1 09 80 ora #$80 00A0FD 1 85 6A sta ARGH0 00A0FF 1 88 dey 00A100 1 B1 22 lda (INDEX1),y 00A102 1 85 69 sta ARGEXP 00A104 1 A5 61 lda FACEXP 00A106 1 60 rts 00A107 1 00A107 1 85 22 LA107: sta INDEX1 00A109 1 84 23 sty $23 00A10B 1 A0 04 ldy #$04 00A10D 1 20 B0 04 jsr INDIN1 00A110 1 85 6D sta $6D 00A112 1 88 dey 00A113 1 20 B0 04 jsr INDIN1 00A116 1 85 6C sta $6C 00A118 1 88 dey 00A119 1 20 B0 04 jsr INDIN1 00A11C 1 85 6B sta $6B 00A11E 1 88 dey 00A11F 1 20 B0 04 jsr INDIN1 00A122 1 85 6E sta ARGSGN 00A124 1 45 66 eor FACSGN 00A126 1 85 6F sta ARISGN 00A128 1 A5 6E lda ARGSGN 00A12A 1 09 80 ora #$80 00A12C 1 85 6A sta ARGH0 00A12E 1 88 dey 00A12F 1 20 B0 04 jsr INDIN1 00A132 1 85 69 sta ARGEXP 00A134 1 A5 61 lda FACEXP 00A136 1 60 rts 00A137 1 00A137 1 A5 69 LA137: lda ARGEXP 00A139 1 F0 1F LA139: beq LA15A 00A13B 1 18 clc 00A13C 1 65 61 adc FACEXP 00A13E 1 90 04 bcc LA144 00A140 1 30 1D bmi LA15F 00A142 1 18 clc 00A143 1 2C .byte $2C 00A144 1 10 14 LA144: bpl LA15A 00A146 1 69 80 adc #$80 00A148 1 85 61 sta FACEXP 00A14A 1 D0 03 bne LA14F 00A14C 1 4C 2F 9F jmp L9F2F 00A14F 1 00A14F 1 A5 6F LA14F: lda ARISGN 00A151 1 85 66 sta FACSGN 00A153 1 60 rts 00A154 1 00A154 1 A5 66 LA154: lda FACSGN 00A156 1 49 FF eor #$FF 00A158 1 30 05 bmi LA15F 00A15A 1 68 LA15A: pla 00A15B 1 68 pla 00A15C 1 4C 2B 9F jmp L9F2B 00A15F 1 00A15F 1 4C B2 9F LA15F: jmp L9FB2 00A162 1 00A162 1 20 91 A2 LA162: jsr LA291 00A165 1 AA tax 00A166 1 F0 10 beq LA178 00A168 1 18 clc 00A169 1 69 02 adc #$02 00A16B 1 B0 F2 bcs LA15F 00A16D 1 A2 00 LA16D: ldx #$00 00A16F 1 86 6F stx ARISGN 00A171 1 20 AB 9E jsr L9EAB 00A174 1 E6 61 inc FACEXP 00A176 1 F0 E7 beq LA15F 00A178 1 60 LA178: rts 00A179 1 00A179 1 84 20 00 00 .byte $84,$20,$00,$00,$00 00A17D 1 00 00A17E 1 A2 14 LA17E: ldx #$14 00A180 1 4C 83 86 jmp L8683 00A183 1 00A183 1 20 91 A2 LA183: jsr LA291 00A186 1 A9 79 lda #$79 00A188 1 A0 A1 ldy #$A1 00A18A 1 A2 00 ldx #$00 00A18C 1 86 6F LA18C: stx ARISGN 00A18E 1 20 21 A2 jsr LA221 00A191 1 4C 97 A1 jmp LA197 00A194 1 00A194 1 20 07 A1 LA194: jsr LA107 00A197 1 F0 E5 LA197: beq LA17E 00A199 1 20 A0 A2 jsr LA2A0 00A19C 1 A9 00 lda #$00 00A19E 1 38 sec 00A19F 1 E5 61 sbc FACEXP 00A1A1 1 85 61 sta FACEXP 00A1A3 1 20 37 A1 jsr LA137 00A1A6 1 E6 61 inc FACEXP 00A1A8 1 F0 B5 beq LA15F 00A1AA 1 A2 FC ldx #$FC 00A1AC 1 A9 01 lda #$01 00A1AE 1 A4 6A LA1AE: ldy ARGH0 00A1B0 1 C4 62 cpy FACH0 00A1B2 1 D0 10 bne LA1C4 00A1B4 1 A4 6B ldy $6B 00A1B6 1 C4 63 cpy $63 00A1B8 1 D0 0A bne LA1C4 00A1BA 1 A4 6C ldy $6C 00A1BC 1 C4 64 cpy $64 00A1BE 1 D0 04 bne LA1C4 00A1C0 1 A4 6D ldy $6D 00A1C2 1 C4 65 cpy $65 00A1C4 1 08 LA1C4: php 00A1C5 1 2A rol a 00A1C6 1 90 09 bcc LA1D1 00A1C8 1 E8 inx 00A1C9 1 95 29 sta $29,x 00A1CB 1 F0 32 beq LA1FF 00A1CD 1 10 34 bpl LA203 00A1CF 1 A9 01 lda #$01 00A1D1 1 28 LA1D1: plp 00A1D2 1 B0 0E bcs LA1E2 00A1D4 1 06 6D LA1D4: asl $6D 00A1D6 1 26 6C rol $6C 00A1D8 1 26 6B rol $6B 00A1DA 1 26 6A rol ARGH0 00A1DC 1 B0 E6 bcs LA1C4 00A1DE 1 30 CE bmi LA1AE 00A1E0 1 10 E2 bpl LA1C4 00A1E2 1 A8 LA1E2: tay 00A1E3 1 A5 6D lda $6D 00A1E5 1 E5 65 sbc $65 00A1E7 1 85 6D sta $6D 00A1E9 1 A5 6C lda $6C 00A1EB 1 E5 64 sbc $64 00A1ED 1 85 6C sta $6C 00A1EF 1 A5 6B lda $6B 00A1F1 1 E5 63 sbc $63 00A1F3 1 85 6B sta $6B 00A1F5 1 A5 6A lda ARGH0 00A1F7 1 E5 62 sbc FACH0 00A1F9 1 85 6A sta ARGH0 00A1FB 1 98 tya 00A1FC 1 4C D4 A1 jmp LA1D4 00A1FF 1 00A1FF 1 A9 40 LA1FF: lda #$40 00A201 1 D0 CE bne LA1D1 00A203 1 0A LA203: asl a 00A204 1 0A asl a 00A205 1 0A asl a 00A206 1 0A asl a 00A207 1 0A asl a 00A208 1 0A asl a 00A209 1 85 70 sta FACOV 00A20B 1 28 plp 00A20C 1 A5 26 LA20C: lda RESH0 00A20E 1 85 62 sta FACH0 00A210 1 A5 27 lda $27 00A212 1 85 63 sta $63 00A214 1 A5 28 lda $28 00A216 1 85 64 sta $64 00A218 1 A5 29 lda $29 00A21A 1 85 65 sta $65 00A21C 1 4C 0B 9F jmp L9F0B 00A21F 1 00A21F 1 18 LA21F: clc 00A220 1 24 .byte $24 00A221 1 38 LA221: sec 00A222 1 85 22 sta INDEX1 00A224 1 84 23 sty $23 00A226 1 A0 04 ldy #$04 00A228 1 20 20 A3 jsr LA320 00A22B 1 85 65 sta $65 00A22D 1 88 dey 00A22E 1 20 20 A3 jsr LA320 00A231 1 85 64 sta $64 00A233 1 88 dey 00A234 1 20 20 A3 jsr LA320 00A237 1 85 63 sta $63 00A239 1 88 dey 00A23A 1 20 20 A3 jsr LA320 00A23D 1 85 66 sta FACSGN 00A23F 1 09 80 ora #$80 00A241 1 85 62 sta FACH0 00A243 1 88 dey 00A244 1 20 20 A3 jsr LA320 00A247 1 85 61 sta FACEXP 00A249 1 84 70 sty FACOV 00A24B 1 60 rts 00A24C 1 00A24C 1 A2 5C LA24C: ldx #$5C 00A24E 1 2C .byte $2C 00A24F 1 A2 57 LA24F: ldx #$57 00A251 1 A0 00 ldy #$00 00A253 1 F0 04 beq LA259 00A255 1 A6 49 LA255: ldx FORPNT 00A257 1 A4 4A ldy $4A 00A259 1 20 A0 A2 LA259: jsr LA2A0 00A25C 1 86 22 stx INDEX1 00A25E 1 84 23 sty $23 00A260 1 A0 04 ldy #$04 00A262 1 A5 65 lda $65 00A264 1 91 22 sta (INDEX1),y 00A266 1 88 dey 00A267 1 A5 64 lda $64 00A269 1 91 22 sta (INDEX1),y 00A26B 1 88 dey 00A26C 1 A5 63 lda $63 00A26E 1 91 22 sta (INDEX1),y 00A270 1 88 dey 00A271 1 A5 66 lda FACSGN 00A273 1 09 7F ora #$7F 00A275 1 25 62 and FACH0 00A277 1 91 22 sta (INDEX1),y 00A279 1 88 dey 00A27A 1 A5 61 lda FACEXP 00A27C 1 91 22 sta (INDEX1),y 00A27E 1 84 70 sty FACOV 00A280 1 60 rts 00A281 1 00A281 1 A5 6E LA281: lda ARGSGN 00A283 1 85 66 LA283: sta FACSGN 00A285 1 A2 05 ldx #$05 00A287 1 B5 68 LA287: lda BITS,x 00A289 1 95 60 sta $60,x 00A28B 1 CA dex 00A28C 1 D0 F9 bne LA287 00A28E 1 86 70 stx FACOV 00A290 1 60 rts 00A291 1 00A291 1 20 A0 A2 LA291: jsr LA2A0 00A294 1 A2 06 LA294: ldx #$06 00A296 1 B5 60 LA296: lda $60,x 00A298 1 95 68 sta BITS,x 00A29A 1 CA dex 00A29B 1 D0 F9 bne LA296 00A29D 1 86 70 stx FACOV 00A29F 1 60 LA29F: rts 00A2A0 1 00A2A0 1 A5 61 LA2A0: lda FACEXP 00A2A2 1 F0 FB beq LA29F 00A2A4 1 06 70 asl FACOV 00A2A6 1 90 F7 bcc LA29F 00A2A8 1 20 A3 9F LA2A8: jsr L9FA3 00A2AB 1 D0 F2 bne LA29F 00A2AD 1 4C 6C 9F jmp L9F6C 00A2B0 1 00A2B0 1 A5 61 LA2B0: lda FACEXP 00A2B2 1 F0 09 beq LA2BD 00A2B4 1 A5 66 LA2B4: lda FACSGN 00A2B6 1 2A LA2B6: rol a 00A2B7 1 A9 FF lda #$FF 00A2B9 1 B0 02 bcs LA2BD 00A2BB 1 A9 01 lda #$01 00A2BD 1 60 LA2BD: rts 00A2BE 1 00A2BE 1 20 B0 A2 LA2BE: jsr LA2B0 00A2C1 1 85 62 LA2C1: sta FACH0 00A2C3 1 A9 00 lda #$00 00A2C5 1 85 63 sta $63 00A2C7 1 A2 88 ldx #$88 00A2C9 1 A5 62 LA2C9: lda FACH0 00A2CB 1 49 FF eor #$FF 00A2CD 1 2A rol a 00A2CE 1 A9 00 LA2CE: lda #$00 00A2D0 1 85 65 sta $65 00A2D2 1 85 64 sta $64 00A2D4 1 86 61 LA2D4: stx FACEXP 00A2D6 1 85 70 sta FACOV 00A2D8 1 85 66 sta FACSGN 00A2DA 1 4C 06 9F jmp L9F06 00A2DD 1 00A2DD 1 46 66 LA2DD: lsr FACSGN 00A2DF 1 60 rts 00A2E0 1 00A2E0 1 85 24 LA2E0: sta INDEX2 00A2E2 1 84 25 sty $25 00A2E4 1 A0 00 ldy #$00 00A2E6 1 B1 24 lda (INDEX2),y 00A2E8 1 C8 iny 00A2E9 1 AA tax 00A2EA 1 F0 C4 beq LA2B0 00A2EC 1 B1 24 lda (INDEX2),y 00A2EE 1 45 66 eor FACSGN 00A2F0 1 30 C2 bmi LA2B4 00A2F2 1 E4 61 cpx FACEXP 00A2F4 1 D0 21 bne LA317 00A2F6 1 B1 24 lda (INDEX2),y 00A2F8 1 09 80 ora #$80 00A2FA 1 C5 62 cmp FACH0 00A2FC 1 D0 19 bne LA317 00A2FE 1 C8 iny 00A2FF 1 B1 24 lda (INDEX2),y 00A301 1 C5 63 cmp $63 00A303 1 D0 12 bne LA317 00A305 1 C8 iny 00A306 1 B1 24 lda (INDEX2),y 00A308 1 C5 64 cmp $64 00A30A 1 D0 0B bne LA317 00A30C 1 C8 iny 00A30D 1 A9 7F lda #$7F 00A30F 1 C5 70 cmp FACOV 00A311 1 B1 24 lda (INDEX2),y 00A313 1 E5 65 sbc $65 00A315 1 F0 2F beq LA346 00A317 1 A5 66 LA317: lda FACSGN 00A319 1 90 02 bcc LA31D 00A31B 1 49 FF eor #$FF 00A31D 1 4C B6 A2 LA31D: jmp LA2B6 00A320 1 00A320 1 B1 22 LA320: lda (INDEX1),y 00A322 1 B0 22 bcs LA346 00A324 1 4C B0 04 jmp INDIN1 00A327 1 00A327 1 A5 61 LA327: lda FACEXP 00A329 1 F0 4A beq LA375 00A32B 1 38 sec 00A32C 1 E9 A0 sbc #$A0 00A32E 1 24 66 bit FACSGN 00A330 1 10 09 bpl LA33B 00A332 1 AA tax 00A333 1 A9 FF lda #$FF 00A335 1 85 68 sta BITS 00A337 1 20 81 9F jsr L9F81 00A33A 1 8A txa 00A33B 1 A2 61 LA33B: ldx #$61 00A33D 1 C9 F9 cmp #$F9 00A33F 1 10 06 bpl LA347 00A341 1 20 CD 9F jsr L9FCD 00A344 1 84 68 sty BITS 00A346 1 60 LA346: rts 00A347 1 00A347 1 A8 LA347: tay 00A348 1 A5 66 lda FACSGN 00A34A 1 29 80 and #$80 00A34C 1 46 62 lsr FACH0 00A34E 1 05 62 ora FACH0 00A350 1 85 62 sta FACH0 00A352 1 20 E4 9F jsr L9FE4 00A355 1 84 68 sty BITS 00A357 1 60 rts 00A358 1 00A358 1 A5 61 LA358: lda FACEXP 00A35A 1 C9 A0 cmp #$A0 00A35C 1 B0 20 bcs LA37E 00A35E 1 20 27 A3 jsr LA327 00A361 1 84 70 sty FACOV 00A363 1 A5 66 lda FACSGN 00A365 1 84 66 sty FACSGN 00A367 1 49 80 eor #$80 00A369 1 2A rol a 00A36A 1 A9 A0 lda #$A0 00A36C 1 85 61 sta FACEXP 00A36E 1 A5 65 lda $65 00A370 1 85 07 sta CHARAC 00A372 1 4C 06 9F jmp L9F06 00A375 1 00A375 1 85 62 LA375: sta FACH0 00A377 1 85 63 sta $63 00A379 1 85 64 sta $64 00A37B 1 85 65 sta $65 00A37D 1 A8 tay 00A37E 1 60 LA37E: rts 00A37F 1 00A37F 1 A0 00 LA37F: ldy #$00 00A381 1 A2 0A ldx #$0A 00A383 1 94 5D LA383: sty $5D,x 00A385 1 CA dex 00A386 1 10 FB bpl LA383 00A388 1 90 0F bcc LA399 00A38A 1 C9 2D cmp #$2D 00A38C 1 D0 04 bne LA392 00A38E 1 86 67 stx SGNFLG 00A390 1 F0 04 beq LA396 00A392 1 C9 2B LA392: cmp #$2B 00A394 1 D0 05 bne LA39B 00A396 1 20 73 04 LA396: jsr CHRGET 00A399 1 90 5B LA399: bcc LA3F6 00A39B 1 C9 2E LA39B: cmp #$2E 00A39D 1 F0 2E beq LA3CD 00A39F 1 C9 45 cmp #$45 00A3A1 1 D0 30 bne LA3D3 00A3A3 1 20 73 04 jsr CHRGET 00A3A6 1 90 17 bcc LA3BF 00A3A8 1 C9 AB cmp #$AB 00A3AA 1 F0 0E beq LA3BA 00A3AC 1 C9 2D cmp #$2D 00A3AE 1 F0 0A beq LA3BA 00A3B0 1 C9 AA cmp #$AA 00A3B2 1 F0 08 beq LA3BC 00A3B4 1 C9 2B cmp #$2B 00A3B6 1 F0 04 beq LA3BC 00A3B8 1 D0 07 bne LA3C1 00A3BA 1 66 60 LA3BA: ror $60 00A3BC 1 20 73 04 LA3BC: jsr CHRGET 00A3BF 1 90 5C LA3BF: bcc LA41D 00A3C1 1 24 60 LA3C1: bit $60 00A3C3 1 10 0E bpl LA3D3 00A3C5 1 A9 00 lda #$00 00A3C7 1 38 sec 00A3C8 1 E5 5E sbc $5E 00A3CA 1 4C D5 A3 jmp LA3D5 00A3CD 1 00A3CD 1 66 5F LA3CD: ror $5F 00A3CF 1 24 5F bit $5F 00A3D1 1 50 C3 bvc LA396 00A3D3 1 A5 5E LA3D3: lda $5E 00A3D5 1 38 LA3D5: sec 00A3D6 1 E5 5D sbc $5D 00A3D8 1 85 5E sta $5E 00A3DA 1 F0 12 beq LA3EE 00A3DC 1 10 09 bpl LA3E7 00A3DE 1 20 83 A1 LA3DE: jsr LA183 00A3E1 1 E6 5E inc $5E 00A3E3 1 D0 F9 bne LA3DE 00A3E5 1 F0 07 beq LA3EE 00A3E7 1 20 62 A1 LA3E7: jsr LA162 00A3EA 1 C6 5E dec $5E 00A3EC 1 D0 F9 bne LA3E7 00A3EE 1 A5 67 LA3EE: lda SGNFLG 00A3F0 1 30 01 bmi LA3F3 00A3F2 1 60 rts 00A3F3 1 00A3F3 1 4C 27 A6 LA3F3: jmp LA627 00A3F6 1 00A3F6 1 48 LA3F6: pha 00A3F7 1 24 5F bit $5F 00A3F9 1 10 02 bpl LA3FD 00A3FB 1 E6 5D inc $5D 00A3FD 1 20 62 A1 LA3FD: jsr LA162 00A400 1 68 pla 00A401 1 38 sec 00A402 1 E9 30 sbc #$30 00A404 1 20 0A A4 jsr LA40A 00A407 1 4C 96 A3 jmp LA396 00A40A 1 00A40A 1 48 LA40A: pha 00A40B 1 20 91 A2 jsr LA291 00A40E 1 68 pla 00A40F 1 20 C1 A2 jsr LA2C1 00A412 1 A5 6E lda ARGSGN 00A414 1 45 66 eor FACSGN 00A416 1 85 6F sta ARISGN 00A418 1 A6 61 ldx FACEXP 00A41A 1 4C 9E 9E jmp L9E9E 00A41D 1 00A41D 1 A5 5E LA41D: lda $5E 00A41F 1 C9 0A cmp #$0A 00A421 1 90 09 bcc LA42C 00A423 1 A9 64 lda #$64 00A425 1 24 60 bit $60 00A427 1 30 16 bmi LA43F 00A429 1 4C B2 9F jmp L9FB2 00A42C 1 00A42C 1 0A LA42C: asl a 00A42D 1 0A asl a 00A42E 1 18 clc 00A42F 1 65 5E adc $5E 00A431 1 0A asl a 00A432 1 18 clc 00A433 1 A0 00 ldy #$00 00A435 1 85 78 sta $78 00A437 1 20 A5 04 jsr INDTXT 00A43A 1 65 78 adc $78 00A43C 1 38 sec 00A43D 1 E9 30 sbc #$30 00A43F 1 85 5E LA43F: sta $5E 00A441 1 4C BC A3 jmp LA3BC 00A444 1 00A444 1 9B 3E BC 1F LA444: .byte $9B,$3E,$BC,$1F,$FD 00A448 1 FD 00A449 1 9E 6E 6B 27 LA449: .byte $9E,$6E,$6B,$27,$FD 00A44D 1 FD 00A44E 1 9E 6E 6B 28 LA44E: .byte $9E,$6E,$6B,$28,$00 00A452 1 00 00A453 1 20 4F FF LA453: jsr LFF4F 00A456 1 20 49 4E 20 .byte " IN " 00A45A 1 00 .byte $00 00A45B 1 A5 3A LA45B: lda $3A 00A45D 1 A6 39 ldx CHRLIN 00A45F 1 85 62 LA45F: sta FACH0 00A461 1 86 63 stx $63 00A463 1 A2 90 ldx #$90 00A465 1 38 sec 00A466 1 20 CE A2 jsr LA2CE 00A469 1 20 71 A4 jsr LA471 00A46C 1 4C 88 90 jmp L9088 00A46F 1 00A46F 1 A0 01 LA46F: ldy #$01 00A471 1 A9 20 LA471: lda #$20 00A473 1 24 66 bit FACSGN 00A475 1 10 02 bpl LA479 00A477 1 A9 2D lda #$2D 00A479 1 99 FF 00 LA479: sta LOFBUF,y 00A47C 1 85 66 sta FACSGN 00A47E 1 84 71 sty FBUFPT 00A480 1 C8 iny 00A481 1 A9 30 lda #$30 00A483 1 A6 61 ldx FACEXP 00A485 1 D0 03 bne LA48A 00A487 1 4C 96 A5 jmp LA596 00A48A 1 00A48A 1 A9 00 LA48A: lda #$00 00A48C 1 E0 80 cpx #$80 00A48E 1 F0 02 beq LA492 00A490 1 B0 09 bcs LA49B 00A492 1 A9 4E LA492: lda #$4E 00A494 1 A0 A4 ldy #$A4 00A496 1 20 5C A0 jsr LA05C 00A499 1 A9 F7 lda #$F7 00A49B 1 85 5D LA49B: sta $5D 00A49D 1 A9 49 LA49D: lda #$49 00A49F 1 A0 A4 ldy #$A4 00A4A1 1 20 E0 A2 jsr LA2E0 00A4A4 1 F0 1E beq LA4C4 00A4A6 1 10 12 bpl LA4BA 00A4A8 1 A9 44 LA4A8: lda #$44 00A4AA 1 A0 A4 ldy #$A4 00A4AC 1 20 E0 A2 jsr LA2E0 00A4AF 1 F0 02 beq LA4B3 00A4B1 1 10 0E bpl LA4C1 00A4B3 1 20 62 A1 LA4B3: jsr LA162 00A4B6 1 C6 5D dec $5D 00A4B8 1 D0 EE bne LA4A8 00A4BA 1 20 83 A1 LA4BA: jsr LA183 00A4BD 1 E6 5D inc $5D 00A4BF 1 D0 DC bne LA49D 00A4C1 1 20 62 A0 LA4C1: jsr LA062 00A4C4 1 20 27 A3 LA4C4: jsr LA327 00A4C7 1 A2 01 ldx #$01 00A4C9 1 A5 5D lda $5D 00A4CB 1 18 clc 00A4CC 1 69 0A adc #$0A 00A4CE 1 30 09 bmi LA4D9 00A4D0 1 C9 0B cmp #$0B 00A4D2 1 B0 06 bcs LA4DA 00A4D4 1 69 FF adc #$FF 00A4D6 1 AA tax 00A4D7 1 A9 02 lda #$02 00A4D9 1 38 LA4D9: sec 00A4DA 1 E9 02 LA4DA: sbc #$02 00A4DC 1 85 5E sta $5E 00A4DE 1 86 5D stx $5D 00A4E0 1 8A txa 00A4E1 1 F0 02 beq LA4E5 00A4E3 1 10 13 bpl LA4F8 00A4E5 1 A4 71 LA4E5: ldy FBUFPT 00A4E7 1 A9 2E lda #$2E 00A4E9 1 C8 iny 00A4EA 1 99 FF 00 sta LOFBUF,y 00A4ED 1 8A txa 00A4EE 1 F0 06 beq LA4F6 00A4F0 1 A9 30 lda #$30 00A4F2 1 C8 iny 00A4F3 1 99 FF 00 sta LOFBUF,y 00A4F6 1 84 71 LA4F6: sty FBUFPT 00A4F8 1 A0 00 LA4F8: ldy #$00 00A4FA 1 A2 80 LA4FA: ldx #$80 00A4FC 1 A5 65 LA4FC: lda $65 00A4FE 1 18 clc 00A4FF 1 79 AB A5 adc LA5AB,y 00A502 1 85 65 sta $65 00A504 1 A5 64 lda $64 00A506 1 79 AA A5 adc LA5AA,y 00A509 1 85 64 sta $64 00A50B 1 A5 63 lda $63 00A50D 1 79 A9 A5 adc LA5A9,y 00A510 1 85 63 sta $63 00A512 1 A5 62 lda FACH0 00A514 1 79 A8 A5 adc LA5A8,y 00A517 1 85 62 sta FACH0 00A519 1 E8 inx 00A51A 1 B0 04 bcs LA520 00A51C 1 10 DE bpl LA4FC 00A51E 1 30 02 bmi LA522 00A520 1 30 DA LA520: bmi LA4FC 00A522 1 8A LA522: txa 00A523 1 90 04 bcc LA529 00A525 1 49 FF eor #$FF 00A527 1 69 0A adc #$0A 00A529 1 69 2F LA529: adc #$2F 00A52B 1 C8 iny 00A52C 1 C8 iny 00A52D 1 C8 iny 00A52E 1 C8 iny 00A52F 1 84 47 sty VARPNT 00A531 1 A4 71 ldy FBUFPT 00A533 1 C8 iny 00A534 1 AA tax 00A535 1 29 7F and #$7F 00A537 1 99 FF 00 sta LOFBUF,y 00A53A 1 C6 5D dec $5D 00A53C 1 D0 06 bne LA544 00A53E 1 A9 2E lda #$2E 00A540 1 C8 iny 00A541 1 99 FF 00 sta LOFBUF,y 00A544 1 84 71 LA544: sty FBUFPT 00A546 1 A4 47 ldy VARPNT 00A548 1 8A txa 00A549 1 49 FF eor #$FF 00A54B 1 29 80 and #$80 00A54D 1 AA tax 00A54E 1 C0 24 cpy #$24 00A550 1 F0 04 beq LA556 00A552 1 C0 3C cpy #$3C 00A554 1 D0 A6 bne LA4FC 00A556 1 A4 71 LA556: ldy FBUFPT 00A558 1 B9 FF 00 LA558: lda LOFBUF,y 00A55B 1 88 dey 00A55C 1 C9 30 cmp #$30 00A55E 1 F0 F8 beq LA558 00A560 1 C9 2E cmp #$2E 00A562 1 F0 01 beq LA565 00A564 1 C8 iny 00A565 1 A9 2B LA565: lda #$2B 00A567 1 A6 5E ldx $5E 00A569 1 F0 2E beq LA599 00A56B 1 10 08 bpl LA575 00A56D 1 A9 00 lda #$00 00A56F 1 38 sec 00A570 1 E5 5E sbc $5E 00A572 1 AA tax 00A573 1 A9 2D lda #$2D 00A575 1 99 01 01 LA575: sta $0101,y 00A578 1 A9 45 lda #$45 00A57A 1 99 00 01 sta FBUFFER,y 00A57D 1 8A txa 00A57E 1 A2 2F ldx #$2F 00A580 1 38 sec 00A581 1 E8 LA581: inx 00A582 1 E9 0A sbc #$0A 00A584 1 B0 FB bcs LA581 00A586 1 69 3A adc #$3A 00A588 1 99 03 01 sta $0103,y 00A58B 1 8A txa 00A58C 1 99 02 01 sta $0102,y 00A58F 1 A9 00 lda #$00 00A591 1 99 04 01 sta $0104,y 00A594 1 F0 08 beq LA59E 00A596 1 99 FF 00 LA596: sta LOFBUF,y 00A599 1 A9 00 LA599: lda #$00 00A59B 1 99 00 01 sta FBUFFER,y 00A59E 1 A9 00 LA59E: lda #$00 00A5A0 1 A0 01 ldy #$01 00A5A2 1 60 rts 00A5A3 1 00A5A3 1 80 00 00 00 LA5A3: .byte $80,$00,$00,$00,$00 00A5A7 1 00 00A5A8 1 FA LA5A8: .byte $FA 00A5A9 1 0A LA5A9: .byte $0A 00A5AA 1 1F LA5AA: .byte $1F 00A5AB 1 00 LA5AB: .byte $00 00A5AC 1 00 98 96 80 LA5AC: .byte $00,$98,$96,$80 00A5B0 1 FF F0 BD C0 LA5B0: .byte $FF,$F0,$BD,$C0 00A5B4 1 00 01 86 A0 LA5B4: .byte $00,$01,$86,$A0 00A5B8 1 FF FF D8 F0 LA5B8: .byte $FF,$FF,$D8,$F0 00A5BC 1 00 00 03 E8 LA5BC: .byte $00,$00,$03,$E8 00A5C0 1 FF FF FF 9C LA5C0: .byte $FF,$FF,$FF,$9C 00A5C4 1 00 00 00 0A LA5C4: .byte $00,$00,$00,$0A 00A5C8 1 FF FF FF FF LA5C8: .byte $FF,$FF,$FF,$FF 00A5CC 1 FF DF 0A 80 LA5CC: .byte $FF,$DF,$0A,$80 00A5D0 1 00 03 4B C0 LA5D0: .byte $00,$03,$4B,$C0 00A5D4 1 FF FF 73 60 LA5D4: .byte $FF,$FF,$73,$60 00A5D8 1 00 00 0E 10 LA5D8: .byte $00,$00,$0E,$10 00A5DC 1 FF FF FD A8 LA5DC: .byte $FF,$FF,$FD,$A8 00A5E0 1 00 00 00 3C LA5E0: .byte $00,$00,$00,$3C 00A5E4 1 20 91 A2 LA5E4: jsr LA291 00A5E7 1 A9 A3 lda #$A3 00A5E9 1 A0 A5 ldy #$A5 00A5EB 1 20 21 A2 jsr LA221 00A5EE 1 F0 70 LA5EE: beq LA660 00A5F0 1 A5 69 lda ARGEXP 00A5F2 1 D0 03 bne LA5F7 00A5F4 1 4C 2D 9F jmp L9F2D 00A5F7 1 00A5F7 1 A2 4E LA5F7: ldx #$4E 00A5F9 1 A0 00 ldy #$00 00A5FB 1 20 59 A2 jsr LA259 00A5FE 1 A5 6E lda ARGSGN 00A600 1 10 0F bpl LA611 00A602 1 20 58 A3 jsr LA358 00A605 1 A9 4E lda #$4E 00A607 1 A0 00 ldy #$00 00A609 1 20 E0 A2 jsr LA2E0 00A60C 1 D0 03 bne LA611 00A60E 1 98 tya 00A60F 1 A4 07 ldy CHARAC 00A611 1 20 83 A2 LA611: jsr LA283 00A614 1 98 tya 00A615 1 48 pha 00A616 1 20 1E A0 jsr LA01E 00A619 1 A9 4E lda #$4E 00A61B 1 A0 00 ldy #$00 00A61D 1 20 78 A0 jsr LA078 00A620 1 20 60 A6 jsr LA660 00A623 1 68 pla 00A624 1 4A lsr a 00A625 1 90 0A bcc LA631 00A627 1 A5 61 LA627: lda FACEXP 00A629 1 F0 06 beq LA631 00A62B 1 A5 66 lda FACSGN 00A62D 1 49 FF eor #$FF 00A62F 1 85 66 sta FACSGN 00A631 1 60 LA631: rts 00A632 1 00A632 1 81 38 AA 3B LA632: .byte $81,$38,$AA,$3B,$29 00A636 1 29 00A637 1 07 LA637: .byte $07 00A638 1 71 34 58 3E LA638: .byte $71,$34,$58,$3E,$56 00A63C 1 56 00A63D 1 74 16 7E B3 LA63D: .byte $74,$16,$7E,$B3,$1B 00A641 1 1B 00A642 1 77 2F EE E3 LA642: .byte $77,$2F,$EE,$E3,$85 00A646 1 85 00A647 1 7A 1D 84 1C LA647: .byte $7A,$1D,$84,$1C,$2A 00A64B 1 2A 00A64C 1 7C 63 59 58 LA64C: .byte $7C,$63,$59,$58,$0A 00A650 1 0A 00A651 1 7E 75 FD E7 LA651: .byte $7E,$75,$FD,$E7,$C6 00A655 1 C6 00A656 1 80 31 72 18 LA656: .byte $80,$31,$72,$18,$10 00A65A 1 10 00A65B 1 81 00 00 00 LA65B: .byte $81,$00,$00,$00,$00 00A65F 1 00 00A660 1 A9 32 LA660: lda #$32 00A662 1 A0 A6 ldy #$A6 00A664 1 20 5C A0 jsr LA05C 00A667 1 A5 70 lda FACOV 00A669 1 69 50 adc #$50 00A66B 1 90 03 bcc LA670 00A66D 1 20 A8 A2 jsr LA2A8 00A670 1 85 56 LA670: sta $56 00A672 1 20 94 A2 jsr LA294 00A675 1 A5 61 lda FACEXP 00A677 1 C9 88 cmp #$88 00A679 1 90 03 bcc LA67E 00A67B 1 20 54 A1 LA67B: jsr LA154 00A67E 1 20 58 A3 LA67E: jsr LA358 00A681 1 A5 07 lda CHARAC 00A683 1 18 clc 00A684 1 69 81 adc #$81 00A686 1 F0 F3 beq LA67B 00A688 1 38 sec 00A689 1 E9 01 sbc #$01 00A68B 1 48 pha 00A68C 1 A2 05 ldx #$05 00A68E 1 B5 69 LA68E: lda ARGEXP,x 00A690 1 B4 61 ldy FACEXP,x 00A692 1 95 61 sta FACEXP,x 00A694 1 94 69 sty ARGEXP,x 00A696 1 CA dex 00A697 1 10 F5 bpl LA68E 00A699 1 A5 56 lda $56 00A69B 1 85 70 sta FACOV 00A69D 1 20 87 9E jsr L9E87 00A6A0 1 20 27 A6 jsr LA627 00A6A3 1 A9 37 lda #$37 00A6A5 1 A0 A6 ldy #$A6 00A6A7 1 20 C9 A6 jsr LA6C9 00A6AA 1 A9 00 lda #$00 00A6AC 1 85 6F sta ARISGN 00A6AE 1 68 pla 00A6AF 1 20 39 A1 jsr LA139 00A6B2 1 60 rts 00A6B3 1 00A6B3 1 85 71 LA6B3: sta FBUFPT 00A6B5 1 84 72 sty $72 00A6B7 1 20 4F A2 jsr LA24F 00A6BA 1 A9 57 lda #$57 00A6BC 1 20 78 A0 jsr LA078 00A6BF 1 20 CD A6 jsr LA6CD 00A6C2 1 A9 57 lda #$57 00A6C4 1 A0 00 ldy #$00 00A6C6 1 4C 78 A0 jmp LA078 00A6C9 1 00A6C9 1 85 71 LA6C9: sta FBUFPT 00A6CB 1 84 72 sty $72 00A6CD 1 20 4C A2 LA6CD: jsr LA24C 00A6D0 1 B1 71 lda (FBUFPT),y 00A6D2 1 85 67 sta SGNFLG 00A6D4 1 A4 71 ldy FBUFPT 00A6D6 1 C8 iny 00A6D7 1 98 tya 00A6D8 1 D0 02 bne LA6DC 00A6DA 1 E6 72 inc $72 00A6DC 1 85 71 LA6DC: sta FBUFPT 00A6DE 1 A4 72 ldy $72 00A6E0 1 20 5C A0 LA6E0: jsr LA05C 00A6E3 1 A5 71 lda FBUFPT 00A6E5 1 A4 72 ldy $72 00A6E7 1 18 clc 00A6E8 1 69 05 adc #$05 00A6EA 1 90 01 bcc LA6ED 00A6EC 1 C8 iny 00A6ED 1 85 71 LA6ED: sta FBUFPT 00A6EF 1 84 72 sty $72 00A6F1 1 20 66 A0 jsr LA066 00A6F4 1 A9 5C lda #$5C 00A6F6 1 A0 00 ldy #$00 00A6F8 1 C6 67 dec SGNFLG 00A6FA 1 D0 E4 bne LA6E0 00A6FC 1 60 rts 00A6FD 1 00A6FD 1 98 35 44 7A LA6FD: .byte $98,$35,$44,$7A,$00 00A701 1 00 00A702 1 68 28 B1 46 LA702: .byte $68,$28,$B1,$46,$00 00A706 1 00 00A707 1 20 B0 A2 LA707: jsr LA2B0 00A70A 1 30 2E bmi LA73A 00A70C 1 D0 17 bne LA725 00A70E 1 AD 00 FF lda TEDT1RL 00A711 1 85 62 sta FACH0 00A713 1 AD 01 FF lda TEDT1RH 00A716 1 85 64 sta $64 00A718 1 AD 02 FF lda TEDT2L 00A71B 1 85 63 sta $63 00A71D 1 AD 03 FF lda TEDT2H 00A720 1 85 65 sta $65 00A722 1 4C 4A A7 jmp LA74A 00A725 1 00A725 1 A9 03 LA725: lda #$03 00A727 1 A0 05 ldy #$05 00A729 1 20 21 A2 jsr LA221 00A72C 1 A9 FD lda #$FD 00A72E 1 A0 A6 ldy #$A6 00A730 1 20 5C A0 jsr LA05C 00A733 1 A9 02 lda #$02 00A735 1 A0 A7 ldy #$A7 00A737 1 20 66 A0 jsr LA066 00A73A 1 A6 65 LA73A: ldx $65 00A73C 1 A5 62 lda FACH0 00A73E 1 85 65 sta $65 00A740 1 86 62 stx FACH0 00A742 1 A6 63 ldx $63 00A744 1 A5 64 lda $64 00A746 1 85 63 sta $63 00A748 1 86 64 stx $64 00A74A 1 A9 00 LA74A: lda #$00 00A74C 1 85 66 sta FACSGN 00A74E 1 A5 61 lda FACEXP 00A750 1 85 70 sta FACOV 00A752 1 A9 80 lda #$80 00A754 1 85 61 sta FACEXP 00A756 1 20 0B 9F jsr L9F0B 00A759 1 A2 03 ldx #$03 00A75B 1 A0 05 ldy #$05 00A75D 1 4C 59 A2 LA75D: jmp LA259 00A760 1 00A760 1 A5 7C LA760: lda TOS 00A762 1 85 3D sta FNDPNT 00A764 1 A5 7D lda $7D 00A766 1 85 3E sta $3E 00A768 1 60 rts 00A769 1 00A769 1 A5 3D LA769: lda FNDPNT 00A76B 1 85 7C sta TOS 00A76D 1 A5 3E lda $3E 00A76F 1 85 7D sta $7D 00A771 1 60 rts 00A772 1 00A772 1 98 LA772: tya 00A773 1 18 clc 00A774 1 65 7C adc TOS 00A776 1 85 7C sta TOS 00A778 1 90 02 bcc LA77C 00A77A 1 E6 7D inc $7D 00A77C 1 60 LA77C: rts 00A77D 1 00A77D 1 AA LA77D: tax 00A77E 1 D0 02 bne LA782 00A780 1 A2 1E ldx #$1E 00A782 1 4C 83 86 LA782: jmp L8683 00A785 1 00A785 1 20 C0 FF LA785: jsr kOPEN 00A788 1 B0 F3 bcs LA77D 00A78A 1 60 rts 00A78B 1 00A78B 1 20 D2 FF LA78B: jsr kCHROUT 00A78E 1 B0 ED bcs LA77D 00A790 1 60 rts 00A791 1 00A791 1 20 CF FF LA791: jsr kCHRIN 00A794 1 B0 E7 bcs LA77D 00A796 1 60 rts 00A797 1 00A797 1 48 LA797: pha 00A798 1 20 C9 FF jsr kCHKOUT 00A79B 1 20 F8 A8 jsr LA8F8 00A79E 1 AA tax 00A79F 1 68 pla 00A7A0 1 90 03 bcc LA7A5 00A7A2 1 8A txa 00A7A3 1 B0 D8 bcs LA77D 00A7A5 1 60 LA7A5: rts 00A7A6 1 00A7A6 1 20 C6 FF LA7A6: jsr kCHKIN 00A7A9 1 20 F8 A8 jsr LA8F8 00A7AC 1 B0 CF bcs LA77D 00A7AE 1 60 rts 00A7AF 1 00A7AF 1 20 E4 FF LA7AF: jsr kGETIN 00A7B2 1 B0 C9 bcs LA77D 00A7B4 1 60 rts 00A7B5 1 00A7B5 1 20 E1 9D LA7B5: jsr L9DE1 00A7B8 1 A9 A7 lda #$A7 00A7BA 1 48 pha 00A7BB 1 A9 CE lda #$CE 00A7BD 1 48 pha 00A7BE 1 AD F5 07 lda SPREG 00A7C1 1 48 pha 00A7C2 1 AD F2 07 lda SAREG 00A7C5 1 AE F3 07 ldx SXREG 00A7C8 1 AC F4 07 ldy SYREG 00A7CB 1 28 plp 00A7CC 1 6C 14 00 jmp (LINNUM) 00A7CF 1 00A7CF 1 08 php 00A7D0 1 8D F2 07 sta SAREG 00A7D3 1 8E F3 07 stx SXREG 00A7D6 1 8C F4 07 sty SYREG 00A7D9 1 68 pla 00A7DA 1 8D F5 07 sta SPREG 00A7DD 1 60 rts 00A7DE 1 00A7DE 1 20 6B A8 LA7DE: jsr LA86B 00A7E1 1 A6 2D LA7E1: ldx VARTAB 00A7E3 1 A4 2E ldy $2E 00A7E5 1 A9 2B lda #$2B 00A7E7 1 20 D8 FF jsr kSAVE 00A7EA 1 20 F8 A8 jsr LA8F8 00A7ED 1 B0 8E bcs LA77D 00A7EF 1 60 rts 00A7F0 1 00A7F0 1 A9 01 LA7F0: lda #$01 00A7F2 1 2C .byte $2C 00A7F3 1 A9 00 LA7F3: lda #$00 00A7F5 1 85 0A sta VERCK 00A7F7 1 20 6B A8 jsr LA86B 00A7FA 1 A5 0A LA7FA: lda VERCK 00A7FC 1 A6 2B ldx TXTTAB 00A7FE 1 A4 2C ldy $2C 00A800 1 20 D5 FF jsr kLOAD 00A803 1 08 php 00A804 1 20 F8 A8 jsr LA8F8 00A807 1 28 plp 00A808 1 B0 5E bcs LA868 00A80A 1 A5 0A lda VERCK 00A80C 1 F0 16 beq LA824 00A80E 1 A2 1C ldx #$1C 00A810 1 20 B7 FF jsr kREADST 00A813 1 29 10 and #$10 00A815 1 D0 16 bne LA82D 00A817 1 24 81 bit RUNMOD 00A819 1 30 08 bmi LA823 00A81B 1 20 4F FF jsr LFF4F 00A81E 1 0D .byte $0D 00A81F 1 4F 4B .byte "OK" 00A821 1 0D 00 .byte $0D,$00 00A823 1 60 LA823: rts 00A824 1 00A824 1 20 B7 FF LA824: jsr kREADST 00A827 1 29 BF and #$BF 00A829 1 F0 05 beq LA830 00A82B 1 A2 1D ldx #$1D 00A82D 1 4C 83 86 LA82D: jmp L8683 00A830 1 00A830 1 24 81 LA830: bit RUNMOD 00A832 1 30 10 bmi LA844 00A834 1 86 2D stx VARTAB 00A836 1 84 2E sty $2E 00A838 1 20 6F 86 jsr L866F 00A83B 1 20 18 88 jsr L8818 00A83E 1 20 93 8A jsr L8A93 00A841 1 4C 0F 87 jmp L870F 00A844 1 00A844 1 20 F1 8A LA844: jsr L8AF1 00A847 1 20 18 88 jsr L8818 00A84A 1 4C D5 8A jmp L8AD5 00A84D 1 00A84D 1 20 B0 A8 LA84D: jsr LA8B0 00A850 1 18 clc 00A851 1 20 85 A7 jsr LA785 00A854 1 20 F8 A8 jsr LA8F8 00A857 1 B0 0F bcs LA868 00A859 1 60 rts 00A85A 1 00A85A 1 20 B0 A8 LA85A: jsr LA8B0 00A85D 1 A5 49 lda FORPNT 00A85F 1 18 clc 00A860 1 20 C3 FF jsr kCLOSE 00A863 1 20 F8 A8 jsr LA8F8 00A866 1 90 BB bcc LA823 00A868 1 4C 7D A7 LA868: jmp LA77D 00A86B 1 00A86B 1 A9 00 LA86B: lda #$00 00A86D 1 20 BD FF jsr kSETNAM 00A870 1 A2 01 ldx #$01 00A872 1 A0 00 ldy #$00 00A874 1 20 BA FF jsr kSETLFS 00A877 1 20 9D A8 jsr LA89D 00A87A 1 20 EE A8 jsr LA8EE 00A87D 1 20 9D A8 jsr LA89D 00A880 1 20 97 A8 jsr LA897 00A883 1 A0 00 ldy #$00 00A885 1 86 49 stx FORPNT 00A887 1 20 BA FF jsr kSETLFS 00A88A 1 20 9D A8 jsr LA89D 00A88D 1 20 97 A8 jsr LA897 00A890 1 8A txa 00A891 1 A8 tay 00A892 1 A6 49 ldx FORPNT 00A894 1 4C BA FF jmp kSETLFS 00A897 1 00A897 1 20 A5 A8 LA897: jsr LA8A5 00A89A 1 4C 84 9D jmp L9D84 00A89D 1 00A89D 1 20 79 04 LA89D: jsr CHRGOT 00A8A0 1 D0 02 bne LA8A4 00A8A2 1 68 pla 00A8A3 1 68 pla 00A8A4 1 60 LA8A4: rts 00A8A5 1 00A8A5 1 20 91 94 LA8A5: jsr L9491 00A8A8 1 20 79 04 LA8A8: jsr CHRGOT 00A8AB 1 D0 F7 bne LA8A4 00A8AD 1 4C A1 94 jmp L94A1 00A8B0 1 00A8B0 1 A9 00 LA8B0: lda #$00 00A8B2 1 20 BD FF jsr kSETNAM 00A8B5 1 20 A8 A8 jsr LA8A8 00A8B8 1 20 84 9D jsr L9D84 00A8BB 1 86 49 stx FORPNT 00A8BD 1 8A txa 00A8BE 1 A2 01 ldx #$01 00A8C0 1 A0 00 ldy #$00 00A8C2 1 20 BA FF jsr kSETLFS 00A8C5 1 20 9D A8 jsr LA89D 00A8C8 1 20 97 A8 jsr LA897 00A8CB 1 86 4A stx $4A 00A8CD 1 A0 00 ldy #$00 00A8CF 1 A5 49 lda FORPNT 00A8D1 1 E0 03 cpx #$03 00A8D3 1 90 01 bcc LA8D6 00A8D5 1 88 dey 00A8D6 1 20 BA FF LA8D6: jsr kSETLFS 00A8D9 1 20 9D A8 jsr LA89D 00A8DC 1 20 97 A8 jsr LA897 00A8DF 1 8A txa 00A8E0 1 A8 tay 00A8E1 1 A6 4A ldx $4A 00A8E3 1 A5 49 lda FORPNT 00A8E5 1 20 BA FF jsr kSETLFS 00A8E8 1 20 9D A8 jsr LA89D 00A8EB 1 20 A5 A8 jsr LA8A5 00A8EE 1 20 48 9C LA8EE: jsr L9C48 00A8F1 1 A6 22 ldx INDEX1 00A8F3 1 A4 23 ldy $23 00A8F5 1 4C BD FF jmp kSETNAM 00A8F8 1 00A8F8 1 08 LA8F8: php 00A8F9 1 48 pha 00A8FA 1 A5 AE lda FA 00A8FC 1 C9 04 cmp #$04 00A8FE 1 90 03 bcc LA903 00A900 1 20 57 CD jsr LCD57 00A903 1 68 LA903: pla 00A904 1 28 plp 00A905 1 60 rts 00A906 1 00A906 1 46 0F LA906: lsr DORES 00A908 1 AA LA908: tax 00A909 1 F0 38 beq LA943 00A90B 1 48 pha 00A90C 1 A5 33 lda FRETOP 00A90E 1 38 sec 00A90F 1 E9 02 sbc #$02 00A911 1 A4 34 ldy $34 00A913 1 B0 01 bcs LA916 00A915 1 88 dey 00A916 1 85 22 LA916: sta INDEX1 00A918 1 84 23 sty $23 00A91A 1 8A txa 00A91B 1 49 FF eor #$FF 00A91D 1 38 sec 00A91E 1 65 22 adc INDEX1 00A920 1 B0 01 bcs LA923 00A922 1 88 dey 00A923 1 C4 32 LA923: cpy $32 00A925 1 90 1D bcc LA944 00A927 1 D0 04 bne LA92D 00A929 1 C5 31 cmp STREND 00A92B 1 90 17 bcc LA944 00A92D 1 85 35 LA92D: sta FRESPC 00A92F 1 84 36 sty $36 00A931 1 A0 01 ldy #$01 00A933 1 A9 FF lda #$FF 00A935 1 91 22 sta (INDEX1),y 00A937 1 88 dey 00A938 1 68 pla 00A939 1 91 22 sta (INDEX1),y 00A93B 1 A6 35 ldx FRESPC 00A93D 1 A4 36 ldy $36 00A93F 1 86 33 stx FRETOP 00A941 1 84 34 sty $34 00A943 1 60 LA943: rts 00A944 1 00A944 1 A5 0F LA944: lda DORES 00A946 1 30 09 bmi LA951 00A948 1 20 54 A9 jsr LA954 00A94B 1 38 sec 00A94C 1 66 0F ror DORES 00A94E 1 68 pla 00A94F 1 D0 B7 bne LA908 00A951 1 4C 81 86 LA951: jmp L8681 00A954 1 00A954 1 A6 16 LA954: ldx TEMPPT 00A956 1 E0 19 LA956: cpx #$19 00A958 1 F0 10 beq LA96A 00A95A 1 20 57 AA jsr LAA57 00A95D 1 F0 F7 beq LA956 00A95F 1 8A txa 00A960 1 A0 00 ldy #$00 00A962 1 91 5C sta ($5C),y 00A964 1 98 tya 00A965 1 C8 iny 00A966 1 91 5C sta ($5C),y 00A968 1 D0 EC bne LA956 00A96A 1 A0 00 LA96A: ldy #$00 00A96C 1 84 58 sty $58 00A96E 1 A6 37 ldx MEMSIZ 00A970 1 A4 38 ldy $38 00A972 1 86 5F stx $5F 00A974 1 86 4E stx DEFPNT 00A976 1 86 35 stx FRESPC 00A978 1 84 60 sty $60 00A97A 1 84 4F sty $4F 00A97C 1 84 36 sty $36 00A97E 1 8A txa 00A97F 1 20 EA A9 LA97F: jsr LA9EA 00A982 1 D0 0C bne LA990 00A984 1 88 LA984: dey 00A985 1 20 65 81 jsr L8165 00A988 1 20 39 AA jsr LAA39 00A98B 1 38 sec 00A98C 1 66 58 ror $58 00A98E 1 D0 EF bne LA97F 00A990 1 24 58 LA990: bit $58 00A992 1 10 42 bpl LA9D6 00A994 1 A2 00 ldx #$00 00A996 1 86 58 stx $58 00A998 1 A9 02 lda #$02 00A99A 1 A0 01 LA99A: ldy #$01 00A99C 1 20 65 81 jsr L8165 00A99F 1 91 5F sta ($5F),y 00A9A1 1 88 dey 00A9A2 1 20 65 81 jsr L8165 00A9A5 1 91 5F sta ($5F),y 00A9A7 1 20 B0 04 jsr INDIN1 00A9AA 1 AA tax 00A9AB 1 20 48 AA jsr LAA48 00A9AE 1 85 35 sta FRESPC 00A9B0 1 84 36 sty $36 00A9B2 1 8A txa 00A9B3 1 20 39 AA jsr LAA39 00A9B6 1 8A txa 00A9B7 1 A8 tay 00A9B8 1 88 LA9B8: dey 00A9B9 1 20 65 81 jsr L8165 00A9BC 1 91 5F sta ($5F),y 00A9BE 1 CA dex 00A9BF 1 D0 F7 bne LA9B8 00A9C1 1 A0 02 ldy #$02 00A9C3 1 B9 5E 00 LA9C3: lda $5E,y 00A9C6 1 91 22 sta (INDEX1),y 00A9C8 1 88 dey 00A9C9 1 D0 F8 bne LA9C3 00A9CB 1 A5 4E lda DEFPNT 00A9CD 1 A4 4F ldy $4F 00A9CF 1 20 EA A9 jsr LA9EA 00A9D2 1 F0 B0 beq LA984 00A9D4 1 D0 C4 bne LA99A 00A9D6 1 A0 00 LA9D6: ldy #$00 00A9D8 1 20 B0 04 jsr INDIN1 00A9DB 1 AA tax 00A9DC 1 20 48 AA jsr LAA48 00A9DF 1 85 35 sta FRESPC 00A9E1 1 84 36 sty $36 00A9E3 1 8A txa 00A9E4 1 20 39 AA jsr LAA39 00A9E7 1 4C 7F A9 jmp LA97F 00A9EA 1 00A9EA 1 C4 34 LA9EA: cpy $34 00A9EC 1 90 2A bcc LAA18 00A9EE 1 D0 06 bne LA9F6 00A9F0 1 C5 33 cmp FRETOP 00A9F2 1 F0 24 beq LAA18 00A9F4 1 90 22 bcc LAA18 00A9F6 1 24 58 LA9F6: bit $58 00A9F8 1 30 05 bmi LA9FF 00A9FA 1 A9 02 lda #$02 00A9FC 1 20 48 AA jsr LAA48 00A9FF 1 A9 02 LA9FF: lda #$02 00AA01 1 20 39 AA jsr LAA39 00AA04 1 A0 01 ldy #$01 00AA06 1 20 65 81 jsr L8165 00AA09 1 C9 FF cmp #$FF 00AA0B 1 D0 01 bne LAA0E 00AA0D 1 60 rts 00AA0E 1 00AA0E 1 20 65 81 LAA0E: jsr L8165 00AA11 1 99 22 00 sta INDEX1,y 00AA14 1 88 dey 00AA15 1 10 F7 bpl LAA0E 00AA17 1 60 rts 00AA18 1 00AA18 1 A6 16 LAA18: ldx TEMPPT 00AA1A 1 E0 19 LAA1A: cpx #$19 00AA1C 1 F0 10 beq LAA2E 00AA1E 1 20 57 AA jsr LAA57 00AA21 1 F0 F7 beq LAA1A 00AA23 1 A0 00 ldy #$00 00AA25 1 91 5C sta ($5C),y 00AA27 1 C8 iny 00AA28 1 A9 FF lda #$FF 00AA2A 1 91 5C sta ($5C),y 00AA2C 1 D0 EC bne LAA1A 00AA2E 1 68 LAA2E: pla 00AA2F 1 68 pla 00AA30 1 A5 35 lda FRESPC 00AA32 1 A4 36 ldy $36 00AA34 1 85 33 sta FRETOP 00AA36 1 84 34 sty $34 00AA38 1 60 rts 00AA39 1 00AA39 1 49 FF LAA39: eor #$FF 00AA3B 1 38 sec 00AA3C 1 65 4E adc DEFPNT 00AA3E 1 A4 4F ldy $4F 00AA40 1 B0 01 bcs LAA43 00AA42 1 88 dey 00AA43 1 85 4E LAA43: sta DEFPNT 00AA45 1 84 4F sty $4F 00AA47 1 60 rts 00AA48 1 00AA48 1 49 FF LAA48: eor #$FF 00AA4A 1 38 sec 00AA4B 1 65 5F adc $5F 00AA4D 1 A4 60 ldy $60 00AA4F 1 B0 01 bcs LAA52 00AA51 1 88 dey 00AA52 1 85 5F LAA52: sta $5F 00AA54 1 84 60 sty $60 00AA56 1 60 rts 00AA57 1 00AA57 1 CA LAA57: dex 00AA58 1 B5 00 lda PDIR,x 00AA5A 1 85 5D sta $5D 00AA5C 1 CA dex 00AA5D 1 B5 00 lda PDIR,x 00AA5F 1 85 5C sta $5C 00AA61 1 CA dex 00AA62 1 B5 00 lda PDIR,x 00AA64 1 48 pha 00AA65 1 18 clc 00AA66 1 65 5C adc $5C 00AA68 1 85 5C sta $5C 00AA6A 1 90 02 bcc LAA6E 00AA6C 1 E6 5D inc $5D 00AA6E 1 68 LAA6E: pla 00AA6F 1 60 rts 00AA70 1 00AA70 1 A9 EC LAA70: lda #$EC 00AA72 1 A0 AA ldy #$AA 00AA74 1 20 66 A0 jsr LA066 00AA77 1 20 91 A2 LAA77: jsr LA291 00AA7A 1 A9 F1 lda #$F1 00AA7C 1 A0 AA ldy #$AA 00AA7E 1 A6 6E ldx ARGSGN 00AA80 1 20 8C A1 jsr LA18C 00AA83 1 20 91 A2 jsr LA291 00AA86 1 20 58 A3 jsr LA358 00AA89 1 A9 00 lda #$00 00AA8B 1 85 6F sta ARISGN 00AA8D 1 20 87 9E jsr L9E87 00AA90 1 A9 F6 lda #$F6 00AA92 1 A0 AA ldy #$AA 00AA94 1 20 6C A0 jsr LA06C 00AA97 1 A5 66 lda FACSGN 00AA99 1 48 pha 00AA9A 1 10 0D bpl LAAA9 00AA9C 1 20 62 A0 jsr LA062 00AA9F 1 A5 66 lda FACSGN 00AAA1 1 30 09 bmi LAAAC 00AAA3 1 A5 12 lda TANSGN 00AAA5 1 49 FF eor #$FF 00AAA7 1 85 12 sta TANSGN 00AAA9 1 20 27 A6 LAAA9: jsr LA627 00AAAC 1 A9 F6 LAAAC: lda #$F6 00AAAE 1 A0 AA ldy #$AA 00AAB0 1 20 66 A0 jsr LA066 00AAB3 1 68 pla 00AAB4 1 10 03 bpl LAAB9 00AAB6 1 20 27 A6 jsr LA627 00AAB9 1 A9 FB LAAB9: lda #$FB 00AABB 1 A0 AA ldy #$AA 00AABD 1 4C B3 A6 jmp LA6B3 00AAC0 1 00AAC0 1 20 4F A2 LAAC0: jsr LA24F 00AAC3 1 A9 00 lda #$00 00AAC5 1 85 12 sta TANSGN 00AAC7 1 20 77 AA jsr LAA77 00AACA 1 A2 4E ldx #$4E 00AACC 1 A0 00 ldy #$00 00AACE 1 20 5D A7 jsr LA75D 00AAD1 1 A9 57 lda #$57 00AAD3 1 A0 00 ldy #$00 00AAD5 1 20 21 A2 jsr LA221 00AAD8 1 A9 00 lda #$00 00AADA 1 85 66 sta FACSGN 00AADC 1 A5 12 lda TANSGN 00AADE 1 20 E8 AA jsr LAAE8 00AAE1 1 A9 4E lda #$4E 00AAE3 1 A0 00 ldy #$00 00AAE5 1 4C 94 A1 jmp LA194 00AAE8 1 00AAE8 1 48 LAAE8: pha 00AAE9 1 4C A9 AA jmp LAAA9 00AAEC 1 00AAEC 1 81 49 0F DA LAAEC: .byte $81,$49,$0F,$DA,$A2 00AAF0 1 A2 00AAF1 1 83 49 0F DA LAAF1: .byte $83,$49,$0F,$DA,$A2 00AAF5 1 A2 00AAF6 1 7F 00 00 00 LAAF6: .byte $7F,$00,$00,$00,$00 00AAFA 1 00 00AAFB 1 05 LAAFB: .byte $05 00AAFC 1 84 E6 1A 2D LAAFC: .byte $84,$E6,$1A,$2D,$1B 00AB00 1 1B 00AB01 1 86 28 07 FB LAB01: .byte $86,$28,$07,$FB,$F8 00AB05 1 F8 00AB06 1 87 99 68 89 LAB06: .byte $87,$99,$68,$89,$01 00AB0A 1 01 00AB0B 1 87 23 35 DF LAB0B: .byte $87,$23,$35,$DF,$E1 00AB0F 1 E1 00AB10 1 86 A5 5D E7 LAB10: .byte $86,$A5,$5D,$E7,$28 00AB14 1 28 00AB15 1 83 49 0F DA LAB15: .byte $83,$49,$0F,$DA,$A2 00AB19 1 A2 00AB1A 1 A5 66 LAB1A: lda FACSGN 00AB1C 1 48 pha 00AB1D 1 10 03 bpl LAB22 00AB1F 1 20 27 A6 jsr LA627 00AB22 1 A5 61 LAB22: lda FACEXP 00AB24 1 48 pha 00AB25 1 C9 81 cmp #$81 00AB27 1 90 07 bcc LAB30 00AB29 1 A9 F0 lda #$F0 00AB2B 1 A0 9F ldy #$9F 00AB2D 1 20 72 A0 jsr LA072 00AB30 1 A9 4A LAB30: lda #$4A 00AB32 1 A0 AB ldy #$AB 00AB34 1 20 B3 A6 jsr LA6B3 00AB37 1 68 pla 00AB38 1 C9 81 cmp #$81 00AB3A 1 90 07 bcc LAB43 00AB3C 1 A9 EC lda #$EC 00AB3E 1 A0 AA ldy #$AA 00AB40 1 20 6C A0 jsr LA06C 00AB43 1 68 LAB43: pla 00AB44 1 10 03 bpl LAB49 00AB46 1 4C 27 A6 jmp LA627 00AB49 1 00AB49 1 60 LAB49: rts 00AB4A 1 00AB4A 1 0B LAB4A: .byte $0B 00AB4B 1 76 B3 83 BD LAB4B: .byte $76,$B3,$83,$BD,$D3 00AB4F 1 D3 00AB50 1 79 1E F4 A6 LAB50: .byte $79,$1E,$F4,$A6,$F5 00AB54 1 F5 00AB55 1 7B 83 FC B0 LAB55: .byte $7B,$83,$FC,$B0,$10 00AB59 1 10 00AB5A 1 7C 0C 1F 67 LAB5A: .byte $7C,$0C,$1F,$67,$CA 00AB5E 1 CA 00AB5F 1 7C DE 53 CB LAB5F: .byte $7C,$DE,$53,$CB,$C1 00AB63 1 C1 00AB64 1 7D 14 64 70 LAB64: .byte $7D,$14,$64,$70,$4C 00AB68 1 4C 00AB69 1 7D B7 EA 51 LAB69: .byte $7D,$B7,$EA,$51,$7A 00AB6D 1 7A 00AB6E 1 7D 63 30 88 LAB6E: .byte $7D,$63,$30,$88,$7E 00AB72 1 7E 00AB73 1 7E 92 44 99 LAB73: .byte $7E,$92,$44,$99,$3A 00AB77 1 3A 00AB78 1 7E 4C CC 91 LAB78: .byte $7E,$4C,$CC,$91,$C7 00AB7C 1 C7 00AB7D 1 7F AA AA AA LAB7D: .byte $7F,$AA,$AA,$AA,$13 00AB81 1 13 00AB82 1 81 00 00 00 LAB82: .byte $81,$00,$00,$00 00AB86 1 00 LAB86: .byte $00 00AB87 1 89 8A 8D A7 LAB87: .byte $89,$8A,$8D,$A7,$8C,$D6,$D7,$D5 00AB8B 1 8C D6 D7 D5 00AB8F 1 20 DE B6 LAB8F: jsr LB6DE 00AB92 1 A9 00 lda #$00 00AB94 1 A2 0A ldx #$0A 00AB96 1 86 03 stx ZPVEC1 00AB98 1 85 04 sta $04 00AB9A 1 86 05 stx ZPVEC2 00AB9C 1 85 06 sta $06 00AB9E 1 85 5A sta $5A 00ABA0 1 85 5B sta $5B 00ABA2 1 20 79 04 jsr CHRGOT 00ABA5 1 F0 66 beq LAC0D 00ABA7 1 20 3E 8E jsr L8E3E 00ABAA 1 A5 08 lda ENDCHR 00ABAC 1 F0 08 beq LABB6 00ABAE 1 A5 14 lda LINNUM 00ABB0 1 A6 15 ldx $15 00ABB2 1 85 03 sta ZPVEC1 00ABB4 1 86 04 stx $04 00ABB6 1 20 79 04 LABB6: jsr CHRGOT 00ABB9 1 F0 52 beq LAC0D 00ABBB 1 20 91 94 jsr L9491 00ABBE 1 20 3E 8E jsr L8E3E 00ABC1 1 A5 08 lda ENDCHR 00ABC3 1 F0 10 beq LABD5 00ABC5 1 A5 14 lda LINNUM 00ABC7 1 A6 15 ldx $15 00ABC9 1 85 05 sta ZPVEC2 00ABCB 1 86 06 stx $06 00ABCD 1 D0 06 bne LABD5 00ABCF 1 AA tax 00ABD0 1 D0 03 bne LABD5 00ABD2 1 4C 1C 99 LABD2: jmp L991C 00ABD5 1 00ABD5 1 20 79 04 LABD5: jsr CHRGOT 00ABD8 1 F0 33 beq LAC0D 00ABDA 1 20 91 94 jsr L9491 00ABDD 1 20 3E 8E jsr L8E3E 00ABE0 1 A5 14 lda LINNUM 00ABE2 1 A6 15 ldx $15 00ABE4 1 85 5A sta $5A 00ABE6 1 86 5B stx $5B 00ABE8 1 20 3D 8A jsr L8A3D 00ABEB 1 A5 5F lda $5F 00ABED 1 A6 60 ldx $60 00ABEF 1 85 58 sta $58 00ABF1 1 86 59 stx $59 00ABF3 1 A5 03 lda ZPVEC1 00ABF5 1 A6 04 ldx $04 00ABF7 1 85 14 sta LINNUM 00ABF9 1 86 15 stx $15 00ABFB 1 20 3D 8A jsr L8A3D 00ABFE 1 A5 60 lda $60 00AC00 1 38 sec 00AC01 1 E5 59 sbc $59 00AC03 1 90 CD bcc LABD2 00AC05 1 D0 06 bne LAC0D 00AC07 1 A5 5F lda $5F 00AC09 1 E5 58 sbc $58 00AC0B 1 90 C5 bcc LABD2 00AC0D 1 20 F1 8A LAC0D: jsr L8AF1 00AC10 1 20 86 AD LAC10: jsr LAD86 00AC13 1 20 86 AD jsr LAD86 00AC16 1 D0 3D bne LAC55 00AC18 1 20 59 AD jsr LAD59 00AC1B 1 20 86 AD LAC1B: jsr LAD86 00AC1E 1 20 86 AD jsr LAD86 00AC21 1 D0 03 bne LAC26 00AC23 1 4C B3 AE jmp LAEB3 00AC26 1 00AC26 1 20 86 AD LAC26: jsr LAD86 00AC29 1 85 14 sta LINNUM 00AC2B 1 C8 iny 00AC2C 1 20 A5 04 jsr INDTXT 00AC2F 1 38 sec 00AC30 1 E5 5B sbc $5B 00AC32 1 90 19 bcc LAC4D 00AC34 1 D0 06 bne LAC3C 00AC36 1 A5 14 lda LINNUM 00AC38 1 E5 5A sbc $5A 00AC3A 1 90 11 bcc LAC4D 00AC3C 1 A5 62 LAC3C: lda FACH0 00AC3E 1 91 3B sta (TXTPTR),y 00AC40 1 88 dey 00AC41 1 A5 63 lda $63 00AC43 1 91 3B sta (TXTPTR),y 00AC45 1 20 86 AD jsr LAD86 00AC48 1 20 73 AD jsr LAD73 00AC4B 1 F0 CE beq LAC1B 00AC4D 1 20 86 AD LAC4D: jsr LAD86 00AC50 1 20 80 AD jsr LAD80 00AC53 1 F0 C6 beq LAC1B 00AC55 1 20 86 AD LAC55: jsr LAD86 00AC58 1 20 86 AD jsr LAD86 00AC5B 1 20 86 AD LAC5B: jsr LAD86 00AC5E 1 C9 22 LAC5E: cmp #$22 00AC60 1 D0 0B bne LAC6D 00AC62 1 20 86 AD LAC62: jsr LAD86 00AC65 1 F0 A9 beq LAC10 00AC67 1 C9 22 cmp #$22 00AC69 1 D0 F7 bne LAC62 00AC6B 1 F0 EE beq LAC5B 00AC6D 1 AA LAC6D: tax 00AC6E 1 F0 A0 beq LAC10 00AC70 1 10 E9 bpl LAC5B 00AC72 1 A2 08 ldx #$08 00AC74 1 DD 86 AB LAC74: cmp LAB86,x 00AC77 1 F0 10 beq LAC89 00AC79 1 CA dex 00AC7A 1 D0 F8 bne LAC74 00AC7C 1 C9 CB cmp #$CB 00AC7E 1 D0 DB bne LAC5B 00AC80 1 20 73 04 jsr CHRGET 00AC83 1 F0 8B beq LAC10 00AC85 1 C9 A4 cmp #$A4 00AC87 1 D0 D2 bne LAC5B 00AC89 1 A5 3B LAC89: lda TXTPTR 00AC8B 1 8D 59 02 sta OLDLIN 00AC8E 1 A5 3C lda $3C 00AC90 1 8D 5A 02 sta $025A 00AC93 1 20 73 04 jsr CHRGET 00AC96 1 B0 C6 bcs LAC5E 00AC98 1 20 3E 8E jsr L8E3E 00AC9B 1 20 EE AC jsr LACEE 00AC9E 1 AD 59 02 lda OLDLIN 00ACA1 1 85 3B sta TXTPTR 00ACA3 1 AD 5A 02 lda $025A 00ACA6 1 85 3C sta $3C 00ACA8 1 A0 00 ldy #$00 00ACAA 1 A2 00 ldx #$00 00ACAC 1 BD 01 01 LACAC: lda $0101,x 00ACAF 1 F0 1C beq LACCD 00ACB1 1 48 pha 00ACB2 1 20 73 04 jsr CHRGET 00ACB5 1 90 0E bcc LACC5 00ACB7 1 .if CompileComputer >= PLUS4_BETA_0203 00ACB7 1 20 42 AD jsr LAD42 00ACBA 1 E6 6C inc $6C 00ACBC 1 20 BB AD jsr LADBB 00ACBF 1 E6 2D inc VARTAB 00ACC1 1 D0 02 bne LACC5 00ACC3 1 E6 2E inc $2E 00ACC5 1 .else 00ACC5 1 jsr LAD33 00ACC5 1 .endif 00ACC5 1 68 LACC5: pla 00ACC6 1 A0 00 ldy #$00 00ACC8 1 91 3B sta (TXTPTR),y 00ACCA 1 E8 inx 00ACCB 1 D0 DF bne LACAC 00ACCD 1 20 73 04 LACCD: jsr CHRGET 00ACD0 1 B0 15 bcs LACE7 00ACD2 1 20 42 AD LACD2: jsr LAD42 00ACD5 1 C6 6C dec $6C 00ACD7 1 20 A2 AD jsr LADA2 00ACDA 1 A5 2D lda VARTAB 00ACDC 1 D0 02 bne LACE0 00ACDE 1 C6 2E dec $2E 00ACE0 1 C6 2D LACE0: dec VARTAB 00ACE2 1 20 79 04 jsr CHRGOT 00ACE5 1 90 EB bcc LACD2 00ACE7 1 C9 2C LACE7: cmp #$2C 00ACE9 1 F0 9E beq LAC89 00ACEB 1 4C 5E AC jmp LAC5E 00ACEE 1 00ACEE 1 20 59 AD LACEE: jsr LAD59 00ACF1 1 20 86 AD LACF1: jsr LAD86 00ACF4 1 D0 0D bne LAD03 00ACF6 1 20 86 AD jsr LAD86 00ACF9 1 D0 0B bne LAD06 00ACFB 1 A9 FF lda #$FF 00ACFD 1 85 62 sta FACH0 00ACFF 1 85 63 sta $63 00AD01 1 30 2A bmi LAD2D 00AD03 1 20 86 AD LAD03: jsr LAD86 00AD06 1 20 86 AD LAD06: jsr LAD86 00AD09 1 85 58 sta $58 00AD0B 1 C5 14 cmp LINNUM 00AD0D 1 D0 27 bne LAD36 00AD0F 1 20 86 AD jsr LAD86 00AD12 1 85 59 sta $59 00AD14 1 C5 15 cmp $15 00AD16 1 D0 23 bne LAD3B 00AD18 1 38 sec 00AD19 1 E5 5B sbc $5B 00AD1B 1 90 08 bcc LAD25 00AD1D 1 D0 0E bne LAD2D 00AD1F 1 A5 14 lda LINNUM 00AD21 1 E5 5A sbc $5A 00AD23 1 B0 08 bcs LAD2D 00AD25 1 A5 14 LAD25: lda LINNUM 00AD27 1 85 63 sta $63 00AD29 1 A5 15 lda $15 00AD2B 1 85 62 sta FACH0 00AD2D 1 A2 90 LAD2D: ldx #$90 00AD2F 1 38 sec 00AD30 1 20 CE A2 jsr LA2CE 00AD33 1 4C 6F A4 jmp LA46F 00AD36 1 00AD36 1 20 86 AD LAD36: jsr LAD86 00AD39 1 .if CompileComputer >= PLUS4_BETA_0203 00AD39 1 85 59 sta $59 00AD3B 1 .endif 00AD3B 1 20 64 AD LAD3B: jsr LAD64 00AD3E 1 F0 B1 beq LACF1 00AD40 1 .if CompileComputer = PLUS4_BETA_0119 00AD40 1 LAD33: jsr LAD42 00AD40 1 inc $6c 00AD40 1 jsr LADBB 00AD40 1 inc VARTAB 00AD40 1 bne LAD41 00AD40 1 inc $2E 00AD40 1 LAD41: rts 00AD40 1 00AD40 1 .elseif CompileComputer >= PLUS4_01 00AD40 1 D9 EA .byte $D9,$EA 00AD42 1 .else 00AD42 1 .byte $EA,$C3 00AD42 1 .endif 00AD42 1 A5 3B LAD42: lda TXTPTR 00AD44 1 85 22 sta INDEX1 00AD46 1 A5 3C lda $3C 00AD48 1 85 23 sta $23 00AD4A 1 A5 2D lda VARTAB 00AD4C 1 85 24 sta INDEX2 00AD4E 1 A5 2E lda $2E 00AD50 1 85 25 sta $25 00AD52 1 A0 00 ldy #$00 00AD54 1 84 0B sty COUNT 00AD56 1 84 6C sty $6C 00AD58 1 60 rts 00AD59 1 00AD59 1 A5 03 LAD59: lda ZPVEC1 00AD5B 1 85 63 sta $63 00AD5D 1 A5 04 lda $04 00AD5F 1 85 62 sta FACH0 00AD61 1 4C F1 8A jmp L8AF1 00AD64 1 00AD64 1 A5 59 LAD64: lda $59 00AD66 1 38 sec 00AD67 1 E5 5B sbc $5B 00AD69 1 90 15 bcc LAD80 00AD6B 1 D0 06 bne LAD73 00AD6D 1 A5 58 lda $58 00AD6F 1 E5 5A sbc $5A 00AD71 1 90 0D bcc LAD80 00AD73 1 A5 63 LAD73: lda $63 00AD75 1 18 clc 00AD76 1 65 05 adc ZPVEC2 00AD78 1 85 63 sta $63 00AD7A 1 A5 62 lda FACH0 00AD7C 1 65 06 adc $06 00AD7E 1 85 62 sta FACH0 00AD80 1 20 86 AD LAD80: jsr LAD86 00AD83 1 D0 FB bne LAD80 00AD85 1 60 rts 00AD86 1 00AD86 1 A0 00 LAD86: ldy #$00 00AD88 1 E6 3B inc TXTPTR 00AD8A 1 D0 02 bne LAD8E 00AD8C 1 E6 3C inc $3C 00AD8E 1 4C A5 04 LAD8E: jmp INDTXT 00AD91 1 00AD91 1 A5 22 LAD91: lda INDEX1 00AD93 1 C5 24 cmp INDEX2 00AD95 1 D0 04 bne LAD9B 00AD97 1 A5 23 lda $23 00AD99 1 C5 25 cmp $25 00AD9B 1 60 LAD9B: rts 00AD9C 1 00AD9C 1 E6 22 LAD9C: inc INDEX1 00AD9E 1 D0 02 bne LADA2 00ADA0 1 E6 23 inc $23 00ADA2 1 A4 0B LADA2: ldy COUNT 00ADA4 1 C8 iny 00ADA5 1 20 B0 04 jsr INDIN1 00ADA8 1 A4 6C ldy $6C 00ADAA 1 C8 iny 00ADAB 1 91 22 sta (INDEX1),y 00ADAD 1 20 91 AD jsr LAD91 00ADB0 1 D0 EA bne LAD9C 00ADB2 1 60 rts 00ADB3 1 00ADB3 1 A5 24 LADB3: lda INDEX2 00ADB5 1 D0 02 bne LADB9 00ADB7 1 C6 25 dec $25 00ADB9 1 C6 24 LADB9: dec INDEX2 00ADBB 1 A4 0B LADBB: ldy COUNT 00ADBD 1 20 BB 04 jsr INDIN2 00ADC0 1 A4 6C ldy $6C 00ADC2 1 91 24 sta (INDEX2),y 00ADC4 1 20 91 AD jsr LAD91 00ADC7 1 D0 EA bne LADB3 00ADC9 1 60 rts 00ADCA 1 00ADCA 1 A9 80 LADCA: lda #$80 00ADCC 1 85 10 sta SUBFLG 00ADCE 1 20 7C 8E jsr L8E7C 00ADD1 1 A9 81 lda #$81 00ADD3 1 85 02 sta SRCHTK 00ADD5 1 20 71 88 jsr L8871 00ADD8 1 F0 08 beq LADE2 00ADDA 1 A0 12 ldy #$12 00ADDC 1 20 05 89 jsr L8905 00ADDF 1 20 60 A7 jsr LA760 00ADE2 1 20 69 A7 LADE2: jsr LA769 00ADE5 1 20 BE 8D jsr L8DBE 00ADE8 1 98 tya 00ADE9 1 A0 11 ldy #$11 00ADEB 1 18 clc 00ADEC 1 65 3B adc TXTPTR 00ADEE 1 91 7C sta (TOS),y 00ADF0 1 A5 3C lda $3C 00ADF2 1 69 00 adc #$00 00ADF4 1 88 dey 00ADF5 1 91 7C sta (TOS),y 00ADF7 1 A5 3A lda $3A 00ADF9 1 88 dey 00ADFA 1 91 7C sta (TOS),y 00ADFC 1 A5 39 lda CHRLIN 00ADFE 1 88 dey 00ADFF 1 91 7C sta (TOS),y 00AE01 1 A9 A4 lda #$A4 00AE03 1 20 93 94 jsr L9493 00AE06 1 20 17 93 jsr L9317 00AE09 1 20 14 93 jsr L9314 00AE0C 1 A5 66 lda FACSGN 00AE0E 1 09 7F ora #$7F 00AE10 1 25 62 and FACH0 00AE12 1 85 62 sta FACH0 00AE14 1 A2 04 ldx #$04 00AE16 1 A0 0D ldy #$0D 00AE18 1 B5 61 LAE18: lda FACEXP,x 00AE1A 1 91 7C sta (TOS),y 00AE1C 1 CA dex 00AE1D 1 88 dey 00AE1E 1 10 F8 bpl LAE18 00AE20 1 A9 F0 lda #$F0 00AE22 1 A0 9F ldy #$9F 00AE24 1 20 21 A2 jsr LA221 00AE27 1 20 79 04 jsr CHRGOT 00AE2A 1 C9 A9 cmp #$A9 00AE2C 1 D0 06 bne LAE34 00AE2E 1 20 73 04 jsr CHRGET 00AE31 1 20 14 93 jsr L9314 00AE34 1 20 B0 A2 LAE34: jsr LA2B0 00AE37 1 48 pha 00AE38 1 20 A0 A2 jsr LA2A0 00AE3B 1 68 pla 00AE3C 1 A0 08 ldy #$08 00AE3E 1 A2 05 ldx #$05 00AE40 1 91 7C LAE40: sta (TOS),y 00AE42 1 B5 60 lda $60,x 00AE44 1 88 dey 00AE45 1 CA dex 00AE46 1 10 F8 bpl LAE40 00AE48 1 A5 4A lda $4A 00AE4A 1 91 7C sta (TOS),y 00AE4C 1 A5 49 lda FORPNT 00AE4E 1 88 dey 00AE4F 1 91 7C sta (TOS),y 00AE51 1 A9 81 lda #$81 00AE53 1 88 dey 00AE54 1 91 7C sta (TOS),y 00AE56 1 60 rts 00AE57 1 00AE57 1 4C A1 94 LAE57: jmp L94A1 00AE5A 1 00AE5A 1 20 DE B6 LAE5A: jsr LB6DE 00AE5D 1 20 79 04 jsr CHRGOT 00AE60 1 F0 F5 beq LAE57 00AE62 1 20 CA AE jsr LAECA 00AE65 1 A5 5F lda $5F 00AE67 1 A6 60 ldx $60 00AE69 1 85 24 sta INDEX2 00AE6B 1 86 25 stx $25 00AE6D 1 20 3D 8A jsr L8A3D 00AE70 1 90 15 bcc LAE87 00AE72 1 A0 01 ldy #$01 00AE74 1 20 D1 04 jsr INDLOW 00AE77 1 88 dey 00AE78 1 AA tax 00AE79 1 D0 05 bne LAE80 00AE7B 1 20 D1 04 jsr INDLOW 00AE7E 1 F0 07 beq LAE87 00AE80 1 20 D1 04 LAE80: jsr INDLOW 00AE83 1 85 5F sta $5F 00AE85 1 86 60 stx $60 00AE87 1 A5 24 LAE87: lda INDEX2 00AE89 1 38 sec 00AE8A 1 E5 5F sbc $5F 00AE8C 1 AA tax 00AE8D 1 A5 25 lda $25 00AE8F 1 E5 60 sbc $60 00AE91 1 A8 tay 00AE92 1 B0 1F bcs LAEB3 00AE94 1 8A txa 00AE95 1 18 clc 00AE96 1 65 2D adc VARTAB 00AE98 1 85 2D sta VARTAB 00AE9A 1 98 tya 00AE9B 1 65 2E adc $2E 00AE9D 1 85 2E sta $2E 00AE9F 1 A0 00 ldy #$00 00AEA1 1 20 D1 04 LAEA1: jsr INDLOW 00AEA4 1 91 24 sta (INDEX2),y 00AEA6 1 C8 iny 00AEA7 1 D0 F8 bne LAEA1 00AEA9 1 E6 60 inc $60 00AEAB 1 E6 25 inc $25 00AEAD 1 A5 2E lda $2E 00AEAF 1 C5 25 cmp $25 00AEB1 1 B0 EE bcs LAEA1 00AEB3 1 20 18 88 LAEB3: jsr L8818 00AEB6 1 A5 22 lda INDEX1 00AEB8 1 A6 23 ldx $23 00AEBA 1 18 clc 00AEBB 1 69 02 adc #$02 00AEBD 1 85 2D sta VARTAB 00AEBF 1 90 01 bcc LAEC2 00AEC1 1 E8 inx 00AEC2 1 86 2E LAEC2: stx $2E 00AEC4 1 20 93 8A jsr L8A93 00AEC7 1 4C 7E 86 jmp L867E 00AECA 1 00AECA 1 F0 06 LAECA: beq LAED2 00AECC 1 90 04 bcc LAED2 00AECE 1 C9 AB cmp #$AB 00AED0 1 D0 22 bne LAEF4 00AED2 1 20 3E 8E LAED2: jsr L8E3E 00AED5 1 20 3D 8A jsr L8A3D 00AED8 1 20 79 04 jsr CHRGOT 00AEDB 1 F0 0C beq LAEE9 00AEDD 1 C9 AB cmp #$AB 00AEDF 1 D0 13 bne LAEF4 00AEE1 1 20 73 04 jsr CHRGET 00AEE4 1 20 3E 8E jsr L8E3E 00AEE7 1 D0 0B bne LAEF4 00AEE9 1 A5 08 LAEE9: lda ENDCHR 00AEEB 1 D0 06 bne LAEF3 00AEED 1 A9 FF lda #$FF 00AEEF 1 85 14 sta LINNUM 00AEF1 1 85 15 sta $15 00AEF3 1 60 LAEF3: rts 00AEF4 1 00AEF4 1 4C A1 94 LAEF4: jmp L94A1 00AEF7 1 00AEF7 1 A2 FF LAEF7: ldx #$FF 00AEF9 1 8E E0 02 stx ENDFD 00AEFC 1 20 73 04 jsr CHRGET 00AEFF 1 20 2C 93 jsr L932C 00AF02 1 20 1A 93 jsr L931A 00AF05 1 A5 64 lda $64 00AF07 1 48 pha 00AF08 1 A5 65 lda $65 00AF0A 1 48 pha 00AF0B 1 A0 02 ldy #$02 00AF0D 1 20 DC 04 LAF0D: jsr INDFMO 00AF10 1 88 dey 00AF11 1 99 3D 00 sta FNDPNT,y 00AF14 1 D0 F7 bne LAF0D 00AF16 1 20 DC 04 jsr INDFMO 00AF19 1 8D DF 02 sta LFOR 00AF1C 1 A8 tay 00AF1D 1 F0 0B beq LAF2A 00AF1F 1 88 LAF1F: dey 00AF20 1 20 71 81 jsr L8171 00AF23 1 C9 23 cmp #$23 00AF25 1 F0 06 beq LAF2D 00AF27 1 98 tya 00AF28 1 D0 F5 bne LAF1F 00AF2A 1 4C A1 94 LAF2A: jmp L94A1 00AF2D 1 00AF2D 1 A9 3B LAF2D: lda #$3B 00AF2F 1 20 93 94 LAF2F: jsr L9493 00AF32 1 84 76 sty KEYNUM 00AF34 1 8C CD 02 sty BNR 00AF37 1 20 2C 93 jsr L932C 00AF3A 1 24 0D bit VALTYP 00AF3C 1 10 39 bpl LAF77 00AF3E 1 20 70 B1 jsr LB170 00AF41 1 20 B7 B2 jsr LB2B7 00AF44 1 AE D5 02 ldx CHSN 00AF47 1 F0 15 beq LAF5E 00AF49 1 A2 00 ldx #$00 00AF4B 1 38 sec 00AF4C 1 AD DB 02 lda CFORM 00AF4F 1 E5 77 sbc $77 00AF51 1 90 0B bcc LAF5E 00AF53 1 A2 3D ldx #$3D 00AF55 1 EC D5 02 cpx CHSN 00AF58 1 D0 03 bne LAF5D 00AF5A 1 4A lsr a 00AF5B 1 69 00 adc #$00 00AF5D 1 AA LAF5D: tax 00AF5E 1 A0 00 LAF5E: ldy #$00 00AF60 1 8A LAF60: txa 00AF61 1 F0 05 beq LAF68 00AF63 1 CA dex 00AF64 1 A9 20 LAF64: lda #$20 00AF66 1 D0 08 bne LAF70 00AF68 1 C4 77 LAF68: cpy $77 00AF6A 1 B0 F8 bcs LAF64 00AF6C 1 20 B0 04 jsr INDIN1 00AF6F 1 C8 iny 00AF70 1 20 B0 B2 LAF70: jsr LB2B0 00AF73 1 D0 EB bne LAF60 00AF75 1 F0 24 beq LAF9B 00AF77 1 20 6F A4 LAF77: jsr LA46F 00AF7A 1 A0 FF ldy #$FF 00AF7C 1 C8 LAF7C: iny 00AF7D 1 B9 00 01 lda FBUFFER,y 00AF80 1 D0 FA bne LAF7C 00AF82 1 98 tya 00AF83 1 20 5C 9B jsr L9B5C 00AF86 1 A0 00 ldy #$00 00AF88 1 B9 00 01 LAF88: lda FBUFFER,y 00AF8B 1 F0 05 beq LAF92 00AF8D 1 91 62 sta (FACH0),y 00AF8F 1 C8 iny 00AF90 1 D0 F6 bne LAF88 00AF92 1 20 B0 9B LAF92: jsr L9BB0 00AF95 1 20 70 B1 jsr LB170 00AF98 1 20 BB AF jsr LAFBB 00AF9B 1 20 79 04 LAF9B: jsr CHRGOT 00AF9E 1 C9 2C cmp #$2C 00AFA0 1 F0 8D beq LAF2F 00AFA2 1 38 sec 00AFA3 1 66 76 ror KEYNUM 00AFA5 1 20 B7 B2 jsr LB2B7 00AFA8 1 68 pla 00AFA9 1 A8 tay 00AFAA 1 68 pla 00AFAB 1 20 52 9C jsr L9C52 00AFAE 1 20 79 04 jsr CHRGOT 00AFB1 1 C9 3B cmp #$3B 00AFB3 1 F0 03 beq LAFB8 00AFB5 1 4C 3E 90 jmp L903E 00AFB8 1 00AFB8 1 4C 73 04 LAFB8: jmp CHRGET 00AFBB 1 00AFBB 1 AD E7 04 LAFBB: lda PUFILL 00AFBE 1 8D DD 02 sta BLFD 00AFC1 1 A9 FF lda #$FF 00AFC3 1 8D DC 02 LAFC3: sta SNO 00AFC6 1 4C CB AF jmp LAFCB 00AFC9 1 00AFC9 1 86 82 LAFC9: stx POINT 00AFCB 1 C4 77 LAFCB: cpy $77 00AFCD 1 F0 33 beq LB002 00AFCF 1 B9 00 01 lda FBUFFER,y 00AFD2 1 C8 iny 00AFD3 1 C9 20 cmp #$20 00AFD5 1 F0 F4 beq LAFCB 00AFD7 1 C9 2D cmp #$2D 00AFD9 1 F0 E8 beq LAFC3 00AFDB 1 C9 2E cmp #$2E 00AFDD 1 F0 EA beq LAFC9 00AFDF 1 C9 45 cmp #$45 00AFE1 1 F0 11 beq LAFF4 00AFE3 1 9D 00 01 sta FBUFFER,x 00AFE6 1 8E CE 02 stx ENR 00AFE9 1 E8 inx 00AFEA 1 24 82 bit POINT 00AFEC 1 10 DD bpl LAFCB 00AFEE 1 EE D4 02 inc VN 00AFF1 1 4C CB AF jmp LAFCB 00AFF4 1 00AFF4 1 B9 00 01 LAFF4: lda FBUFFER,y 00AFF7 1 C9 2D cmp #$2D 00AFF9 1 D0 03 bne LAFFE 00AFFB 1 6E D2 02 ror USGN 00AFFE 1 C8 LAFFE: iny 00AFFF 1 8C D3 02 sty UEXP 00B002 1 A5 82 LB002: lda POINT 00B004 1 10 02 bpl LB008 00B006 1 86 82 stx POINT 00B008 1 20 B7 B2 LB008: jsr LB2B7 00B00B 1 AD D6 02 lda VF 00B00E 1 C9 FF cmp #$FF 00B010 1 F0 29 beq LB03B 00B012 1 AD D9 02 lda FESP 00B015 1 F0 3F beq LB056 00B017 1 AD D3 02 lda UEXP 00B01A 1 D0 12 bne LB02E 00B01C 1 AE CE 02 ldx ENR 00B01F 1 20 45 B1 jsr LB145 00B022 1 DE 02 01 dec $0102,x 00B025 1 E8 inx 00B026 1 8E D3 02 stx UEXP 00B029 1 20 CC B1 jsr LB1CC 00B02C 1 F0 25 beq LB053 00B02E 1 AC D8 02 LB02E: ldy POSP 00B031 1 D0 17 bne LB04A 00B033 1 AC DC 02 ldy SNO 00B036 1 30 12 bmi LB04A 00B038 1 AD D6 02 lda VF 00B03B 1 F0 6A LB03B: beq LB0A7 00B03D 1 CE D6 02 dec VF 00B040 1 D0 05 bne LB047 00B042 1 AD D7 02 lda NF 00B045 1 F0 60 beq LB0A7 00B047 1 EE D1 02 LB047: inc SWE 00B04A 1 20 BF B0 LB04A: jsr LB0BF 00B04D 1 20 8A B1 jsr LB18A 00B050 1 20 BF B0 jsr LB0BF 00B053 1 4C ED B1 LB053: jmp LB1ED 00B056 1 00B056 1 AC D3 02 LB056: ldy UEXP 00B059 1 F0 16 beq LB071 00B05B 1 85 77 sta $77 00B05D 1 38 sec 00B05E 1 6E DA 02 ror ETOF 00B061 1 A4 82 ldy POINT 00B063 1 AD D2 02 lda USGN 00B066 1 10 06 bpl LB06E 00B068 1 20 F8 B0 jsr LB0F8 00B06B 1 4C 7A B0 jmp LB07A 00B06E 1 00B06E 1 20 D9 B0 LB06E: jsr LB0D9 00B071 1 A4 82 LB071: ldy POINT 00B073 1 F0 05 beq LB07A 00B075 1 20 D0 B1 jsr LB1D0 00B078 1 F0 06 beq LB080 00B07A 1 20 8A B1 LB07A: jsr LB18A 00B07D 1 4C 83 B0 jmp LB083 00B080 1 00B080 1 CE D4 02 LB080: dec VN 00B083 1 38 LB083: sec 00B084 1 AD D6 02 lda VF 00B087 1 ED D4 02 sbc VN 00B08A 1 90 1B bcc LB0A7 00B08C 1 8D D1 02 sta SWE 00B08F 1 AC D8 02 ldy POSP 00B092 1 D0 1B bne LB0AF 00B094 1 AC DC 02 ldy SNO 00B097 1 30 16 bmi LB0AF 00B099 1 A8 tay 00B09A 1 F0 0B beq LB0A7 00B09C 1 88 dey 00B09D 1 D0 13 bne LB0B2 00B09F 1 AD D7 02 lda NF 00B0A2 1 0D D4 02 ora VN 00B0A5 1 D0 AC bne LB053 00B0A7 1 A9 2A LB0A7: lda #$2A 00B0A9 1 20 B0 B2 LB0A9: jsr LB2B0 00B0AC 1 D0 FB bne LB0A9 00B0AE 1 60 rts 00B0AF 1 00B0AF 1 A8 LB0AF: tay 00B0B0 1 F0 A1 beq LB053 00B0B2 1 AD D4 02 LB0B2: lda VN 00B0B5 1 D0 9C bne LB053 00B0B7 1 CE D1 02 dec SWE 00B0BA 1 E6 76 inc KEYNUM 00B0BC 1 4C 53 B0 jmp LB053 00B0BF 1 00B0BF 1 38 LB0BF: sec 00B0C0 1 AD D6 02 lda VF 00B0C3 1 ED D4 02 sbc VN 00B0C6 1 F0 39 beq LB101 00B0C8 1 A4 82 ldy POINT 00B0CA 1 90 16 bcc LB0E2 00B0CC 1 85 77 sta $77 00B0CE 1 CC CE 02 LB0CE: cpy ENR 00B0D1 1 F0 02 beq LB0D5 00B0D3 1 B0 01 bcs LB0D6 00B0D5 1 C8 LB0D5: iny 00B0D6 1 EE D4 02 LB0D6: inc VN 00B0D9 1 20 0E B1 LB0D9: jsr LB10E 00B0DC 1 C6 77 dec $77 00B0DE 1 D0 EE bne LB0CE 00B0E0 1 F0 1D beq LB0FF 00B0E2 1 49 FF LB0E2: eor #$FF 00B0E4 1 69 01 adc #$01 00B0E6 1 85 77 sta $77 00B0E8 1 CC CD 02 LB0E8: cpy BNR 00B0EB 1 F0 07 beq LB0F4 00B0ED 1 88 dey 00B0EE 1 CE D4 02 dec VN 00B0F1 1 4C F6 B0 jmp LB0F6 00B0F4 1 00B0F4 1 E6 76 LB0F4: inc KEYNUM 00B0F6 1 A9 80 LB0F6: lda #$80 00B0F8 1 20 10 B1 LB0F8: jsr LB110 00B0FB 1 C6 77 dec $77 00B0FD 1 D0 E9 bne LB0E8 00B0FF 1 84 82 LB0FF: sty POINT 00B101 1 60 LB101: rts 00B102 1 00B102 1 D0 39 LB102: bne LB13D 00B104 1 49 09 eor #$09 00B106 1 9D 00 01 sta FBUFFER,x 00B109 1 CA dex 00B10A 1 EC D3 02 cpx UEXP 00B10D 1 60 rts 00B10E 1 00B10E 1 A9 00 LB10E: lda #$00 00B110 1 AE D3 02 LB110: ldx UEXP 00B113 1 E8 inx 00B114 1 2C DA 02 bit ETOF 00B117 1 30 10 bmi LB129 00B119 1 4D D2 02 eor USGN 00B11C 1 F0 0B beq LB129 00B11E 1 20 53 B1 LB11E: jsr LB153 00B121 1 20 02 B1 jsr LB102 00B124 1 B0 F8 bcs LB11E 00B126 1 4C B2 9F jmp L9FB2 00B129 1 00B129 1 BD 00 01 LB129: lda FBUFFER,x 00B12C 1 DE 00 01 dec FBUFFER,x 00B12F 1 C9 30 cmp #$30 00B131 1 20 02 B1 jsr LB102 00B134 1 B0 F3 bcs LB129 00B136 1 2C DA 02 bit ETOF 00B139 1 10 05 bpl LB140 00B13B 1 84 82 sty POINT 00B13D 1 68 LB13D: pla 00B13E 1 68 pla 00B13F 1 60 rts 00B140 1 00B140 1 AD D2 02 LB140: lda USGN 00B143 1 49 80 eor #$80 00B145 1 8D D2 02 LB145: sta USGN 00B148 1 A9 30 lda #$30 00B14A 1 9D 01 01 sta $0101,x 00B14D 1 A9 31 lda #$31 00B14F 1 9D 02 01 sta $0102,x 00B152 1 60 rts 00B153 1 00B153 1 BD 00 01 LB153: lda FBUFFER,x 00B156 1 FE 00 01 inc FBUFFER,x 00B159 1 C9 39 cmp #$39 00B15B 1 60 rts 00B15C 1 00B15C 1 18 LB15C: clc 00B15D 1 C8 iny 00B15E 1 F0 05 beq LB165 00B160 1 CC DF 02 cpy LFOR 00B163 1 90 04 bcc LB169 00B165 1 A4 76 LB165: ldy KEYNUM 00B167 1 D0 D4 bne LB13D 00B169 1 20 71 81 LB169: jsr L8171 00B16C 1 EE DB 02 inc CFORM 00B16F 1 60 rts 00B170 1 00B170 1 20 4E 9C LB170: jsr L9C4E 00B173 1 85 77 sta $77 00B175 1 A2 0A ldx #$0A 00B177 1 A9 00 lda #$00 00B179 1 9D D1 02 LB179: sta SWE,x 00B17C 1 CA dex 00B17D 1 10 FA bpl LB179 00B17F 1 8E D0 02 stx FLAG 00B182 1 86 82 stx POINT 00B184 1 8E CF 02 stx DOLR 00B187 1 AA tax 00B188 1 A8 tay 00B189 1 60 rts 00B18A 1 00B18A 1 18 LB18A: clc 00B18B 1 A5 82 lda POINT 00B18D 1 6D D7 02 adc NF 00B190 1 B0 39 bcs LB1CB 00B192 1 38 sec 00B193 1 E5 76 sbc KEYNUM 00B195 1 90 34 bcc LB1CB 00B197 1 CD CE 02 cmp ENR 00B19A 1 F0 02 beq LB19E 00B19C 1 B0 2D bcs LB1CB 00B19E 1 CD CD 02 LB19E: cmp BNR 00B1A1 1 90 28 bcc LB1CB 00B1A3 1 AA tax 00B1A4 1 BD 00 01 lda FBUFFER,x 00B1A7 1 C9 35 cmp #$35 00B1A9 1 90 20 bcc LB1CB 00B1AB 1 EC CD 02 LB1AB: cpx BNR 00B1AE 1 F0 0A beq LB1BA 00B1B0 1 CA dex 00B1B1 1 20 53 B1 jsr LB153 00B1B4 1 8E CE 02 stx ENR 00B1B7 1 F0 F2 beq LB1AB 00B1B9 1 60 rts 00B1BA 1 00B1BA 1 A9 31 LB1BA: lda #$31 00B1BC 1 9D 00 01 sta FBUFFER,x 00B1BF 1 E8 inx 00B1C0 1 86 82 stx POINT 00B1C2 1 C6 76 dec KEYNUM 00B1C4 1 10 05 bpl LB1CB 00B1C6 1 E6 76 inc KEYNUM 00B1C8 1 EE D4 02 inc VN 00B1CB 1 60 LB1CB: rts 00B1CC 1 00B1CC 1 A4 82 LB1CC: ldy POINT 00B1CE 1 F0 17 beq LB1E7 00B1D0 1 AC CD 02 LB1D0: ldy BNR 00B1D3 1 B9 00 01 LB1D3: lda FBUFFER,y 00B1D6 1 C9 30 cmp #$30 00B1D8 1 60 rts 00B1D9 1 00B1D9 1 E6 82 LB1D9: inc POINT 00B1DB 1 20 0E B1 jsr LB10E 00B1DE 1 EE CD 02 inc BNR 00B1E1 1 CC CE 02 cpy ENR 00B1E4 1 F0 E5 beq LB1CB 00B1E6 1 C8 iny 00B1E7 1 20 D3 B1 LB1E7: jsr LB1D3 00B1EA 1 F0 ED beq LB1D9 00B1EC 1 60 rts 00B1ED 1 00B1ED 1 AD CF 02 LB1ED: lda DOLR 00B1F0 1 30 02 bmi LB1F4 00B1F2 1 E6 76 inc KEYNUM 00B1F4 1 AE CD 02 LB1F4: ldx BNR 00B1F7 1 CA dex 00B1F8 1 AC DE 02 ldy BEGFD 00B1FB 1 20 71 81 LB1FB: jsr L8171 00B1FE 1 C8 iny 00B1FF 1 C9 2C cmp #$2C 00B201 1 D0 11 bne LB214 00B203 1 2C D0 02 bit FLAG 00B206 1 30 06 bmi LB20E 00B208 1 AD E8 04 lda PUCOMA 00B20B 1 4C 76 B2 jmp LB276 00B20E 1 00B20E 1 AD DD 02 LB20E: lda BLFD 00B211 1 4C 76 B2 jmp LB276 00B214 1 00B214 1 C9 2E LB214: cmp #$2E 00B216 1 D0 06 bne LB21E 00B218 1 AD E9 04 lda PUDOT 00B21B 1 4C 76 B2 jmp LB276 00B21E 1 00B21E 1 C9 2B LB21E: cmp #$2B 00B220 1 F0 3B beq LB25D 00B222 1 C9 2D cmp #$2D 00B224 1 F0 32 beq LB258 00B226 1 C9 5E cmp #$5E 00B228 1 D0 63 bne LB28D 00B22A 1 A9 45 lda #$45 00B22C 1 20 B0 B2 jsr LB2B0 00B22F 1 AC D3 02 ldy UEXP 00B232 1 20 D3 B1 jsr LB1D3 00B235 1 D0 06 bne LB23D 00B237 1 C8 iny 00B238 1 20 D3 B1 jsr LB1D3 00B23B 1 F0 07 beq LB244 00B23D 1 A9 2D LB23D: lda #$2D 00B23F 1 2C D2 02 bit USGN 00B242 1 30 02 bmi LB246 00B244 1 A9 2B LB244: lda #$2B 00B246 1 20 B0 B2 LB246: jsr LB2B0 00B249 1 AE D3 02 ldx UEXP 00B24C 1 BD 00 01 lda FBUFFER,x 00B24F 1 20 B0 B2 jsr LB2B0 00B252 1 AC E0 02 ldy ENDFD 00B255 1 4C 6C B2 jmp LB26C 00B258 1 00B258 1 AD DC 02 LB258: lda SNO 00B25B 1 30 B1 bmi LB20E 00B25D 1 AD DC 02 LB25D: lda SNO 00B260 1 4C 76 B2 jmp LB276 00B263 1 00B263 1 A5 76 LB263: lda KEYNUM 00B265 1 D0 15 bne LB27C 00B267 1 EC CE 02 cpx ENR 00B26A 1 F0 05 beq LB271 00B26C 1 E8 LB26C: inx 00B26D 1 BD 00 01 lda FBUFFER,x 00B270 1 2C .byte $2C 00B271 1 A9 30 LB271: lda #$30 00B273 1 4E D0 02 LB273: lsr FLAG 00B276 1 20 B0 B2 LB276: jsr LB2B0 00B279 1 D0 80 bne LB1FB 00B27B 1 60 rts 00B27C 1 00B27C 1 C6 76 LB27C: dec KEYNUM 00B27E 1 AD CF 02 lda DOLR 00B281 1 30 EE bmi LB271 00B283 1 38 sec 00B284 1 6E CF 02 ror DOLR 00B287 1 AD EA 04 lda PUMONY 00B28A 1 4C 73 B2 jmp LB273 00B28D 1 00B28D 1 AD D1 02 LB28D: lda SWE 00B290 1 F0 D1 beq LB263 00B292 1 CE D1 02 dec SWE 00B295 1 F0 03 LB295: beq LB29A 00B297 1 4C 0E B2 jmp LB20E 00B29A 1 00B29A 1 AD D8 02 LB29A: lda POSP 00B29D 1 30 F6 bmi LB295 00B29F 1 20 71 81 LB29F: jsr L8171 00B2A2 1 C9 2C cmp #$2C 00B2A4 1 D0 B2 bne LB258 00B2A6 1 AD DD 02 lda BLFD 00B2A9 1 20 B0 B2 jsr LB2B0 00B2AC 1 C8 iny 00B2AD 1 4C 9F B2 jmp LB29F 00B2B0 1 00B2B0 1 20 B2 90 LB2B0: jsr L90B2 00B2B3 1 CE DB 02 dec CFORM 00B2B6 1 60 rts 00B2B7 1 00B2B7 1 AC E0 02 LB2B7: ldy ENDFD 00B2BA 1 20 5C B1 LB2BA: jsr LB15C 00B2BD 1 20 6C B3 jsr LB36C 00B2C0 1 D0 14 bne LB2D6 00B2C2 1 8C DE 02 sty BEGFD 00B2C5 1 90 1A bcc LB2E1 00B2C7 1 AA tax 00B2C8 1 20 5C B1 LB2C8: jsr LB15C 00B2CB 1 B0 05 bcs LB2D2 00B2CD 1 20 74 B3 jsr LB374 00B2D0 1 F0 0A beq LB2DC 00B2D2 1 AC DE 02 LB2D2: ldy BEGFD 00B2D5 1 8A txa 00B2D6 1 20 B2 90 LB2D6: jsr L90B2 00B2D9 1 4C BA B2 jmp LB2BA 00B2DC 1 00B2DC 1 B0 EA LB2DC: bcs LB2C8 00B2DE 1 AC DE 02 ldy BEGFD 00B2E1 1 A6 76 LB2E1: ldx KEYNUM 00B2E3 1 D0 7A bne LB35F 00B2E5 1 8E DB 02 stx CFORM 00B2E8 1 88 dey 00B2E9 1 CE DB 02 LB2E9: dec CFORM 00B2EC 1 20 5C B1 LB2EC: jsr LB15C 00B2EF 1 B0 74 bcs LB365 00B2F1 1 C9 2C cmp #$2C 00B2F3 1 F0 F7 beq LB2EC 00B2F5 1 20 43 B3 jsr LB343 00B2F8 1 90 EF bcc LB2E9 00B2FA 1 C9 2E cmp #$2E 00B2FC 1 D0 08 bne LB306 00B2FE 1 E8 inx 00B2FF 1 E0 02 cpx #$02 00B301 1 90 E9 bcc LB2EC 00B303 1 4C A1 94 LB303: jmp L94A1 00B306 1 00B306 1 20 78 B3 LB306: jsr LB378 00B309 1 D0 0B bne LB316 00B30B 1 90 03 bcc LB310 00B30D 1 8D D5 02 sta CHSN 00B310 1 FE D6 02 LB310: inc VF,x 00B313 1 4C EC B2 jmp LB2EC 00B316 1 00B316 1 C9 24 LB316: cmp #$24 00B318 1 D0 0F bne LB329 00B31A 1 2C CF 02 bit DOLR 00B31D 1 10 F1 bpl LB310 00B31F 1 18 clc 00B320 1 6E CF 02 ror DOLR 00B323 1 CE D6 02 dec VF 00B326 1 4C 10 B3 jmp LB310 00B329 1 00B329 1 C9 5E LB329: cmp #$5E 00B32B 1 D0 16 bne LB343 00B32D 1 A2 02 ldx #$02 00B32F 1 20 5C B1 LB32F: jsr LB15C 00B332 1 B0 CF bcs LB303 00B334 1 C9 5E cmp #$5E 00B336 1 D0 CB bne LB303 00B338 1 CA dex 00B339 1 10 F4 bpl LB32F 00B33B 1 EE D9 02 inc FESP 00B33E 1 20 5C B1 jsr LB15C 00B341 1 B0 22 bcs LB365 00B343 1 C9 2B LB343: cmp #$2B 00B345 1 D0 19 bne LB360 00B347 1 AD DC 02 lda SNO 00B34A 1 10 05 bpl LB351 00B34C 1 A9 2B lda #$2B 00B34E 1 8D DC 02 sta SNO 00B351 1 AD D8 02 LB351: lda POSP 00B354 1 D0 AD bne LB303 00B356 1 6E D8 02 ror POSP 00B359 1 8C E0 02 sty ENDFD 00B35C 1 EE DB 02 inc CFORM 00B35F 1 60 LB35F: rts 00B360 1 00B360 1 C9 2D LB360: cmp #$2D 00B362 1 F0 ED beq LB351 00B364 1 38 sec 00B365 1 8C E0 02 LB365: sty ENDFD 00B368 1 CE E0 02 dec ENDFD 00B36B 1 60 rts 00B36C 1 00B36C 1 C9 2B LB36C: cmp #$2B 00B36E 1 F0 15 beq LB385 00B370 1 C9 2D cmp #$2D 00B372 1 F0 11 beq LB385 00B374 1 C9 2E LB374: cmp #$2E 00B376 1 F0 0D beq LB385 00B378 1 C9 3D LB378: cmp #$3D 00B37A 1 F0 09 beq LB385 00B37C 1 C9 3E cmp #$3E 00B37E 1 F0 05 beq LB385 00B380 1 C9 23 cmp #$23 00B382 1 D0 01 bne LB385 00B384 1 18 clc 00B385 1 60 LB385: rts 00B386 1 00B386 1 A5 64 LB386: lda $64 00B388 1 8D EB 04 sta TMPDES 00B38B 1 A5 65 lda $65 00B38D 1 8D EC 04 sta $04EC 00B390 1 20 2C 93 jsr L932C 00B393 1 20 1A 93 jsr L931A 00B396 1 A5 64 lda $64 00B398 1 8D ED 04 sta $04ED 00B39B 1 A5 65 lda $65 00B39D 1 8D EE 04 sta $04EE 00B3A0 1 A2 01 ldx #$01 00B3A2 1 86 65 stx $65 00B3A4 1 20 79 04 jsr CHRGOT 00B3A7 1 C9 29 cmp #$29 00B3A9 1 F0 03 beq LB3AE 00B3AB 1 20 D8 9D jsr L9DD8 00B3AE 1 20 8B 94 LB3AE: jsr L948B 00B3B1 1 A6 65 ldx $65 00B3B3 1 D0 03 bne LB3B8 00B3B5 1 4C 1C 99 jmp L991C 00B3B8 1 00B3B8 1 CA LB3B8: dex 00B3B9 1 86 61 stx FACEXP 00B3BB 1 A2 03 ldx #$03 00B3BD 1 BD EB 04 LB3BD: lda TMPDES,x 00B3C0 1 95 57 sta TEMPF1,x 00B3C2 1 CA dex 00B3C3 1 10 F8 bpl LB3BD 00B3C5 1 A0 02 ldy #$02 00B3C7 1 20 75 81 LB3C7: jsr L8175 00B3CA 1 99 5B 00 sta $5B,y 00B3CD 1 20 79 81 jsr L8179 00B3D0 1 99 5E 00 sta $5E,y 00B3D3 1 88 dey 00B3D4 1 10 F1 bpl LB3C7 00B3D6 1 A5 5E lda $5E 00B3D8 1 F0 37 beq LB411 00B3DA 1 A9 00 LB3DA: lda #$00 00B3DC 1 85 62 sta FACH0 00B3DE 1 18 clc 00B3DF 1 A5 5E lda $5E 00B3E1 1 65 61 adc FACEXP 00B3E3 1 B0 2C bcs LB411 00B3E5 1 C5 5B cmp $5B 00B3E7 1 90 02 bcc LB3EB 00B3E9 1 D0 26 bne LB411 00B3EB 1 A4 62 LB3EB: ldy FACH0 00B3ED 1 C4 5E cpy $5E 00B3EF 1 F0 1B beq LB40C 00B3F1 1 98 tya 00B3F2 1 18 clc 00B3F3 1 65 61 adc FACEXP 00B3F5 1 A8 tay 00B3F6 1 20 69 81 jsr L8169 00B3F9 1 85 78 sta $78 00B3FB 1 A4 62 ldy FACH0 00B3FD 1 20 6D 81 jsr L816D 00B400 1 C5 78 cmp $78 00B402 1 F0 04 beq LB408 00B404 1 E6 61 inc FACEXP 00B406 1 D0 D2 bne LB3DA 00B408 1 E6 62 LB408: inc FACH0 00B40A 1 D0 DF bne LB3EB 00B40C 1 E6 61 LB40C: inc FACEXP 00B40E 1 A5 61 lda FACEXP 00B410 1 2C .byte $2C 00B411 1 A9 00 LB411: lda #$00 00B413 1 48 pha 00B414 1 AD ED 04 lda $04ED 00B417 1 AC EE 04 ldy $04EE 00B41A 1 20 52 9C jsr L9C52 00B41D 1 AD EB 04 lda TMPDES 00B420 1 AC EC 04 ldy $04EC 00B423 1 20 52 9C jsr L9C52 00B426 1 68 pla 00B427 1 A8 tay 00B428 1 4C 81 9A jmp L9A81 00B42B 1 00B42B 1 20 86 9A LB42B: jsr L9A86 00B42E 1 20 79 04 jsr CHRGOT 00B431 1 F0 07 beq LB43A 00B433 1 20 E1 9D jsr L9DE1 00B436 1 8C F2 04 sty TRAPNO 00B439 1 2C .byte $2C 00B43A 1 A9 FF LB43A: lda #$FF 00B43C 1 8D F3 04 sta $04F3 00B43F 1 60 rts 00B440 1 00B440 1 20 86 9A LB440: jsr L9A86 00B443 1 AE F1 04 ldx $04F1 00B446 1 E8 inx 00B447 1 F0 70 beq LB4B9 00B449 1 20 79 04 jsr CHRGOT 00B44C 1 F0 47 beq LB495 00B44E 1 90 3A bcc LB48A 00B450 1 C9 82 cmp #$82 00B452 1 D0 62 bne LB4B6 00B454 1 20 95 B4 jsr LB495 00B457 1 A0 00 ldy #$00 00B459 1 20 A5 04 jsr INDTXT 00B45C 1 D0 26 bne LB484 00B45E 1 C8 iny 00B45F 1 20 A5 04 jsr INDTXT 00B462 1 D0 09 bne LB46D 00B464 1 C8 iny 00B465 1 20 A5 04 jsr INDTXT 00B468 1 D0 03 bne LB46D 00B46A 1 4C 7E 86 jmp L867E 00B46D 1 00B46D 1 A0 03 LB46D: ldy #$03 00B46F 1 20 A5 04 jsr INDTXT 00B472 1 85 39 sta CHRLIN 00B474 1 C8 iny 00B475 1 20 A5 04 jsr INDTXT 00B478 1 85 3A sta $3A 00B47A 1 98 tya 00B47B 1 18 clc 00B47C 1 65 3B adc TXTPTR 00B47E 1 85 3B sta TXTPTR 00B480 1 90 02 bcc LB484 00B482 1 E6 3C inc $3C 00B484 1 20 73 04 LB484: jsr CHRGET 00B487 1 4C B0 8D jmp L8DB0 00B48A 1 00B48A 1 20 E1 9D LB48A: jsr L9DE1 00B48D 1 85 15 sta $15 00B48F 1 20 A4 B4 jsr LB4A4 00B492 1 4C 69 8D jmp L8D69 00B495 1 00B495 1 A2 01 LB495: ldx #$01 00B497 1 BD F0 04 LB497: lda ERRLIN,x 00B49A 1 95 39 sta CHRLIN,x 00B49C 1 BD F5 04 lda ERRTXT,x 00B49F 1 95 3B sta TXTPTR,x 00B4A1 1 CA dex 00B4A2 1 10 F3 bpl LB497 00B4A4 1 A2 FF LB4A4: ldx #$FF 00B4A6 1 8E EF 04 stx ERRNUM 00B4A9 1 8E F0 04 stx ERRLIN 00B4AC 1 8E F1 04 stx $04F1 00B4AF 1 AE F4 04 ldx TMPTRP 00B4B2 1 8E F3 04 stx $04F3 00B4B5 1 60 rts 00B4B6 1 00B4B6 1 4C A1 94 LB4B6: jmp L94A1 00B4B9 1 00B4B9 1 A2 1F LB4B9: ldx #$1F 00B4BB 1 4C 83 86 jmp L8683 00B4BE 1 00B4BE 1 20 87 9D LB4BE: jsr L9D87 00B4C1 1 CA dex 00B4C2 1 8A txa 00B4C3 1 C9 24 cmp #$24 00B4C5 1 B0 34 bcs LB4FB 00B4C7 1 20 53 86 jsr L8653 00B4CA 1 A0 FF ldy #$FF 00B4CC 1 A2 00 ldx #$00 00B4CE 1 E8 LB4CE: inx 00B4CF 1 C8 LB4CF: iny 00B4D0 1 B1 24 lda (INDEX2),y 00B4D2 1 30 06 bmi LB4DA 00B4D4 1 C9 20 cmp #$20 00B4D6 1 90 F7 bcc LB4CF 00B4D8 1 B0 F4 bcs LB4CE 00B4DA 1 8A LB4DA: txa 00B4DB 1 20 5C 9B jsr L9B5C 00B4DE 1 A2 00 ldx #$00 00B4E0 1 A0 FF ldy #$FF 00B4E2 1 C8 LB4E2: iny 00B4E3 1 B1 24 lda (INDEX2),y 00B4E5 1 C9 20 cmp #$20 00B4E7 1 90 F9 bcc LB4E2 00B4E9 1 20 FE B4 jsr LB4FE 00B4EC 1 48 pha 00B4ED 1 29 7F and #$7F 00B4EF 1 91 62 sta (FACH0),y 00B4F1 1 20 FE B4 jsr LB4FE 00B4F4 1 E8 inx 00B4F5 1 68 pla 00B4F6 1 10 EA bpl LB4E2 00B4F8 1 4C CA 9C jmp L9CCA 00B4FB 1 00B4FB 1 4C 1C 99 LB4FB: jmp L991C 00B4FE 1 00B4FE 1 48 LB4FE: pha 00B4FF 1 8A txa 00B500 1 48 pha 00B501 1 98 tya 00B502 1 AA tax 00B503 1 68 pla 00B504 1 A8 tay 00B505 1 68 pla 00B506 1 60 rts 00B507 1 00B507 1 20 17 93 LB507: jsr L9317 00B50A 1 A5 14 lda LINNUM 00B50C 1 48 pha 00B50D 1 A5 15 lda $15 00B50F 1 48 pha 00B510 1 20 E4 9D jsr L9DE4 00B513 1 A9 04 lda #$04 00B515 1 20 5C 9B jsr L9B5C 00B518 1 A0 00 ldy #$00 00B51A 1 A5 15 lda $15 00B51C 1 20 2D B5 jsr LB52D 00B51F 1 A5 14 lda LINNUM 00B521 1 20 2D B5 jsr LB52D 00B524 1 68 pla 00B525 1 85 15 sta $15 00B527 1 68 pla 00B528 1 85 14 sta LINNUM 00B52A 1 4C CA 9C jmp L9CCA 00B52D 1 00B52D 1 48 LB52D: pha 00B52E 1 4A lsr a 00B52F 1 4A lsr a 00B530 1 4A lsr a 00B531 1 4A lsr a 00B532 1 20 36 B5 jsr LB536 00B535 1 68 pla 00B536 1 29 0F LB536: and #$0F 00B538 1 C9 0A cmp #$0A 00B53A 1 90 02 bcc LB53E 00B53C 1 69 06 adc #$06 00B53E 1 69 30 LB53E: adc #$30 00B540 1 91 62 sta (FACH0),y 00B542 1 C8 iny 00B543 1 60 rts 00B544 1 00B544 1 20 48 9C LB544: jsr L9C48 00B547 1 A8 tay 00B548 1 88 dey 00B549 1 C0 04 cpy #$04 00B54B 1 B0 AE bcs LB4FB 00B54D 1 20 B0 04 LB54D: jsr INDIN1 00B550 1 99 E7 04 sta PUFILL,y 00B553 1 88 dey 00B554 1 10 F7 bpl LB54D 00B556 1 60 rts 00B557 1 00B557 1 A0 01 LB557: ldy #$01 00B559 1 B9 3B 00 LB559: lda TXTPTR,y 00B55C 1 99 F8 04 sta TMPTXT,y 00B55F 1 B9 39 00 lda CHRLIN,y 00B562 1 99 FA 04 sta TMPLIN,y 00B565 1 88 dey 00B566 1 10 F1 bpl LB559 00B568 1 20 79 04 jsr CHRGOT 00B56B 1 F0 1C beq LB589 00B56D 1 C9 FC cmp #$FC 00B56F 1 F0 11 beq LB582 00B571 1 C9 FD cmp #$FD 00B573 1 D0 3F bne LB5B4 00B575 1 20 4C B6 jsr LB64C 00B578 1 A5 61 lda FACEXP 00B57A 1 D0 0D bne LB589 00B57C 1 20 79 04 LB57C: jsr CHRGOT 00B57F 1 4C BA B5 jmp LB5BA 00B582 1 00B582 1 20 4C B6 LB582: jsr LB64C 00B585 1 A5 61 lda FACEXP 00B587 1 D0 F3 bne LB57C 00B589 1 A0 05 LB589: ldy #$05 00B58B 1 20 05 89 jsr L8905 00B58E 1 88 dey 00B58F 1 AD F9 04 lda $04F9 00B592 1 91 7C sta (TOS),y 00B594 1 88 dey 00B595 1 AD F8 04 lda TMPTXT 00B598 1 91 7C sta (TOS),y 00B59A 1 88 dey 00B59B 1 AD FB 04 lda $04FB 00B59E 1 91 7C sta (TOS),y 00B5A0 1 88 dey 00B5A1 1 AD FA 04 lda TMPLIN 00B5A4 1 91 7C sta (TOS),y 00B5A6 1 88 dey 00B5A7 1 A9 EB lda #$EB 00B5A9 1 91 7C sta (TOS),y 00B5AB 1 60 rts 00B5AC 1 00B5AC 1 20 14 B6 LB5AC: jsr LB614 00B5AF 1 20 79 04 jsr CHRGOT 00B5B2 1 F0 06 beq LB5BA 00B5B4 1 4C A1 94 LB5B4: jmp L94A1 00B5B7 1 00B5B7 1 20 73 04 LB5B7: jsr CHRGET 00B5BA 1 F0 1D LB5BA: beq LB5D9 00B5BC 1 C9 EC cmp #$EC 00B5BE 1 F0 40 beq LB600 00B5C0 1 C9 22 cmp #$22 00B5C2 1 F0 0A beq LB5CE 00B5C4 1 C9 EB cmp #$EB 00B5C6 1 D0 EF bne LB5B7 00B5C8 1 20 B7 B5 jsr LB5B7 00B5CB 1 4C 7C B5 jmp LB57C 00B5CE 1 00B5CE 1 20 73 04 LB5CE: jsr CHRGET 00B5D1 1 F0 06 beq LB5D9 00B5D3 1 C9 22 cmp #$22 00B5D5 1 D0 F7 bne LB5CE 00B5D7 1 F0 DE beq LB5B7 00B5D9 1 C9 3A LB5D9: cmp #$3A 00B5DB 1 F0 DA beq LB5B7 00B5DD 1 24 81 bit RUNMOD 00B5DF 1 10 44 bpl LB625 00B5E1 1 A0 02 ldy #$02 00B5E3 1 20 A5 04 jsr INDTXT 00B5E6 1 F0 3D beq LB625 00B5E8 1 C8 iny 00B5E9 1 20 A5 04 jsr INDTXT 00B5EC 1 85 39 sta CHRLIN 00B5EE 1 C8 iny 00B5EF 1 20 A5 04 jsr INDTXT 00B5F2 1 85 3A sta $3A 00B5F4 1 98 tya 00B5F5 1 18 clc 00B5F6 1 65 3B adc TXTPTR 00B5F8 1 85 3B sta TXTPTR 00B5FA 1 90 BB bcc LB5B7 00B5FC 1 E6 3C inc $3C 00B5FE 1 D0 B7 bne LB5B7 00B600 1 4C B0 8D LB600: jmp L8DB0 00B603 1 00B603 1 F0 2D LB603: beq LB632 00B605 1 C9 FD cmp #$FD 00B607 1 F0 24 beq LB62D 00B609 1 C9 FC cmp #$FC 00B60B 1 D0 A7 bne LB5B4 00B60D 1 20 4C B6 jsr LB64C 00B610 1 A5 61 lda FACEXP 00B612 1 F0 1E beq LB632 00B614 1 A9 EB LB614: lda #$EB 00B616 1 85 02 sta SRCHTK 00B618 1 20 71 88 jsr L8871 00B61B 1 D0 0B bne LB628 00B61D 1 20 69 A7 jsr LA769 00B620 1 A0 05 ldy #$05 00B622 1 4C 72 A7 jmp LA772 00B625 1 00B625 1 A2 20 LB625: ldx #$20 00B627 1 2C .byte $2C 00B628 1 A2 21 LB628: ldx #$21 00B62A 1 4C 83 86 jmp L8683 00B62D 1 00B62D 1 20 4C B6 LB62D: jsr LB64C 00B630 1 F0 E2 beq LB614 00B632 1 20 14 B6 LB632: jsr LB614 00B635 1 88 dey 00B636 1 B1 3D lda (FNDPNT),y 00B638 1 85 3C sta $3C 00B63A 1 88 dey 00B63B 1 B1 3D lda (FNDPNT),y 00B63D 1 85 3B sta TXTPTR 00B63F 1 88 dey 00B640 1 B1 3D lda (FNDPNT),y 00B642 1 20 7F CD jsr LCD7F 00B645 1 B1 3D lda (FNDPNT),y 00B647 1 85 39 sta CHRLIN 00B649 1 4C 57 B5 jmp LB557 00B64C 1 00B64C 1 20 73 04 LB64C: jsr CHRGET 00B64F 1 4C 2C 93 jmp L932C 00B652 1 00B652 1 A9 FF LB652: lda #$FF 00B654 1 2C .byte $2C 00B655 1 A9 00 LB655: lda #$00 00B657 1 8D EB 02 sta TRCFLG 00B65A 1 60 rts 00B65B 1 00B65B 1 20 8E 94 jsr L948E 00B65E 1 20 A5 96 jsr L96A5 00B661 1 85 49 sta FORPNT 00B663 1 84 4A sty $4A 00B665 1 20 1A 93 jsr L931A 00B668 1 20 D8 9D jsr L9DD8 00B66B 1 CA dex 00B66C 1 86 77 stx $77 00B66E 1 C9 29 cmp #$29 00B670 1 F0 04 beq LB676 00B672 1 20 D8 9D jsr L9DD8 00B675 1 2C .byte $2C 00B676 1 A2 FF LB676: ldx #$FF 00B678 1 86 78 stx $78 00B67A 1 20 8B 94 jsr L948B 00B67D 1 A9 B2 lda #$B2 00B67F 1 20 93 94 jsr L9493 00B682 1 20 2C 93 jsr L932C 00B685 1 20 1A 93 jsr L931A 00B688 1 A0 02 ldy #$02 00B68A 1 A9 49 LB68A: lda #$49 00B68C 1 20 94 04 jsr INDSUB 00B68F 1 99 5B 00 sta $5B,y 00B692 1 20 DC 04 jsr INDFMO 00B695 1 99 5E 00 sta $5E,y 00B698 1 88 dey 00B699 1 10 EF bpl LB68A 00B69B 1 38 sec 00B69C 1 A5 5F lda $5F 00B69E 1 E5 77 sbc $77 00B6A0 1 85 5F sta $5F 00B6A2 1 B0 02 bcs LB6A6 00B6A4 1 C6 60 dec $60 00B6A6 1 A5 78 LB6A6: lda $78 00B6A8 1 C5 5E cmp $5E 00B6AA 1 90 02 bcc LB6AE 00B6AC 1 A5 5E lda $5E 00B6AE 1 AA LB6AE: tax 00B6AF 1 F0 16 beq LB6C7 00B6B1 1 18 clc 00B6B2 1 65 77 adc $77 00B6B4 1 B0 14 bcs LB6CA 00B6B6 1 C5 5B cmp $5B 00B6B8 1 90 02 bcc LB6BC 00B6BA 1 D0 0E bne LB6CA 00B6BC 1 A4 77 LB6BC: ldy $77 00B6BE 1 20 6D 81 LB6BE: jsr L816D 00B6C1 1 91 5C sta ($5C),y 00B6C3 1 C8 iny 00B6C4 1 CA dex 00B6C5 1 D0 F7 bne LB6BE 00B6C7 1 4C 4E 9C LB6C7: jmp L9C4E 00B6CA 1 00B6CA 1 4C 1C 99 LB6CA: jmp L991C 00B6CD 1 00B6CD 1 20 DE B6 LB6CD: jsr LB6DE 00B6D0 1 20 3E 8E jsr L8E3E 00B6D3 1 A5 14 lda LINNUM 00B6D5 1 85 73 sta AUTINC 00B6D7 1 A5 15 lda $15 00B6D9 1 85 74 sta $74 00B6DB 1 4C 7E 86 jmp L867E 00B6DE 1 00B6DE 1 24 81 LB6DE: bit RUNMOD 00B6E0 1 30 01 bmi LB6E3 00B6E2 1 60 rts 00B6E3 1 00B6E3 1 A2 22 LB6E3: ldx #$22 00B6E5 1 4C 83 86 jmp L8683 00B6E8 1 00B6E8 1 AE EF 04 LB6E8: ldx ERRNUM 00B6EB 1 E8 inx 00B6EC 1 F0 1B beq LB709 00B6EE 1 AD F0 04 lda ERRLIN 00B6F1 1 AC F1 04 ldy $04F1 00B6F4 1 85 14 sta LINNUM 00B6F6 1 84 15 sty $15 00B6F8 1 20 3D 8A jsr L8A3D 00B6FB 1 90 0C bcc LB709 00B6FD 1 66 53 ror HELPER 00B6FF 1 20 3E 90 jsr L903E 00B702 1 A6 14 ldx LINNUM 00B704 1 A5 15 lda $15 00B706 1 20 40 8B jsr L8B40 00B709 1 4C 3E 90 LB709: jmp L903E 00B70C 1 00B70C 1 A6 60 LB70C: ldx $60 00B70E 1 98 tya 00B70F 1 18 clc 00B710 1 65 5F adc $5F 00B712 1 90 01 bcc LB715 00B714 1 E8 inx 00B715 1 EC F6 04 LB715: cpx $04F6 00B718 1 D0 0E bne LB728 00B71A 1 CD F5 04 cmp ERRTXT 00B71D 1 90 09 bcc LB728 00B71F 1 F0 07 beq LB728 00B721 1 46 53 lsr HELPER 00B723 1 .if CompileComputer >= PLUS4_01 00B723 1 A9 82 lda #$82 00B725 1 .else 00B725 1 lda #$12 00B725 1 .endif 00B725 1 4C B2 90 jmp L90B2 00B728 1 00B728 1 60 LB728: rts 00B729 1 00B729 1 D0 7C LB729: bne LB7A7 00B72B 1 A2 00 ldx #$00 00B72D 1 A0 00 ldy #$00 00B72F 1 E8 LB72F: inx 00B730 1 BD 5E 05 lda KEYIDX,x 00B733 1 F0 53 beq LB788 00B735 1 85 77 sta $77 00B737 1 86 76 stx KEYNUM 00B739 1 A2 05 ldx #$05 00B73B 1 BD 6E CD LB73B: lda LCD6E,x 00B73E 1 CA dex 00B73F 1 D0 02 bne LB743 00B741 1 05 76 ora KEYNUM 00B743 1 20 D2 FF LB743: jsr kCHROUT 00B746 1 8A txa 00B747 1 10 F2 bpl LB73B 00B749 1 A2 07 ldx #$07 00B74B 1 B9 67 05 LB74B: lda PKYBUF,y 00B74E 1 C8 iny 00B74F 1 48 pha 00B750 1 86 80 stx VOICNO 00B752 1 A2 04 ldx #$04 00B754 1 DD 39 B8 LB754: cmp LB839,x 00B757 1 F0 34 beq LB78D 00B759 1 CA dex 00B75A 1 D0 F8 bne LB754 00B75C 1 A6 80 ldx VOICNO 00B75E 1 E0 08 cpx #$08 00B760 1 90 07 bcc LB769 00B762 1 D0 0A bne LB76E 00B764 1 A9 2B lda #$2B 00B766 1 20 D2 FF jsr kCHROUT 00B769 1 A9 22 LB769: lda #$22 00B76B 1 20 D2 FF jsr kCHROUT 00B76E 1 68 LB76E: pla 00B76F 1 20 D2 FF jsr kCHROUT 00B772 1 A2 09 ldx #$09 00B774 1 C6 77 LB774: dec $77 00B776 1 D0 D3 bne LB74B 00B778 1 E0 09 cpx #$09 00B77A 1 90 05 bcc LB781 00B77C 1 A9 22 lda #$22 00B77E 1 20 D2 FF jsr kCHROUT 00B781 1 A9 8D LB781: lda #$8D 00B783 1 20 D2 FF jsr kCHROUT 00B786 1 A6 76 ldx KEYNUM 00B788 1 E0 08 LB788: cpx #$08 00B78A 1 D0 A3 bne LB72F 00B78C 1 60 rts 00B78D 1 00B78D 1 A6 80 LB78D: ldx VOICNO 00B78F 1 BD 30 B8 LB78F: lda LB830,x 00B792 1 20 D2 FF jsr kCHROUT 00B795 1 CA dex 00B796 1 E0 03 cpx #$03 00B798 1 B0 F5 bcs LB78F 00B79A 1 68 pla 00B79B 1 20 74 CD jsr LCD74 00B79E 1 A9 29 lda #$29 00B7A0 1 20 D2 FF jsr kCHROUT 00B7A3 1 A2 08 ldx #$08 00B7A5 1 D0 CD bne LB774 00B7A7 1 20 84 9D LB7A7: jsr L9D84 00B7AA 1 CA dex 00B7AB 1 E0 08 cpx #$08 00B7AD 1 90 03 bcc LB7B2 00B7AF 1 4C 1C 99 jmp L991C 00B7B2 1 00B7B2 1 86 76 LB7B2: stx KEYNUM 00B7B4 1 20 91 94 jsr L9491 00B7B7 1 20 48 9C jsr L9C48 00B7BA 1 20 C2 B7 jsr LB7C2 00B7BD 1 90 72 bcc LB831 00B7BF 1 4C 81 86 jmp L8681 00B7C2 1 00B7C2 1 85 77 LB7C2: sta $77 00B7C4 1 A2 08 ldx #$08 00B7C6 1 20 3E B8 jsr LB83E 00B7C9 1 8D CD 02 sta BNR 00B7CC 1 A6 76 ldx KEYNUM 00B7CE 1 E8 inx 00B7CF 1 20 3E B8 jsr LB83E 00B7D2 1 8D CE 02 sta ENR 00B7D5 1 A6 76 ldx KEYNUM 00B7D7 1 A5 77 lda $77 00B7D9 1 38 sec 00B7DA 1 FD 5F 05 sbc KEYBUF,x 00B7DD 1 F0 35 beq LB814 00B7DF 1 90 1D bcc LB7FE 00B7E1 1 18 clc 00B7E2 1 6D CD 02 adc BNR 00B7E5 1 B0 4B bcs LB832 00B7E7 1 C9 81 cmp #$81 00B7E9 1 B0 47 bcs LB832 00B7EB 1 AA tax 00B7EC 1 AC CD 02 ldy BNR 00B7EF 1 CC CE 02 LB7EF: cpy ENR 00B7F2 1 F0 20 beq LB814 00B7F4 1 88 dey 00B7F5 1 CA dex 00B7F6 1 B9 67 05 lda PKYBUF,y 00B7F9 1 9D 67 05 sta PKYBUF,x 00B7FC 1 B0 F1 bcs LB7EF 00B7FE 1 6D CE 02 LB7FE: adc ENR 00B801 1 AA tax 00B802 1 AC CE 02 ldy ENR 00B805 1 CC CD 02 LB805: cpy BNR 00B808 1 B0 0A bcs LB814 00B80A 1 B9 67 05 lda PKYBUF,y 00B80D 1 9D 67 05 sta PKYBUF,x 00B810 1 C8 iny 00B811 1 E8 inx 00B812 1 90 F1 bcc LB805 00B814 1 A6 76 LB814: ldx KEYNUM 00B816 1 20 3E B8 jsr LB83E 00B819 1 AA tax 00B81A 1 A4 76 ldy KEYNUM 00B81C 1 A5 77 lda $77 00B81E 1 99 5F 05 sta KEYBUF,y 00B821 1 A0 00 ldy #$00 00B823 1 20 B0 04 jsr INDIN1 00B826 1 C6 77 dec $77 00B828 1 30 07 bmi LB831 00B82A 1 9D 67 05 sta PKYBUF,x 00B82D 1 E8 inx 00B82E 1 C8 iny 00B82F 1 D0 .byte $D0 00B830 1 F2 LB830: .byte $F2 00B831 1 18 LB831: clc 00B832 1 60 LB832: rts 00B833 1 00B833 1 28 24 52 48 .byte "($RHC+" 00B837 1 43 2B 00B839 1 22 0D 8D 22 LB839: .byte $22,$0D,$8D,$22,$1B 00B83D 1 1B 00B83E 1 A9 00 LB83E: lda #$00 00B840 1 18 clc 00B841 1 CA LB841: dex 00B842 1 30 EE bmi LB832 00B844 1 7D 5F 05 adc KEYBUF,x 00B847 1 90 F8 bcc LB841 00B849 1 20 84 9D LB849: jsr L9D84 00B84C 1 CA dex 00B84D 1 E0 03 cpx #$03 00B84F 1 B0 64 bcs LB8B5 00B851 1 86 80 stx VOICNO 00B853 1 20 DE 9D jsr L9DDE 00B856 1 C9 04 cmp #$04 00B858 1 B0 5B bcs LB8B5 00B85A 1 84 7E sty TMPTON 00B85C 1 85 7F sta $7F 00B85E 1 20 DE 9D jsr L9DDE 00B861 1 A6 80 ldx VOICNO 00B863 1 E0 02 cpx #$02 00B865 1 D0 01 bne LB868 00B867 1 CA dex 00B868 1 48 LB868: pha 00B869 1 C0 00 cpy #$00 00B86B 1 D0 07 bne LB874 00B86D 1 C9 00 cmp #$00 00B86F 1 D0 03 bne LB874 00B871 1 C8 iny 00B872 1 D0 0F bne LB883 00B874 1 98 LB874: tya 00B875 1 48 pha 00B876 1 20 C0 8C LB876: jsr L8CC0 00B879 1 BD FE 04 lda MTIMHI,x 00B87C 1 1D FC 04 ora MTIMLO,x 00B87F 1 D0 F5 bne LB876 00B881 1 68 pla 00B882 1 A8 tay 00B883 1 98 LB883: tya 00B884 1 49 FF eor #$FF 00B886 1 18 clc 00B887 1 69 01 adc #$01 00B889 1 78 sei 00B88A 1 9D FC 04 sta MTIMLO,x 00B88D 1 68 pla 00B88E 1 49 FF eor #$FF 00B890 1 69 00 adc #$00 00B892 1 9D FE 04 sta MTIMHI,x 00B895 1 A5 7E lda TMPTON 00B897 1 9D 0E FF sta TEDFREQV1LO,x 00B89A 1 BD B8 B8 lda LB8B8,x 00B89D 1 AA tax 00B89E 1 BD 10 FF lda TEDFREQV2HI,x 00B8A1 1 29 FC and #$FC 00B8A3 1 05 7F ora $7F 00B8A5 1 9D 10 FF sta TEDFREQV2HI,x 00B8A8 1 A6 80 ldx VOICNO 00B8AA 1 BD BA B8 lda LB8BA,x 00B8AD 1 0D 11 FF ora TEDVOL 00B8B0 1 8D 11 FF sta TEDVOL 00B8B3 1 58 cli 00B8B4 1 60 rts 00B8B5 1 00B8B5 1 4C 1C 99 LB8B5: jmp L991C 00B8B8 1 00B8B8 1 02 00 LB8B8: .byte $02,$00 00B8BA 1 10 20 40 LB8BA: .byte $10,$20,$40 00B8BD 1 20 84 9D LB8BD: jsr L9D84 00B8C0 1 E0 09 cpx #$09 00B8C2 1 B0 F1 bcs LB8B5 00B8C4 1 86 80 stx VOICNO 00B8C6 1 AD 11 FF lda TEDVOL 00B8C9 1 29 F0 and #$F0 00B8CB 1 05 80 ora VOICNO 00B8CD 1 8D 11 FF sta TEDVOL 00B8D0 1 60 rts 00B8D1 1 00B8D1 1 20 B6 C3 LB8D1: jsr LC3B6 00B8D4 1 A2 04 ldx #$04 00B8D6 1 20 D9 C3 jsr LC3D9 00B8D9 1 20 7B C3 jsr LC37B 00B8DC 1 20 A5 C3 jsr LC3A5 00B8DF 1 E0 02 cpx #$02 00B8E1 1 90 03 bcc LB8E6 00B8E3 1 4C 1C 99 jmp L991C 00B8E6 1 00B8E6 1 8A LB8E6: txa 00B8E7 1 4A lsr a 00B8E8 1 6A ror a 00B8E9 1 85 8B sta STOPNB 00B8EB 1 10 04 bpl LB8F1 00B8ED 1 A5 84 lda COLSEL 00B8EF 1 F0 07 beq LB8F8 00B8F1 1 20 F3 C1 LB8F1: jsr LC1F3 00B8F4 1 B0 02 bcs LB8F8 00B8F6 1 D0 01 bne LB8F9 00B8F8 1 60 LB8F8: rts 00B8F9 1 00B8F9 1 20 54 A9 LB8F9: jsr LA954 00B8FC 1 A5 31 lda STREND 00B8FE 1 85 22 sta INDEX1 00B900 1 A5 32 lda $32 00B902 1 85 23 sta $23 00B904 1 38 sec 00B905 1 A5 33 lda FRETOP 00B907 1 E9 03 sbc #$03 00B909 1 85 19 sta TEMPST 00B90B 1 A5 34 lda $34 00B90D 1 E9 00 sbc #$00 00B90F 1 85 1A sta $1A 00B911 1 A2 00 LB911: ldx #$00 00B913 1 86 89 stx LTFLAG 00B915 1 86 8A stx RTFLAG 00B917 1 AE AF 02 LB917: ldx YPO 00B91A 1 D0 03 bne LB91F 00B91C 1 CE B0 02 dec $02B0 00B91F 1 CE AF 02 LB91F: dec YPO 00B922 1 20 F3 C1 jsr LC1F3 00B925 1 B0 02 bcs LB929 00B927 1 D0 EE bne LB917 00B929 1 EE AF 02 LB929: inc YPO 00B92C 1 D0 03 bne LB931 00B92E 1 EE B0 02 inc $02B0 00B931 1 20 C3 C1 LB931: jsr LC1C3 00B934 1 AE AD 02 ldx XPOS 00B937 1 D0 03 bne LB93C 00B939 1 CE AE 02 dec $02AE 00B93C 1 CE AD 02 LB93C: dec XPOS 00B93F 1 A5 89 lda LTFLAG 00B941 1 20 9F B9 jsr LB99F 00B944 1 85 89 sta LTFLAG 00B946 1 18 clc 00B947 1 AD AD 02 lda XPOS 00B94A 1 69 02 adc #$02 00B94C 1 8D AD 02 sta XPOS 00B94F 1 90 03 bcc LB954 00B951 1 EE AE 02 inc $02AE 00B954 1 A5 8A LB954: lda RTFLAG 00B956 1 20 9F B9 jsr LB99F 00B959 1 85 8A sta RTFLAG 00B95B 1 AE AD 02 ldx XPOS 00B95E 1 D0 03 bne LB963 00B960 1 CE AE 02 dec $02AE 00B963 1 CE AD 02 LB963: dec XPOS 00B966 1 EE AF 02 inc YPO 00B969 1 D0 03 bne LB96E 00B96B 1 EE B0 02 inc $02B0 00B96E 1 20 F3 C1 LB96E: jsr LC1F3 00B971 1 B0 02 bcs LB975 00B973 1 D0 BC bne LB931 00B975 1 A2 03 LB975: ldx #$03 00B977 1 A0 00 ldy #$00 00B979 1 A5 23 lda $23 00B97B 1 C5 32 cmp $32 00B97D 1 D0 06 bne LB985 00B97F 1 A5 22 lda INDEX1 00B981 1 C5 31 cmp STREND 00B983 1 F0 17 beq LB99C 00B985 1 A5 22 LB985: lda INDEX1 00B987 1 D0 02 bne LB98B 00B989 1 C6 23 dec $23 00B98B 1 C6 22 LB98B: dec INDEX1 00B98D 1 20 B0 04 jsr INDIN1 00B990 1 9D AD 02 sta XPOS,x 00B993 1 CA dex 00B994 1 10 EF bpl LB985 00B996 1 20 C0 8C jsr L8CC0 00B999 1 4C 11 B9 jmp LB911 00B99C 1 00B99C 1 4C 7B C3 LB99C: jmp LC37B 00B99F 1 00B99F 1 48 LB99F: pha 00B9A0 1 20 F3 C1 jsr LC1F3 00B9A3 1 B0 2B bcs LB9D0 00B9A5 1 F0 29 beq LB9D0 00B9A7 1 68 pla 00B9A8 1 D0 29 bne LB9D3 00B9AA 1 AA tax 00B9AB 1 A8 tay 00B9AC 1 A5 23 lda $23 00B9AE 1 C5 1A cmp $1A 00B9B0 1 90 0B bcc LB9BD 00B9B2 1 D0 06 bne LB9BA 00B9B4 1 A5 22 lda INDEX1 00B9B6 1 C5 19 cmp TEMPST 00B9B8 1 90 03 bcc LB9BD 00B9BA 1 4C 81 86 LB9BA: jmp L8681 00B9BD 1 00B9BD 1 BD AD 02 LB9BD: lda XPOS,x 00B9C0 1 91 22 sta (INDEX1),y 00B9C2 1 E6 22 inc INDEX1 00B9C4 1 D0 02 bne LB9C8 00B9C6 1 E6 23 inc $23 00B9C8 1 E8 LB9C8: inx 00B9C9 1 E0 04 cpx #$04 00B9CB 1 D0 F0 bne LB9BD 00B9CD 1 A9 80 lda #$80 00B9CF 1 60 rts 00B9D0 1 00B9D0 1 68 LB9D0: pla 00B9D1 1 A9 00 lda #$00 00B9D3 1 60 LB9D3: rts 00B9D4 1 00B9D4 1 20 B9 C3 LB9D4: jsr LC3B9 00B9D7 1 20 D8 9D jsr L9DD8 00B9DA 1 E0 28 cpx #$28 00B9DC 1 B0 0A bcs LB9E8 00B9DE 1 8E DA 02 stx ETOF 00B9E1 1 20 D8 9D jsr L9DD8 00B9E4 1 E0 19 cpx #$19 00B9E6 1 90 03 bcc LB9EB 00B9E8 1 4C 1C 99 LB9E8: jmp L991C 00B9EB 1 00B9EB 1 8E DB 02 LB9EB: stx CFORM 00B9EE 1 20 91 94 jsr L9491 00B9F1 1 20 48 9C jsr L9C48 00B9F4 1 8D EA 02 sta NUMCNT 00B9F7 1 98 tya 00B9F8 1 48 pha 00B9F9 1 8A txa 00B9FA 1 48 pha 00B9FB 1 20 A5 C3 jsr LC3A5 00B9FE 1 8A txa 00B9FF 1 6A ror a 00BA00 1 6E B9 02 ror $02B9 00BA03 1 68 pla 00BA04 1 85 22 sta INDEX1 00BA06 1 68 pla 00BA07 1 85 23 sta $23 00BA09 1 A5 83 lda GRAPHM 00BA0B 1 D0 1B bne LBA28 00BA0D 1 AE DB 02 ldx CFORM 00BA10 1 AC DA 02 ldy ETOF 00BA13 1 18 clc 00BA14 1 20 F0 FF jsr kPLOT 00BA17 1 A0 00 ldy #$00 00BA19 1 CC EA 02 LBA19: cpy NUMCNT 00BA1C 1 F0 09 beq LBA27 00BA1E 1 20 B0 04 jsr INDIN1 00BA21 1 20 4C FF jsr kPRINT 00BA24 1 C8 iny 00BA25 1 D0 F2 bne LBA19 00BA27 1 60 LBA27: rts 00BA28 1 00BA28 1 20 BF C7 LBA28: jsr LC7BF 00BA2B 1 A5 86 lda FG 00BA2D 1 48 pha 00BA2E 1 A5 84 lda COLSEL 00BA30 1 48 pha 00BA31 1 24 83 bit GRAPHM 00BA33 1 10 0F bpl LBA44 00BA35 1 68 pla 00BA36 1 F0 12 beq LBA4A 00BA38 1 4A lsr a 00BA39 1 F0 0F beq LBA4A 00BA3B 1 A6 85 ldx MC1 00BA3D 1 90 0D bcc LBA4C 00BA3F 1 AE 16 FF ldx TEDCOLBG1 00BA42 1 B0 08 bcs LBA4C 00BA44 1 AE 15 FF LBA44: ldx TEDCOLBG0 00BA47 1 68 pla 00BA48 1 F0 02 beq LBA4C 00BA4A 1 A6 86 LBA4A: ldx FG 00BA4C 1 86 86 LBA4C: stx FG 00BA4E 1 AE DB 02 ldx CFORM 00BA51 1 A0 00 ldy #$00 00BA53 1 8C DC 02 sty SNO 00BA56 1 AC DC 02 LBA56: ldy SNO 00BA59 1 EE DC 02 inc SNO 00BA5C 1 20 B0 04 jsr INDIN1 00BA5F 1 CE EA 02 dec NUMCNT 00BA62 1 30 17 bmi LBA7B 00BA64 1 AC DA 02 ldy ETOF 00BA67 1 20 7F BA jsr LBA7F 00BA6A 1 EE DA 02 inc ETOF 00BA6D 1 C0 27 cpy #$27 00BA6F 1 90 E5 bcc LBA56 00BA71 1 A0 00 ldy #$00 00BA73 1 8C DA 02 sty ETOF 00BA76 1 E8 inx 00BA77 1 E0 18 cpx #$18 00BA79 1 90 DB bcc LBA56 00BA7B 1 68 LBA7B: pla 00BA7C 1 85 86 sta FG 00BA7E 1 60 rts 00BA7F 1 00BA7F 1 48 LBA7F: pha 00BA80 1 20 1A C2 jsr LC21A 00BA83 1 20 91 C2 jsr LC291 00BA86 1 A9 00 lda #$00 00BA88 1 85 7E sta TMPTON 00BA8A 1 68 pla 00BA8B 1 48 pha 00BA8C 1 0A asl a 00BA8D 1 26 7E rol TMPTON 00BA8F 1 0A asl a 00BA90 1 0A asl a 00BA91 1 26 7E rol TMPTON 00BA93 1 85 24 sta INDEX2 00BA95 1 A5 7E lda TMPTON 00BA97 1 6D E4 02 adc CHRPAG 00BA9A 1 85 25 sta $25 00BA9C 1 98 tya 00BA9D 1 48 pha 00BA9E 1 A0 07 ldy #$07 00BAA0 1 AD B9 02 LBAA0: lda $02B9 00BAA3 1 0A asl a 00BAA4 1 B1 24 lda (INDEX2),y 00BAA6 1 90 02 bcc LBAAA 00BAA8 1 49 FF eor #$FF 00BAAA 1 24 83 LBAAA: bit GRAPHM 00BAAC 1 10 2B bpl LBAD9 00BAAE 1 29 AA and #$AA 00BAB0 1 85 7E sta TMPTON 00BAB2 1 A5 84 lda COLSEL 00BAB4 1 D0 0F bne LBAC5 00BAB6 1 A5 7E lda TMPTON 00BAB8 1 B0 07 bcs LBAC1 00BABA 1 4A lsr a 00BABB 1 45 7E eor TMPTON 00BABD 1 49 AA eor #$AA 00BABF 1 D0 18 bne LBAD9 00BAC1 1 09 55 LBAC1: ora #$55 00BAC3 1 D0 14 bne LBAD9 00BAC5 1 C9 02 LBAC5: cmp #$02 00BAC7 1 D0 04 bne LBACD 00BAC9 1 A5 7E lda TMPTON 00BACB 1 B0 0C bcs LBAD9 00BACD 1 90 07 LBACD: bcc LBAD6 00BACF 1 A5 7E lda TMPTON 00BAD1 1 4A lsr a 00BAD2 1 45 7E eor TMPTON 00BAD4 1 90 03 bcc LBAD9 00BAD6 1 A5 7E LBAD6: lda TMPTON 00BAD8 1 4A lsr a 00BAD9 1 91 8C LBAD9: sta (GRAPNT),y 00BADB 1 88 dey 00BADC 1 10 C2 bpl LBAA0 00BADE 1 68 pla 00BADF 1 A8 tay 00BAE0 1 68 pla 00BAE1 1 60 rts 00BAE2 1 00BAE2 1 20 B6 C3 LBAE2: jsr LC3B6 00BAE5 1 A2 1F ldx #$1F 00BAE7 1 20 F4 C3 jsr LC3F4 00BAEA 1 A2 2B ldx #$2B 00BAEC 1 20 D9 C3 jsr LC3D9 00BAEF 1 20 8F C3 jsr LC38F 00BAF2 1 8C D0 02 sty FLAG 00BAF5 1 8D D1 02 sta SWE 00BAF8 1 20 A5 C3 jsr LC3A5 00BAFB 1 E0 02 cpx #$02 00BAFD 1 90 03 bcc LBB02 00BAFF 1 4C 1C 99 jmp L991C 00BB02 1 00BB02 1 8E E8 02 LBB02: stx FILFLG 00BB05 1 8A txa 00BB06 1 48 pha 00BB07 1 20 B4 BB jsr LBBB4 00BB0A 1 68 pla 00BB0B 1 D0 1C bne LBB29 00BB0D 1 F0 03 beq LBB12 00BB0F 1 20 36 BC LBB0F: jsr LBC36 00BB12 1 20 DA C0 LBB12: jsr LC0DA 00BB15 1 AD CA 02 lda ANGCNT 00BB18 1 D0 F5 bne LBB0F 00BB1A 1 A2 04 LBB1A: ldx #$04 00BB1C 1 BD D7 02 LBB1C: lda NF,x 00BB1F 1 9D AC 02 sta $02AC,x 00BB22 1 CA dex 00BB23 1 D0 F7 bne LBB1C 00BB25 1 8E E8 02 stx FILFLG 00BB28 1 60 rts 00BB29 1 00BB29 1 A2 00 LBB29: ldx #$00 00BB2B 1 AD C5 02 lda ANGSGN 00BB2E 1 4A lsr a 00BB2F 1 90 02 bcc LBB33 00BB31 1 A2 02 ldx #$02 00BB33 1 BD DC 02 LBB33: lda SNO,x 00BB36 1 8D D6 02 sta VF 00BB39 1 BD DD 02 lda BLFD,x 00BB3C 1 8D D7 02 sta NF 00BB3F 1 A9 00 lda #$00 00BB41 1 A2 03 ldx #$03 00BB43 1 9D D2 02 LBB43: sta USGN,x 00BB46 1 CA dex 00BB47 1 10 FA bpl LBB43 00BB49 1 A2 07 LBB49: ldx #$07 00BB4B 1 BD AD 02 LBB4B: lda XPOS,x 00BB4E 1 48 pha 00BB4F 1 CA dex 00BB50 1 10 F9 bpl LBB4B 00BB52 1 20 DA C0 jsr LC0DA 00BB55 1 A2 00 ldx #$00 00BB57 1 68 LBB57: pla 00BB58 1 9D AD 02 sta XPOS,x 00BB5B 1 E8 inx 00BB5C 1 E0 08 cpx #$08 00BB5E 1 D0 F7 bne LBB57 00BB60 1 AD D6 02 LBB60: lda VF 00BB63 1 D0 05 bne LBB6A 00BB65 1 CE D7 02 dec NF 00BB68 1 30 B0 bmi LBB1A 00BB6A 1 CE D6 02 LBB6A: dec VF 00BB6D 1 A2 25 ldx #$25 00BB6F 1 A0 1B ldy #$1B 00BB71 1 AD C5 02 lda ANGSGN 00BB74 1 4A lsr a 00BB75 1 90 02 bcc LBB79 00BB77 1 A0 19 ldy #$19 00BB79 1 A9 00 LBB79: lda #$00 00BB7B 1 4A LBB7B: lsr a 00BB7C 1 48 pha 00BB7D 1 20 F6 C2 jsr LC2F6 00BB80 1 9D AD 02 sta XPOS,x 00BB83 1 98 tya 00BB84 1 9D AE 02 sta $02AE,x 00BB87 1 68 pla 00BB88 1 90 02 bcc LBB8C 00BB8A 1 09 A0 ora #$A0 00BB8C 1 E8 LBB8C: inx 00BB8D 1 E8 inx 00BB8E 1 A0 19 ldy #$19 00BB90 1 4E C5 02 lsr ANGSGN 00BB93 1 90 02 bcc LBB97 00BB95 1 A0 1B ldy #$1B 00BB97 1 2E C5 02 LBB97: rol ANGSGN 00BB9A 1 E0 27 cpx #$27 00BB9C 1 F0 DD beq LBB7B 00BB9E 1 A2 06 ldx #$06 00BBA0 1 0A asl a 00BBA1 1 F0 BD beq LBB60 00BBA3 1 90 08 LBBA3: bcc LBBAD 00BBA5 1 FE AD 02 inc XPOS,x 00BBA8 1 D0 03 bne LBBAD 00BBAA 1 FE AE 02 inc $02AE,x 00BBAD 1 0A LBBAD: asl a 00BBAE 1 CA dex 00BBAF 1 CA dex 00BBB0 1 10 F1 bpl LBBA3 00BBB2 1 30 95 bmi LBB49 00BBB4 1 A0 23 LBBB4: ldy #$23 00BBB6 1 20 56 BC jsr LBC56 00BBB9 1 A2 1F ldx #$1F 00BBBB 1 A0 2B ldy #$2B 00BBBD 1 98 LBBBD: tya 00BBBE 1 48 pha 00BBBF 1 20 22 C3 jsr LC322 00BBC2 1 9D B1 02 sta XDEST,x 00BBC5 1 9D B5 02 sta XABS,x 00BBC8 1 9D BD 02 sta $02BD,x 00BBCB 1 98 tya 00BBCC 1 9D B2 02 sta $02B2,x 00BBCF 1 9D B6 02 sta $02B6,x 00BBD2 1 9D BE 02 sta $02BE,x 00BBD5 1 68 pla 00BBD6 1 A8 tay 00BBD7 1 20 F6 C2 jsr LC2F6 00BBDA 1 9D AD 02 sta XPOS,x 00BBDD 1 98 tya 00BBDE 1 9D AE 02 sta $02AE,x 00BBE1 1 A0 2D ldy #$2D 00BBE3 1 E8 inx 00BBE4 1 E8 inx 00BBE5 1 E0 21 cpx #$21 00BBE7 1 F0 D4 beq LBBBD 00BBE9 1 A9 90 lda #$90 00BBEB 1 20 D5 BC jsr LBCD5 00BBEE 1 AD C5 02 lda ANGSGN 00BBF1 1 29 03 and #$03 00BBF3 1 8D C5 02 sta ANGSGN 00BBF6 1 AA tax 00BBF7 1 BD 18 BC lda LBC18,x 00BBFA 1 20 36 BC jsr LBC36 00BBFD 1 20 7B C3 jsr LC37B 00BC00 1 AD CA 02 lda ANGCNT 00BC03 1 20 36 BC jsr LBC36 00BC06 1 AE C5 02 ldx ANGSGN 00BC09 1 BD 18 BC lda LBC18,x 00BC0C 1 29 F0 and #$F0 00BC0E 1 8D CB 02 sta $02CB 00BC11 1 BD 1C BC lda LBC1C,x 00BC14 1 8D CA 02 sta ANGCNT 00BC17 1 60 rts 00BC18 1 00BC18 1 BE E4 LBC18: .byte $BE,$E4 00BC1A 1 41 .byte "A" 00BC1B 1 1B .byte $1B 00BC1C 1 41 LBC1C: .byte "A" 00BC1D 1 1B BE E4 .byte $1B,$BE,$E4 00BC20 1 46 52 45 44 .byte "FRED B" 00BC24 1 20 42 00BC26 1 0D .byte $0D 00BC27 1 54 45 52 52 .byte "TERRY R" 00BC2B 1 59 20 52 00BC2E 1 0D .byte $0D 00BC2F 1 4D 49 4B 45 .byte "MIKE I" 00BC33 1 20 49 00BC35 1 0D .byte $0D 00BC36 1 20 05 BD LBC36: jsr LBD05 00BC39 1 A2 04 ldx #$04 00BC3B 1 BD AE 02 LBC3B: lda $02AE,x 00BC3E 1 0A asl a 00BC3F 1 7E AE 02 ror $02AE,x 00BC42 1 7E AD 02 ror XPOS,x 00BC45 1 90 08 bcc LBC4F 00BC47 1 FE AD 02 inc XPOS,x 00BC4A 1 D0 03 bne LBC4F 00BC4C 1 FE AE 02 inc $02AE,x 00BC4F 1 E8 LBC4F: inx 00BC50 1 E8 inx 00BC51 1 E0 06 cpx #$06 00BC53 1 F0 E6 beq LBC3B 00BC55 1 60 rts 00BC56 1 00BC56 1 20 18 C3 LBC56: jsr LC318 00BC59 1 A2 00 LBC59: ldx #$00 00BC5B 1 E8 LBC5B: inx 00BC5C 1 38 sec 00BC5D 1 E9 5A sbc #$5A 00BC5F 1 B0 FA bcs LBC5B 00BC61 1 88 dey 00BC62 1 10 F7 bpl LBC5B 00BC64 1 8E C5 02 stx ANGSGN 00BC67 1 48 pha 00BC68 1 69 5A adc #$5A 00BC6A 1 20 76 BC jsr LBC76 00BC6D 1 68 pla 00BC6E 1 18 clc 00BC6F 1 49 FF eor #$FF 00BC71 1 69 01 adc #$01 00BC73 1 CE C5 02 dec ANGSGN 00BC76 1 A2 FF LBC76: ldx #$FF 00BC78 1 E8 LBC78: inx 00BC79 1 38 sec 00BC7A 1 E9 0A sbc #$0A 00BC7C 1 B0 FA bcs LBC78 00BC7E 1 69 0A adc #$0A 00BC80 1 85 8E sta VTEMP1 00BC82 1 8A txa 00BC83 1 0A asl a 00BC84 1 AA tax 00BC85 1 BD B4 C4 lda LC4B4,x 00BC88 1 BC B3 C4 ldy LC4B3,x 00BC8B 1 18 LBC8B: clc 00BC8C 1 C6 8E dec VTEMP1 00BC8E 1 30 0C bmi LBC9C 00BC90 1 7D C8 C4 adc LC4C8,x 00BC93 1 48 pha 00BC94 1 98 tya 00BC95 1 7D C7 C4 adc LC4C7,x 00BC98 1 A8 tay 00BC99 1 68 pla 00BC9A 1 90 EF bcc LBC8B 00BC9C 1 48 LBC9C: pha 00BC9D 1 A2 00 ldx #$00 00BC9F 1 AD C5 02 lda ANGSGN 00BCA2 1 4A lsr a 00BCA3 1 B0 02 bcs LBCA7 00BCA5 1 A2 02 ldx #$02 00BCA7 1 68 LBCA7: pla 00BCA8 1 9D C6 02 sta SINVAL,x 00BCAB 1 98 tya 00BCAC 1 9D C7 02 sta $02C7,x 00BCAF 1 60 rts 00BCB0 1 00BCB0 1 A0 19 LBCB0: ldy #$19 00BCB2 1 90 02 bcc LBCB6 00BCB4 1 A0 1B ldy #$1B 00BCB6 1 AD C5 02 LBCB6: lda ANGSGN 00BCB9 1 69 02 adc #$02 00BCBB 1 4A lsr a 00BCBC 1 4A lsr a 00BCBD 1 08 php 00BCBE 1 20 18 C3 jsr LC318 00BCC1 1 C0 FF cpy #$FF 00BCC3 1 90 07 bcc LBCCC 00BCC5 1 8A txa 00BCC6 1 A8 tay 00BCC7 1 20 18 C3 jsr LC318 00BCCA 1 B0 03 bcs LBCCF 00BCCC 1 20 37 C3 LBCCC: jsr LC337 00BCCF 1 28 LBCCF: plp 00BCD0 1 B0 1B bcs LBCED 00BCD2 1 4C 27 C3 jmp LC327 00BCD5 1 00BCD5 1 8D CA 02 LBCD5: sta ANGCNT 00BCD8 1 A2 23 ldx #$23 00BCDA 1 0E CA 02 LBCDA: asl ANGCNT 00BCDD 1 20 B0 BC jsr LBCB0 00BCE0 1 9D AD 02 sta XPOS,x 00BCE3 1 98 tya 00BCE4 1 9D AE 02 sta $02AE,x 00BCE7 1 E8 inx 00BCE8 1 E8 inx 00BCE9 1 E0 2B cpx #$2B 00BCEB 1 90 ED bcc LBCDA 00BCED 1 60 LBCED: rts 00BCEE 1 00BCEE 1 A0 2B LBCEE: ldy #$2B 00BCF0 1 20 56 BC LBCF0: jsr LBC56 00BCF3 1 A2 07 ldx #$07 00BCF5 1 BD DC 02 LBCF5: lda SNO,x 00BCF8 1 9D D0 02 sta FLAG,x 00BCFB 1 CA dex 00BCFC 1 10 F7 bpl LBCF5 00BCFE 1 A9 50 lda #$50 00BD00 1 20 D5 BC jsr LBCD5 00BD03 1 A9 10 lda #$10 00BD05 1 8D CA 02 LBD05: sta ANGCNT 00BD08 1 A0 1F ldy #$1F 00BD0A 1 A2 23 ldx #$23 00BD0C 1 0E CB 02 LBD0C: asl $02CB 00BD0F 1 2E CA 02 rol ANGCNT 00BD12 1 20 F4 C2 jsr LC2F4 00BD15 1 E8 inx 00BD16 1 E8 inx 00BD17 1 0E CB 02 asl $02CB 00BD1A 1 2E CA 02 rol ANGCNT 00BD1D 1 20 F0 C2 jsr LC2F0 00BD20 1 48 pha 00BD21 1 98 tya 00BD22 1 48 pha 00BD23 1 A0 21 ldy #$21 00BD25 1 E8 inx 00BD26 1 E8 inx 00BD27 1 E0 27 cpx #$27 00BD29 1 F0 E1 beq LBD0C 00BD2B 1 A2 03 ldx #$03 00BD2D 1 68 LBD2D: pla 00BD2E 1 9D B1 02 sta XDEST,x 00BD31 1 CA dex 00BD32 1 10 F9 bpl LBD2D 00BD34 1 60 rts 00BD35 1 00BD35 1 20 BF C7 LBD35: jsr LC7BF 00BD38 1 20 48 9C jsr L9C48 00BD3B 1 8D CF 02 sta DOLR 00BD3E 1 86 24 stx INDEX2 00BD40 1 84 25 sty $25 00BD42 1 A2 04 ldx #$04 00BD44 1 20 D9 C3 jsr LC3D9 00BD47 1 20 A5 C3 jsr LC3A5 00BD4A 1 E0 05 cpx #$05 00BD4C 1 90 03 bcc LBD51 00BD4E 1 4C 1C 99 jmp L991C 00BD51 1 00BD51 1 8E D0 02 LBD51: stx FLAG 00BD54 1 A2 03 ldx #$03 00BD56 1 AC CF 02 ldy DOLR 00BD59 1 C0 05 cpy #$05 00BD5B 1 B0 01 bcs LBD5E 00BD5D 1 60 rts 00BD5E 1 00BD5E 1 88 LBD5E: dey 00BD5F 1 20 BB 04 jsr INDIN2 00BD62 1 9D D5 02 sta CHSN,x 00BD65 1 CA dex 00BD66 1 10 F6 bpl LBD5E 00BD68 1 8E D1 02 stx SWE 00BD6B 1 20 7B C3 jsr LC37B 00BD6E 1 AD D5 02 lda CHSN 00BD71 1 8D D9 02 sta FESP 00BD74 1 AD D6 02 lda VF 00BD77 1 8D DA 02 sta ETOF 00BD7A 1 A9 08 LBD7A: lda #$08 00BD7C 1 8D E5 02 sta BITCNT 00BD7F 1 EE D1 02 inc SWE 00BD82 1 AC D1 02 ldy SWE 00BD85 1 20 BB 04 jsr INDIN2 00BD88 1 8D D3 02 sta UEXP 00BD8B 1 20 F3 C1 LBD8B: jsr LC1F3 00BD8E 1 8D D2 02 sta USGN 00BD91 1 0E D3 02 asl UEXP 00BD94 1 2A rol a 00BD95 1 CE E5 02 dec BITCNT 00BD98 1 24 83 bit GRAPHM 00BD9A 1 10 07 bpl LBDA3 00BD9C 1 0E D3 02 asl UEXP 00BD9F 1 2A rol a 00BDA0 1 CE E5 02 dec BITCNT 00BDA3 1 AE D0 02 LBDA3: ldx FLAG 00BDA6 1 E0 03 cpx #$03 00BDA8 1 90 0C bcc LBDB6 00BDAA 1 F0 05 beq LBDB1 00BDAC 1 4D D2 02 eor USGN 00BDAF 1 B0 11 bcs LBDC2 00BDB1 1 2D D2 02 LBDB1: and USGN 00BDB4 1 B0 0C bcs LBDC2 00BDB6 1 E0 01 LBDB6: cpx #$01 00BDB8 1 90 08 bcc LBDC2 00BDBA 1 F0 04 beq LBDC0 00BDBC 1 0D D2 02 ora USGN 00BDBF 1 2C LBDBF: .byte $2C 00BDC0 1 49 FF LBDC0: eor #$FF 00BDC2 1 29 03 LBDC2: and #$03 00BDC4 1 24 83 bit GRAPHM 00BDC6 1 30 02 bmi LBDCA 00BDC8 1 29 01 and #$01 00BDCA 1 85 84 LBDCA: sta COLSEL 00BDCC 1 20 C3 C1 jsr LC1C3 00BDCF 1 EE AD 02 inc XPOS 00BDD2 1 D0 03 bne LBDD7 00BDD4 1 EE AE 02 inc $02AE 00BDD7 1 38 LBDD7: sec 00BDD8 1 AD D9 02 lda FESP 00BDDB 1 24 83 bit GRAPHM 00BDDD 1 10 03 bpl LBDE2 00BDDF 1 E9 02 sbc #$02 00BDE1 1 2C LBDE1: .byte $2C 00BDE2 1 E9 01 LBDE2: sbc #$01 00BDE4 1 8D D9 02 sta FESP 00BDE7 1 AD DA 02 lda ETOF 00BDEA 1 E9 00 sbc #$00 00BDEC 1 8D DA 02 sta ETOF 00BDEF 1 B0 2D bcs LBE1E 00BDF1 1 A2 01 ldx #$01 00BDF3 1 BD D5 02 LBDF3: lda CHSN,x 00BDF6 1 9D D9 02 sta FESP,x 00BDF9 1 BD B1 02 lda XDEST,x 00BDFC 1 9D AD 02 sta XPOS,x 00BDFF 1 CA dex 00BE00 1 10 F1 bpl LBDF3 00BE02 1 EE AF 02 inc YPO 00BE05 1 D0 03 bne LBE0A 00BE07 1 EE B0 02 inc $02B0 00BE0A 1 38 LBE0A: sec 00BE0B 1 AD D7 02 lda NF 00BE0E 1 E9 01 sbc #$01 00BE10 1 8D D7 02 sta NF 00BE13 1 AD D8 02 lda POSP 00BE16 1 E9 00 sbc #$00 00BE18 1 8D D8 02 sta POSP 00BE1B 1 B0 09 bcs LBE26 00BE1D 1 60 rts 00BE1E 1 00BE1E 1 AD E5 02 LBE1E: lda BITCNT 00BE21 1 F0 03 beq LBE26 00BE23 1 4C 8B BD jmp LBD8B 00BE26 1 00BE26 1 4C 7A BD LBE26: jmp LBD7A 00BE29 1 00BE29 1 20 BF C7 LBE29: jsr LC7BF 00BE2C 1 20 A5 96 jsr L96A5 00BE2F 1 8D DB 02 sta CFORM 00BE32 1 8C DC 02 sty SNO 00BE35 1 24 0D bit VALTYP 00BE37 1 30 03 bmi LBE3C 00BE39 1 4C 24 93 jmp L9324 00BE3C 1 00BE3C 1 A2 28 LBE3C: ldx #$28 00BE3E 1 20 F4 C3 jsr LC3F4 00BE41 1 A2 04 ldx #$04 00BE43 1 20 D9 C3 jsr LC3D9 00BE46 1 A2 2A ldx #$2A 00BE48 1 A0 06 ldy #$06 00BE4A 1 A9 02 lda #$02 00BE4C 1 85 8E sta VTEMP1 00BE4E 1 20 22 C3 LBE4E: jsr LC322 00BE51 1 AA tax 00BE52 1 98 tya 00BE53 1 48 pha 00BE54 1 A4 8E ldy VTEMP1 00BE56 1 20 82 C3 jsr LC382 00BE59 1 90 0C bcc LBE67 00BE5B 1 B9 D5 02 lda CHSN,y 00BE5E 1 99 AD 02 sta XPOS,y 00BE61 1 B9 D6 02 lda VF,y 00BE64 1 99 AE 02 sta $02AE,y 00BE67 1 8A LBE67: txa 00BE68 1 99 D5 02 sta CHSN,y 00BE6B 1 99 DE 02 sta BEGFD,y 00BE6E 1 68 pla 00BE6F 1 99 D6 02 sta VF,y 00BE72 1 99 DF 02 sta LFOR,y 00BE75 1 A2 28 ldx #$28 00BE77 1 A0 04 ldy #$04 00BE79 1 C6 8E dec VTEMP1 00BE7B 1 C6 8E dec VTEMP1 00BE7D 1 F0 CF beq LBE4E 00BE7F 1 A0 FF ldy #$FF 00BE81 1 8C D1 02 sty SWE 00BE84 1 AD AD 02 lda XPOS 00BE87 1 8D D9 02 sta FESP 00BE8A 1 AD AE 02 lda $02AE 00BE8D 1 8D DA 02 sta ETOF 00BE90 1 98 tya 00BE91 1 20 5C 9B jsr L9B5C 00BE94 1 20 64 C2 LBE94: jsr LC264 00BE97 1 B1 8C lda (GRAPNT),y 00BE99 1 90 0E bcc LBEA9 00BE9B 1 AD AD 02 lda XPOS 00BE9E 1 24 83 bit GRAPHM 00BEA0 1 10 02 bpl LBEA4 00BEA2 1 38 sec 00BEA3 1 2A rol a 00BEA4 1 29 07 LBEA4: and #$07 00BEA6 1 AA tax 00BEA7 1 A9 00 lda #$00 00BEA9 1 24 83 LBEA9: bit GRAPHM 00BEAB 1 10 01 bpl LBEAE 00BEAD 1 CA dex 00BEAE 1 8E DD 02 LBEAE: stx BLFD 00BEB1 1 0A LBEB1: asl a 00BEB2 1 CA dex 00BEB3 1 10 FC bpl LBEB1 00BEB5 1 6A ror a 00BEB6 1 85 8E sta VTEMP1 00BEB8 1 A9 08 lda #$08 00BEBA 1 24 83 bit GRAPHM 00BEBC 1 10 01 bpl LBEBF 00BEBE 1 4A lsr a 00BEBF 1 18 LBEBF: clc 00BEC0 1 6D AD 02 adc XPOS 00BEC3 1 8D AD 02 sta XPOS 00BEC6 1 90 03 bcc LBECB 00BEC8 1 EE AE 02 inc $02AE 00BECB 1 20 64 C2 LBECB: jsr LC264 00BECE 1 A9 00 lda #$00 00BED0 1 B0 02 bcs LBED4 00BED2 1 B1 8C lda (GRAPNT),y 00BED4 1 85 8F LBED4: sta VTEMP2 00BED6 1 AE DD 02 ldx BLFD 00BED9 1 4A LBED9: lsr a 00BEDA 1 E8 inx 00BEDB 1 E0 08 cpx #$08 00BEDD 1 D0 FA bne LBED9 00BEDF 1 05 8E ora VTEMP1 00BEE1 1 EE D1 02 inc SWE 00BEE4 1 AC D1 02 ldy SWE 00BEE7 1 C0 FC cpy #$FC 00BEE9 1 90 03 bcc LBEEE 00BEEB 1 4C 4C CC jmp LCC4C 00BEEE 1 00BEEE 1 91 62 LBEEE: sta (FACH0),y 00BEF0 1 AE DD 02 ldx BLFD 00BEF3 1 AD D5 02 lda CHSN 00BEF6 1 38 sec 00BEF7 1 24 83 bit GRAPHM 00BEF9 1 10 03 bpl LBEFE 00BEFB 1 E9 04 sbc #$04 00BEFD 1 2C LBEFD: .byte $2C 00BEFE 1 E9 08 LBEFE: sbc #$08 00BF00 1 8D D5 02 sta CHSN 00BF03 1 A5 8F lda VTEMP2 00BF05 1 B0 AA bcs LBEB1 00BF07 1 CE D6 02 dec VF 00BF0A 1 10 A5 bpl LBEB1 00BF0C 1 AE D7 02 ldx NF 00BF0F 1 D0 42 bne LBF53 00BF11 1 CE D8 02 dec POSP 00BF14 1 10 3D bpl LBF53 00BF16 1 24 83 bit GRAPHM 00BF18 1 10 06 bpl LBF20 00BF1A 1 0E DE 02 asl BEGFD 00BF1D 1 2E DF 02 rol LFOR 00BF20 1 A2 00 LBF20: ldx #$00 00BF22 1 BD DE 02 LBF22: lda BEGFD,x 00BF25 1 C8 iny 00BF26 1 91 62 sta (FACH0),y 00BF28 1 E8 inx 00BF29 1 E0 04 cpx #$04 00BF2B 1 D0 F5 bne LBF22 00BF2D 1 C8 iny 00BF2E 1 8C DE 02 sty BEGFD 00BF31 1 A5 62 lda FACH0 00BF33 1 8D DF 02 sta LFOR 00BF36 1 A5 63 lda $63 00BF38 1 8D E0 02 sta ENDFD 00BF3B 1 A9 DE lda #$DE 00BF3D 1 85 64 sta $64 00BF3F 1 A9 02 lda #$02 00BF41 1 85 65 sta $65 00BF43 1 AD DB 02 lda CFORM 00BF46 1 85 49 sta FORPNT 00BF48 1 AD DC 02 lda SNO 00BF4B 1 85 4A sta $4A 00BF4D 1 20 40 8F jsr L8F40 00BF50 1 4C 7B C3 jmp LC37B 00BF53 1 00BF53 1 CE D7 02 LBF53: dec NF 00BF56 1 EE AF 02 inc YPO 00BF59 1 D0 03 bne LBF5E 00BF5B 1 EE B0 02 inc $02B0 00BF5E 1 AD D9 02 LBF5E: lda FESP 00BF61 1 8D AD 02 sta XPOS 00BF64 1 AD DA 02 lda ETOF 00BF67 1 8D AE 02 sta $02AE 00BF6A 1 AD DE 02 lda BEGFD 00BF6D 1 8D D5 02 sta CHSN 00BF70 1 AD DF 02 lda LFOR 00BF73 1 8D D6 02 sta VF 00BF76 1 4C 94 BE jmp LBE94 00BF79 1 00BF79 1 A5 83 LBF79: lda GRAPHM 00BF7B 1 18 clc 00BF7C 1 2A rol a 00BF7D 1 2A rol a 00BF7E 1 2A rol a 00BF7F 1 69 00 adc #$00 00BF81 1 A8 tay 00BF82 1 4C 81 9A jmp L9A81 00BF85 1 00BF85 1 38 LBF85: sec 00BF86 1 24 .byte $24 00BF87 1 18 LBF87: clc 00BF88 1 08 php 00BF89 1 20 87 9D jsr L9D87 00BF8C 1 AD 19 FF lda TEDCOLFRAME 00BF8F 1 29 7F and #$7F 00BF91 1 E0 04 cpx #$04 00BF93 1 F0 19 beq LBFAE 00BF95 1 B0 27 bcs LBFBE 00BF97 1 AD 15 FF lda TEDCOLBG0 00BF9A 1 29 7F and #$7F 00BF9C 1 CA dex 00BF9D 1 30 0F bmi LBFAE 00BF9F 1 A5 86 lda FG 00BFA1 1 CA dex 00BFA2 1 30 0A bmi LBFAE 00BFA4 1 A5 85 lda MC1 00BFA6 1 CA dex 00BFA7 1 30 05 bmi LBFAE 00BFA9 1 AD 16 FF lda TEDCOLBG1 00BFAC 1 29 7F and #$7F 00BFAE 1 28 LBFAE: plp 00BFAF 1 B0 05 bcs LBFB6 00BFB1 1 4A lsr a 00BFB2 1 4A lsr a 00BFB3 1 4A lsr a 00BFB4 1 4A lsr a 00BFB5 1 18 clc 00BFB6 1 69 00 LBFB6: adc #$00 00BFB8 1 29 0F and #$0F 00BFBA 1 A8 tay 00BFBB 1 4C 81 9A jmp L9A81 00BFBE 1 00BFBE 1 4C 1C 99 LBFBE: jmp L991C 00BFC1 1 00BFC1 1 20 87 9D LBFC1: jsr L9D87 00BFC4 1 CA dex 00BFC5 1 E0 02 cpx #$02 00BFC7 1 B0 F5 bcs LBFBE 00BFC9 1 BD FB BF lda LBFFB,x 00BFCC 1 AA tax 00BFCD 1 78 sei 00BFCE 1 8E 08 FF LBFCE: stx TEDKEYB 00BFD1 1 AD 08 FF lda TEDKEYB 00BFD4 1 8E 08 FF stx TEDKEYB 00BFD7 1 CD 08 FF cmp TEDKEYB 00BFDA 1 D0 F2 bne LBFCE 00BFDC 1 58 cli 00BFDD 1 49 FF eor #$FF 00BFDF 1 A8 tay 00BFE0 1 29 0F and #$0F 00BFE2 1 AA tax 00BFE3 1 BD F0 BF lda LBFF0,x 00BFE6 1 C0 0F cpy #$0F 00BFE8 1 90 02 bcc LBFEC 00BFEA 1 09 80 ora #$80 00BFEC 1 A8 LBFEC: tay 00BFED 1 4C 81 9A jmp L9A81 00BFF0 1 00BFF0 1 00 01 05 00 LBFF0: .byte $00,$01,$05,$00,$07,$08,$06,$00 00BFF4 1 07 08 06 00 00BFF8 1 03 02 04 LBFF8: .byte $03,$02,$04 00BFFB 1 FA FD LBFFB: .byte $FA,$FD 00BFFD 1 20 87 9D LBFFD: jsr L9D87 00C000 1 E0 02 cpx #$02 00C002 1 90 0D bcc LC011 00C004 1 D0 B8 bne LBFBE 00C006 1 20 F3 C1 jsr LC1F3 00C009 1 A8 tay 00C00A 1 90 02 bcc LC00E 00C00C 1 A0 00 ldy #$00 00C00E 1 4C 81 9A LC00E: jmp L9A81 00C011 1 00C011 1 8A LC011: txa 00C012 1 0A asl a 00C013 1 AA tax 00C014 1 BD AD 02 lda XPOS,x 00C017 1 A8 tay 00C018 1 BD AE 02 lda $02AE,x 00C01B 1 4C 71 94 jmp L9471 00C01E 1 00C01E 1 20 B6 C3 LC01E: jsr LC3B6 00C021 1 A2 1F ldx #$1F 00C023 1 20 D9 C3 jsr LC3D9 00C026 1 20 8F C3 jsr LC38F 00C029 1 8C D0 02 sty FLAG 00C02C 1 8D D1 02 sta SWE 00C02F 1 20 8F C3 jsr LC38F 00C032 1 8C D2 02 sty USGN 00C035 1 8D D3 02 sta UEXP 00C038 1 08 php 00C039 1 A2 23 ldx #$23 00C03B 1 20 D3 C2 jsr LC2D3 00C03E 1 28 plp 00C03F 1 B0 11 bcs LC052 00C041 1 AD D0 02 lda FLAG 00C044 1 8D D2 02 sta USGN 00C047 1 AD D1 02 lda SWE 00C04A 1 24 83 bit GRAPHM 00C04C 1 10 04 bpl LC052 00C04E 1 0E D2 02 asl USGN 00C051 1 2A rol a 00C052 1 8D D3 02 LC052: sta UEXP 00C055 1 20 8F C3 jsr LC38F 00C058 1 8C D8 02 sty POSP 00C05B 1 8D D9 02 sta FESP 00C05E 1 20 8F C3 jsr LC38F 00C061 1 8C DA 02 sty ETOF 00C064 1 8D DB 02 sta CFORM 00C067 1 20 8F C3 jsr LC38F 00C06A 1 85 80 sta VOICNO 00C06C 1 98 tya 00C06D 1 A4 80 ldy VOICNO 00C06F 1 20 59 BC jsr LBC59 00C072 1 A2 2D ldx #$2D 00C074 1 A0 2B ldy #$2B 00C076 1 20 05 C3 jsr LC305 00C079 1 90 0E bcc LC089 00C07B 1 A9 68 lda #$68 00C07D 1 A0 01 ldy #$01 00C07F 1 20 F9 C2 jsr LC2F9 00C082 1 9D AD 02 sta XPOS,x 00C085 1 98 tya 00C086 1 9D AE 02 sta $02AE,x 00C089 1 A2 03 LC089: ldx #$03 00C08B 1 BD D0 02 LC08B: lda FLAG,x 00C08E 1 9D D4 02 sta VN,x 00C091 1 CA dex 00C092 1 10 F7 bpl LC08B 00C094 1 A9 90 lda #$90 00C096 1 20 D5 BC jsr LBCD5 00C099 1 A2 07 ldx #$07 00C09B 1 BD D0 02 LC09B: lda FLAG,x 00C09E 1 9D DC 02 sta SNO,x 00C0A1 1 CA dex 00C0A2 1 10 F7 bpl LC09B 00C0A4 1 20 EE BC jsr LBCEE 00C0A7 1 20 7B C3 jsr LC37B 00C0AA 1 A2 02 ldx #$02 00C0AC 1 20 A7 C3 jsr LC3A7 00C0AF 1 86 E9 stx CIRSEG 00C0B1 1 18 clc 00C0B2 1 A5 E9 LC0B2: lda CIRSEG 00C0B4 1 D0 03 bne LC0B9 00C0B6 1 4C 1C 99 jmp L991C 00C0B9 1 00C0B9 1 6D D8 02 LC0B9: adc POSP 00C0BC 1 8D D8 02 sta POSP 00C0BF 1 90 03 bcc LC0C4 00C0C1 1 EE D9 02 inc FESP 00C0C4 1 A2 2D LC0C4: ldx #$2D 00C0C6 1 A0 2B ldy #$2B 00C0C8 1 20 05 C3 jsr LC305 00C0CB 1 B0 08 bcs LC0D5 00C0CD 1 20 EE BC jsr LBCEE 00C0D0 1 20 DA C0 jsr LC0DA 00C0D3 1 90 DD bcc LC0B2 00C0D5 1 A0 2D LC0D5: ldy #$2D 00C0D7 1 20 F0 BC jsr LBCF0 00C0DA 1 A2 02 LC0DA: ldx #$02 00C0DC 1 A0 06 ldy #$06 00C0DE 1 A9 00 LC0DE: lda #$00 00C0E0 1 9D B9 02 sta $02B9,x 00C0E3 1 9D BA 02 sta $02BA,x 00C0E6 1 20 22 C3 jsr LC322 00C0E9 1 10 08 bpl LC0F3 00C0EB 1 DE B9 02 dec $02B9,x 00C0EE 1 DE BA 02 dec $02BA,x 00C0F1 1 D0 0B bne LC0FE 00C0F3 1 C9 00 LC0F3: cmp #$00 00C0F5 1 D0 04 bne LC0FB 00C0F7 1 C0 00 cpy #$00 00C0F9 1 F0 03 beq LC0FE 00C0FB 1 FE B9 02 LC0FB: inc $02B9,x 00C0FE 1 9D B5 02 LC0FE: sta XABS,x 00C101 1 0A asl a 00C102 1 9D BD 02 sta $02BD,x 00C105 1 98 tya 00C106 1 9D B6 02 sta $02B6,x 00C109 1 2A rol a 00C10A 1 9D BE 02 sta $02BE,x 00C10D 1 CA dex 00C10E 1 CA dex 00C10F 1 A0 04 ldy #$04 00C111 1 E0 00 cpx #$00 00C113 1 F0 C9 beq LC0DE 00C115 1 A2 0A ldx #$0A 00C117 1 A0 08 ldy #$08 00C119 1 20 05 C3 jsr LC305 00C11C 1 A9 00 lda #$00 00C11E 1 2A rol a 00C11F 1 2A rol a 00C120 1 8D C3 02 sta LESSER 00C123 1 49 02 eor #$02 00C125 1 8D C4 02 sta $02C4 00C128 1 18 clc 00C129 1 A9 10 lda #$10 00C12B 1 6D C3 02 adc LESSER 00C12E 1 A8 tay 00C12F 1 48 pha 00C130 1 49 02 eor #$02 00C132 1 AA tax 00C133 1 20 05 C3 jsr LC305 00C136 1 9D AD 02 sta XPOS,x 00C139 1 98 tya 00C13A 1 9D AE 02 sta $02AE,x 00C13D 1 68 pla 00C13E 1 A8 tay 00C13F 1 18 clc 00C140 1 A9 08 lda #$08 00C142 1 6D C4 02 adc $02C4 00C145 1 AA tax 00C146 1 20 05 C3 jsr LC305 00C149 1 8D C1 02 sta ERRVAL 00C14C 1 8C C2 02 sty $02C2 00C14F 1 20 A5 C1 LC14F: jsr LC1A5 00C152 1 AC C4 02 ldy $02C4 00C155 1 38 sec 00C156 1 B9 B5 02 lda XABS,y 00C159 1 E9 01 sbc #$01 00C15B 1 99 B5 02 sta XABS,y 00C15E 1 B0 0B bcs LC16B 00C160 1 B9 B6 02 lda $02B6,y 00C163 1 E9 00 sbc #$00 00C165 1 99 B6 02 sta $02B6,y 00C168 1 B0 01 bcs LC16B 00C16A 1 60 rts 00C16B 1 00C16B 1 AE C3 02 LC16B: ldx LESSER 00C16E 1 AD C2 02 lda $02C2 00C171 1 30 06 bmi LC179 00C173 1 20 94 C1 jsr LC194 00C176 1 AE C4 02 ldx $02C4 00C179 1 18 LC179: clc 00C17A 1 AD C1 02 lda ERRVAL 00C17D 1 7D BD 02 adc $02BD,x 00C180 1 8D C1 02 sta ERRVAL 00C183 1 AD C2 02 lda $02C2 00C186 1 7D BE 02 adc $02BE,x 00C189 1 8D C2 02 sta $02C2 00C18C 1 AE C4 02 ldx $02C4 00C18F 1 20 94 C1 jsr LC194 00C192 1 F0 BB beq LC14F 00C194 1 A0 02 LC194: ldy #$02 00C196 1 18 clc 00C197 1 BD AD 02 LC197: lda XPOS,x 00C19A 1 7D B9 02 adc $02B9,x 00C19D 1 9D AD 02 sta XPOS,x 00C1A0 1 E8 inx 00C1A1 1 88 dey 00C1A2 1 D0 F3 bne LC197 00C1A4 1 60 rts 00C1A5 1 00C1A5 1 AD E8 02 LC1A5: lda FILFLG 00C1A8 1 0D E7 02 ora WIDTH 00C1AB 1 F0 16 beq LC1C3 00C1AD 1 EE AD 02 inc XPOS 00C1B0 1 D0 03 bne LC1B5 00C1B2 1 EE AE 02 inc $02AE 00C1B5 1 20 C3 C1 LC1B5: jsr LC1C3 00C1B8 1 AE AD 02 ldx XPOS 00C1BB 1 D0 03 bne LC1C0 00C1BD 1 CE AE 02 dec $02AE 00C1C0 1 CE AD 02 LC1C0: dec XPOS 00C1C3 1 20 AD C2 LC1C3: jsr LC2AD 00C1C6 1 B0 24 bcs LC1EC 00C1C8 1 20 1A C2 jsr LC21A 00C1CB 1 20 69 C2 jsr LC269 00C1CE 1 8D E9 02 sta BITMSK 00C1D1 1 B1 8C lda (GRAPNT),y 00C1D3 1 0D E9 02 ora BITMSK 00C1D6 1 24 83 bit GRAPHM 00C1D8 1 10 13 bpl LC1ED 00C1DA 1 48 pha 00C1DB 1 A6 84 ldx COLSEL 00C1DD 1 AD E9 02 lda BITMSK 00C1E0 1 3D AF C4 and LC4AF,x 00C1E3 1 8D E9 02 sta BITMSK 00C1E6 1 68 pla 00C1E7 1 4D E9 02 LC1E7: eor BITMSK 00C1EA 1 91 8C LC1EA: sta (GRAPNT),y 00C1EC 1 60 LC1EC: rts 00C1ED 1 00C1ED 1 A6 84 LC1ED: ldx COLSEL 00C1EF 1 D0 F9 bne LC1EA 00C1F1 1 F0 F4 beq LC1E7 00C1F3 1 20 64 C2 LC1F3: jsr LC264 00C1F6 1 B0 21 bcs LC219 00C1F8 1 8D E9 02 sta BITMSK 00C1FB 1 B1 8C lda (GRAPNT),y 00C1FD 1 2D E9 02 and BITMSK 00C200 1 2A LC200: rol a 00C201 1 CA dex 00C202 1 10 FC bpl LC200 00C204 1 2A rol a 00C205 1 24 8B bit STOPNB 00C207 1 30 06 bmi LC20F 00C209 1 29 03 and #$03 00C20B 1 C5 84 cmp COLSEL 00C20D 1 18 clc 00C20E 1 60 rts 00C20F 1 00C20F 1 18 LC20F: clc 00C210 1 29 03 and #$03 00C212 1 F0 03 beq LC217 00C214 1 A2 00 ldx #$00 00C216 1 60 rts 00C217 1 00C217 1 A2 FF LC217: ldx #$FF 00C219 1 60 LC219: rts 00C21A 1 00C21A 1 BD 02 D8 LC21A: lda LD802,x 00C21D 1 85 8C sta GRAPNT 00C21F 1 BD 1B D8 lda LD81B,x 00C222 1 29 03 and #$03 00C224 1 48 pha 00C225 1 09 1C ora #$1C 00C227 1 85 8D sta $8D 00C229 1 20 38 C2 jsr LC238 00C22C 1 91 8C sta (GRAPNT),y 00C22E 1 68 pla 00C22F 1 09 18 ora #$18 00C231 1 85 8D sta $8D 00C233 1 20 4E C2 jsr LC24E 00C236 1 91 8C sta (GRAPNT),y 00C238 1 A5 86 LC238: lda FG 00C23A 1 0A asl a 00C23B 1 0A asl a 00C23C 1 0A asl a 00C23D 1 0A asl a 00C23E 1 85 7E sta TMPTON 00C240 1 AD 15 FF lda TEDCOLBG0 00C243 1 24 83 bit GRAPHM 00C245 1 10 02 bpl LC249 00C247 1 A5 85 lda MC1 00C249 1 29 0F LC249: and #$0F 00C24B 1 05 7E ora TMPTON 00C24D 1 60 rts 00C24E 1 00C24E 1 A5 86 LC24E: lda FG 00C250 1 4A lsr a 00C251 1 4A lsr a 00C252 1 4A lsr a 00C253 1 4A lsr a 00C254 1 85 7E sta TMPTON 00C256 1 AD 15 FF lda TEDCOLBG0 00C259 1 24 83 bit GRAPHM 00C25B 1 10 02 bpl LC25F 00C25D 1 A5 85 lda MC1 00C25F 1 29 F0 LC25F: and #$F0 00C261 1 05 7E ora TMPTON 00C263 1 60 rts 00C264 1 00C264 1 20 AD C2 LC264: jsr LC2AD 00C267 1 B0 1F bcs LC288 00C269 1 20 91 C2 LC269: jsr LC291 00C26C 1 AD AF 02 lda YPO 00C26F 1 29 07 and #$07 00C271 1 A8 tay 00C272 1 AD AD 02 lda XPOS 00C275 1 24 83 bit GRAPHM 00C277 1 08 php 00C278 1 10 01 bpl LC27B 00C27A 1 0A asl a 00C27B 1 29 07 LC27B: and #$07 00C27D 1 AA tax 00C27E 1 BD 89 C2 lda LC289,x 00C281 1 28 plp 00C282 1 10 04 bpl LC288 00C284 1 E8 inx 00C285 1 1D 89 C2 ora LC289,x 00C288 1 60 LC288: rts 00C289 1 00C289 1 80 40 20 10 LC289: .byte $80,$40,$20,$10,$08,$04,$02,$01 00C28D 1 08 04 02 01 00C291 1 98 LC291: tya 00C292 1 18 clc 00C293 1 7D 02 D8 adc LD802,x 00C296 1 85 8C sta GRAPNT 00C298 1 BD 1B D8 lda LD81B,x 00C29B 1 29 03 and #$03 00C29D 1 69 00 adc #$00 00C29F 1 06 8C asl GRAPNT 00C2A1 1 2A rol a 00C2A2 1 06 8C asl GRAPNT 00C2A4 1 2A rol a 00C2A5 1 06 8C asl GRAPNT 00C2A7 1 2A rol a 00C2A8 1 09 20 ora #$20 00C2AA 1 85 8D sta $8D 00C2AC 1 60 rts 00C2AD 1 00C2AD 1 AD AE 02 LC2AD: lda $02AE 00C2B0 1 4A lsr a 00C2B1 1 D0 1E bne LC2D1 00C2B3 1 AD AD 02 lda XPOS 00C2B6 1 6A ror a 00C2B7 1 4A lsr a 00C2B8 1 24 83 bit GRAPHM 00C2BA 1 30 01 bmi LC2BD 00C2BC 1 4A lsr a 00C2BD 1 A8 LC2BD: tay 00C2BE 1 C0 28 cpy #$28 00C2C0 1 B0 0F bcs LC2D1 00C2C2 1 AD B0 02 lda $02B0 00C2C5 1 D0 0A bne LC2D1 00C2C7 1 AD AF 02 lda YPO 00C2CA 1 4A lsr a 00C2CB 1 4A lsr a 00C2CC 1 4A lsr a 00C2CD 1 AA tax 00C2CE 1 C5 88 cmp SCYMAX 00C2D0 1 60 rts 00C2D1 1 00C2D1 1 38 LC2D1: sec 00C2D2 1 60 rts 00C2D3 1 00C2D3 1 AD E6 02 LC2D3: lda SCALEM 00C2D6 1 F0 17 beq LC2EF 00C2D8 1 A5 87 lda SCXMAX 00C2DA 1 20 DF C2 jsr LC2DF 00C2DD 1 A5 88 lda SCYMAX 00C2DF 1 0A LC2DF: asl a 00C2E0 1 A8 tay 00C2E1 1 A9 00 lda #$00 00C2E3 1 20 37 C3 jsr LC337 00C2E6 1 9D AD 02 sta XPOS,x 00C2E9 1 98 tya 00C2EA 1 E8 inx 00C2EB 1 9D AD 02 sta XPOS,x 00C2EE 1 E8 inx 00C2EF 1 60 LC2EF: rts 00C2F0 1 00C2F0 1 90 07 LC2F0: bcc LC2F9 00C2F2 1 B0 14 bcs LC308 00C2F4 1 B0 0F LC2F4: bcs LC305 00C2F6 1 20 18 C3 LC2F6: jsr LC318 00C2F9 1 18 LC2F9: clc 00C2FA 1 7D AD 02 adc XPOS,x 00C2FD 1 48 pha 00C2FE 1 98 tya 00C2FF 1 7D AE 02 adc $02AE,x 00C302 1 A8 tay 00C303 1 68 pla 00C304 1 60 rts 00C305 1 00C305 1 20 18 C3 LC305: jsr LC318 00C308 1 38 LC308: sec 00C309 1 FD AD 02 sbc XPOS,x 00C30C 1 85 57 sta TEMPF1 00C30E 1 98 tya 00C30F 1 FD AE 02 sbc $02AE,x 00C312 1 A8 tay 00C313 1 08 php 00C314 1 A5 57 lda TEMPF1 00C316 1 28 plp 00C317 1 60 rts 00C318 1 00C318 1 B9 AD 02 LC318: lda XPOS,y 00C31B 1 48 pha 00C31C 1 B9 AE 02 lda $02AE,y 00C31F 1 A8 tay 00C320 1 68 pla 00C321 1 60 rts 00C322 1 00C322 1 20 05 C3 LC322: jsr LC305 00C325 1 10 0F LC325: bpl LC336 00C327 1 08 LC327: php 00C328 1 18 clc 00C329 1 49 FF eor #$FF 00C32B 1 69 01 adc #$01 00C32D 1 48 pha 00C32E 1 98 tya 00C32F 1 49 FF eor #$FF 00C331 1 69 00 adc #$00 00C333 1 A8 tay 00C334 1 68 pla 00C335 1 28 plp 00C336 1 60 LC336: rts 00C337 1 00C337 1 84 8E LC337: sty VTEMP1 00C339 1 85 8F sta VTEMP2 00C33B 1 BD AD 02 lda XPOS,x 00C33E 1 BC AE 02 ldy $02AE,x 00C341 1 08 php 00C342 1 20 25 C3 jsr LC325 00C345 1 9D AD 02 sta XPOS,x 00C348 1 98 tya 00C349 1 9D AE 02 sta $02AE,x 00C34C 1 A9 00 lda #$00 00C34E 1 8D EF 02 sta VTEMP3 00C351 1 A0 10 ldy #$10 00C353 1 46 8E LC353: lsr VTEMP1 00C355 1 66 8F ror VTEMP2 00C357 1 90 0F bcc LC368 00C359 1 18 clc 00C35A 1 7D AD 02 adc XPOS,x 00C35D 1 48 pha 00C35E 1 AD EF 02 lda VTEMP3 00C361 1 7D AE 02 adc $02AE,x 00C364 1 8D EF 02 sta VTEMP3 00C367 1 68 pla 00C368 1 4E EF 02 LC368: lsr VTEMP3 00C36B 1 6A ror a 00C36C 1 88 dey 00C36D 1 D0 E4 bne LC353 00C36F 1 69 00 adc #$00 00C371 1 AC EF 02 ldy VTEMP3 00C374 1 90 01 bcc LC377 00C376 1 C8 iny 00C377 1 28 LC377: plp 00C378 1 4C 25 C3 jmp LC325 00C37B 1 00C37B 1 A0 00 LC37B: ldy #$00 00C37D 1 20 82 C3 jsr LC382 00C380 1 A0 02 ldy #$02 00C382 1 B9 B1 02 LC382: lda XDEST,y 00C385 1 99 AD 02 sta XPOS,y 00C388 1 B9 B2 02 lda $02B2,y 00C38B 1 99 AE 02 sta $02AE,y 00C38E 1 60 rts 00C38F 1 00C38F 1 20 79 04 LC38F: jsr CHRGOT 00C392 1 F0 0C beq LC3A0 00C394 1 20 91 94 jsr L9491 00C397 1 C9 2C cmp #$2C 00C399 1 F0 05 beq LC3A0 00C39B 1 20 E1 9D jsr L9DE1 00C39E 1 38 sec 00C39F 1 60 rts 00C3A0 1 00C3A0 1 A9 00 LC3A0: lda #$00 00C3A2 1 A8 tay 00C3A3 1 18 clc 00C3A4 1 60 LC3A4: rts 00C3A5 1 00C3A5 1 A2 00 LC3A5: ldx #$00 00C3A7 1 20 79 04 LC3A7: jsr CHRGOT 00C3AA 1 F0 F8 beq LC3A4 00C3AC 1 20 91 94 jsr L9491 00C3AF 1 C9 2C cmp #$2C 00C3B1 1 F0 F1 beq LC3A4 00C3B3 1 4C 84 9D jmp L9D84 00C3B6 1 00C3B6 1 20 BF C7 LC3B6: jsr LC7BF 00C3B9 1 A2 01 LC3B9: ldx #$01 00C3BB 1 20 79 04 jsr CHRGOT 00C3BE 1 F0 13 LC3BE: beq LC3D3 00C3C0 1 C9 2C cmp #$2C 00C3C2 1 F0 0F beq LC3D3 00C3C4 1 20 84 9D jsr L9D84 00C3C7 1 E0 04 cpx #$04 00C3C9 1 B0 0B bcs LC3D6 00C3CB 1 E0 02 cpx #$02 00C3CD 1 24 83 bit GRAPHM 00C3CF 1 30 02 bmi LC3D3 00C3D1 1 B0 03 bcs LC3D6 00C3D3 1 86 84 LC3D3: stx COLSEL 00C3D5 1 60 rts 00C3D6 1 00C3D6 1 4C 1C 99 LC3D6: jmp L991C 00C3D9 1 00C3D9 1 20 79 04 LC3D9: jsr CHRGOT 00C3DC 1 F0 07 beq LC3E5 00C3DE 1 20 91 94 jsr L9491 00C3E1 1 C9 2C cmp #$2C 00C3E3 1 D0 12 bne LC3F7 00C3E5 1 A0 00 LC3E5: ldy #$00 00C3E7 1 B9 AD 02 LC3E7: lda XPOS,y 00C3EA 1 9D AD 02 sta XPOS,x 00C3ED 1 E8 inx 00C3EE 1 C8 iny 00C3EF 1 C0 04 cpy #$04 00C3F1 1 D0 F4 bne LC3E7 00C3F3 1 60 rts 00C3F4 1 00C3F4 1 20 91 94 LC3F4: jsr L9491 00C3F7 1 8E F0 02 LC3F7: stx VTEMP4 00C3FA 1 20 8F C4 jsr LC48F 00C3FD 1 20 79 04 jsr CHRGOT 00C400 1 C9 2C cmp #$2C 00C402 1 F0 56 beq LC45A 00C404 1 C9 3B cmp #$3B 00C406 1 F0 03 beq LC40B 00C408 1 4C A1 94 jmp L94A1 00C40B 1 00C40B 1 20 73 04 LC40B: jsr CHRGET 00C40E 1 20 E1 9D jsr L9DE1 00C411 1 85 80 sta VOICNO 00C413 1 98 tya 00C414 1 A4 80 ldy VOICNO 00C416 1 20 59 BC jsr LBC59 00C419 1 AE F0 02 ldx VTEMP4 00C41C 1 BD AD 02 lda XPOS,x 00C41F 1 9D AF 02 sta YPO,x 00C422 1 BD AE 02 lda $02AE,x 00C425 1 9D B0 02 sta $02B0,x 00C428 1 20 D3 C2 jsr LC2D3 00C42B 1 A9 0E lda #$0E 00C42D 1 8D F1 02 sta VTEMP5 00C430 1 18 clc 00C431 1 AE F0 02 ldx VTEMP4 00C434 1 20 B0 BC LC434: jsr LBCB0 00C437 1 9D AD 02 sta XPOS,x 00C43A 1 98 tya 00C43B 1 9D AE 02 sta $02AE,x 00C43E 1 A0 00 ldy #$00 00C440 1 4E F1 02 lsr VTEMP5 00C443 1 90 02 bcc LC447 00C445 1 A0 02 ldy #$02 00C447 1 20 F4 C2 LC447: jsr LC2F4 00C44A 1 9D AD 02 sta XPOS,x 00C44D 1 98 tya 00C44E 1 9D AE 02 sta $02AE,x 00C451 1 E8 inx 00C452 1 E8 inx 00C453 1 4E F1 02 lsr VTEMP5 00C456 1 D0 DC bne LC434 00C458 1 18 clc 00C459 1 60 rts 00C45A 1 00C45A 1 20 73 04 LC45A: jsr CHRGET 00C45D 1 EE F0 02 inc VTEMP4 00C460 1 EE F0 02 inc VTEMP4 00C463 1 20 8F C4 jsr LC48F 00C466 1 AE F0 02 ldx VTEMP4 00C469 1 CA dex 00C46A 1 CA dex 00C46B 1 20 D3 C2 jsr LC2D3 00C46E 1 A0 02 ldy #$02 00C470 1 AE F0 02 ldx VTEMP4 00C473 1 E8 inx 00C474 1 E8 inx 00C475 1 CA LC475: dex 00C476 1 CA dex 00C477 1 4E F1 02 lsr VTEMP5 00C47A 1 90 0A bcc LC486 00C47C 1 20 F6 C2 jsr LC2F6 00C47F 1 9D AD 02 sta XPOS,x 00C482 1 98 tya 00C483 1 9D AE 02 sta $02AE,x 00C486 1 A0 00 LC486: ldy #$00 00C488 1 EC F0 02 cpx VTEMP4 00C48B 1 F0 E8 beq LC475 00C48D 1 18 clc 00C48E 1 60 rts 00C48F 1 00C48F 1 20 79 04 LC48F: jsr CHRGOT 00C492 1 C9 AA cmp #$AA 00C494 1 F0 05 beq LC49B 00C496 1 C9 AB cmp #$AB 00C498 1 F0 01 beq LC49B 00C49A 1 18 clc 00C49B 1 2E F1 02 LC49B: rol VTEMP5 00C49E 1 20 14 93 jsr L9314 00C4A1 1 20 E8 9D jsr L9DE8 00C4A4 1 AE F0 02 ldx VTEMP4 00C4A7 1 9D AE 02 sta $02AE,x 00C4AA 1 98 tya 00C4AB 1 9D AD 02 sta XPOS,x 00C4AE 1 60 rts 00C4AF 1 00C4AF 1 FF AA 55 00 LC4AF: .byte $FF,$AA,$55,$00 00C4B3 1 00 LC4B3: .byte $00 00C4B4 1 00 2C 71 57 LC4B4: .byte $00,$2C,$71,$57,$8D,$80,$00,$A4 00C4B8 1 8D 80 00 A4 00C4BC 1 8F C4 19 DD .byte $8F,$C4,$19,$DD,$B2,$F0,$90,$FC 00C4C0 1 B2 F0 90 FC 00C4C4 1 1C FF FF .byte $1C,$FF,$FF 00C4C7 1 04 LC4C7: .byte $04 00C4C8 1 72 04 50 04 LC4C8: .byte $72,$04,$50,$04,$0B,$03,$A8,$03 00C4CC 1 0B 03 A8 03 00C4D0 1 28 02 90 01 .byte $28,$02,$90,$01,$E3,$01,$28,$00 00C4D4 1 E3 01 28 00 00C4D8 1 63 .byte $63 00C4D9 1 20 BF C7 LC4D9: jsr LC7BF 00C4DC 1 20 79 04 jsr CHRGOT 00C4DF 1 F0 12 beq LC4F3 00C4E1 1 A2 01 ldx #$01 00C4E3 1 C9 A4 cmp #$A4 00C4E5 1 20 BE C3 jsr LC3BE 00C4E8 1 20 79 04 LC4E8: jsr CHRGOT 00C4EB 1 C9 2C cmp #$2C 00C4ED 1 F0 05 beq LC4F4 00C4EF 1 C9 A4 cmp #$A4 00C4F1 1 F0 01 beq LC4F4 00C4F3 1 60 LC4F3: rts 00C4F4 1 00C4F4 1 48 LC4F4: pha 00C4F5 1 20 73 04 jsr CHRGET 00C4F8 1 A2 04 ldx #$04 00C4FA 1 20 F7 C3 jsr LC3F7 00C4FD 1 68 pla 00C4FE 1 10 06 bpl LC506 00C500 1 20 DA C0 jsr LC0DA 00C503 1 4C E8 C4 jmp LC4E8 00C506 1 00C506 1 20 7B C3 LC506: jsr LC37B 00C509 1 20 A5 C1 jsr LC1A5 00C50C 1 4C E8 C4 jmp LC4E8 00C50F 1 00C50F 1 20 BF C7 LC50F: jsr LC7BF 00C512 1 A2 04 ldx #$04 00C514 1 20 F7 C3 jsr LC3F7 00C517 1 4C 7B C3 jmp LC37B 00C51A 1 00C51A 1 20 84 9D LC51A: jsr L9D84 00C51D 1 E0 05 cpx #$05 00C51F 1 B0 43 bcs LC564 00C521 1 86 7E stx TMPTON 00C523 1 20 D8 9D jsr L9DD8 00C526 1 CA dex 00C527 1 E0 10 cpx #$10 00C529 1 B0 39 bcs LC564 00C52B 1 86 7F stx $7F 00C52D 1 A2 07 ldx #$07 00C52F 1 20 A7 C3 jsr LC3A7 00C532 1 E0 08 cpx #$08 00C534 1 B0 2E bcs LC564 00C536 1 8A txa 00C537 1 0A asl a 00C538 1 0A asl a 00C539 1 0A asl a 00C53A 1 0A asl a 00C53B 1 05 7F ora $7F 00C53D 1 A6 7E ldx TMPTON 00C53F 1 E0 01 cpx #$01 00C541 1 F0 07 beq LC54A 00C543 1 B0 0C bcs LC551 00C545 1 8D 15 FF sta TEDCOLBG0 00C548 1 D0 19 bne LC563 00C54A 1 85 86 LC54A: sta FG 00C54C 1 8D 3B 05 sta COLOR 00C54F 1 F0 12 beq LC563 00C551 1 E0 03 LC551: cpx #$03 00C553 1 F0 06 beq LC55B 00C555 1 B0 09 bcs LC560 00C557 1 85 85 sta MC1 00C559 1 D0 08 bne LC563 00C55B 1 8D 16 FF LC55B: sta TEDCOLBG1 00C55E 1 F0 03 beq LC563 00C560 1 8D 19 FF LC560: sta TEDCOLFRAME 00C563 1 60 LC563: rts 00C564 1 00C564 1 4C 1C 99 LC564: jmp L991C 00C567 1 00C567 1 A5 83 LC567: lda GRAPHM 00C569 1 D0 05 bne LC570 00C56B 1 A9 93 LC56B: lda #$93 00C56D 1 4C D2 FF jmp kCHROUT 00C570 1 00C570 1 29 40 LC570: and #$40 00C572 1 F0 0B beq LC57F 00C574 1 20 6B C5 jsr LC56B 00C577 1 A2 14 ldx #$14 00C579 1 A0 00 ldy #$00 00C57B 1 18 clc 00C57C 1 20 F0 FF jsr kPLOT 00C57F 1 A9 00 LC57F: lda #$00 00C581 1 A0 20 ldy #$20 00C583 1 A2 20 ldx #$20 00C585 1 20 A7 C5 jsr LC5A7 00C588 1 20 38 C2 jsr LC238 00C58B 1 A0 1C ldy #$1C 00C58D 1 A2 04 ldx #$04 00C58F 1 20 A7 C5 jsr LC5A7 00C592 1 20 4E C2 jsr LC24E 00C595 1 A0 18 ldy #$18 00C597 1 A2 04 ldx #$04 00C599 1 20 A7 C5 jsr LC5A7 00C59C 1 A9 00 lda #$00 00C59E 1 A2 03 ldx #$03 00C5A0 1 9D AD 02 LC5A0: sta XPOS,x 00C5A3 1 CA dex 00C5A4 1 10 FA bpl LC5A0 00C5A6 1 60 rts 00C5A7 1 00C5A7 1 84 8D LC5A7: sty $8D 00C5A9 1 A0 00 ldy #$00 00C5AB 1 84 8C sty GRAPNT 00C5AD 1 91 8C LC5AD: sta (GRAPNT),y 00C5AF 1 88 dey 00C5B0 1 D0 FB bne LC5AD 00C5B2 1 E6 8D inc $8D 00C5B4 1 CA dex 00C5B5 1 D0 F6 bne LC5AD 00C5B7 1 60 rts 00C5B8 1 00C5B8 1 20 84 9D LC5B8: jsr L9D84 00C5BB 1 E0 02 cpx #$02 00C5BD 1 B0 A5 bcs LC564 00C5BF 1 8E E6 02 stx SCALEM 00C5C2 1 60 rts 00C5C3 1 00C5C3 1 C9 9C LC5C3: cmp #$9C 00C5C5 1 D0 0A bne LC5D1 00C5C7 1 20 38 C7 jsr LC738 00C5CA 1 20 73 04 jsr CHRGET 00C5CD 1 A9 00 lda #$00 00C5CF 1 F0 0A beq LC5DB 00C5D1 1 20 84 9D LC5D1: jsr L9D84 00C5D4 1 E0 05 cpx #$05 00C5D6 1 B0 15 bcs LC5ED 00C5D8 1 BD 37 C6 lda LC637,x 00C5DB 1 C5 83 LC5DB: cmp GRAPHM 00C5DD 1 F0 4B beq LC62A 00C5DF 1 85 83 sta GRAPHM 00C5E1 1 AA tax 00C5E2 1 D0 0C bne LC5F0 00C5E4 1 20 C9 C7 jsr LC7C9 00C5E7 1 A9 28 lda #$28 00C5E9 1 A2 19 ldx #$19 00C5EB 1 D0 39 bne LC626 00C5ED 1 4C 1C 99 LC5ED: jmp L991C 00C5F0 1 00C5F0 1 20 3C C6 LC5F0: jsr LC63C 00C5F3 1 AD 06 FF lda TEDVSP 00C5F6 1 09 20 ora #$20 00C5F8 1 8D 06 FF sta TEDVSP 00C5FB 1 AD 07 FF lda TEDHSP 00C5FE 1 29 EF and #$EF 00C600 1 24 83 bit GRAPHM 00C602 1 10 02 bpl LC606 00C604 1 09 10 ora #$10 00C606 1 8D 07 FF LC606: sta TEDHSP 00C609 1 AD 12 FF lda TEDFREQV1HI 00C60C 1 29 C3 and #$C3 00C60E 1 09 08 ora #$08 00C610 1 8D 12 FF sta TEDFREQV1HI 00C613 1 AD 14 FF lda TEDVIDEORAM 00C616 1 29 03 and #$03 00C618 1 09 18 ora #$18 00C61A 1 8D 14 FF sta TEDVIDEORAM 00C61D 1 A9 28 lda #$28 00C61F 1 A2 19 ldx #$19 00C621 1 24 83 bit GRAPHM 00C623 1 10 01 bpl LC626 00C625 1 4A lsr a 00C626 1 85 87 LC626: sta SCXMAX 00C628 1 86 88 stx SCYMAX 00C62A 1 20 A5 C3 LC62A: jsr LC3A5 00C62D 1 8A txa 00C62E 1 4A lsr a 00C62F 1 D0 BC bne LC5ED 00C631 1 90 03 bcc LC636 00C633 1 4C 67 C5 jmp LC567 00C636 1 00C636 1 60 LC636: rts 00C637 1 00C637 1 00 20 60 A0 LC637: .byte $00,$20,$60,$A0,$E0 00C63B 1 E0 00C63C 1 A5 75 LC63C: lda MVDFLG 00C63E 1 F0 01 beq LC641 00C640 1 60 rts 00C641 1 00C641 1 A5 38 LC641: lda $38 00C643 1 C9 40 cmp #$40 00C645 1 B0 34 bcs LC67B 00C647 1 20 54 A9 jsr LA954 00C64A 1 20 6B C8 jsr LC86B 00C64D 1 8A txa 00C64E 1 18 clc 00C64F 1 65 31 adc STREND 00C651 1 98 tya 00C652 1 65 32 adc $32 00C654 1 C9 18 cmp #$18 00C656 1 B0 20 bcs LC678 00C658 1 C6 75 dec MVDFLG 00C65A 1 A9 00 lda #$00 00C65C 1 85 22 sta INDEX1 00C65E 1 A9 18 lda #$18 00C660 1 85 23 sta $23 00C662 1 20 F0 C7 jsr LC7F0 00C665 1 A5 22 lda INDEX1 00C667 1 85 33 sta FRETOP 00C669 1 A5 23 lda $23 00C66B 1 85 34 sta $34 00C66D 1 A9 00 lda #$00 00C66F 1 85 37 sta MEMSIZ 00C671 1 A9 18 lda #$18 00C673 1 85 38 sta $38 00C675 1 4C 25 C8 jmp LC825 00C678 1 00C678 1 4C 81 86 LC678: jmp L8681 00C67B 1 00C67B 1 20 54 A9 LC67B: jsr LA954 00C67E 1 A4 31 ldy STREND 00C680 1 84 5F sty $5F 00C682 1 A5 32 lda $32 00C684 1 18 clc 00C685 1 69 30 adc #$30 00C687 1 B0 EF bcs LC678 00C689 1 85 60 sta $60 00C68B 1 C5 34 cmp $34 00C68D 1 90 06 bcc LC695 00C68F 1 D0 E7 bne LC678 00C691 1 C4 33 cpy FRETOP 00C693 1 B0 E3 bcs LC678 00C695 1 C6 75 LC695: dec MVDFLG 00C697 1 A9 00 lda #$00 00C699 1 85 4E sta DEFPNT 00C69B 1 A9 30 lda #$30 00C69D 1 85 4F sta $4F 00C69F 1 20 77 C8 jsr LC877 00C6A2 1 A5 5F lda $5F 00C6A4 1 85 22 sta INDEX1 00C6A6 1 A5 60 lda $60 00C6A8 1 85 23 sta $23 00C6AA 1 A6 31 ldx STREND 00C6AC 1 86 24 stx INDEX2 00C6AE 1 A5 32 lda $32 00C6B0 1 85 25 sta $25 00C6B2 1 38 sec 00C6B3 1 E9 10 sbc #$10 00C6B5 1 A8 tay 00C6B6 1 20 F8 C7 jsr LC7F8 00C6B9 1 18 clc 00C6BA 1 A5 32 lda $32 00C6BC 1 69 30 adc #$30 00C6BE 1 85 32 sta $32 00C6C0 1 A5 30 lda $30 00C6C2 1 69 30 adc #$30 00C6C4 1 85 30 sta $30 00C6C6 1 A5 2E lda $2E 00C6C8 1 69 30 adc #$30 00C6CA 1 85 2E sta $2E 00C6CC 1 A5 2C lda $2C 00C6CE 1 69 30 adc #$30 00C6D0 1 85 2C sta $2C 00C6D2 1 A5 42 lda $42 00C6D4 1 69 30 adc #$30 00C6D6 1 85 42 sta $42 00C6D8 1 20 18 88 LC6D8: jsr L8818 00C6DB 1 20 4B 88 jsr L884B 00C6DE 1 24 81 bit RUNMOD 00C6E0 1 10 2D bpl LC70F 00C6E2 1 A2 30 ldx #$30 00C6E4 1 24 75 bit MVDFLG 00C6E6 1 .if CompileComputer >= PLUS4_03 00C6E6 1 30 02 bmi LC6EA 00C6E8 1 .else 00C6E8 1 bne LC6EA 00C6E8 1 .endif 00C6E8 1 A2 D0 ldx #$D0 00C6EA 1 8A LC6EA: txa 00C6EB 1 18 clc 00C6EC 1 65 3C adc $3C 00C6EE 1 85 3C sta $3C 00C6F0 1 8A txa 00C6F1 1 18 clc 00C6F2 1 6D 5C 02 adc $025C 00C6F5 1 8D 5C 02 sta $025C 00C6F8 1 8A txa 00C6F9 1 18 clc 00C6FA 1 6D F6 04 adc $04F6 00C6FD 1 8D F6 04 sta $04F6 00C700 1 20 60 A7 jsr LA760 00C703 1 A5 3D LC703: lda FNDPNT 00C705 1 C9 B0 cmp #$B0 00C707 1 D0 07 bne LC710 00C709 1 A5 3E lda $3E 00C70B 1 C9 07 cmp #$07 00C70D 1 D0 01 bne LC710 00C70F 1 60 LC70F: rts 00C710 1 00C710 1 A0 00 LC710: ldy #$00 00C712 1 B1 3D lda (FNDPNT),y 00C714 1 C9 81 cmp #$81 00C716 1 D0 0E bne LC726 00C718 1 A0 02 ldy #$02 00C71A 1 20 AD C7 jsr LC7AD 00C71D 1 A0 10 ldy #$10 00C71F 1 20 AD C7 jsr LC7AD 00C722 1 A9 12 lda #$12 00C724 1 D0 07 bne LC72D 00C726 1 A0 04 LC726: ldy #$04 00C728 1 20 AD C7 jsr LC7AD 00C72B 1 A9 05 lda #$05 00C72D 1 18 LC72D: clc 00C72E 1 65 3D adc FNDPNT 00C730 1 85 3D sta FNDPNT 00C732 1 90 CF bcc LC703 00C734 1 E6 3E inc $3E 00C736 1 D0 CB bne LC703 00C738 1 A5 75 LC738: lda MVDFLG 00C73A 1 D0 01 bne LC73D 00C73C 1 60 rts 00C73D 1 00C73D 1 A0 00 LC73D: ldy #$00 00C73F 1 84 75 sty MVDFLG 00C741 1 A5 38 lda $38 00C743 1 30 24 bmi LC769 00C745 1 20 54 A9 jsr LA954 00C748 1 20 6B C8 jsr LC86B 00C74B 1 AD 33 05 lda MSIZ 00C74E 1 85 22 sta INDEX1 00C750 1 AD 34 05 lda $0534 00C753 1 85 23 sta $23 00C755 1 20 F0 C7 jsr LC7F0 00C758 1 A2 01 ldx #$01 00C75A 1 BD 33 05 LC75A: lda MSIZ,x 00C75D 1 95 37 sta MEMSIZ,x 00C75F 1 B5 22 lda INDEX1,x 00C761 1 95 33 sta FRETOP,x 00C763 1 CA dex 00C764 1 10 F4 bpl LC75A 00C766 1 4C 25 C8 jmp LC825 00C769 1 00C769 1 A0 00 LC769: ldy #$00 00C76B 1 84 75 sty MVDFLG 00C76D 1 84 22 sty INDEX1 00C76F 1 84 24 sty INDEX2 00C771 1 A9 10 lda #$10 00C773 1 85 23 sta $23 00C775 1 A9 40 lda #$40 00C777 1 85 25 sta $25 00C779 1 20 BB 04 LC779: jsr INDIN2 00C77C 1 91 22 sta (INDEX1),y 00C77E 1 C8 iny 00C77F 1 D0 F8 bne LC779 00C781 1 E6 23 inc $23 00C783 1 E6 25 inc $25 00C785 1 A5 32 lda $32 00C787 1 C5 25 cmp $25 00C789 1 B0 EE bcs LC779 00C78B 1 A5 32 lda $32 00C78D 1 38 sec 00C78E 1 E9 30 sbc #$30 00C790 1 85 32 sta $32 00C792 1 A5 2C lda $2C 00C794 1 E9 30 sbc #$30 00C796 1 85 2C sta $2C 00C798 1 A5 2E lda $2E 00C79A 1 E9 30 sbc #$30 00C79C 1 85 2E sta $2E 00C79E 1 A5 30 lda $30 00C7A0 1 E9 30 sbc #$30 00C7A2 1 85 30 sta $30 00C7A4 1 A5 42 lda $42 00C7A6 1 E9 30 sbc #$30 00C7A8 1 85 42 sta $42 00C7AA 1 4C D8 C6 jmp LC6D8 00C7AD 1 00C7AD 1 B1 3D LC7AD: lda (FNDPNT),y 00C7AF 1 24 75 bit MVDFLG 00C7B1 1 D0 06 bne LC7B9 00C7B3 1 38 sec 00C7B4 1 E9 30 sbc #$30 00C7B6 1 91 3D sta (FNDPNT),y 00C7B8 1 60 rts 00C7B9 1 00C7B9 1 18 LC7B9: clc 00C7BA 1 69 30 adc #$30 00C7BC 1 91 3D sta (FNDPNT),y 00C7BE 1 60 rts 00C7BF 1 00C7BF 1 A5 75 LC7BF: lda MVDFLG 00C7C1 1 F0 01 beq LC7C4 00C7C3 1 60 rts 00C7C4 1 00C7C4 1 A2 23 LC7C4: ldx #$23 00C7C6 1 4C 83 86 jmp L8683 00C7C9 1 00C7C9 1 AD 06 FF LC7C9: lda TEDVSP 00C7CC 1 29 DF and #$DF 00C7CE 1 8D 06 FF sta TEDVSP 00C7D1 1 AD 07 FF lda TEDHSP 00C7D4 1 29 EF and #$EF 00C7D6 1 8D 07 FF sta TEDHSP 00C7D9 1 AD 14 FF lda TEDVIDEORAM 00C7DC 1 29 07 and #$07 00C7DE 1 09 08 ora #$08 00C7E0 1 8D 14 FF sta TEDVIDEORAM 00C7E3 1 AD 12 FF lda TEDFREQV1HI 00C7E6 1 09 04 ora #$04 00C7E8 1 8D 12 FF sta TEDFREQV1HI 00C7EB 1 A9 00 lda #$00 00C7ED 1 85 83 sta GRAPHM 00C7EF 1 60 rts 00C7F0 1 00C7F0 1 A5 37 LC7F0: lda MEMSIZ 00C7F2 1 85 24 sta INDEX2 00C7F4 1 A5 38 lda $38 00C7F6 1 85 25 sta $25 00C7F8 1 8A LC7F8: txa 00C7F9 1 49 FF eor #$FF 00C7FB 1 85 4E sta DEFPNT 00C7FD 1 98 tya 00C7FE 1 49 FF eor #$FF 00C800 1 85 4F sta $4F 00C802 1 A0 00 ldy #$00 00C804 1 E6 4E LC804: inc DEFPNT 00C806 1 D0 04 bne LC80C 00C808 1 E6 4F inc $4F 00C80A 1 F0 18 beq LC824 00C80C 1 A5 22 LC80C: lda INDEX1 00C80E 1 D0 02 bne LC812 00C810 1 C6 23 dec $23 00C812 1 C6 22 LC812: dec INDEX1 00C814 1 A5 24 lda INDEX2 00C816 1 D0 02 bne LC81A 00C818 1 C6 25 dec $25 00C81A 1 C6 24 LC81A: dec INDEX2 00C81C 1 20 BB 04 jsr INDIN2 00C81F 1 91 22 sta (INDEX1),y 00C821 1 4C 04 C8 jmp LC804 00C824 1 00C824 1 60 LC824: rts 00C825 1 00C825 1 A5 37 LC825: lda MEMSIZ 00C827 1 A4 38 ldy $38 00C829 1 85 22 sta INDEX1 00C82B 1 84 23 sty $23 00C82D 1 38 LC82D: sec 00C82E 1 A5 33 lda FRETOP 00C830 1 E5 22 sbc INDEX1 00C832 1 A5 34 lda $34 00C834 1 E5 23 sbc $23 00C836 1 B0 EC bcs LC824 00C838 1 38 sec 00C839 1 A5 22 lda INDEX1 00C83B 1 E9 02 sbc #$02 00C83D 1 85 22 sta INDEX1 00C83F 1 B0 02 bcs LC843 00C841 1 C6 23 dec $23 00C843 1 A0 01 LC843: ldy #$01 00C845 1 20 B0 04 LC845: jsr INDIN1 00C848 1 99 24 00 sta INDEX2,y 00C84B 1 88 dey 00C84C 1 10 F7 bpl LC845 00C84E 1 C8 iny 00C84F 1 20 BB 04 jsr INDIN2 00C852 1 85 80 sta VOICNO 00C854 1 A5 22 lda INDEX1 00C856 1 38 sec 00C857 1 E5 80 sbc VOICNO 00C859 1 85 22 sta INDEX1 00C85B 1 B0 02 bcs LC85F 00C85D 1 C6 23 dec $23 00C85F 1 A0 02 LC85F: ldy #$02 00C861 1 B9 21 00 LC861: lda $21,y 00C864 1 91 24 sta (INDEX2),y 00C866 1 88 dey 00C867 1 D0 F8 bne LC861 00C869 1 F0 C2 beq LC82D 00C86B 1 38 LC86B: sec 00C86C 1 A5 37 lda MEMSIZ 00C86E 1 E5 33 sbc FRETOP 00C870 1 AA tax 00C871 1 A5 38 lda $38 00C873 1 E5 34 sbc $34 00C875 1 A8 tay 00C876 1 60 rts 00C877 1 00C877 1 A5 37 LC877: lda MEMSIZ 00C879 1 85 22 sta INDEX1 00C87B 1 A5 38 lda $38 00C87D 1 85 23 sta $23 00C87F 1 38 LC87F: sec 00C880 1 A5 33 lda FRETOP 00C882 1 E5 22 sbc INDEX1 00C884 1 A5 34 lda $34 00C886 1 E5 23 sbc $23 00C888 1 B0 31 bcs LC8BB 00C88A 1 38 sec 00C88B 1 A5 22 lda INDEX1 00C88D 1 E9 02 sbc #$02 00C88F 1 85 22 sta INDEX1 00C891 1 B0 02 bcs LC895 00C893 1 C6 23 dec $23 00C895 1 18 LC895: clc 00C896 1 A0 00 ldy #$00 00C898 1 20 B0 04 LC898: jsr INDIN1 00C89B 1 99 24 00 sta INDEX2,y 00C89E 1 79 4E 00 adc DEFPNT,y 00C8A1 1 91 22 sta (INDEX1),y 00C8A3 1 C8 iny 00C8A4 1 C0 01 cpy #$01 00C8A6 1 D0 F0 bne LC898 00C8A8 1 88 dey 00C8A9 1 20 BB 04 jsr INDIN2 00C8AC 1 85 80 sta VOICNO 00C8AE 1 A5 22 lda INDEX1 00C8B0 1 38 sec 00C8B1 1 E5 80 sbc VOICNO 00C8B3 1 85 22 sta INDEX1 00C8B5 1 B0 C8 bcs LC87F 00C8B7 1 C6 23 dec $23 00C8B9 1 90 C4 bcc LC87F 00C8BB 1 60 LC8BB: rts 00C8BC 1 00C8BC 1 20 1F CB LC8BC: jsr LCB1F 00C8BF 1 29 E6 and #$E6 00C8C1 1 D0 7B bne LC93E 00C8C3 1 A0 00 ldy #$00 00C8C5 1 20 3F CA jsr LCA3F 00C8C8 1 A9 00 lda #$00 00C8CA 1 AE 77 02 ldx DOSFA 00C8CD 1 A0 60 ldy #$60 00C8CF 1 20 BA FF jsr kSETLFS 00C8D2 1 38 sec 00C8D3 1 20 C0 FF jsr kOPEN 00C8D6 1 90 09 bcc LC8E1 00C8D8 1 48 pha 00C8D9 1 20 35 C9 jsr LC935 00C8DC 1 68 pla 00C8DD 1 AA tax 00C8DE 1 4C 83 86 jmp L8683 00C8E1 1 00C8E1 1 A2 00 LC8E1: ldx #$00 00C8E3 1 20 C6 FF jsr kCHKIN 00C8E6 1 A0 03 ldy #$03 00C8E8 1 8C EC 02 LC8E8: sty T3 00C8EB 1 20 CF FF LC8EB: jsr kCHRIN 00C8EE 1 8D ED 02 sta T4 00C8F1 1 20 B7 FF jsr kREADST 00C8F4 1 D0 3F bne LC935 00C8F6 1 20 CF FF jsr kCHRIN 00C8F9 1 8D EE 02 sta $02EE 00C8FC 1 20 B7 FF jsr kREADST 00C8FF 1 D0 34 bne LC935 00C901 1 CE EC 02 dec T3 00C904 1 D0 E5 bne LC8EB 00C906 1 AE ED 02 ldx T4 00C909 1 AD EE 02 lda $02EE 00C90C 1 20 5F A4 jsr LA45F 00C90F 1 A9 20 lda #$20 00C911 1 20 D2 FF jsr kCHROUT 00C914 1 20 CF FF LC914: jsr kCHRIN 00C917 1 48 pha 00C918 1 20 B7 FF jsr kREADST 00C91B 1 D0 17 bne LC934 00C91D 1 68 pla 00C91E 1 F0 06 beq LC926 00C920 1 20 D2 FF jsr kCHROUT 00C923 1 4C 14 C9 jmp LC914 00C926 1 00C926 1 A9 0D LC926: lda #$0D 00C928 1 20 D2 FF jsr kCHROUT 00C92B 1 20 E1 FF jsr kSTOP 00C92E 1 F0 05 beq LC935 00C930 1 A0 02 ldy #$02 00C932 1 D0 B4 bne LC8E8 00C934 1 68 LC934: pla 00C935 1 20 CC FF LC935: jsr kCLRCHN 00C938 1 A9 00 lda #$00 00C93A 1 18 clc 00C93B 1 4C C3 FF jmp kCLOSE 00C93E 1 00C93E 1 4C A1 94 LC93E: jmp L94A1 00C941 1 00C941 1 A9 66 LC941: lda #$66 00C943 1 20 21 CB jsr LCB21 00C946 1 20 B5 CC jsr LCCB5 00C949 1 A0 04 ldy #$04 00C94B 1 20 3F CA jsr LCA3F 00C94E 1 4C E1 A7 jmp LA7E1 00C951 1 00C951 1 A9 E6 LC951: lda #$E6 00C953 1 20 21 CB jsr LCB21 00C956 1 20 B5 CC jsr LCCB5 00C959 1 A9 00 lda #$00 00C95B 1 8D 78 02 sta DOSSA 00C95E 1 85 0A sta VERCK 00C960 1 A0 05 ldy #$05 00C962 1 20 3F CA jsr LCA3F 00C965 1 4C FA A7 jmp LA7FA 00C968 1 00C968 1 20 1F CB LC968: jsr LCB1F 00C96B 1 20 AF CC jsr LCCAF 00C96E 1 29 11 and #$11 00C970 1 C9 11 cmp #$11 00C972 1 F0 03 beq LC977 00C974 1 4C A1 94 LC974: jmp L94A1 00C977 1 00C977 1 20 E7 FF LC977: jsr kCLALL 00C97A 1 20 2B CD jsr LCD2B 00C97D 1 D0 17 bne LC996 00C97F 1 A0 09 ldy #$09 00C981 1 20 3F CA jsr LCA3F 00C984 1 20 CF CC jsr LCCCF 00C987 1 24 81 bit RUNMOD 00C989 1 30 0B bmi LC996 00C98B 1 A0 00 ldy #$00 00C98D 1 A9 7A lda #$7A 00C98F 1 20 94 04 jsr INDSUB 00C992 1 C9 32 cmp #$32 00C994 1 B0 01 bcs LC997 00C996 1 60 LC996: rts 00C997 1 00C997 1 A2 24 LC997: ldx #$24 00C999 1 4C 83 86 jmp L8683 00C99C 1 00C99C 1 20 1F CB LC99C: jsr LCB1F 00C99F 1 20 AF CC jsr LCCAF 00C9A2 1 20 2B CD jsr LCD2B 00C9A5 1 D0 EF bne LC996 00C9A7 1 A0 0F ldy #$0F 00C9A9 1 20 3F CA jsr LCA3F 00C9AC 1 20 CF CC jsr LCCCF 00C9AF 1 24 81 bit RUNMOD 00C9B1 1 30 E3 bmi LC996 00C9B3 1 A9 0D lda #$0D 00C9B5 1 20 D2 FF jsr kCHROUT 00C9B8 1 A0 00 ldy #$00 00C9BA 1 A9 7A LC9BA: lda #$7A 00C9BC 1 20 94 04 jsr INDSUB 00C9BF 1 F0 06 beq LC9C7 00C9C1 1 20 D2 FF jsr kCHROUT 00C9C4 1 C8 iny 00C9C5 1 D0 F3 bne LC9BA 00C9C7 1 A9 0D LC9C7: lda #$0D 00C9C9 1 4C D2 FF jmp kCHROUT 00C9CC 1 00C9CC 1 20 1F CB LC9CC: jsr LCB1F 00C9CF 1 29 E7 and #$E7 00C9D1 1 D0 A1 bne LC974 00C9D3 1 20 E7 FF jsr kCLALL 00C9D6 1 A0 14 ldy #$14 00C9D8 1 D0 65 bne LCA3F 00C9DA 1 20 1F CB LC9DA: jsr LCB1F 00C9DD 1 29 30 and #$30 00C9DF 1 .if CompileComputer = PLUS4_BETA_0203 00C9DF 1 eor #$30 00C9DF 1 .else 00C9DF 1 C9 30 cmp #$30 00C9E1 1 .endif 00C9E1 1 D0 06 bne LC9E9 00C9E3 1 A5 82 lda POINT 00C9E5 1 29 C7 and #$C7 00C9E7 1 F0 07 beq LC9F0 00C9E9 1 A5 82 LC9E9: lda POINT 00C9EB 1 20 C0 CC jsr LCCC0 00C9EE 1 A5 82 lda POINT 00C9F0 1 A0 17 LC9F0: ldy #$17 00C9F2 1 D0 4B bne LCA3F 00C9F4 1 A9 E4 LC9F4: lda #$E4 00C9F6 1 20 21 CB jsr LCB21 00C9F9 1 20 C6 CC jsr LCCC6 00C9FC 1 A0 1E ldy #$1E 00C9FE 1 D0 3F bne LCA3F 00CA00 1 A9 C7 LCA00: lda #$C7 00CA02 1 20 21 CB jsr LCB21 00CA05 1 29 30 and #$30 00CA07 1 C9 30 cmp #$30 00CA09 1 F0 03 beq LCA0E 00CA0B 1 4C A1 94 jmp L94A1 00CA0E 1 00CA0E 1 20 E7 FF LCA0E: jsr kCLALL 00CA11 1 A0 25 ldy #$25 00CA13 1 4C 3F CA jmp LCA3F 00CA16 1 00CA16 1 48 LCA16: pha 00CA17 1 AD 5D 02 lda XCNT 00CA1A 1 A2 7C ldx #$7C 00CA1C 1 A0 02 ldy #$02 00CA1E 1 20 BD FF jsr kSETNAM 00CA21 1 AD 76 02 lda DOSLA 00CA24 1 AE 77 02 ldx DOSFA 00CA27 1 AC 78 02 ldy DOSSA 00CA2A 1 20 BA FF jsr kSETLFS 00CA2D 1 68 pla 00CA2E 1 F0 0E beq LCA3E 00CA30 1 AE 5D 02 ldx XCNT 00CA33 1 38 sec 00CA34 1 20 C0 FF jsr kOPEN 00CA37 1 AD 76 02 lda DOSLA 00CA3A 1 38 sec 00CA3B 1 4C C3 FF jmp kCLOSE 00CA3E 1 00CA3E 1 60 LCA3E: rts 00CA3F 1 00CA3F 1 20 57 CD LCA3F: jsr LCD57 00CA42 1 A2 00 ldx #$00 00CA44 1 8E 5D 02 stx XCNT 00CA47 1 B9 F5 CA LCA47: lda LCAF5,y 00CA4A 1 F0 CA beq LCA16 00CA4C 1 C9 80 cmp #$80 00CA4E 1 F0 C6 beq LCA16 00CA50 1 AA tax 00CA51 1 CA dex 00CA52 1 F0 1E beq LCA72 00CA54 1 CA dex 00CA55 1 F0 21 beq LCA78 00CA57 1 CA dex 00CA58 1 F0 24 beq LCA7E 00CA5A 1 CA dex 00CA5B 1 F0 28 beq LCA85 00CA5D 1 CA dex 00CA5E 1 F0 2D beq LCA8D 00CA60 1 CA dex 00CA61 1 F0 34 beq LCA97 00CA63 1 CA dex 00CA64 1 F0 3F beq LCAA5 00CA66 1 CA dex 00CA67 1 F0 46 beq LCAAF 00CA69 1 CA dex 00CA6A 1 F0 66 beq LCAD2 00CA6C 1 20 EB CA LCA6C: jsr LCAEB 00CA6F 1 C8 LCA6F: iny 00CA70 1 D0 D5 bne LCA47 00CA72 1 A5 82 LCA72: lda POINT 00CA74 1 29 10 and #$10 00CA76 1 F0 F7 beq LCA6F 00CA78 1 AD 6F 02 LCA78: lda DOSDS1 00CA7B 1 4C 81 CA jmp LCA81 00CA7E 1 00CA7E 1 AD 73 02 LCA7E: lda DOSDS2 00CA81 1 09 30 LCA81: ora #$30 00CA83 1 D0 E7 bne LCA6C 00CA85 1 A9 40 LCA85: lda #$40 00CA87 1 24 82 bit POINT 00CA89 1 30 E1 bmi LCA6C 00CA8B 1 10 E2 bpl LCA6F 00CA8D 1 AD 6E 02 LCA8D: lda DOSF1L 00CA90 1 F0 DD beq LCA6F 00CA92 1 A9 3A lda #$3A 00CA94 1 20 EB CA jsr LCAEB 00CA97 1 98 LCA97: tya 00CA98 1 48 pha 00CA99 1 AD 70 02 lda DOSF1A 00CA9C 1 AC 71 02 ldy $0271 00CA9F 1 AE 6E 02 ldx DOSF1L 00CAA2 1 4C BA CA jmp LCABA 00CAA5 1 00CAA5 1 AD 72 02 LCAA5: lda DOSF2L 00CAA8 1 F0 C5 beq LCA6F 00CAAA 1 A9 3A lda #$3A 00CAAC 1 20 EB CA jsr LCAEB 00CAAF 1 98 LCAAF: tya 00CAB0 1 48 pha 00CAB1 1 AD 74 02 lda DOSF2A 00CAB4 1 AC 75 02 ldy $0275 00CAB7 1 AE 72 02 ldx DOSF2L 00CABA 1 85 22 LCABA: sta INDEX1 00CABC 1 84 23 sty $23 00CABE 1 86 80 stx VOICNO 00CAC0 1 A0 00 ldy #$00 00CAC2 1 20 B0 04 LCAC2: jsr INDIN1 00CAC5 1 20 EB CA jsr LCAEB 00CAC8 1 C8 iny 00CAC9 1 C4 80 cpy VOICNO 00CACB 1 D0 F5 bne LCAC2 00CACD 1 68 pla 00CACE 1 A8 tay 00CACF 1 4C 6F CA jmp LCA6F 00CAD2 1 00CAD2 1 AD 79 02 LCAD2: lda DODDID 00CAD5 1 F0 98 beq LCA6F 00CAD7 1 A9 2C lda #$2C 00CAD9 1 20 EB CA jsr LCAEB 00CADC 1 AD 79 02 lda DODDID 00CADF 1 20 EB CA jsr LCAEB 00CAE2 1 AD 7A 02 lda $027A 00CAE5 1 20 EB CA jsr LCAEB 00CAE8 1 4C 6F CA jmp LCA6F 00CAEB 1 00CAEB 1 AE 5D 02 LCAEB: ldx XCNT 00CAEE 1 9D 7C 02 sta DOSSTR,x 00CAF1 1 EE 5D 02 inc XCNT 00CAF4 1 60 rts 00CAF5 1 00CAF5 1 24 LCAF5: .byte "$" 00CAF6 1 07 05 00 04 .byte $07,$05,$00,$04,$02 00CAFA 1 02 00CAFB 1 3A .byte ":" 00CAFC 1 06 00 .byte $06,$00 00CAFE 1 4E .byte "N" 00CAFF 1 02 .byte $02 00CB00 1 3A .byte ":" 00CB01 1 06 09 80 .byte $06,$09,$80 00CB04 1 53 .byte "S" 00CB05 1 02 .byte $02 00CB06 1 3A .byte ":" 00CB07 1 06 80 .byte $06,$80 00CB09 1 56 .byte "V" 00CB0A 1 02 80 .byte $02,$80 00CB0C 1 43 .byte "C" 00CB0D 1 03 07 .byte $03,$07 00CB0F 1 3D .byte "=" 00CB10 1 02 05 80 .byte $02,$05,$80 00CB13 1 52 .byte "R" 00CB14 1 02 .byte $02 00CB15 1 3A .byte ":" 00CB16 1 08 .byte $08 00CB17 1 3D .byte "=" 00CB18 1 06 80 .byte $06,$80 00CB1A 1 44 .byte "D" 00CB1B 1 03 .byte $03 00CB1C 1 3D .byte "=" 00CB1D 1 02 80 .byte $02,$80 00CB1F 1 A9 00 LCB1F: lda #$00 00CB21 1 48 LCB21: pha 00CB22 1 A9 00 lda #$00 00CB24 1 85 82 sta POINT 00CB26 1 A2 1E ldx #$1E 00CB28 1 9D 5E 02 LCB28: sta FNBUFR,x 00CB2B 1 CA dex 00CB2C 1 D0 FA bne LCB28 00CB2E 1 A2 08 ldx #$08 00CB30 1 8E 77 02 stx DOSFA 00CB33 1 A2 6F ldx #$6F 00CB35 1 8E 78 02 stx DOSSA 00CB38 1 A2 00 ldx #$00 00CB3A 1 8E 76 02 stx DOSLA 00CB3D 1 20 79 04 jsr CHRGOT 00CB40 1 D0 07 bne LCB49 00CB42 1 68 LCB42: pla 00CB43 1 20 AA CC jsr LCCAA 00CB46 1 A5 82 lda POINT 00CB48 1 60 rts 00CB49 1 00CB49 1 C9 44 LCB49: cmp #$44 00CB4B 1 F0 1D beq LCB6A 00CB4D 1 C9 91 cmp #$91 00CB4F 1 F0 4E beq LCB9F 00CB51 1 C9 55 cmp #$55 00CB53 1 F0 0F beq LCB64 00CB55 1 C9 49 cmp #$49 00CB57 1 F0 2A beq LCB83 00CB59 1 C9 22 cmp #$22 00CB5B 1 F0 48 beq LCBA5 00CB5D 1 C9 28 cmp #$28 00CB5F 1 F0 44 beq LCBA5 00CB61 1 4C A1 94 LCB61: jmp L94A1 00CB64 1 00CB64 1 20 58 CC LCB64: jsr LCC58 00CB67 1 4C CD CB jmp LCBCD 00CB6A 1 00CB6A 1 A9 10 LCB6A: lda #$10 00CB6C 1 20 AA CC jsr LCCAA 00CB6F 1 20 97 CC jsr LCC97 00CB72 1 E0 02 cpx #$02 00CB74 1 B0 0A bcs LCB80 00CB76 1 8E 6F 02 stx DOSDS1 00CB79 1 8E 73 02 stx DOSDS2 00CB7C 1 A9 10 lda #$10 00CB7E 1 D0 4D bne LCBCD 00CB80 1 4C 49 CC LCB80: jmp LCC49 00CB83 1 00CB83 1 AD 7B 02 LCB83: lda DIDCHK 00CB86 1 D0 D9 bne LCB61 00CB88 1 20 73 04 jsr CHRGET 00CB8B 1 8D 79 02 sta DODDID 00CB8E 1 20 73 04 jsr CHRGET 00CB91 1 8D 7A 02 sta $027A 00CB94 1 A9 FF lda #$FF 00CB96 1 8D 7B 02 sta DIDCHK 00CB99 1 20 73 04 jsr CHRGET 00CB9C 1 4C D1 CB jmp LCBD1 00CB9F 1 00CB9F 1 20 51 CC LCB9F: jsr LCC51 00CBA2 1 4C CD CB jmp LCBCD 00CBA5 1 00CBA5 1 A9 01 LCBA5: lda #$01 00CBA7 1 20 69 CC jsr LCC69 00CBAA 1 8D 6E 02 sta DOSF1L 00CBAD 1 8D 5D 02 sta XCNT 00CBB0 1 A9 5E lda #$5E 00CBB2 1 8D 70 02 sta DOSF1A 00CBB5 1 85 24 sta INDEX2 00CBB7 1 A9 02 lda #$02 00CBB9 1 8D 71 02 sta $0271 00CBBC 1 85 25 sta $25 00CBBE 1 A0 00 ldy #$00 00CBC0 1 20 B0 04 LCBC0: jsr INDIN1 00CBC3 1 91 24 sta (INDEX2),y 00CBC5 1 C8 iny 00CBC6 1 CC 5D 02 cpy XCNT 00CBC9 1 90 F5 bcc LCBC0 00CBCB 1 A9 01 lda #$01 00CBCD 1 05 82 LCBCD: ora POINT 00CBCF 1 85 82 sta POINT 00CBD1 1 20 79 04 LCBD1: jsr CHRGOT 00CBD4 1 D0 03 bne LCBD9 00CBD6 1 4C 42 CB LCBD6: jmp LCB42 00CBD9 1 00CBD9 1 C9 2C LCBD9: cmp #$2C 00CBDB 1 D0 06 bne LCBE3 00CBDD 1 20 73 04 jsr CHRGET 00CBE0 1 4C 49 CB jmp LCB49 00CBE3 1 00CBE3 1 C9 91 LCBE3: cmp #$91 00CBE5 1 F0 B8 beq LCB9F 00CBE7 1 C9 A4 cmp #$A4 00CBE9 1 D0 5B bne LCC46 00CBEB 1 20 73 04 LCBEB: jsr CHRGET 00CBEE 1 C9 44 cmp #$44 00CBF0 1 F0 10 beq LCC02 00CBF2 1 C9 91 cmp #$91 00CBF4 1 F0 1F beq LCC15 00CBF6 1 C9 55 cmp #$55 00CBF8 1 F0 21 beq LCC1B 00CBFA 1 C9 22 cmp #$22 00CBFC 1 F0 23 beq LCC21 00CBFE 1 C9 28 cmp #$28 00CC00 1 F0 1F beq LCC21 00CC02 1 A9 20 LCC02: lda #$20 00CC04 1 20 AA CC jsr LCCAA 00CC07 1 20 97 CC jsr LCC97 00CC0A 1 E0 02 cpx #$02 00CC0C 1 B0 3B bcs LCC49 00CC0E 1 8E 73 02 stx DOSDS2 00CC11 1 A9 20 lda #$20 00CC13 1 D0 1C bne LCC31 00CC15 1 20 51 CC LCC15: jsr LCC51 00CC18 1 4C 31 CC jmp LCC31 00CC1B 1 00CC1B 1 20 58 CC LCC1B: jsr LCC58 00CC1E 1 4C 31 CC jmp LCC31 00CC21 1 00CC21 1 A9 02 LCC21: lda #$02 00CC23 1 20 69 CC jsr LCC69 00CC26 1 8D 72 02 sta DOSF2L 00CC29 1 8E 74 02 stx DOSF2A 00CC2C 1 8C 75 02 sty $0275 00CC2F 1 A9 02 lda #$02 00CC31 1 05 82 LCC31: ora POINT 00CC33 1 85 82 sta POINT 00CC35 1 20 79 04 jsr CHRGOT 00CC38 1 F0 9C beq LCBD6 00CC3A 1 C9 2C cmp #$2C 00CC3C 1 F0 AD beq LCBEB 00CC3E 1 C9 91 cmp #$91 00CC40 1 F0 D3 beq LCC15 00CC42 1 C9 55 cmp #$55 00CC44 1 F0 D5 beq LCC1B 00CC46 1 A2 0B LCC46: ldx #$0B 00CC48 1 2C .byte $2C 00CC49 1 A2 0E LCC49: ldx #$0E 00CC4B 1 2C .byte $2C 00CC4C 1 A2 17 LCC4C: ldx #$17 00CC4E 1 4C 83 86 jmp L8683 00CC51 1 00CC51 1 20 73 04 LCC51: jsr CHRGET 00CC54 1 C9 55 cmp #$55 00CC56 1 D0 EE bne LCC46 00CC58 1 20 97 CC LCC58: jsr LCC97 00CC5B 1 E0 20 cpx #$20 00CC5D 1 B0 EA bcs LCC49 00CC5F 1 E0 03 cpx #$03 00CC61 1 90 E6 bcc LCC49 00CC63 1 8E 77 02 stx DOSFA 00CC66 1 A9 08 lda #$08 00CC68 1 60 rts 00CC69 1 00CC69 1 20 AA CC LCC69: jsr LCCAA 00CC6C 1 20 48 9C jsr L9C48 00CC6F 1 AA tax 00CC70 1 F0 D7 beq LCC49 00CC72 1 A0 00 ldy #$00 00CC74 1 20 B0 04 jsr INDIN1 00CC77 1 C9 40 cmp #$40 00CC79 1 D0 12 bne LCC8D 00CC7B 1 A9 80 lda #$80 00CC7D 1 20 AA CC jsr LCCAA 00CC80 1 A5 82 lda POINT 00CC82 1 09 80 ora #$80 00CC84 1 85 82 sta POINT 00CC86 1 CA dex 00CC87 1 E6 22 inc INDEX1 00CC89 1 D0 02 bne LCC8D 00CC8B 1 E6 23 inc $23 00CC8D 1 8A LCC8D: txa 00CC8E 1 C9 11 cmp #$11 00CC90 1 B0 BA bcs LCC4C 00CC92 1 A6 22 ldx INDEX1 00CC94 1 A4 23 ldy $23 00CC96 1 60 rts 00CC97 1 00CC97 1 20 73 04 LCC97: jsr CHRGET 00CC9A 1 F0 AA beq LCC46 00CC9C 1 90 09 bcc LCCA7 00CC9E 1 20 8E 94 jsr L948E 00CCA1 1 20 84 9D jsr L9D84 00CCA4 1 4C 8B 94 jmp L948B 00CCA7 1 00CCA7 1 4C 84 9D LCCA7: jmp L9D84 00CCAA 1 00CCAA 1 25 82 LCCAA: and POINT 00CCAC 1 D0 98 bne LCC46 00CCAE 1 60 rts 00CCAF 1 00CCAF 1 29 E6 LCCAF: and #$E6 00CCB1 1 F0 02 beq LCCB5 00CCB3 1 D0 91 LCCB3: bne LCC46 00CCB5 1 A5 82 LCCB5: lda POINT 00CCB7 1 29 01 and #$01 00CCB9 1 C9 01 cmp #$01 00CCBB 1 D0 F6 bne LCCB3 00CCBD 1 A5 82 lda POINT 00CCBF 1 60 rts 00CCC0 1 00CCC0 1 29 C4 LCCC0: and #$C4 00CCC2 1 D0 EF bne LCCB3 00CCC4 1 A5 82 lda POINT 00CCC6 1 29 03 LCCC6: and #$03 00CCC8 1 C9 03 cmp #$03 00CCCA 1 D0 E7 bne LCCB3 00CCCC 1 A5 82 lda POINT 00CCCE 1 60 rts 00CCCF 1 00CCCF 1 A5 79 LCCCF: lda DSDESC 00CCD1 1 D0 11 bne LCCE4 00CCD3 1 A9 28 lda #$28 00CCD5 1 85 79 sta DSDESC 00CCD7 1 20 06 A9 jsr LA906 00CCDA 1 86 7A stx $7A 00CCDC 1 84 7B sty $7B 00CCDE 1 A0 28 ldy #$28 00CCE0 1 .if CompileComputer >= PLUS4_05 00CCE0 1 20 BA CD jsr LCDBA 00CCE3 1 EA nop 00CCE4 1 .else 00CCE4 1 lda #$0D 00CCE4 1 sta ($7A),y 00CCE4 1 .endif 00CCE4 1 AE 77 02 LCCE4: ldx DOSFA 00CCE7 1 D0 05 bne LCCEE 00CCE9 1 A2 08 ldx #$08 00CCEB 1 8E 77 02 stx DOSFA 00CCEE 1 A9 00 LCCEE: lda #$00 00CCF0 1 A0 6F ldy #$6F 00CCF2 1 20 BA FF jsr kSETLFS 00CCF5 1 A9 00 lda #$00 00CCF7 1 20 BD FF jsr kSETNAM 00CCFA 1 20 C0 FF jsr kOPEN 00CCFD 1 A2 00 ldx #$00 00CCFF 1 20 C6 FF jsr kCHKIN 00CD02 1 B0 1B bcs LCD1F 00CD04 1 A0 FF ldy #$FF 00CD06 1 C8 LCD06: iny 00CD07 1 20 CF FF jsr kCHRIN 00CD0A 1 C9 0D cmp #$0D 00CD0C 1 F0 04 beq LCD12 00CD0E 1 91 7A sta ($7A),y 00CD10 1 D0 F4 bne LCD06 00CD12 1 A9 00 LCD12: lda #$00 00CD14 1 91 7A sta ($7A),y 00CD16 1 20 CC FF jsr kCLRCHN 00CD19 1 A9 00 lda #$00 00CD1B 1 38 sec 00CD1C 1 4C C3 FF jmp kCLOSE 00CD1F 1 00CD1F 1 48 LCD1F: pha 00CD20 1 20 12 CD jsr LCD12 00CD23 1 20 57 CD jsr LCD57 00CD26 1 68 pla 00CD27 1 AA tax 00CD28 1 4C 83 86 jmp L8683 00CD2B 1 00CD2B 1 24 81 LCD2B: bit RUNMOD 00CD2D 1 30 25 bmi LCD54 00CD2F 1 20 4F FF jsr LFF4F 00CD32 1 00CD32 1 41 52 45 20 .byte "ARE YOU SURE?",0 00CD36 1 59 4F 55 20 00CD3A 1 53 55 52 45 00CD40 1 00CD40 1 20 CC FF jsr kCLRCHN 00CD43 1 20 CF FF jsr kCHRIN 00CD46 1 48 pha 00CD47 1 C9 0D LCD47: cmp #$0D 00CD49 1 F0 05 beq LCD50 00CD4B 1 20 CF FF jsr kCHRIN 00CD4E 1 D0 F7 bne LCD47 00CD50 1 68 LCD50: pla 00CD51 1 C9 59 cmp #$59 00CD53 1 60 rts 00CD54 1 00CD54 1 A9 00 LCD54: lda #$00 00CD56 1 60 rts 00CD57 1 00CD57 1 98 LCD57: tya 00CD58 1 48 pha 00CD59 1 A5 79 lda DSDESC 00CD5B 1 F0 0A beq LCD67 00CD5D 1 A0 28 ldy #$28 00CD5F 1 98 tya 00CD60 1 91 7A sta ($7A),y 00CD62 1 C8 iny 00CD63 1 A9 FF lda #$FF 00CD65 1 91 7A sta ($7A),y 00CD67 1 A9 00 LCD67: lda #$00 00CD69 1 85 79 sta DSDESC 00CD6B 1 68 pla 00CD6C 1 A8 tay 00CD6D 1 60 rts 00CD6E 1 00CD6E 1 2C 30 20 59 LCD6E: .byte ",0 YEK" 00CD72 1 45 4B 00CD74 1 AA LCD74: tax 00CD75 1 98 tya 00CD76 1 48 pha 00CD77 1 A9 00 lda #$00 00CD79 1 20 5F A4 jsr LA45F 00CD7C 1 68 pla 00CD7D 1 A8 tay 00CD7E 1 60 rts 00CD7F 1 00CD7F 1 85 3A LCD7F: sta $3A 00CD81 1 88 dey 00CD82 1 AA tax 00CD83 1 E8 inx 00CD84 1 D0 02 bne LCD88 00CD86 1 86 81 stx RUNMOD 00CD88 1 60 LCD88: rts 00CD89 1 00CD89 1 D8 1B 14 0C LCD89: .byte $D8,$1B,$14,$0C,$07,$7B,$01,$D7 00CD8D 1 07 7B 01 D7 00CD91 1 D8 11 07 10 .byte $D8,$11,$07,$10,$1D,$7B,$17,$D8 00CD95 1 1D 7B 17 D8 00CD99 1 07 10 05 1A .byte $07,$10,$05,$1A,$1A,$16,$7B,$1F 00CD9D 1 1A 16 7B 1F 00CDA1 1 D8 1B 10 02 .byte $D8,$1B,$10,$02,$1A,$17,$7B,$13 00CDA5 1 1A 17 7B 13 00CDA9 1 47 D8 .byte $47,$D8 00CDAB 1 A0 21 ldy #$21 00CDAD 1 B9 89 CD LCDAD: lda LCD89,y 00CDB0 1 49 55 eor #$55 00CDB2 1 20 D2 FF jsr kCHROUT 00CDB5 1 88 dey 00CDB6 1 10 F5 bpl LCDAD 00CDB8 1 60 rts 00CDB9 1 00CDB9 1 00 .byte $00 00CDBA 1 00CDBA 1 .if CompileComputer >= PLUS4_05 00CDBA 1 00CDBA 1 A9 79 LCDBA: lda #$79 00CDBC 1 91 7A sta ($7A),y 00CDBE 1 A9 00 lda #$00 00CDC0 1 C8 iny 00CDC1 1 91 7A sta ($7A),y 00CDC3 1 60 rts 00CDC4 1 00CDC4 1 .elseif CompileComputer = PLUS4_01 00CDC4 1 00CDC4 1 .byte $0E,$F0,$0E,$F1,$0F,$F5,$F0 00CDC4 1 .byte $0F,$F0,$0F,$F0,$0F,$F0,$0F,$F0 00CDC4 1 .byte $1F,$F0,$0F,$F0,$0F,$D0,$0F,$F0 00CDC4 1 .byte $0F,$F0,$0F,$E0,$2F,$70,$0F,$70 00CDC4 1 .byte $0F,$D0,$0F,$B0,$6F,$F0,$4F,$0F 00CDC4 1 .byte $F0,$0F,$F1,$0F,$F0,$0F,$F0,$0F 00CDC4 1 .byte $F0,$0F,$F0,$0F,$F0,$0F,$F0,$0E 00CDC4 1 .byte $F4,$0F,$F1,$0F,$F1,$07,$F3,$0B 00CDC4 1 .byte $F0,$0E,$F1,$07,$F0,$06,$F0 00CDC4 1 .endif 00CDC4 1 00CDC4 1 .if CompileComputer < PLUS4_01 00CDC4 1 FillUntil $CDFF,$00 00CDC4 1 00CDC4 1 .if CompileComputer = PLUS4_BETA_0119 00CDC4 1 .byte $F2 00CDC4 1 .else 00CDC4 1 .byte $9A 00CDC4 1 .endif 00CDC4 1 .endif 00CDC4 1 00CDC4 1 FF FF FF FF FillUntil $CE00,$FF 00CDC8 1 FF FF FF FF 00CDCC 1 FF FF FF FF 00CE00 1 00CE00 1 BA LCE00: tsx 00CE01 1 BD 04 01 lda $0104,x 00CE04 1 29 10 and #$10 00CE06 1 D0 03 bne LCE0B 00CE08 1 6C 14 03 jmp (lICINV) 00CE0B 1 00CE0B 1 6C 16 03 LCE0B: jmp (lICBINV) 00CE0E 1 00CE0E 1 AD 09 FF LCE0E: lda TEDIFR 00CE11 1 29 02 and #$02 00CE13 1 F0 03 beq LCE18 00CE15 1 20 60 CE jsr LCE60 00CE18 1 2C D8 07 LCE18: bit APRES 00CE1B 1 10 0E bpl LCE2B 00CE1D 1 AD 01 FD lda LFD01 00CE20 1 8D D4 07 sta ASTAT 00CE23 1 10 06 bpl LCE2B 00CE25 1 20 95 EA jsr LEA95 00CE28 1 20 5B EA jsr LEA5B 00CE2B 1 20 E4 E3 LCE2B: jsr LE3E4 00CE2E 1 AD 09 FF lda TEDIFR 00CE31 1 29 02 and #$02 00CE33 1 F0 28 beq LCE5D 00CE35 1 8D 09 FF sta TEDIFR 00CE38 1 2C 0B FF bit TEDRASTER 00CE3B 1 A9 CC lda #$CC 00CE3D 1 50 1B bvc LCE5A 00CE3F 1 6C 12 03 jmp (lITIME) 00CE42 1 00CE42 1 LCE42: 00CE42 1 .if CompileComputer >= PLUS4_01 00CE42 1 20 BF CF jsr LCFBF 00CE45 1 .else 00CE45 1 jsr kUDTIM 00CE45 1 .endif 00CE45 1 20 CD CE jsr LCECD 00CE48 1 A5 FB lda CURBNK 00CE4A 1 48 pha 00CE4B 1 A9 00 lda #$00 00CE4D 1 85 FB sta CURBNK 00CE4F 1 08 php 00CE50 1 58 cli 00CE51 1 20 11 DB jsr iSCNKEY 00CE54 1 28 plp 00CE55 1 68 pla 00CE56 1 85 FB sta CURBNK 00CE58 1 A9 A1 lda #$A1 00CE5A 1 8D 0B FF LCE5A: sta TEDRASTER 00CE5D 1 4C BE FC LCE5D: jmp LFCBE 00CE60 1 00CE60 1 AD 1C FF LCE60: lda TEDRASTERROWHi 00CE63 1 29 01 and #$01 00CE65 1 D0 39 bne LCEA0 00CE67 1 AD 1D FF lda TEDRASTERROWLO 00CE6A 1 C9 A3 cmp #$A3 00CE6C 1 B0 2E bcs LCE9C 00CE6E 1 24 83 bit GRAPHM 00CE70 1 50 52 bvc LCEC4 00CE72 1 .if CompileComputer = PLUS4_BETA_0119 00CE72 1 lda TEDVIDEORAM 00CE72 1 and #$07 00CE72 1 ora #$08 00CE72 1 .else 00CE72 1 A9 08 lda #$08 00CE74 1 .endif 00CE74 1 8D 14 FF sta TEDVIDEORAM 00CE77 1 AD 06 FF lda TEDVSP 00CE7A 1 29 DF and #$DF 00CE7C 1 A8 tay 00CE7D 1 AD 07 FF lda TEDHSP 00CE80 1 29 EF and #$EF 00CE82 1 AA tax 00CE83 1 AD 12 FF lda TEDFREQV1HI 00CE86 1 .if CompileComputer = PLUS4_BETA_0119 00CE86 1 ora #$04 00CE86 1 .else 00CE86 1 0D FA 07 ora FFRMSK 00CE89 1 .endif 00CE89 1 48 pha 00CE8A 1 AD 1D FF LCE8A: lda TEDRASTERROWLO 00CE8D 1 C9 A3 cmp #$A3 00CE8F 1 90 F9 bcc LCE8A 00CE91 1 68 pla 00CE92 1 8D 12 FF sta TEDFREQV1HI 00CE95 1 8C 06 FF sty TEDVSP 00CE98 1 8E 07 FF stx TEDHSP 00CE9B 1 60 rts 00CE9C 1 00CE9C 1 C9 CC LCE9C: cmp #$CC 00CE9E 1 90 24 bcc LCEC4 00CEA0 1 A6 83 LCEA0: ldx GRAPHM 00CEA2 1 F0 20 beq LCEC4 00CEA4 1 10 08 bpl LCEAE 00CEA6 1 AD 07 FF lda TEDHSP 00CEA9 1 09 10 ora #$10 00CEAB 1 8D 07 FF sta TEDHSP 00CEAE 1 AD 06 FF LCEAE: lda TEDVSP 00CEB1 1 09 20 ora #$20 00CEB3 1 8D 06 FF sta TEDVSP 00CEB6 1 AD 12 FF lda TEDFREQV1HI 00CEB9 1 29 FB and #$FB 00CEBB 1 8D 12 FF sta TEDFREQV1HI 00CEBE 1 .if CompileComputer = PLUS4_BETA_0119 00CEBE 1 lda TEDVIDEORAM 00CEBE 1 and #$07 00CEBE 1 ora #$18 00CEBE 1 .else 00CEBE 1 AD FB 07 lda VMBMSK 00CEC1 1 .endif 00CEC1 1 8D 14 FF sta TEDVIDEORAM 00CEC4 1 60 LCEC4: rts 00CEC5 1 00CEC5 1 EA EA EA EA FillUntil $CECD,$EA 00CEC9 1 EA EA EA EA 00CECD 1 00CECD 1 A2 01 LCECD: ldx #$01 00CECF 1 BD FC 04 LCECF: lda MTIMLO,x 00CED2 1 1D FE 04 ora MTIMHI,x 00CED5 1 F0 13 beq LCEEA 00CED7 1 FE FC 04 inc MTIMLO,x 00CEDA 1 D0 0E bne LCEEA 00CEDC 1 FE FE 04 inc MTIMHI,x 00CEDF 1 D0 09 bne LCEEA 00CEE1 1 BD EE CE lda LCEEE,x 00CEE4 1 2D 11 FF and TEDVOL 00CEE7 1 8D 11 FF sta TEDVOL 00CEEA 1 CA LCEEA: dex 00CEEB 1 10 E2 bpl LCECF 00CEED 1 60 rts 00CEEE 1 00CEEE 1 EF 9F LCEEE: .byte $EF,$9F 00CEF0 1 00CEF0 1 E6 A5 iUDTIM: inc $A5 00CEF2 1 D0 06 bne LCEFA 00CEF4 1 E6 A4 inc $A4 00CEF6 1 D0 02 bne LCEFA 00CEF8 1 E6 A3 inc TIME 00CEFA 1 38 LCEFA: sec 00CEFB 1 A5 A5 lda $A5 00CEFD 1 E9 01 sbc #$01 00CEFF 1 A5 A4 lda $A4 00CF01 1 E9 1A sbc #$1A 00CF03 1 A5 A3 lda TIME 00CF05 1 E9 4F sbc #$4F 00CF07 1 90 08 bcc LCF11 00CF09 1 A2 00 ldx #$00 00CF0B 1 86 A3 stx TIME 00CF0D 1 86 A4 stx $A4 00CF0F 1 86 A5 stx $A5 00CF11 1 A9 7F LCF11: lda #$7F 00CF13 1 20 70 DB jsr LDB70 00CF16 1 85 EE sta $EE 00CF18 1 A9 7F lda #$7F 00CF1A 1 20 70 DB jsr LDB70 00CF1D 1 C5 EE cmp $EE 00CF1F 1 D0 F0 bne LCF11 00CF21 1 09 7F ora #$7F 00CF23 1 85 91 sta STKEY 00CF25 1 60 rts 00CF26 1 00CF26 1 78 iRDTIM: sei 00CF27 1 A5 A5 lda $A5 00CF29 1 A6 A4 ldx $A4 00CF2B 1 A4 A3 ldy TIME 00CF2D 1 78 iSETTIM:sei 00CF2E 1 85 A5 sta $A5 00CF30 1 86 A4 stx $A4 00CF32 1 84 A3 sty TIME 00CF34 1 58 cli 00CF35 1 60 rts 00CF36 1 00CF36 1 0D LCF36: .byte $0D 00CF37 1 4D 4F 4E 49 .byte "MONITOR" 00CF3B 1 54 4F 52 00CF3E 1 8D 0D .byte $8D,$0D 00CF40 1 42 52 45 41 .byte "BREA" 00CF44 1 CB 0D .byte $CB,$0D 00CF46 1 20 20 20 50 .byte " PC SR AC XR YR SP" 00CF4A 1 43 20 20 53 00CF4E 1 52 20 41 43 00CF5B 1 00CF5B 1 00CF5B 1 0D .byte $0D 00CF5C 1 3B .byte ";" 00CF5D 1 A0 .byte $A0 00CF5E 1 41 .byte "A" 00CF5F 1 A0 .byte $A0 00CF60 1 20 45 52 52 .byte " ERRO" 00CF64 1 4F 00CF65 1 D2 .byte $D2 00CF66 1 BD 36 CF LCF66: lda LCF36,x 00CF69 1 08 php 00CF6A 1 29 7F and #$7F 00CF6C 1 20 D2 FF jsr kCHROUT 00CF6F 1 E8 inx 00CF70 1 28 plp 00CF71 1 10 F3 bpl LCF66 00CF73 1 60 rts 00CF74 1 00CF74 1 A9 0D LCF74: lda #$0D 00CF76 1 A6 98 ldx DFLTN 00CF78 1 E0 03 cpx #$03 00CF7A 1 F0 06 beq LCF82 00CF7C 1 A6 99 ldx DFLTO 00CF7E 1 E0 03 cpx #$03 00CF80 1 F0 03 beq LCF85 00CF82 1 20 49 DC LCF82: jsr LDC49 00CF85 1 A9 0D LCF85: lda #$0D 00CF87 1 4C B0 D9 jmp LD9B0 00CF8A 1 00CF8A 1 BD 13 01 LCF8A: lda COLKEY,x 00CF8D 1 2C F9 07 bit COLSW 00CF90 1 10 03 bpl LCF95 00CF92 1 BD 43 E1 lda LE143,x 00CF95 1 60 LCF95: rts 00CF96 1 00CF96 1 2C F8 07 LCF96: bit RAMROM 00CF99 1 30 03 bmi LCF9E 00CF9B 1 B1 A1 lda (T2),y 00CF9D 1 60 rts 00CF9E 1 00CF9E 1 A9 A1 LCF9E: lda #$A1 00CFA0 1 8D DF 07 sta $07DF 00CFA3 1 4C D9 07 jmp KLUDES 00CFA6 1 00CFA6 1 A9 09 LCFA6: lda #$09 00CFA8 1 8D 20 FD sta LFD20 00CFAB 1 09 80 ora #$80 00CFAD 1 8D 20 FD sta LFD20 00CFB0 1 4C 1E FC jmp LFC1E 00CFB3 1 00CFB3 1 .if CompileComputer = PLUS4_BETA_0119 00CFB3 1 00CFB3 1 .byte $FF 00CFB3 1 .byte $C2 00CFB3 1 inc PDIR,x 00CFB3 1 inx 00CFB3 1 .byte $23 00CFB3 1 .byte $F7 00CFB3 1 lsr $ADDE 00CFB3 1 .byte $72 00CFB3 1 ror SGNFLG 00CFB3 1 .else 00CFB3 1 08 LCFB3: php 00CFB4 1 78 sei 00CFB5 1 8D 3F FF sta TEDROMSEL 00CFB8 1 B1 00 lda (PDIR),y 00CFBA 1 8D 3E FF sta TEDRAMSEL 00CFBD 1 28 plp 00CFBE 1 60 rts 00CFBF 1 .endif 00CFBF 1 00CFBF 1 .if CompileComputer < PLUS4_01 00CFBF 1 00CFBF 1 .if CompileComputer = PLUS4_BETA_0203 00CFBF 1 .byte $67 00CFBF 1 .endif 00CFBF 1 .byte $32, $87, $60, $7f, $10, $4d, $92, $ef, $28, $3b, $be, $7d, $30, $1d, $76, $0d 00CFBF 1 .byte $20, $eb, $62, $eb, $e0, $4f, $f2, $bf, $4a, $3f, $40, $af, $a8, $5f, $10, $6f 00CFBF 1 .byte $45, $f3, $1c, $d4, $07, $e8, $31, $e9, $3d, $7d, $0e, $ff, $07, $6a, $00, $d7 00CFBF 1 .byte $05, $75, $b4, $e8, $02, $fe, $02, $fd, $11, $f2, $0a, $fe, $28, $db, $08 00CFBF 1 00CFBF 1 .else 00CFBF 1 00CFBF 1 AD 10 FD LCFBF: lda SPI6529 00CFC2 1 29 04 and #$04 00CFC4 1 D0 0E bne LCFE1 00CFC6 1 2C FC 07 bit LSEM 00CFC9 1 30 06 bmi LCFD1 00CFCB 1 A5 01 lda PORT 00CFCD 1 29 F7 and #$F7 00CFCF 1 85 01 sta PORT 00CFD1 1 LCFD1: 00CFD1 1 00CFD1 1 .if IS_PAL 00CFD1 1 dec PALCNT 00CFD1 1 bpl LCFDE 00CFD1 1 lda #$04 00CFD1 1 sta PALCNT 00CFD1 1 jsr iUDTIM 00CFD1 1 .endif 00CFD1 1 00CFD1 1 4C F0 CE LCFDE: jmp iUDTIM 00CFD4 1 00CFD4 1 8D FC 07 LCFE1: sta LSEM 00CFD7 1 20 B0 E3 jsr LE3B0 00CFDA 1 4C D1 CF jmp LCFD1 00CFDD 1 00CFDD 1 E8 LCFEA: inx 00CFDE 1 8E C4 FE stx LFEC4 00CFE1 1 8E C0 FE stx LFEC0 00CFE4 1 A9 80 lda #$80 00CFE6 1 8D 11 FF sta TEDVOL 00CFE9 1 60 rts 00CFEA 1 00CFEA 1 .if CompileComputer = PLUS4_01 00CFEA 1 .byte $F5,$07,$F0,$0A,$F8,$0F,$F8,$0A 00CFEA 1 .byte $F2 00CFEA 1 .endif 00CFEA 1 .endif 00CFEA 1 00CFEA 1 FF FF FF FF FillUntil $D000,$FF 00CFEE 1 FF FF FF FF 00CFF2 1 FF FF FF FF 00D000 1 00D000 1 CHARROMCAP: 00D000 1 3C 66 6E 6E .byte $3C,$66,$6E,$6E,$60,$62,$3C,$00 00D004 1 60 62 3C 00 00D008 1 18 3C 66 7E .byte $18,$3C,$66,$7E,$66,$66,$66,$00 00D00C 1 66 66 66 00 00D010 1 7C 66 66 7C .byte $7C,$66,$66,$7C,$66,$66,$7C,$00 00D014 1 66 66 7C 00 00D018 1 3C 66 60 60 .byte $3C,$66,$60,$60,$60,$66,$3C,$00 00D01C 1 60 66 3C 00 00D020 1 78 6C 66 66 .byte $78,$6C,$66,$66,$66,$6C,$78,$00 00D024 1 66 6C 78 00 00D028 1 7E 60 60 78 .byte $7E,$60,$60,$78,$60,$60,$7E,$00 00D02C 1 60 60 7E 00 00D030 1 7E 60 60 78 .byte $7E,$60,$60,$78,$60,$60,$60,$00 00D034 1 60 60 60 00 00D038 1 3C 66 60 6E .byte $3C,$66,$60,$6E,$66,$66,$3C,$00 00D03C 1 66 66 3C 00 00D040 1 66 66 66 7E .byte $66,$66,$66,$7E,$66,$66,$66,$00 00D044 1 66 66 66 00 00D048 1 3C 18 18 18 .byte $3C,$18,$18,$18,$18,$18,$3C,$00 00D04C 1 18 18 3C 00 00D050 1 1E 0C 0C 0C .byte $1E,$0C,$0C,$0C,$0C,$6C,$38,$00 00D054 1 0C 6C 38 00 00D058 1 66 6C 78 70 .byte $66,$6C,$78,$70,$78,$6C,$66,$00 00D05C 1 78 6C 66 00 00D060 1 60 60 60 60 .byte $60,$60,$60,$60,$60,$60,$7E,$00 00D064 1 60 60 7E 00 00D068 1 63 77 7F 6B .byte $63,$77,$7F,$6B,$63,$63,$63,$00 00D06C 1 63 63 63 00 00D070 1 66 76 7E 7E .byte $66,$76,$7E,$7E,$6E,$66,$66,$00 00D074 1 6E 66 66 00 00D078 1 3C 66 66 66 .byte $3C,$66,$66,$66,$66,$66,$3C,$00 00D07C 1 66 66 3C 00 00D080 1 7C 66 66 7C .byte $7C,$66,$66,$7C,$60,$60,$60,$00 00D084 1 60 60 60 00 00D088 1 3C 66 66 66 .byte $3C,$66,$66,$66,$66,$3C,$0E,$00 00D08C 1 66 3C 0E 00 00D090 1 7C 66 66 7C .byte $7C,$66,$66,$7C,$78,$6C,$66,$00 00D094 1 78 6C 66 00 00D098 1 3C 66 60 3C .byte $3C,$66,$60,$3C,$06,$66,$3C,$00 00D09C 1 06 66 3C 00 00D0A0 1 7E 18 18 18 .byte $7E,$18,$18,$18,$18,$18,$18,$00 00D0A4 1 18 18 18 00 00D0A8 1 66 66 66 66 .byte $66,$66,$66,$66,$66,$66,$3C,$00 00D0AC 1 66 66 3C 00 00D0B0 1 66 66 66 66 .byte $66,$66,$66,$66,$66,$3C,$18,$00 00D0B4 1 66 3C 18 00 00D0B8 1 63 63 63 6B .byte $63,$63,$63,$6B,$7F,$77,$63,$00 00D0BC 1 7F 77 63 00 00D0C0 1 66 66 3C 18 .byte $66,$66,$3C,$18,$3C,$66,$66,$00 00D0C4 1 3C 66 66 00 00D0C8 1 66 66 66 3C .byte $66,$66,$66,$3C,$18,$18,$18,$00 00D0CC 1 18 18 18 00 00D0D0 1 7E 06 0C 18 .byte $7E,$06,$0C,$18,$30,$60,$7E,$00 00D0D4 1 30 60 7E 00 00D0D8 1 3C 30 30 30 .byte $3C,$30,$30,$30,$30,$30,$3C,$00 00D0DC 1 30 30 3C 00 00D0E0 1 0C 12 30 7C .byte $0C,$12,$30,$7C,$30,$62,$FC,$00 00D0E4 1 30 62 FC 00 00D0E8 1 3C 0C 0C 0C .byte $3C,$0C,$0C,$0C,$0C,$0C,$3C,$00 00D0EC 1 0C 0C 3C 00 00D0F0 1 00 18 3C 7E .byte $00,$18,$3C,$7E,$18,$18,$18,$18 00D0F4 1 18 18 18 18 00D0F8 1 00 10 30 7F .byte $00,$10,$30,$7F,$7F,$30,$10,$00 00D0FC 1 7F 30 10 00 00D100 1 00 00 00 00 .byte $00,$00,$00,$00,$00,$00,$00,$00 00D104 1 00 00 00 00 00D108 1 18 18 18 18 .byte $18,$18,$18,$18,$00,$00,$18,$00 00D10C 1 00 00 18 00 00D110 1 66 66 66 00 .byte $66,$66,$66,$00,$00,$00,$00,$00 00D114 1 00 00 00 00 00D118 1 66 66 FF 66 .byte $66,$66,$FF,$66,$FF,$66,$66,$00 00D11C 1 FF 66 66 00 00D120 1 18 3E 60 3C .byte $18,$3E,$60,$3C,$06,$7C,$18,$00 00D124 1 06 7C 18 00 00D128 1 62 66 0C 18 .byte $62,$66,$0C,$18,$30,$66,$46,$00 00D12C 1 30 66 46 00 00D130 1 3C 66 3C 38 .byte $3C,$66,$3C,$38,$67,$66,$3F,$00 00D134 1 67 66 3F 00 00D138 1 06 0C 18 00 .byte $06,$0C,$18,$00,$00,$00,$00,$00 00D13C 1 00 00 00 00 00D140 1 0C 18 30 30 .byte $0C,$18,$30,$30,$30,$18,$0C,$00 00D144 1 30 18 0C 00 00D148 1 30 18 0C 0C .byte $30,$18,$0C,$0C,$0C,$18,$30,$00 00D14C 1 0C 18 30 00 00D150 1 00 66 3C FF .byte $00,$66,$3C,$FF,$3C,$66,$00,$00 00D154 1 3C 66 00 00 00D158 1 00 18 18 7E .byte $00,$18,$18,$7E,$18,$18,$00,$00 00D15C 1 18 18 00 00 00D160 1 00 00 00 00 .byte $00,$00,$00,$00,$00,$18,$18,$30 00D164 1 00 18 18 30 00D168 1 00 00 00 7E .byte $00,$00,$00,$7E,$00,$00,$00,$00 00D16C 1 00 00 00 00 00D170 1 00 00 00 00 .byte $00,$00,$00,$00,$00,$18,$18,$00 00D174 1 00 18 18 00 00D178 1 00 03 06 0C .byte $00,$03,$06,$0C,$18,$30,$60,$00 00D17C 1 18 30 60 00 00D180 1 3C 66 6E 76 .byte $3C,$66,$6E,$76,$66,$66,$3C,$00 00D184 1 66 66 3C 00 00D188 1 18 18 38 18 .byte $18,$18,$38,$18,$18,$18,$7E,$00 00D18C 1 18 18 7E 00 00D190 1 3C 66 06 0C .byte $3C,$66,$06,$0C,$30,$60,$7E,$00 00D194 1 30 60 7E 00 00D198 1 3C 66 06 1C .byte $3C,$66,$06,$1C,$06,$66,$3C,$00 00D19C 1 06 66 3C 00 00D1A0 1 06 0E 1E 66 .byte $06,$0E,$1E,$66,$7F,$06,$06,$00 00D1A4 1 7F 06 06 00 00D1A8 1 7E 60 7C 06 .byte $7E,$60,$7C,$06,$06,$66,$3C,$00 00D1AC 1 06 66 3C 00 00D1B0 1 3C 66 60 7C .byte $3C,$66,$60,$7C,$66,$66,$3C,$00 00D1B4 1 66 66 3C 00 00D1B8 1 7E 66 0C 18 .byte $7E,$66,$0C,$18,$18,$18,$18,$00 00D1BC 1 18 18 18 00 00D1C0 1 3C 66 66 3C .byte $3C,$66,$66,$3C,$66,$66,$3C,$00 00D1C4 1 66 66 3C 00 00D1C8 1 3C 66 66 3E .byte $3C,$66,$66,$3E,$06,$66,$3C,$00 00D1CC 1 06 66 3C 00 00D1D0 1 00 00 18 00 .byte $00,$00,$18,$00,$00,$18,$00,$00 00D1D4 1 00 18 00 00 00D1D8 1 00 00 18 00 .byte $00,$00,$18,$00,$00,$18,$18,$30 00D1DC 1 00 18 18 30 00D1E0 1 0E 18 30 60 .byte $0E,$18,$30,$60,$30,$18,$0E,$00 00D1E4 1 30 18 0E 00 00D1E8 1 00 00 7E 00 .byte $00,$00,$7E,$00,$7E,$00,$00,$00 00D1EC 1 7E 00 00 00 00D1F0 1 70 18 0C 06 .byte $70,$18,$0C,$06,$0C,$18,$70,$00 00D1F4 1 0C 18 70 00 00D1F8 1 3C 66 06 0C .byte $3C,$66,$06,$0C,$18,$00,$18,$00 00D1FC 1 18 00 18 00 00D200 1 00 00 00 FF .byte $00,$00,$00,$FF,$FF,$00,$00,$00 00D204 1 FF 00 00 00 00D208 1 08 1C 3E 7F .byte $08,$1C,$3E,$7F,$7F,$1C,$3E,$00 00D20C 1 7F 1C 3E 00 00D210 1 18 18 18 18 .byte $18,$18,$18,$18,$18,$18,$18,$18 00D214 1 18 18 18 18 00D218 1 00 00 00 FF .byte $00,$00,$00,$FF,$FF,$00,$00,$00 00D21C 1 FF 00 00 00 00D220 1 00 00 FF FF .byte $00,$00,$FF,$FF,$00,$00,$00,$00 00D224 1 00 00 00 00 00D228 1 00 FF FF 00 .byte $00,$FF,$FF,$00,$00,$00,$00,$00 00D22C 1 00 00 00 00 00D230 1 00 00 00 00 .byte $00,$00,$00,$00,$FF,$FF,$00,$00 00D234 1 FF FF 00 00 00D238 1 30 30 30 30 .byte $30,$30,$30,$30,$30,$30,$30,$30 00D23C 1 30 30 30 30 00D240 1 0C 0C 0C 0C .byte $0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C 00D244 1 0C 0C 0C 0C 00D248 1 00 00 00 E0 .byte $00,$00,$00,$E0,$F0,$38,$18,$18 00D24C 1 F0 38 18 18 00D250 1 18 18 1C 0F .byte $18,$18,$1C,$0F,$07,$00,$00,$00 00D254 1 07 00 00 00 00D258 1 18 18 38 F0 .byte $18,$18,$38,$F0,$E0,$00,$00,$00 00D25C 1 E0 00 00 00 00D260 1 C0 C0 C0 C0 .byte $C0,$C0,$C0,$C0,$C0,$C0,$FF,$FF 00D264 1 C0 C0 FF FF 00D268 1 C0 E0 70 38 .byte $C0,$E0,$70,$38,$1C,$0E,$07,$03 00D26C 1 1C 0E 07 03 00D270 1 03 07 0E 1C .byte $03,$07,$0E,$1C,$38,$70,$E0,$C0 00D274 1 38 70 E0 C0 00D278 1 FF FF C0 C0 .byte $FF,$FF,$C0,$C0,$C0,$C0,$C0,$C0 00D27C 1 C0 C0 C0 C0 00D280 1 FF FF 03 03 .byte $FF,$FF,$03,$03,$03,$03,$03,$03 00D284 1 03 03 03 03 00D288 1 00 3C 7E 7E .byte $00,$3C,$7E,$7E,$7E,$7E,$3C,$00 00D28C 1 7E 7E 3C 00 00D290 1 00 00 00 00 .byte $00,$00,$00,$00,$00,$FF,$FF,$00 00D294 1 00 FF FF 00 00D298 1 36 7F 7F 7F .byte $36,$7F,$7F,$7F,$3E,$1C,$08,$00 00D29C 1 3E 1C 08 00 00D2A0 1 60 60 60 60 .byte $60,$60,$60,$60,$60,$60,$60,$60 00D2A4 1 60 60 60 60 00D2A8 1 00 00 00 07 .byte $00,$00,$00,$07,$0F,$1C,$18,$18 00D2AC 1 0F 1C 18 18 00D2B0 1 C3 E7 7E 3C .byte $C3,$E7,$7E,$3C,$3C,$7E,$E7,$C3 00D2B4 1 3C 7E E7 C3 00D2B8 1 00 3C 7E 66 .byte $00,$3C,$7E,$66,$66,$7E,$3C,$00 00D2BC 1 66 7E 3C 00 00D2C0 1 18 18 66 66 .byte $18,$18,$66,$66,$18,$18,$3C,$00 00D2C4 1 18 18 3C 00 00D2C8 1 06 06 06 06 .byte $06,$06,$06,$06,$06,$06,$06,$06 00D2CC 1 06 06 06 06 00D2D0 1 08 1C 3E 7F .byte $08,$1C,$3E,$7F,$3E,$1C,$08,$00 00D2D4 1 3E 1C 08 00 00D2D8 1 18 18 18 FF .byte $18,$18,$18,$FF,$FF,$18,$18,$18 00D2DC 1 FF 18 18 18 00D2E0 1 C0 C0 30 30 .byte $C0,$C0,$30,$30,$C0,$C0,$30,$30 00D2E4 1 C0 C0 30 30 00D2E8 1 18 18 18 18 .byte $18,$18,$18,$18,$18,$18,$18,$18 00D2EC 1 18 18 18 18 00D2F0 1 00 00 03 3E .byte $00,$00,$03,$3E,$76,$36,$36,$00 00D2F4 1 76 36 36 00 00D2F8 1 FF 7F 3F 1F .byte $FF,$7F,$3F,$1F,$0F,$07,$03,$01 00D2FC 1 0F 07 03 01 00D300 1 00 00 00 00 .byte $00,$00,$00,$00,$00,$00,$00,$00 00D304 1 00 00 00 00 00D308 1 F0 F0 F0 F0 .byte $F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0 00D30C 1 F0 F0 F0 F0 00D310 1 00 00 00 00 .byte $00,$00,$00,$00,$FF,$FF,$FF,$FF 00D314 1 FF FF FF FF 00D318 1 FF 00 00 00 .byte $FF,$00,$00,$00,$00,$00,$00,$00 00D31C 1 00 00 00 00 00D320 1 00 00 00 00 .byte $00,$00,$00,$00,$00,$00,$00,$FF 00D324 1 00 00 00 FF 00D328 1 C0 C0 C0 C0 .byte $C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0 00D32C 1 C0 C0 C0 C0 00D330 1 CC CC 33 33 .byte $CC,$CC,$33,$33,$CC,$CC,$33,$33 00D334 1 CC CC 33 33 00D338 1 03 03 03 03 .byte $03,$03,$03,$03,$03,$03,$03,$03 00D33C 1 03 03 03 03 00D340 1 00 00 00 00 .byte $00,$00,$00,$00,$CC,$CC,$33,$33 00D344 1 CC CC 33 33 00D348 1 FF FE FC F8 .byte $FF,$FE,$FC,$F8,$F0,$E0,$C0,$80 00D34C 1 F0 E0 C0 80 00D350 1 03 03 03 03 .byte $03,$03,$03,$03,$03,$03,$03,$03 00D354 1 03 03 03 03 00D358 1 18 18 18 1F .byte $18,$18,$18,$1F,$1F,$18,$18,$18 00D35C 1 1F 18 18 18 00D360 1 00 00 00 00 .byte $00,$00,$00,$00,$0F,$0F,$0F,$0F 00D364 1 0F 0F 0F 0F 00D368 1 18 18 18 1F .byte $18,$18,$18,$1F,$1F,$00,$00,$00 00D36C 1 1F 00 00 00 00D370 1 00 00 00 F8 .byte $00,$00,$00,$F8,$F8,$18,$18,$18 00D374 1 F8 18 18 18 00D378 1 00 00 00 00 .byte $00,$00,$00,$00,$00,$00,$FF,$FF 00D37C 1 00 00 FF FF 00D380 1 00 00 00 1F .byte $00,$00,$00,$1F,$1F,$18,$18,$18 00D384 1 1F 18 18 18 00D388 1 18 18 18 FF .byte $18,$18,$18,$FF,$FF,$00,$00,$00 00D38C 1 FF 00 00 00 00D390 1 00 00 00 FF .byte $00,$00,$00,$FF,$FF,$18,$18,$18 00D394 1 FF 18 18 18 00D398 1 18 18 18 F8 .byte $18,$18,$18,$F8,$F8,$18,$18,$18 00D39C 1 F8 18 18 18 00D3A0 1 C0 C0 C0 C0 .byte $C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0 00D3A4 1 C0 C0 C0 C0 00D3A8 1 E0 E0 E0 E0 .byte $E0,$E0,$E0,$E0,$E0,$E0,$E0,$E0 00D3AC 1 E0 E0 E0 E0 00D3B0 1 07 07 07 07 .byte $07,$07,$07,$07,$07,$07,$07,$07 00D3B4 1 07 07 07 07 00D3B8 1 FF FF 00 00 .byte $FF,$FF,$00,$00,$00,$00,$00,$00 00D3BC 1 00 00 00 00 00D3C0 1 FF FF FF 00 .byte $FF,$FF,$FF,$00,$00,$00,$00,$00 00D3C4 1 00 00 00 00 00D3C8 1 00 00 00 00 .byte $00,$00,$00,$00,$00,$FF,$FF,$FF 00D3CC 1 00 FF FF FF 00D3D0 1 03 03 03 03 .byte $03,$03,$03,$03,$03,$03,$FF,$FF 00D3D4 1 03 03 FF FF 00D3D8 1 00 00 00 00 .byte $00,$00,$00,$00,$F0,$F0,$F0,$F0 00D3DC 1 F0 F0 F0 F0 00D3E0 1 0F 0F 0F 0F .byte $0F,$0F,$0F,$0F,$00,$00,$00,$00 00D3E4 1 00 00 00 00 00D3E8 1 18 18 18 F8 .byte $18,$18,$18,$F8,$F8,$00,$00,$00 00D3EC 1 F8 00 00 00 00D3F0 1 F0 F0 F0 F0 .byte $F0,$F0,$F0,$F0,$00,$00,$00,$00 00D3F4 1 00 00 00 00 00D3F8 1 F0 F0 F0 F0 .byte $F0,$F0,$F0,$F0,$0F,$0F,$0F,$0F 00D3FC 1 0F 0F 0F 0F 00D400 1 CHARROMSMALL: 00D400 1 3C 66 6E 6E .byte $3C,$66,$6E,$6E,$60,$62,$3C,$00 00D404 1 60 62 3C 00 00D408 1 00 00 3C 06 .byte $00,$00,$3C,$06,$3E,$66,$3E,$00 00D40C 1 3E 66 3E 00 00D410 1 60 60 7C 66 .byte $60,$60,$7C,$66,$66,$66,$7C,$00 00D414 1 66 66 7C 00 00D418 1 00 00 3C 66 .byte $00,$00,$3C,$66,$60,$66,$3C,$00 00D41C 1 60 66 3C 00 00D420 1 06 06 3E 66 .byte $06,$06,$3E,$66,$66,$66,$3E,$00 00D424 1 66 66 3E 00 00D428 1 00 00 3C 66 .byte $00,$00,$3C,$66,$7E,$60,$3E,$00 00D42C 1 7E 60 3E 00 00D430 1 1C 36 30 78 .byte $1C,$36,$30,$78,$30,$30,$30,$00 00D434 1 30 30 30 00 00D438 1 00 00 3E 66 .byte $00,$00,$3E,$66,$66,$3E,$06,$7C 00D43C 1 66 3E 06 7C 00D440 1 60 60 7C 66 .byte $60,$60,$7C,$66,$66,$66,$66,$00 00D444 1 66 66 66 00 00D448 1 18 00 18 18 .byte $18,$00,$18,$18,$18,$18,$18,$00 00D44C 1 18 18 18 00 00D450 1 06 00 06 06 .byte $06,$00,$06,$06,$06,$06,$66,$3C 00D454 1 06 06 66 3C 00D458 1 60 60 66 6C .byte $60,$60,$66,$6C,$78,$7C,$66,$00 00D45C 1 78 7C 66 00 00D460 1 38 18 18 18 .byte $38,$18,$18,$18,$18,$18,$3C,$00 00D464 1 18 18 3C 00 00D468 1 .if CompileComputer >= PLUS4_01 00D468 1 00 00 6B 7F .byte $00,$00,$6B,$7F,$7F,$63,$63,$00 00D46C 1 7F 63 63 00 00D470 1 .else 00D470 1 .byte $00,$00,$66,$7F,$6B,$63,$63,$00 00D470 1 .endif 00D470 1 00 00 7C 66 .byte $00,$00,$7C,$66,$66,$66,$66,$00 00D474 1 66 66 66 00 00D478 1 00 00 3C 66 .byte $00,$00,$3C,$66,$66,$66,$3C,$00 00D47C 1 66 66 3C 00 00D480 1 00 00 7C 66 .byte $00,$00,$7C,$66,$66,$7C,$60,$60 00D484 1 66 7C 60 60 00D488 1 00 00 3E 66 .byte $00,$00,$3E,$66,$66,$3E,$06,$06 00D48C 1 66 3E 06 06 00D490 1 00 00 7C 66 .byte $00,$00,$7C,$66,$60,$60,$60,$00 00D494 1 60 60 60 00 00D498 1 00 00 3C 60 .byte $00,$00,$3C,$60,$3C,$06,$7C,$00 00D49C 1 3C 06 7C 00 00D4A0 1 30 30 FC 30 .byte $30,$30,$FC,$30,$30,$36,$1C,$00 00D4A4 1 30 36 1C 00 00D4A8 1 00 00 66 66 .byte $00,$00,$66,$66,$66,$66,$3C,$00 00D4AC 1 66 66 3C 00 00D4B0 1 00 00 66 66 .byte $00,$00,$66,$66,$66,$3C,$18,$00 00D4B4 1 66 3C 18 00 00D4B8 1 .if CompileComputer >= PLUS4_01 00D4B8 1 00 00 63 6B .byte $00,$00,$63,$6B,$7F,$36,$22,$00 00D4BC 1 7F 36 22 00 00D4C0 1 .else 00D4C0 1 .byte $00,$00,$63,$6B,$6B,$7F,$36,$00 00D4C0 1 .endif 00D4C0 1 00 00 66 3C .byte $00,$00,$66,$3C,$18,$3C,$66,$00 00D4C4 1 18 3C 66 00 00D4C8 1 00 00 66 66 .byte $00,$00,$66,$66,$66,$3E,$06,$7C 00D4CC 1 66 3E 06 7C 00D4D0 1 00 00 7E 0C .byte $00,$00,$7E,$0C,$18,$30,$7E,$00 00D4D4 1 18 30 7E 00 00D4D8 1 3C 30 30 30 .byte $3C,$30,$30,$30,$30,$30,$3C,$00 00D4DC 1 30 30 3C 00 00D4E0 1 0C 12 30 7C .byte $0C,$12,$30,$7C,$30,$62,$FC,$00 00D4E4 1 30 62 FC 00 00D4E8 1 3C 0C 0C 0C .byte $3C,$0C,$0C,$0C,$0C,$0C,$3C,$00 00D4EC 1 0C 0C 3C 00 00D4F0 1 00 18 3C 7E .byte $00,$18,$3C,$7E,$18,$18,$18,$18 00D4F4 1 18 18 18 18 00D4F8 1 00 10 30 7F .byte $00,$10,$30,$7F,$7F,$30,$10,$00 00D4FC 1 7F 30 10 00 00D500 1 00 00 00 00 .byte $00,$00,$00,$00,$00,$00,$00,$00 00D504 1 00 00 00 00 00D508 1 18 18 18 18 .byte $18,$18,$18,$18,$00,$00,$18,$00 00D50C 1 00 00 18 00 00D510 1 66 66 66 00 .byte $66,$66,$66,$00,$00,$00,$00,$00 00D514 1 00 00 00 00 00D518 1 66 66 FF 66 .byte $66,$66,$FF,$66,$FF,$66,$66,$00 00D51C 1 FF 66 66 00 00D520 1 18 3E 60 3C .byte $18,$3E,$60,$3C,$06,$7C,$18,$00 00D524 1 06 7C 18 00 00D528 1 62 66 0C 18 .byte $62,$66,$0C,$18,$30,$66,$46,$00 00D52C 1 30 66 46 00 00D530 1 3C 66 3C 38 .byte $3C,$66,$3C,$38,$67,$66,$3F,$00 00D534 1 67 66 3F 00 00D538 1 06 0C 18 00 .byte $06,$0C,$18,$00,$00,$00,$00,$00 00D53C 1 00 00 00 00 00D540 1 0C 18 30 30 .byte $0C,$18,$30,$30,$30,$18,$0C,$00 00D544 1 30 18 0C 00 00D548 1 30 18 0C 0C .byte $30,$18,$0C,$0C,$0C,$18,$30,$00 00D54C 1 0C 18 30 00 00D550 1 00 66 3C FF .byte $00,$66,$3C,$FF,$3C,$66,$00,$00 00D554 1 3C 66 00 00 00D558 1 00 18 18 7E .byte $00,$18,$18,$7E,$18,$18,$00,$00 00D55C 1 18 18 00 00 00D560 1 00 00 00 00 .byte $00,$00,$00,$00,$00,$18,$18,$30 00D564 1 00 18 18 30 00D568 1 00 00 00 7E .byte $00,$00,$00,$7E,$00,$00,$00,$00 00D56C 1 00 00 00 00 00D570 1 00 00 00 00 .byte $00,$00,$00,$00,$00,$18,$18,$00 00D574 1 00 18 18 00 00D578 1 00 03 06 0C .byte $00,$03,$06,$0C,$18,$30,$60,$00 00D57C 1 18 30 60 00 00D580 1 3C 66 6E 76 .byte $3C,$66,$6E,$76,$66,$66,$3C,$00 00D584 1 66 66 3C 00 00D588 1 18 18 38 18 .byte $18,$18,$38,$18,$18,$18,$7E,$00 00D58C 1 18 18 7E 00 00D590 1 3C 66 06 0C .byte $3C,$66,$06,$0C,$30,$60,$7E,$00 00D594 1 30 60 7E 00 00D598 1 3C 66 06 1C .byte $3C,$66,$06,$1C,$06,$66,$3C,$00 00D59C 1 06 66 3C 00 00D5A0 1 06 0E 1E 66 .byte $06,$0E,$1E,$66,$7F,$06,$06,$00 00D5A4 1 7F 06 06 00 00D5A8 1 7E 60 7C 06 .byte $7E,$60,$7C,$06,$06,$66,$3C,$00 00D5AC 1 06 66 3C 00 00D5B0 1 3C 66 60 7C .byte $3C,$66,$60,$7C,$66,$66,$3C,$00 00D5B4 1 66 66 3C 00 00D5B8 1 7E 66 0C 18 .byte $7E,$66,$0C,$18,$18,$18,$18,$00 00D5BC 1 18 18 18 00 00D5C0 1 3C 66 66 3C .byte $3C,$66,$66,$3C,$66,$66,$3C,$00 00D5C4 1 66 66 3C 00 00D5C8 1 3C 66 66 3E .byte $3C,$66,$66,$3E,$06,$66,$3C,$00 00D5CC 1 06 66 3C 00 00D5D0 1 00 00 18 00 .byte $00,$00,$18,$00,$00,$18,$00,$00 00D5D4 1 00 18 00 00 00D5D8 1 00 00 18 00 .byte $00,$00,$18,$00,$00,$18,$18,$30 00D5DC 1 00 18 18 30 00D5E0 1 0E 18 30 60 .byte $0E,$18,$30,$60,$30,$18,$0E,$00 00D5E4 1 30 18 0E 00 00D5E8 1 00 00 7E 00 .byte $00,$00,$7E,$00,$7E,$00,$00,$00 00D5EC 1 7E 00 00 00 00D5F0 1 70 18 0C 06 .byte $70,$18,$0C,$06,$0C,$18,$70,$00 00D5F4 1 0C 18 70 00 00D5F8 1 3C 66 06 0C .byte $3C,$66,$06,$0C,$18,$00,$18,$00 00D5FC 1 18 00 18 00 00D600 1 00 00 00 FF .byte $00,$00,$00,$FF,$FF,$00,$00,$00 00D604 1 FF 00 00 00 00D608 1 18 3C 66 7E .byte $18,$3C,$66,$7E,$66,$66,$66,$00 00D60C 1 66 66 66 00 00D610 1 7C 66 66 7C .byte $7C,$66,$66,$7C,$66,$66,$7C,$00 00D614 1 66 66 7C 00 00D618 1 3C 66 60 60 .byte $3C,$66,$60,$60,$60,$66,$3C,$00 00D61C 1 60 66 3C 00 00D620 1 78 6C 66 66 .byte $78,$6C,$66,$66,$66,$6C,$78,$00 00D624 1 66 6C 78 00 00D628 1 7E 60 60 78 .byte $7E,$60,$60,$78,$60,$60,$7E,$00 00D62C 1 60 60 7E 00 00D630 1 7E 60 60 78 .byte $7E,$60,$60,$78,$60,$60,$60,$00 00D634 1 60 60 60 00 00D638 1 3C 66 60 6E .byte $3C,$66,$60,$6E,$66,$66,$3C,$00 00D63C 1 66 66 3C 00 00D640 1 66 66 66 7E .byte $66,$66,$66,$7E,$66,$66,$66,$00 00D644 1 66 66 66 00 00D648 1 3C 18 18 18 .byte $3C,$18,$18,$18,$18,$18,$3C,$00 00D64C 1 18 18 3C 00 00D650 1 1E 0C 0C 0C .byte $1E,$0C,$0C,$0C,$0C,$6C,$38,$00 00D654 1 0C 6C 38 00 00D658 1 66 6C 78 70 .byte $66,$6C,$78,$70,$78,$6C,$66,$00 00D65C 1 78 6C 66 00 00D660 1 60 60 60 60 .byte $60,$60,$60,$60,$60,$60,$7E,$00 00D664 1 60 60 7E 00 00D668 1 63 77 7F 6B .byte $63,$77,$7F,$6B,$63,$63,$63,$00 00D66C 1 63 63 63 00 00D670 1 66 76 7E 7E .byte $66,$76,$7E,$7E,$6E,$66,$66,$00 00D674 1 6E 66 66 00 00D678 1 3C 66 66 66 .byte $3C,$66,$66,$66,$66,$66,$3C,$00 00D67C 1 66 66 3C 00 00D680 1 7C 66 66 7C .byte $7C,$66,$66,$7C,$60,$60,$60,$00 00D684 1 60 60 60 00 00D688 1 3C 66 66 66 .byte $3C,$66,$66,$66,$66,$3C,$0E,$00 00D68C 1 66 3C 0E 00 00D690 1 7C 66 66 7C .byte $7C,$66,$66,$7C,$78,$6C,$66,$00 00D694 1 78 6C 66 00 00D698 1 3C 66 60 3C .byte $3C,$66,$60,$3C,$06,$66,$3C,$00 00D69C 1 06 66 3C 00 00D6A0 1 7E 18 18 18 .byte $7E,$18,$18,$18,$18,$18,$18,$00 00D6A4 1 18 18 18 00 00D6A8 1 66 66 66 66 .byte $66,$66,$66,$66,$66,$66,$3C,$00 00D6AC 1 66 66 3C 00 00D6B0 1 66 66 66 66 .byte $66,$66,$66,$66,$66,$3C,$18,$00 00D6B4 1 66 3C 18 00 00D6B8 1 63 63 63 6B .byte $63,$63,$63,$6B,$7F,$77,$63,$00 00D6BC 1 7F 77 63 00 00D6C0 1 66 66 3C 18 .byte $66,$66,$3C,$18,$3C,$66,$66,$00 00D6C4 1 3C 66 66 00 00D6C8 1 66 66 66 3C .byte $66,$66,$66,$3C,$18,$18,$18,$00 00D6CC 1 18 18 18 00 00D6D0 1 7E 06 0C 18 .byte $7E,$06,$0C,$18,$30,$60,$7E,$00 00D6D4 1 30 60 7E 00 00D6D8 1 18 18 18 FF .byte $18,$18,$18,$FF,$FF,$18,$18,$18 00D6DC 1 FF 18 18 18 00D6E0 1 C0 C0 30 30 .byte $C0,$C0,$30,$30,$C0,$C0,$30,$30 00D6E4 1 C0 C0 30 30 00D6E8 1 18 18 18 18 .byte $18,$18,$18,$18,$18,$18,$18,$18 00D6EC 1 18 18 18 18 00D6F0 1 33 33 CC CC .byte $33,$33,$CC,$CC,$33,$33,$CC,$CC 00D6F4 1 33 33 CC CC 00D6F8 1 33 99 CC 66 .byte $33,$99,$CC,$66,$33,$99,$CC,$66 00D6FC 1 33 99 CC 66 00D700 1 00 00 00 00 .byte $00,$00,$00,$00,$00,$00,$00,$00 00D704 1 00 00 00 00 00D708 1 F0 F0 F0 F0 .byte $F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0 00D70C 1 F0 F0 F0 F0 00D710 1 00 00 00 00 .byte $00,$00,$00,$00,$FF,$FF,$FF,$FF 00D714 1 FF FF FF FF 00D718 1 FF 00 00 00 .byte $FF,$00,$00,$00,$00,$00,$00,$00 00D71C 1 00 00 00 00 00D720 1 00 00 00 00 .byte $00,$00,$00,$00,$00,$00,$00,$FF 00D724 1 00 00 00 FF 00D728 1 C0 C0 C0 C0 .byte $C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0 00D72C 1 C0 C0 C0 C0 00D730 1 CC CC 33 33 .byte $CC,$CC,$33,$33,$CC,$CC,$33,$33 00D734 1 CC CC 33 33 00D738 1 03 03 03 03 .byte $03,$03,$03,$03,$03,$03,$03,$03 00D73C 1 03 03 03 03 00D740 1 00 00 00 00 .byte $00,$00,$00,$00,$CC,$CC,$33,$33 00D744 1 CC CC 33 33 00D748 1 CC 99 33 66 .byte $CC,$99,$33,$66,$CC,$99,$33,$66 00D74C 1 CC 99 33 66 00D750 1 03 03 03 03 .byte $03,$03,$03,$03,$03,$03,$03,$03 00D754 1 03 03 03 03 00D758 1 18 18 18 1F .byte $18,$18,$18,$1F,$1F,$18,$18,$18 00D75C 1 1F 18 18 18 00D760 1 00 00 00 00 .byte $00,$00,$00,$00,$0F,$0F,$0F,$0F 00D764 1 0F 0F 0F 0F 00D768 1 18 18 18 1F .byte $18,$18,$18,$1F,$1F,$00,$00,$00 00D76C 1 1F 00 00 00 00D770 1 00 00 00 F8 .byte $00,$00,$00,$F8,$F8,$18,$18,$18 00D774 1 F8 18 18 18 00D778 1 00 00 00 00 .byte $00,$00,$00,$00,$00,$00,$FF,$FF 00D77C 1 00 00 FF FF 00D780 1 00 00 00 1F .byte $00,$00,$00,$1F,$1F,$18,$18,$18 00D784 1 1F 18 18 18 00D788 1 18 18 18 FF .byte $18,$18,$18,$FF,$FF,$00,$00,$00 00D78C 1 FF 00 00 00 00D790 1 00 00 00 FF .byte $00,$00,$00,$FF,$FF,$18,$18,$18 00D794 1 FF 18 18 18 00D798 1 18 18 18 F8 .byte $18,$18,$18,$F8,$F8,$18,$18,$18 00D79C 1 F8 18 18 18 00D7A0 1 C0 C0 C0 C0 .byte $C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0 00D7A4 1 C0 C0 C0 C0 00D7A8 1 E0 E0 E0 E0 .byte $E0,$E0,$E0,$E0,$E0,$E0,$E0,$E0 00D7AC 1 E0 E0 E0 E0 00D7B0 1 07 07 07 07 .byte $07,$07,$07,$07,$07,$07,$07,$07 00D7B4 1 07 07 07 07 00D7B8 1 FF FF 00 00 .byte $FF,$FF,$00,$00,$00,$00,$00,$00 00D7BC 1 00 00 00 00 00D7C0 1 FF FF FF 00 .byte $FF,$FF,$FF,$00,$00,$00,$00,$00 00D7C4 1 00 00 00 00 00D7C8 1 00 00 00 00 .byte $00,$00,$00,$00,$00,$FF,$FF,$FF 00D7CC 1 00 FF FF FF 00D7D0 1 01 03 06 6C .byte $01,$03,$06,$6C,$78,$70,$60,$00 00D7D4 1 78 70 60 00 00D7D8 1 00 00 00 00 .byte $00,$00,$00,$00,$F0,$F0,$F0,$F0 00D7DC 1 F0 F0 F0 F0 00D7E0 1 0F 0F 0F 0F .byte $0F,$0F,$0F,$0F,$00,$00,$00,$00 00D7E4 1 00 00 00 00 00D7E8 1 18 18 18 F8 .byte $18,$18,$18,$F8,$F8,$00,$00,$00 00D7EC 1 F8 00 00 00 00D7F0 1 F0 F0 F0 F0 .byte $F0,$F0,$F0,$F0,$00,$00,$00,$00 00D7F4 1 00 00 00 00 00D7F8 1 F0 F0 F0 F0 .byte $F0,$F0,$F0,$F0,$0F,$0F,$0F,$0F 00D7FC 1 0F 0F 0F 0F 00D800 1 00D800 1 00D800 1 08 09 LD800: .word VERSION_INFO_D800 00D802 1 00D802 1 00 28 50 78 LD802: .byte $00,$28,$50,$78,$A0,$C8,$F0,$18 00D806 1 A0 C8 F0 18 00D80A 1 40 68 90 B8 .byte $40,$68,$90,$B8,$E0,$08,$30,$58 00D80E 1 E0 08 30 58 00D812 1 80 A8 D0 F8 .byte $80,$A8,$D0,$F8,$20,$48,$70,$98 00D816 1 20 48 70 98 00D81A 1 C0 .byte $C0 00D81B 1 0C 0C 0C 0C LD81B: .byte $0C,$0C,$0C,$0C,$0C,$0C,$0C,$0D 00D81F 1 0C 0C 0C 0D 00D823 1 0D 0D 0D 0D .byte $0D,$0D,$0D,$0D,$0D,$0E,$0E,$0E 00D827 1 0D 0E 0E 0E 00D82B 1 .if CompileComputer >= PLUS4_01 00D82B 1 0E 0E 0E 0E .byte $0E,$0E,$0E,$0E,$0F,$0F,$0F,$0F 00D82F 1 0F 0F 0F 0F 00D833 1 .elseif CompileComputer = PLUS4_BETA_0203 00D833 1 .byte $0E,$0E,$0E,$0E,$0F,$0F,$0D,$0F 00D833 1 .elseif CompileComputer = PLUS4_BETA_0119 00D833 1 .byte $0E,$0E,$0E,$0E,$0F,$0F,$0F,$0F 00D833 1 .endif 00D833 1 0F .byte $0F 00D834 1 A2 28 iSCREEN:ldx #$28 00D836 1 A0 19 ldy #$19 00D838 1 60 rts 00D839 1 00D839 1 B0 0E iPLOT: bcs LD849 00D83B 1 86 CD stx TBLX 00D83D 1 86 C4 stx LSXP 00D83F 1 84 CA sty PNTR 00D841 1 84 C5 sty $C5 00D843 1 20 70 DE jsr LDE70 00D846 1 20 A8 D8 jsr LD8A8 00D849 1 A6 CD LD849: ldx TBLX 00D84B 1 A4 CA ldy PNTR 00D84D 1 60 rts 00D84E 1 00D84E 1 A9 0C iCINT: lda #$0C 00D850 1 8D 3E 05 sta HIBASE 00D853 1 A9 03 lda #$03 00D855 1 85 99 sta DFLTO 00D857 1 A9 00 lda #$00 00D859 1 85 98 sta DFLTN 00D85B 1 8D 47 05 sta MODE 00D85E 1 85 83 sta GRAPHM 00D860 1 85 EF sta NDX 00D862 1 85 F0 sta STPFLG 00D864 1 A9 7A lda #$7A 00D866 1 8D 45 05 sta KEYLOG 00D869 1 A9 DB lda #$DB 00D86B 1 8D 46 05 sta $0546 00D86E 1 A9 0A lda #$0A 00D870 1 8D 3F 05 sta XMAX 00D873 1 8D 4A 05 sta ROLFLG 00D876 1 8D 42 05 sta DELAY 00D879 1 A9 80 lda #$80 00D87B 1 8D 40 05 sta RPTFLG 00D87E 1 A9 10 lda #$10 00D880 1 8D 3B 05 sta COLOR 00D883 1 A9 04 lda #$04 00D885 1 8D 41 05 sta KOUNT 00D888 1 20 70 DE LD888: jsr LDE70 00D88B 1 20 9A D8 LD88B: jsr LD89A 00D88E 1 20 AA D8 LD88E: jsr LD8AA 00D891 1 20 F7 DA jsr LDAF7 00D894 1 EC E5 07 cpx SCBOT 00D897 1 E8 inx 00D898 1 90 F4 bcc LD88E 00D89A 1 AE E6 07 LD89A: ldx SCTOP 00D89D 1 86 CD stx TBLX 00D89F 1 86 C4 stx LSXP 00D8A1 1 AC E7 07 LD8A1: ldy SCLF 00D8A4 1 84 CA sty PNTR 00D8A6 1 84 C5 sty $C5 00D8A8 1 A6 CD LD8A8: ldx TBLX 00D8AA 1 BD 02 D8 LD8AA: lda LD802,x 00D8AD 1 85 C8 sta PNT 00D8AF 1 BD 1B D8 lda LD81B,x 00D8B2 1 85 C9 sta $C9 00D8B4 1 A5 C8 LD8B4: lda PNT 00D8B6 1 85 EA sta USER 00D8B8 1 A5 C9 lda $C9 00D8BA 1 29 03 and #$03 00D8BC 1 09 08 ora #$08 00D8BE 1 85 EB sta $EB 00D8C0 1 60 rts 00D8C1 1 00D8C1 1 LD8C1: 00D8C1 1 .if CompileComputer >= PLUS4_05 00D8C1 1 AE 5D 05 ldx KYNDX 00D8C4 1 F0 0F beq LD8D5 00D8C6 1 .else 00D8C6 1 ldy KYNDX 00D8C6 1 beq LD8D5 00D8C6 1 .endif 00D8C6 1 AC 5E 05 ldy KEYIDX 00D8C9 1 B9 67 05 lda PKYBUF,y 00D8CC 1 CE 5D 05 dec KYNDX 00D8CF 1 EE 5E 05 inc KEYIDX 00D8D2 1 58 cli 00D8D3 1 .if CompileComputer >= PLUS4_05 00D8D3 1 18 clc 00D8D4 1 .endif 00D8D4 1 60 rts 00D8D5 1 00D8D5 1 LD8D5: 00D8D5 1 AC 27 05 ldy KEYD 00D8D8 1 .if CompileComputer >= PLUS4_05 00D8D8 1 EA nop 00D8D9 1 .else 00D8D9 1 ldx #$00 00D8D9 1 .endif 00D8D9 1 BD 28 05 LD8D9: lda $0528,x 00D8DC 1 9D 27 05 sta KEYD,x 00D8DF 1 E8 inx 00D8E0 1 E4 EF cpx NDX 00D8E2 1 D0 F5 bne LD8D9 00D8E4 1 C6 EF dec NDX 00D8E6 1 98 tya 00D8E7 1 58 cli 00D8E8 1 18 clc 00D8E9 1 60 rts 00D8EA 1 00D8EA 1 20 49 DC LD8EA: jsr LDC49 00D8ED 1 20 B4 D8 LD8ED: jsr LD8B4 00D8F0 1 A4 CA ldy PNTR 00D8F2 1 B1 EA lda (USER),y 00D8F4 1 48 pha 00D8F5 1 AD 3B 05 lda COLOR 00D8F8 1 91 EA sta (USER),y 00D8FA 1 98 tya 00D8FB 1 18 clc 00D8FC 1 65 C8 adc PNT 00D8FE 1 8D 0D FF sta TEDCRSRPOSLO 00D901 1 A5 C9 lda $C9 00D903 1 69 00 adc #$00 00D905 1 E9 0B sbc #$0B 00D907 1 8D 0C FF sta TEDCRSRPOSHI 00D90A 1 A5 EF LD90A: lda NDX 00D90C 1 0D 5D 05 ora KYNDX 00D90F 1 F0 F9 beq LD90A 00D911 1 68 pla 00D912 1 91 EA sta (USER),y 00D914 1 A9 FF lda #$FF 00D916 1 8D 0C FF sta TEDCRSRPOSHI 00D919 1 8D 0D FF sta TEDCRSRPOSLO 00D91C 1 20 C1 D8 jsr LD8C1 00D91F 1 C9 83 cmp #$83 00D921 1 D0 10 bne LD933 00D923 1 A2 09 ldx #$09 00D925 1 78 sei 00D926 1 86 EF stx NDX 00D928 1 BD 29 E1 LD928: lda LE129,x 00D92B 1 9D 26 05 sta $0526,x 00D92E 1 CA dex 00D92F 1 D0 F7 bne LD928 00D931 1 F0 BA LD931: beq LD8ED 00D933 1 C9 0D LD933: cmp #$0D 00D935 1 D0 B3 bne LD8EA 00D937 1 85 C7 sta CRSW 00D939 1 20 95 DF jsr LDF95 00D93C 1 8E 49 05 stx $0549 00D93F 1 20 87 DF jsr LDF87 00D942 1 A9 00 lda #$00 00D944 1 85 CB sta QTSW 00D946 1 AC E7 07 ldy SCLF 00D949 1 A5 C4 lda LSXP 00D94B 1 30 13 bmi LD960 00D94D 1 C5 CD cmp TBLX 00D94F 1 90 0F bcc LD960 00D951 1 A4 C5 ldy $C5 00D953 1 CD 49 05 cmp $0549 00D956 1 D0 04 bne LD95C 00D958 1 C4 C3 cpy INDX 00D95A 1 F0 02 beq LD95E 00D95C 1 B0 11 LD95C: bcs LD96F 00D95E 1 85 CD LD95E: sta TBLX 00D960 1 84 CA LD960: sty PNTR 00D962 1 4C 77 D9 jmp LD977 00D965 1 00D965 1 98 LD965: tya 00D966 1 48 pha 00D967 1 8A txa 00D968 1 48 pha 00D969 1 A5 C7 lda CRSW 00D96B 1 F0 C4 beq LD931 00D96D 1 10 08 bpl LD977 00D96F 1 A9 00 LD96F: lda #$00 00D971 1 85 C7 sta CRSW 00D973 1 4C 74 CF jmp LCF74 00D976 1 00D976 1 EA nop 00D977 1 20 A8 D8 LD977: jsr LD8A8 00D97A 1 20 2F DF jsr LDF2F 00D97D 1 85 CE sta DATAX 00D97F 1 29 3F and #$3F 00D981 1 06 CE asl DATAX 00D983 1 24 CE bit DATAX 00D985 1 10 02 bpl LD989 00D987 1 09 80 ora #$80 00D989 1 90 04 LD989: bcc LD98F 00D98B 1 A6 CB ldx QTSW 00D98D 1 D0 04 bne LD993 00D98F 1 70 02 LD98F: bvs LD993 00D991 1 09 40 ora #$40 00D993 1 20 BA D9 LD993: jsr LD9BA 00D996 1 A4 CD ldy TBLX 00D998 1 CC 49 05 cpy $0549 00D99B 1 90 0A bcc LD9A7 00D99D 1 A4 CA ldy PNTR 00D99F 1 C4 C3 cpy INDX 00D9A1 1 90 04 bcc LD9A7 00D9A3 1 66 C7 ror CRSW 00D9A5 1 30 03 bmi LD9AA 00D9A7 1 20 BF DF LD9A7: jsr LDFBF 00D9AA 1 C9 DE LD9AA: cmp #$DE 00D9AC 1 D0 02 bne LD9B0 00D9AE 1 A9 FF lda #$FF 00D9B0 1 85 CE LD9B0: sta DATAX 00D9B2 1 68 pla 00D9B3 1 AA tax 00D9B4 1 68 pla 00D9B5 1 A8 tay 00D9B6 1 A5 CE lda DATAX 00D9B8 1 18 clc 00D9B9 1 60 rts 00D9BA 1 00D9BA 1 C9 22 LD9BA: cmp #$22 00D9BC 1 D0 08 bne LD9C6 00D9BE 1 A5 CB lda QTSW 00D9C0 1 49 01 eor #$01 00D9C2 1 85 CB sta QTSW 00D9C4 1 A9 22 lda #$22 00D9C6 1 60 LD9C6: rts 00D9C7 1 00D9C7 1 A5 CE lda DATAX 00D9C9 1 8D EB 07 sta LSTCH 00D9CC 1 68 pla 00D9CD 1 A8 tay 00D9CE 1 A5 CF lda INSRT 00D9D0 1 F0 02 beq LD9D4 00D9D2 1 46 CB lsr QTSW 00D9D4 1 68 LD9D4: pla 00D9D5 1 AA tax 00D9D6 1 68 pla 00D9D7 1 18 clc 00D9D8 1 60 rts 00D9D9 1 00D9D9 1 09 40 LD9D9: ora #$40 00D9DB 1 A6 C2 LD9DB: ldx RVS 00D9DD 1 F0 02 beq LD9E1 00D9DF 1 09 80 LD9DF: ora #$80 00D9E1 1 A6 CF LD9E1: ldx INSRT 00D9E3 1 F0 02 beq LD9E7 00D9E5 1 C6 CF dec INSRT 00D9E7 1 2C EA 07 LD9E7: bit INSFL 00D9EA 1 10 09 bpl LD9F5 00D9EC 1 48 pha 00D9ED 1 20 CE DD jsr LDDCE 00D9F0 1 A2 00 ldx #$00 00D9F2 1 86 CF stx INSRT 00D9F4 1 68 pla 00D9F5 1 20 01 E0 LD9F5: jsr LE001 00D9F8 1 CC E8 07 LD9F8: cpy SCRT 00D9FB 1 90 0C bcc LDA09 00D9FD 1 A6 CD ldx TBLX 00D9FF 1 EC E5 07 cpx SCBOT 00DA02 1 90 05 bcc LDA09 00DA04 1 2C E9 07 bit SCRDIS 00DA07 1 30 17 bmi LDA20 00DA09 1 20 A8 D8 LDA09: jsr LD8A8 00DA0C 1 20 BF DF jsr LDFBF 00DA0F 1 90 0F bcc LDA20 00DA11 1 20 39 DF jsr LDF39 00DA14 1 B0 09 bcs LDA1F 00DA16 1 38 sec 00DA17 1 2C E9 07 bit SCRDIS 00DA1A 1 70 04 bvs LDA20 00DA1C 1 20 5E DA jsr LDA5E 00DA1F 1 18 LDA1F: clc 00DA20 1 60 LDA20: rts 00DA21 1 00DA21 1 A6 CD LDA21: ldx TBLX 00DA23 1 EC E5 07 cpx SCBOT 00DA26 1 90 10 bcc LDA38 00DA28 1 2C E9 07 bit SCRDIS 00DA2B 1 10 07 bpl LDA34 00DA2D 1 AD E6 07 lda SCTOP 00DA30 1 85 CD sta TBLX 00DA32 1 B0 06 bcs LDA3A 00DA34 1 20 89 DA LDA34: jsr LDA89 00DA37 1 18 clc 00DA38 1 E6 CD LDA38: inc TBLX 00DA3A 1 4C A8 D8 LDA3A: jmp LD8A8 00DA3D 1 00DA3D 1 BD 02 D8 LDA3D: lda LD802,x 00DA40 1 85 A9 sta FPVERR 00DA42 1 85 C0 sta SEDSAL 00DA44 1 BD 1B D8 lda LD81B,x 00DA47 1 85 C1 sta $C1 00DA49 1 29 03 and #$03 00DA4B 1 09 08 ora #$08 00DA4D 1 85 AA sta DCOUNT 00DA4F 1 B1 C0 LDA4F: lda (SEDSAL),y 00DA51 1 91 C8 sta (PNT),y 00DA53 1 B1 A9 lda (FPVERR),y 00DA55 1 91 EA sta (USER),y 00DA57 1 CC E8 07 cpy SCRT 00DA5A 1 C8 iny 00DA5B 1 90 F2 bcc LDA4F 00DA5D 1 60 rts 00DA5E 1 00DA5E 1 A6 C4 LDA5E: ldx LSXP 00DA60 1 30 06 bmi LDA68 00DA62 1 E4 CD cpx TBLX 00DA64 1 90 02 bcc LDA68 00DA66 1 E6 C4 inc LSXP 00DA68 1 AE E5 07 LDA68: ldx SCBOT 00DA6B 1 20 AA D8 LDA6B: jsr LD8AA 00DA6E 1 AC E7 07 ldy SCLF 00DA71 1 E4 CD cpx TBLX 00DA73 1 F0 0E beq LDA83 00DA75 1 CA dex 00DA76 1 20 3B DF jsr LDF3B 00DA79 1 E8 inx 00DA7A 1 20 48 DF jsr LDF48 00DA7D 1 CA dex 00DA7E 1 20 3D DA jsr LDA3D 00DA81 1 B0 E8 bcs LDA6B 00DA83 1 20 F7 DA LDA83: jsr LDAF7 00DA86 1 4C 59 DF jmp LDF59 00DA89 1 00DA89 1 AE E6 07 LDA89: ldx SCTOP 00DA8C 1 E8 LDA8C: inx 00DA8D 1 20 3B DF jsr LDF3B 00DA90 1 90 0C bcc LDA9E 00DA92 1 EC E5 07 cpx SCBOT 00DA95 1 90 F5 bcc LDA8C 00DA97 1 AE E6 07 ldx SCTOP 00DA9A 1 E8 inx 00DA9B 1 20 4A DF jsr LDF4A 00DA9E 1 C6 CD LDA9E: dec TBLX 00DAA0 1 24 C4 bit LSXP 00DAA2 1 30 02 bmi LDAA6 00DAA4 1 C6 C4 dec LSXP 00DAA6 1 AE E6 07 LDAA6: ldx SCTOP 00DAA9 1 E4 FE cpx SEDT2 00DAAB 1 B0 02 bcs LDAAF 00DAAD 1 C6 FE dec SEDT2 00DAAF 1 20 C5 DA LDAAF: jsr LDAC5 00DAB2 1 AE E6 07 ldx SCTOP 00DAB5 1 20 3B DF jsr LDF3B 00DAB8 1 08 php 00DAB9 1 20 4A DF jsr LDF4A 00DABC 1 28 plp 00DABD 1 90 05 bcc LDAC4 00DABF 1 2C EC 07 bit LOGSCR 00DAC2 1 30 C5 bmi LDA89 00DAC4 1 60 LDAC4: rts 00DAC5 1 00DAC5 1 20 AA D8 LDAC5: jsr LD8AA 00DAC8 1 AC E7 07 ldy SCLF 00DACB 1 EC E5 07 cpx SCBOT 00DACE 1 B0 0E bcs LDADE 00DAD0 1 E8 inx 00DAD1 1 20 3B DF jsr LDF3B 00DAD4 1 CA dex 00DAD5 1 20 48 DF jsr LDF48 00DAD8 1 E8 inx 00DAD9 1 20 3D DA jsr LDA3D 00DADC 1 B0 E7 bcs LDAC5 00DADE 1 20 F7 DA LDADE: jsr LDAF7 00DAE1 1 A9 7F lda #$7F 00DAE3 1 20 70 DB jsr LDB70 00DAE6 1 C9 DF cmp #$DF 00DAE8 1 D0 09 bne LDAF3 00DAEA 1 A0 00 ldy #$00 00DAEC 1 EA LDAEC: nop 00DAED 1 CA dex 00DAEE 1 D0 FC bne LDAEC 00DAF0 1 88 dey 00DAF1 1 D0 F9 bne LDAEC 00DAF3 1 60 LDAF3: rts 00DAF4 1 00DAF4 1 EA nop 00DAF5 1 EA nop 00DAF6 1 EA nop 00DAF7 1 AC E7 07 LDAF7: ldy SCLF 00DAFA 1 20 4A DF jsr LDF4A 00DAFD 1 20 AA D8 LDAFD: jsr LD8AA 00DB00 1 88 dey 00DB01 1 C8 LDB01: iny 00DB02 1 A9 20 lda #$20 00DB04 1 91 C8 sta (PNT),y 00DB06 1 AD 3B 05 lda COLOR 00DB09 1 91 EA sta (USER),y 00DB0B 1 CC E8 07 cpy SCRT 00DB0E 1 D0 F1 bne LDB01 00DB10 1 60 rts 00DB11 1 00DB11 1 A9 00 iSCNKEY:lda #$00 00DB13 1 8D 43 05 sta SHFLAG 00DB16 1 A0 40 ldy #$40 00DB18 1 84 C6 sty SFDX 00DB1A 1 20 70 DB jsr LDB70 00DB1D 1 AA tax 00DB1E 1 E0 FF cpx #$FF 00DB20 1 D0 03 bne LDB25 00DB22 1 4C 01 DC jmp LDC01 00DB25 1 00DB25 1 A0 00 LDB25: ldy #$00 00DB27 1 A9 26 lda #$26 00DB29 1 85 EC sta KEYTAB 00DB2B 1 A9 E0 lda #$E0 00DB2D 1 85 ED sta $ED 00DB2F 1 A9 FE lda #$FE 00DB31 1 A2 08 LDB31: ldx #$08 00DB33 1 48 pha 00DB34 1 68 LDB34: pla 00DB35 1 48 pha 00DB36 1 20 70 DB jsr LDB70 00DB39 1 85 EE sta $EE 00DB3B 1 68 pla 00DB3C 1 48 pha 00DB3D 1 20 70 DB jsr LDB70 00DB40 1 C5 EE cmp $EE 00DB42 1 D0 F0 bne LDB34 00DB44 1 4A LDB44: lsr a 00DB45 1 B0 16 bcs LDB5D 00DB47 1 48 pha 00DB48 1 B1 EC lda (KEYTAB),y 00DB4A 1 C9 05 cmp #$05 00DB4C 1 B0 0C bcs LDB5A 00DB4E 1 C9 03 cmp #$03 00DB50 1 F0 08 beq LDB5A 00DB52 1 0D 43 05 ora SHFLAG 00DB55 1 8D 43 05 sta SHFLAG 00DB58 1 10 02 bpl LDB5C 00DB5A 1 84 C6 LDB5A: sty SFDX 00DB5C 1 68 LDB5C: pla 00DB5D 1 C8 LDB5D: iny 00DB5E 1 C0 41 cpy #$41 00DB60 1 B0 08 bcs LDB6A 00DB62 1 CA dex 00DB63 1 D0 DF bne LDB44 00DB65 1 38 sec 00DB66 1 68 pla 00DB67 1 2A rol a 00DB68 1 D0 C7 bne LDB31 00DB6A 1 68 LDB6A: pla 00DB6B 1 A5 C6 lda SFDX 00DB6D 1 6C 45 05 jmp (KEYLOG) 00DB70 1 00DB70 1 8D 30 FD LDB70: sta LFD30 00DB73 1 8D 08 FF sta TEDKEYB 00DB76 1 AD 08 FF lda TEDKEYB 00DB79 1 60 rts 00DB7A 1 00DB7A 1 AD 43 05 lda SHFLAG 00DB7D 1 C9 03 cmp #$03 00DB7F 1 D0 19 bne LDB9A 00DB81 1 AD 47 05 lda MODE 00DB84 1 30 34 bmi LDBBA 00DB86 1 AD 44 05 lda LSTSHF 00DB89 1 D0 2F bne LDBBA 00DB8B 1 AD 13 FF lda TEDROMSTATUS 00DB8E 1 49 04 eor #$04 00DB90 1 8D 13 FF sta TEDROMSTATUS 00DB93 1 A9 08 lda #$08 00DB95 1 8D 44 05 sta LSTSHF 00DB98 1 D0 20 bne LDBBA 00DB9A 1 0A LDB9A: asl a 00DB9B 1 C9 08 cmp #$08 00DB9D 1 90 10 bcc LDBAF 00DB9F 1 A9 06 lda #$06 00DBA1 1 AE F7 07 ldx STPDSB 00DBA4 1 D0 09 bne LDBAF 00DBA6 1 A6 C6 ldx SFDX 00DBA8 1 E0 0D cpx #$0D 00DBAA 1 D0 03 bne LDBAF 00DBAC 1 86 F0 stx STPFLG 00DBAE 1 60 rts 00DBAF 1 00DBAF 1 AA LDBAF: tax 00DBB0 1 BD 1E E0 lda LE01E,x 00DBB3 1 85 EC sta KEYTAB 00DBB5 1 BD 1F E0 lda LE01E+1,x 00DBB8 1 85 ED sta $ED 00DBBA 1 A4 C6 LDBBA: ldy SFDX 00DBBC 1 B1 EC lda (KEYTAB),y 00DBBE 1 AA tax 00DBBF 1 CC F6 07 cpy LSTX 00DBC2 1 F0 07 beq LDBCB 00DBC4 1 A0 10 ldy #$10 00DBC6 1 8C 42 05 sty DELAY 00DBC9 1 D0 36 bne LDC01 00DBCB 1 29 7F LDBCB: and #$7F 00DBCD 1 2C 40 05 bit RPTFLG 00DBD0 1 30 16 bmi LDBE8 00DBD2 1 70 57 bvs LDC2B 00DBD4 1 C9 7F cmp #$7F 00DBD6 1 F0 29 beq LDC01 00DBD8 1 C9 14 cmp #$14 00DBDA 1 F0 0C beq LDBE8 00DBDC 1 C9 20 cmp #$20 00DBDE 1 F0 08 beq LDBE8 00DBE0 1 C9 1D cmp #$1D 00DBE2 1 F0 04 beq LDBE8 00DBE4 1 C9 11 cmp #$11 00DBE6 1 D0 43 bne LDC2B 00DBE8 1 AC 42 05 LDBE8: ldy DELAY 00DBEB 1 F0 05 beq LDBF2 00DBED 1 CE 42 05 dec DELAY 00DBF0 1 D0 39 bne LDC2B 00DBF2 1 CE 41 05 LDBF2: dec KOUNT 00DBF5 1 D0 34 bne LDC2B 00DBF7 1 A0 04 ldy #$04 00DBF9 1 8C 41 05 sty KOUNT 00DBFC 1 A4 EF ldy NDX 00DBFE 1 88 dey 00DBFF 1 10 2A bpl LDC2B 00DC01 1 EA LDC01: nop 00DC02 1 EA nop 00DC03 1 4E 44 05 lsr LSTSHF 00DC06 1 A4 C6 ldy SFDX 00DC08 1 8C F6 07 sty LSTX 00DC0B 1 E0 FF cpx #$FF 00DC0D 1 F0 1C beq LDC2B 00DC0F 1 8A txa 00DC10 1 A2 00 ldx #$00 00DC12 1 86 F0 stx STPFLG 00DC14 1 A2 07 ldx #$07 00DC16 1 DD 41 DC LDC16: cmp LDC41,x 00DC19 1 F0 11 beq LDC2C 00DC1B 1 CA dex 00DC1C 1 10 F8 bpl LDC16 00DC1E 1 A6 EF ldx NDX 00DC20 1 EC 3F 05 cpx XMAX 00DC23 1 B0 06 bcs LDC2B 00DC25 1 9D 27 05 sta KEYD,x 00DC28 1 E8 inx 00DC29 1 86 EF stx NDX 00DC2B 1 60 LDC2B: rts 00DC2C 1 00DC2C 1 BD 5F 05 LDC2C: lda KEYBUF,x 00DC2F 1 8D 5D 05 sta KYNDX 00DC32 1 A9 00 lda #$00 00DC34 1 CA LDC34: dex 00DC35 1 30 06 bmi LDC3D 00DC37 1 18 clc 00DC38 1 7D 5F 05 adc KEYBUF,x 00DC3B 1 90 F7 bcc LDC34 00DC3D 1 8D 5E 05 LDC3D: sta KEYIDX 00DC40 1 60 rts 00DC41 1 00DC41 1 85 89 LDC41: sta LTFLAG 00DC43 1 86 8A stx RTFLAG 00DC45 1 87 .byte $87 00DC46 1 8B .byte $8B 00DC47 1 88 dey 00DC48 1 8C .byte $8C 00DC49 1 85 CE LDC49: sta DATAX 00DC4B 1 48 pha 00DC4C 1 8A txa 00DC4D 1 48 pha 00DC4E 1 98 tya 00DC4F 1 48 pha 00DC50 1 A5 F0 LDC50: lda STPFLG 00DC52 1 D0 FC bne LDC50 00DC54 1 85 C7 sta CRSW 00DC56 1 A9 D9 lda #$D9 00DC58 1 48 pha 00DC59 1 A9 C6 lda #$C6 00DC5B 1 48 pha 00DC5C 1 A4 CA ldy PNTR 00DC5E 1 A5 CE lda DATAX 00DC60 1 C9 0D cmp #$0D 00DC62 1 F0 28 beq LDC8C 00DC64 1 C9 8D cmp #$8D 00DC66 1 F0 24 beq LDC8C 00DC68 1 AE EB 07 ldx LSTCH 00DC6B 1 E0 1B cpx #$1B 00DC6D 1 D0 03 bne LDC72 00DC6F 1 4C 06 DE jmp LDE06 00DC72 1 00DC72 1 AA LDC72: tax 00DC73 1 30 14 bmi LDC89 00DC75 1 C9 20 cmp #$20 00DC77 1 90 2E bcc LDCA7 00DC79 1 C9 60 cmp #$60 00DC7B 1 90 04 bcc LDC81 00DC7D 1 29 DF and #$DF 00DC7F 1 D0 02 bne LDC83 00DC81 1 29 3F LDC81: and #$3F 00DC83 1 20 BA D9 LDC83: jsr LD9BA 00DC86 1 4C DB D9 jmp LD9DB 00DC89 1 00DC89 1 4C 47 DD LDC89: jmp LDD47 00DC8C 1 00DC8C 1 20 95 DF LDC8C: jsr LDF95 00DC8F 1 E8 inx 00DC90 1 20 4A DF jsr LDF4A 00DC93 1 AC E7 07 ldy SCLF 00DC96 1 84 CA sty PNTR 00DC98 1 20 21 DA jsr LDA21 00DC9B 1 A9 00 LDC9B: lda #$00 00DC9D 1 85 CF sta INSRT 00DC9F 1 85 C2 sta RVS 00DCA1 1 85 CB sta QTSW 00DCA3 1 8D 3C 05 sta FLASH 00DCA6 1 60 rts 00DCA7 1 00DCA7 1 C9 1B LDCA7: cmp #$1B 00DCA9 1 F0 4E beq LDCF9 00DCAB 1 A6 CF ldx INSRT 00DCAD 1 F0 03 beq LDCB2 00DCAF 1 4C DF D9 LDCAF: jmp LD9DF 00DCB2 1 00DCB2 1 C9 14 LDCB2: cmp #$14 00DCB4 1 D0 03 bne LDCB9 00DCB6 1 4C 99 DD jmp LDD99 00DCB9 1 00DCB9 1 A6 CB LDCB9: ldx QTSW 00DCBB 1 D0 F2 bne LDCAF 00DCBD 1 C9 12 cmp #$12 00DCBF 1 D0 02 bne LDCC3 00DCC1 1 85 C2 sta RVS 00DCC3 1 C9 13 LDCC3: cmp #$13 00DCC5 1 D0 0B bne LDCD2 00DCC7 1 CD EB 07 cmp LSTCH 00DCCA 1 D0 03 bne LDCCF 00DCCC 1 20 70 DE jsr LDE70 00DCCF 1 4C 9A D8 LDCCF: jmp LD89A 00DCD2 1 00DCD2 1 C9 1D LDCD2: cmp #$1D 00DCD4 1 F0 24 beq LDCFA 00DCD6 1 C9 11 cmp #$11 00DCD8 1 F0 26 beq LDD00 00DCDA 1 C9 0E cmp #$0E 00DCDC 1 F0 49 beq LDD27 00DCDE 1 C9 08 cmp #$08 00DCE0 1 F0 4C beq LDD2E 00DCE2 1 C9 09 cmp #$09 00DCE4 1 F0 4F beq LDD35 00DCE6 1 A2 0F LDCE6: ldx #$0F 00DCE8 1 DD 33 E1 LDCE8: cmp LE133,x 00DCEB 1 F0 04 beq LDCF1 00DCED 1 CA dex 00DCEE 1 10 F8 bpl LDCE8 00DCF0 1 60 rts 00DCF1 1 00DCF1 1 48 LDCF1: pha 00DCF2 1 20 8A CF jsr LCF8A 00DCF5 1 8D 3B 05 sta COLOR 00DCF8 1 68 pla 00DCF9 1 60 LDCF9: rts 00DCFA 1 00DCFA 1 20 BF DF LDCFA: jsr LDFBF 00DCFD 1 B0 04 bcs LDD03 00DCFF 1 60 rts 00DD00 1 00DD00 1 20 21 DA LDD00: jsr LDA21 00DD03 1 20 39 DF LDD03: jsr LDF39 00DD06 1 B0 03 bcs LDD0B 00DD08 1 38 sec 00DD09 1 66 C4 ror LSXP 00DD0B 1 18 LDD0B: clc 00DD0C 1 60 LDD0C: rts 00DD0D 1 00DD0D 1 AE E6 07 LDD0D: ldx SCTOP 00DD10 1 E4 CD cpx TBLX 00DD12 1 B0 F8 bcs LDD0C 00DD14 1 20 03 DD LDD14: jsr LDD03 00DD17 1 C6 CD dec TBLX 00DD19 1 4C A8 D8 jmp LD8A8 00DD1C 1 00DD1C 1 20 D4 DF LDD1C: jsr LDFD4 00DD1F 1 B0 EB bcs LDD0C 00DD21 1 D0 E8 bne LDD0B 00DD23 1 E6 CD inc TBLX 00DD25 1 D0 ED bne LDD14 00DD27 1 AD 13 FF LDD27: lda TEDROMSTATUS 00DD2A 1 09 04 ora #$04 00DD2C 1 D0 15 bne LDD43 00DD2E 1 A9 80 LDD2E: lda #$80 00DD30 1 0D 47 05 ora MODE 00DD33 1 30 05 bmi LDD3A 00DD35 1 A9 7F LDD35: lda #$7F 00DD37 1 2D 47 05 and MODE 00DD3A 1 8D 47 05 LDD3A: sta MODE 00DD3D 1 60 rts 00DD3E 1 00DD3E 1 AD 13 FF LDD3E: lda TEDROMSTATUS 00DD41 1 29 FB and #$FB 00DD43 1 8D 13 FF LDD43: sta TEDROMSTATUS 00DD46 1 60 rts 00DD47 1 00DD47 1 29 7F LDD47: and #$7F 00DD49 1 C9 7F cmp #$7F 00DD4B 1 D0 02 bne LDD4F 00DD4D 1 A9 5E lda #$5E 00DD4F 1 C9 20 LDD4F: cmp #$20 00DD51 1 90 03 bcc LDD56 00DD53 1 4C D9 D9 jmp LD9D9 00DD56 1 00DD56 1 A6 CB LDD56: ldx QTSW 00DD58 1 F0 05 beq LDD5F 00DD5A 1 09 40 LDD5A: ora #$40 00DD5C 1 4C DF D9 jmp LD9DF 00DD5F 1 00DD5F 1 C9 14 LDD5F: cmp #$14 00DD61 1 F0 6B beq LDDCE 00DD63 1 A6 CF ldx INSRT 00DD65 1 D0 F3 bne LDD5A 00DD67 1 C9 11 cmp #$11 00DD69 1 F0 A2 beq LDD0D 00DD6B 1 C9 12 cmp #$12 00DD6D 1 D0 04 bne LDD73 00DD6F 1 A9 00 lda #$00 00DD71 1 85 C2 sta RVS 00DD73 1 C9 1D LDD73: cmp #$1D 00DD75 1 F0 A5 beq LDD1C 00DD77 1 C9 13 cmp #$13 00DD79 1 D0 03 bne LDD7E 00DD7B 1 4C 8B D8 jmp LD88B 00DD7E 1 00DD7E 1 C9 02 LDD7E: cmp #$02 00DD80 1 D0 05 bne LDD87 00DD82 1 A9 80 lda #$80 00DD84 1 8D 3C 05 sta FLASH 00DD87 1 C9 04 LDD87: cmp #$04 00DD89 1 D0 05 bne LDD90 00DD8B 1 A9 00 lda #$00 00DD8D 1 8D 3C 05 sta FLASH 00DD90 1 C9 0E LDD90: cmp #$0E 00DD92 1 F0 AA beq LDD3E 00DD94 1 09 80 ora #$80 00DD96 1 4C E6 DC jmp LDCE6 00DD99 1 00DD99 1 20 1C DD LDD99: jsr LDD1C 00DD9C 1 20 F6 DF jsr LDFF6 00DD9F 1 B0 10 bcs LDDB1 00DDA1 1 CC E8 07 LDDA1: cpy SCRT 00DDA4 1 90 16 bcc LDDBC 00DDA6 1 A6 CD ldx TBLX 00DDA8 1 E8 inx 00DDA9 1 20 3B DF jsr LDF3B 00DDAC 1 B0 0E bcs LDDBC 00DDAE 1 20 FF DF jsr LDFFF 00DDB1 1 A5 CC LDDB1: lda SEDT1 00DDB3 1 85 CA sta PNTR 00DDB5 1 A5 FE lda SEDT2 00DDB7 1 85 CD sta TBLX 00DDB9 1 4C A8 D8 jmp LD8A8 00DDBC 1 00DDBC 1 20 BF DF LDDBC: jsr LDFBF 00DDBF 1 20 2F DF jsr LDF2F 00DDC2 1 20 D4 DF jsr LDFD4 00DDC5 1 20 11 E0 jsr LE011 00DDC8 1 20 BF DF jsr LDFBF 00DDCB 1 4C A1 DD jmp LDDA1 00DDCE 1 00DDCE 1 20 F6 DF LDDCE: jsr LDFF6 00DDD1 1 20 95 DF jsr LDF95 00DDD4 1 E4 FE cpx SEDT2 00DDD6 1 D0 02 bne LDDDA 00DDD8 1 C4 CC cpy SEDT1 00DDDA 1 90 21 LDDDA: bcc LDDFD 00DDDC 1 20 F8 D9 jsr LD9F8 00DDDF 1 B0 22 bcs LDE03 00DDE1 1 20 D4 DF LDDE1: jsr LDFD4 00DDE4 1 20 2F DF jsr LDF2F 00DDE7 1 20 BF DF jsr LDFBF 00DDEA 1 20 11 E0 jsr LE011 00DDED 1 20 D4 DF jsr LDFD4 00DDF0 1 A6 CD ldx TBLX 00DDF2 1 E4 FE cpx SEDT2 00DDF4 1 D0 EB bne LDDE1 00DDF6 1 C4 CC cpy SEDT1 00DDF8 1 D0 E7 bne LDDE1 00DDFA 1 20 FF DF jsr LDFFF 00DDFD 1 E6 CF LDDFD: inc INSRT 00DDFF 1 D0 02 bne LDE03 00DE01 1 C6 CF dec INSRT 00DE03 1 4C B1 DD LDE03: jmp LDDB1 00DE06 1 00DE06 1 29 7F LDE06: and #$7F 00DE08 1 38 sec 00DE09 1 E9 41 sbc #$41 00DE0B 1 C9 17 cmp #$17 00DE0D 1 B0 0A bcs LDE19 00DE0F 1 0A asl a 00DE10 1 AA tax 00DE11 1 BD 1B DE lda LDE1A+1,x 00DE14 1 48 pha 00DE15 1 BD 1A DE lda LDE1A,x 00DE18 1 48 pha 00DE19 1 60 LDE19: rts 00DE1A 1 00DE1A 1 28 DF 5F DE LDE1A: .word $DF28,$DE5F,$DF25,$DE9F 00DE1E 1 25 DF 9F DE 00DE22 1 18 DE 18 DE .word $DE18,$DE18,$DE18,$DE18 00DE26 1 18 DE 18 DE 00DE2A 1 8A DE 81 DF .word $DE8A,$DF81,$DF94,$DF1C 00DE2E 1 94 DF 1C DF 00DE32 1 1F DF 87 D8 .word $DF1F,$D887,$DC9A,$DEE0 00DE36 1 9A DC E0 DE 00DE3A 1 CA DE 47 DE .word $DECA,$DE47,$DE18,$DE5D 00DE3E 1 18 DE 5D DE 00DE42 1 18 DE F5 DE .word $DE18,$DEF5,$DF03 00DE46 1 03 DF 00DE48 1 20 70 DE LDE48: jsr LDE70 00DE4B 1 20 8B D8 jsr LD88B 00DE4E 1 A9 01 lda #$01 00DE50 1 AA tax 00DE51 1 20 7A DE jsr LDE7A 00DE54 1 A9 17 lda #$17 00DE56 1 A2 26 ldx #$26 00DE58 1 20 67 DE jsr LDE67 00DE5B 1 4C 9A D8 jmp LD89A 00DE5E 1 00DE5E 1 18 LDE5E: clc 00DE5F 1 24 .byte $24 00DE60 1 38 LDE60: sec 00DE61 1 A6 CA ldx PNTR 00DE63 1 A5 CD lda TBLX 00DE65 1 90 13 bcc LDE7A 00DE67 1 8D E5 07 LDE67: sta SCBOT 00DE6A 1 8E E8 07 stx SCRT 00DE6D 1 4C 80 DE jmp LDE80 00DE70 1 00DE70 1 A9 18 LDE70: lda #$18 00DE72 1 A2 27 ldx #$27 00DE74 1 20 67 DE jsr LDE67 00DE77 1 A9 00 lda #$00 00DE79 1 AA tax 00DE7A 1 8D E6 07 LDE7A: sta SCTOP 00DE7D 1 8E E7 07 stx SCLF 00DE80 1 A9 00 LDE80: lda #$00 00DE82 1 A2 04 ldx #$04 00DE84 1 9D ED 07 LDE84: sta TCOLOR,x 00DE87 1 CA dex 00DE88 1 D0 FA bne LDE84 00DE8A 1 60 rts 00DE8B 1 00DE8B 1 20 5E DA LDE8B: jsr LDA5E 00DE8E 1 20 A1 D8 jsr LD8A1 00DE91 1 E8 inx 00DE92 1 20 3B DF jsr LDF3B 00DE95 1 08 php 00DE96 1 20 46 DF jsr LDF46 00DE99 1 28 plp 00DE9A 1 B0 03 bcs LDE9F 00DE9C 1 38 sec 00DE9D 1 66 C4 ror LSXP 00DE9F 1 60 LDE9F: rts 00DEA0 1 00DEA0 1 20 87 DF LDEA0: jsr LDF87 00DEA3 1 AD E6 07 lda SCTOP 00DEA6 1 48 pha 00DEA7 1 A5 CD lda TBLX 00DEA9 1 8D E6 07 sta SCTOP 00DEAC 1 AD EC 07 lda LOGSCR 00DEAF 1 48 pha 00DEB0 1 A9 80 lda #$80 00DEB2 1 8D EC 07 sta LOGSCR 00DEB5 1 20 9E DA jsr LDA9E 00DEB8 1 68 pla 00DEB9 1 8D EC 07 sta LOGSCR 00DEBC 1 AD E6 07 lda SCTOP 00DEBF 1 85 CD sta TBLX 00DEC1 1 68 pla 00DEC2 1 8D E6 07 sta SCTOP 00DEC5 1 38 sec 00DEC6 1 66 C4 ror LSXP 00DEC8 1 4C A1 D8 jmp LD8A1 00DECB 1 00DECB 1 20 F6 DF LDECB: jsr LDFF6 00DECE 1 20 FD DA LDECE: jsr LDAFD 00DED1 1 E6 CD inc TBLX 00DED3 1 20 A8 D8 jsr LD8A8 00DED6 1 AC E7 07 ldy SCLF 00DED9 1 20 39 DF jsr LDF39 00DEDC 1 B0 F0 bcs LDECE 00DEDE 1 4C B1 DD LDEDE: jmp LDDB1 00DEE1 1 00DEE1 1 20 F6 DF LDEE1: jsr LDFF6 00DEE4 1 20 FF DF LDEE4: jsr LDFFF 00DEE7 1 CC E7 07 cpy SCLF 00DEEA 1 D0 05 bne LDEF1 00DEEC 1 20 39 DF jsr LDF39 00DEEF 1 90 ED bcc LDEDE 00DEF1 1 20 D4 DF LDEF1: jsr LDFD4 00DEF4 1 90 EE bcc LDEE4 00DEF6 1 20 F6 DF LDEF6: jsr LDFF6 00DEF9 1 8A txa 00DEFA 1 48 pha 00DEFB 1 20 89 DA jsr LDA89 00DEFE 1 68 pla 00DEFF 1 85 FE sta SEDT2 00DF01 1 4C DE DE jmp LDEDE 00DF04 1 00DF04 1 20 F6 DF LDF04: jsr LDFF6 00DF07 1 20 39 DF jsr LDF39 00DF0A 1 B0 03 bcs LDF0F 00DF0C 1 38 sec 00DF0D 1 66 C4 ror LSXP 00DF0F 1 AD E6 07 LDF0F: lda SCTOP 00DF12 1 85 CD sta TBLX 00DF14 1 20 5E DA jsr LDA5E 00DF17 1 20 4A DF jsr LDF4A 00DF1A 1 4C DE DE jmp LDEDE 00DF1D 1 00DF1D 1 A9 00 LDF1D: lda #$00 00DF1F 1 2C .byte $2C 00DF20 1 A9 80 LDF20: lda #$80 00DF22 1 8D E9 07 sta SCRDIS 00DF25 1 60 rts 00DF26 1 00DF26 1 A9 00 LDF26: lda #$00 00DF28 1 2C .byte $2C 00DF29 1 A9 FF LDF29: lda #$FF 00DF2B 1 8D EA 07 sta INSFL 00DF2E 1 60 rts 00DF2F 1 00DF2F 1 A4 CA LDF2F: ldy PNTR 00DF31 1 B1 EA lda (USER),y 00DF33 1 8D ED 07 sta TCOLOR 00DF36 1 B1 C8 lda (PNT),y 00DF38 1 60 rts 00DF39 1 00DF39 1 A6 CD LDF39: ldx TBLX 00DF3B 1 20 66 DF LDF3B: jsr LDF66 00DF3E 1 3D EE 07 and BITABL,x 00DF41 1 C9 01 cmp #$01 00DF43 1 4C 55 DF jmp LDF55 00DF46 1 00DF46 1 A6 CD LDF46: ldx TBLX 00DF48 1 B0 0F LDF48: bcs LDF59 00DF4A 1 20 66 DF LDF4A: jsr LDF66 00DF4D 1 49 FF eor #$FF 00DF4F 1 3D EE 07 and BITABL,x 00DF52 1 9D EE 07 LDF52: sta BITABL,x 00DF55 1 AE E9 02 LDF55: ldx BITMSK 00DF58 1 60 rts 00DF59 1 00DF59 1 2C E9 07 LDF59: bit SCRDIS 00DF5C 1 70 DD bvs LDF3B 00DF5E 1 20 66 DF jsr LDF66 00DF61 1 1D EE 07 ora BITABL,x 00DF64 1 D0 EC bne LDF52 00DF66 1 8E E9 02 LDF66: stx BITMSK 00DF69 1 8A txa 00DF6A 1 29 07 and #$07 00DF6C 1 AA tax 00DF6D 1 BD 7A DF lda LDF7A,x 00DF70 1 48 pha 00DF71 1 AD E9 02 lda BITMSK 00DF74 1 4A lsr a 00DF75 1 4A lsr a 00DF76 1 4A lsr a 00DF77 1 AA tax 00DF78 1 68 pla 00DF79 1 60 rts 00DF7A 1 00DF7A 1 80 40 20 10 LDF7A: .byte $80,$40,$20,$10,$08,$04,$02,$01 00DF7E 1 08 04 02 01 00DF82 1 AC E7 07 LDF82: ldy SCLF 00DF85 1 84 CA sty PNTR 00DF87 1 20 39 DF LDF87: jsr LDF39 00DF8A 1 90 06 bcc LDF92 00DF8C 1 C6 CD dec TBLX 00DF8E 1 10 F7 bpl LDF87 00DF90 1 E6 CD inc TBLX 00DF92 1 4C A8 D8 LDF92: jmp LD8A8 00DF95 1 00DF95 1 E6 CD LDF95: inc TBLX 00DF97 1 20 39 DF jsr LDF39 00DF9A 1 B0 F9 bcs LDF95 00DF9C 1 C6 CD dec TBLX 00DF9E 1 20 A8 D8 jsr LD8A8 00DFA1 1 AC E8 07 ldy SCRT 00DFA4 1 84 CA sty PNTR 00DFA6 1 20 2F DF LDFA6: jsr LDF2F 00DFA9 1 C9 20 cmp #$20 00DFAB 1 D0 0F bne LDFBC 00DFAD 1 CC E7 07 cpy SCLF 00DFB0 1 D0 05 bne LDFB7 00DFB2 1 20 39 DF jsr LDF39 00DFB5 1 90 05 bcc LDFBC 00DFB7 1 20 D4 DF LDFB7: jsr LDFD4 00DFBA 1 90 EA bcc LDFA6 00DFBC 1 84 C3 LDFBC: sty INDX 00DFBE 1 60 rts 00DFBF 1 00DFBF 1 48 LDFBF: pha 00DFC0 1 A4 CA ldy PNTR 00DFC2 1 CC E8 07 cpy SCRT 00DFC5 1 90 08 bcc LDFCF 00DFC7 1 20 21 DA jsr LDA21 00DFCA 1 AC E7 07 ldy SCLF 00DFCD 1 88 dey 00DFCE 1 38 sec 00DFCF 1 C8 LDFCF: iny 00DFD0 1 84 CA sty PNTR 00DFD2 1 68 pla 00DFD3 1 60 rts 00DFD4 1 00DFD4 1 A4 CA LDFD4: ldy PNTR 00DFD6 1 88 dey 00DFD7 1 30 05 bmi LDFDE 00DFD9 1 CC E7 07 cpy SCLF 00DFDC 1 B0 11 bcs LDFEF 00DFDE 1 AC E6 07 LDFDE: ldy SCTOP 00DFE1 1 C4 CD cpy TBLX 00DFE3 1 B0 10 bcs LDFF5 00DFE5 1 C6 CD dec TBLX 00DFE7 1 48 pha 00DFE8 1 20 A8 D8 jsr LD8A8 00DFEB 1 68 pla 00DFEC 1 AC E8 07 ldy SCRT 00DFEF 1 84 CA LDFEF: sty PNTR 00DFF1 1 CC E8 07 cpy SCRT 00DFF4 1 18 clc 00DFF5 1 60 LDFF5: rts 00DFF6 1 00DFF6 1 A4 CA LDFF6: ldy PNTR 00DFF8 1 84 CC sty SEDT1 00DFFA 1 A6 CD ldx TBLX 00DFFC 1 86 FE stx SEDT2 00DFFE 1 60 rts 00DFFF 1 00DFFF 1 A9 20 LDFFF: lda #$20 00E001 1 A4 CA LE001: ldy PNTR 00E003 1 91 C8 sta (PNT),y 00E005 1 20 B4 D8 jsr LD8B4 00E008 1 AD 3B 05 lda COLOR 00E00B 1 0D 3C 05 ora FLASH 00E00E 1 91 EA sta (USER),y 00E010 1 60 rts 00E011 1 00E011 1 A4 CA LE011: ldy PNTR 00E013 1 91 C8 sta (PNT),y 00E015 1 20 B4 D8 jsr LD8B4 00E018 1 AD ED 07 lda TCOLOR 00E01B 1 91 EA sta (USER),y 00E01D 1 60 rts 00E01E 1 00E01E 1 26 E0 LE01E: .addr LE026 00E020 1 67 E0 .addr LE067 00E022 1 A8 E0 .addr LE0A8 00E024 1 E9 E0 .addr LE0E9 00E026 1 14 0D 5C 8C LE026: .byte $14,$0D,$5C,$8C,$85,$89,$86,$40 00E02A 1 85 89 86 40 00E02E 1 33 57 41 34 .byte $33,$57,$41,$34,$5A,$53,$45,$01 00E032 1 5A 53 45 01 00E036 1 35 52 44 36 .byte $35,$52,$44,$36,$43,$46,$54,$58 00E03A 1 43 46 54 58 00E03E 1 37 59 47 38 .byte $37,$59,$47,$38,$42,$48,$55,$56 00E042 1 42 48 55 56 00E046 1 39 49 4A 30 .byte $39,$49,$4A,$30,$4D,$4B,$4F,$4E 00E04A 1 4D 4B 4F 4E 00E04E 1 11 50 4C 91 .byte $11,$50,$4C,$91,$2E,$3A,$2D,$2C 00E052 1 2E 3A 2D 2C 00E056 1 9D 2A 3B 1D .byte $9D,$2A,$3B,$1D,$1B,$3D,$2B,$2F 00E05A 1 1B 3D 2B 2F 00E05E 1 31 13 04 32 .byte $31,$13,$04,$32,$20,$02,$51,$03 00E062 1 20 02 51 03 00E066 1 FF .byte $FF 00E067 1 94 8D A9 88 LE067: .byte $94,$8D,$A9,$88,$8A,$87,$8B,$BA 00E06B 1 8A 87 8B BA 00E06F 1 23 D7 C1 24 .byte $23,$D7,$C1,$24,$DA,$D3,$C5,$01 00E073 1 DA D3 C5 01 00E077 1 25 D2 C4 26 .byte $25,$D2,$C4,$26,$C3,$C6,$D4,$D8 00E07B 1 C3 C6 D4 D8 00E07F 1 27 D9 C7 28 .byte $27,$D9,$C7,$28,$C2,$C8,$D5,$D6 00E083 1 C2 C8 D5 D6 00E087 1 29 C9 CA 5E .byte $29,$C9,$CA,$5E,$CD,$CB,$CF,$CE 00E08B 1 CD CB CF CE 00E08F 1 11 D0 CC 91 .byte $11,$D0,$CC,$91,$3E,$5B,$DD,$3C 00E093 1 3E 5B DD 3C 00E097 1 9D C0 5D 1D .byte $9D,$C0,$5D,$1D,$1B,$5F,$DB,$3F 00E09B 1 1B 5F DB 3F 00E09F 1 21 93 04 22 .byte $21,$93,$04,$22,$A0,$02,$D1,$83 00E0A3 1 A0 02 D1 83 00E0A7 1 FF .byte $FF 00E0A8 1 94 8D A8 88 LE0A8: .byte $94,$8D,$A8,$88,$8A,$87,$8B,$A4 00E0AC 1 8A 87 8B A4 00E0B0 1 96 B3 B0 97 .byte $96,$B3,$B0,$97,$AD,$AE,$B1,$01 00E0B4 1 AD AE B1 01 00E0B8 1 98 B2 AC 99 .byte $98,$B2,$AC,$99,$BC,$BB,$A3,$BD 00E0BC 1 BC BB A3 BD 00E0C0 1 9A B7 A5 9B .byte $9A,$B7,$A5,$9B,$BF,$B4,$B8,$BE 00E0C4 1 BF B4 B8 BE 00E0C8 1 29 A2 .byte $29,$A2 00E0CA 1 B5 30 A7 A1 LE0CA: .byte $B5,$30,$A7,$A1,$B9,$AA,$11,$AF 00E0CE 1 B9 AA 11 AF 00E0D2 1 B6 91 3E 5B .byte $B6,$91,$3E,$5B,$DC,$3C,$9D,$DF 00E0D6 1 DC 3C 9D DF 00E0DA 1 5D 1D 1B DE .byte $5D,$1D,$1B,$DE,$A6,$3F,$81,$93 00E0DE 1 A6 3F 81 93 00E0E2 1 04 95 A0 02 .byte $04,$95,$A0,$02,$AB,$83,$FF 00E0E6 1 AB 83 FF 00E0E9 1 FF FF 1C FF LE0E9: .byte $FF,$FF,$1C,$FF,$FF,$FF,$FF,$FF 00E0ED 1 FF FF FF FF 00E0F1 1 1C 17 01 9F .byte $1C,$17,$01,$9F,$1A,$13,$05,$FF 00E0F5 1 1A 13 05 FF 00E0F9 1 9C 12 04 1E .byte $9C,$12,$04,$1E,$03,$06,$14,$18 00E0FD 1 03 06 14 18 00E101 1 1F 19 07 9E .byte $1F,$19,$07,$9E,$02,$08,$15,$16 00E105 1 02 08 15 16 00E109 1 12 09 0A 92 .byte $12,$09,$0A,$92,$0D,$0B,$0F,$0E 00E10D 1 0D 0B 0F 0E 00E111 1 FF 10 0C FF .byte $FF,$10,$0C,$FF,$84,$1B,$FF,$82 00E115 1 84 1B FF 82 00E119 1 FF FF 1D FF .byte $FF,$FF,$1D,$FF,$1B,$06,$FF,$FF 00E11D 1 1B 06 FF FF 00E121 1 90 FF FF 05 .byte $90,$FF,$FF,$05,$FF,$FF,$11,$FF 00E125 1 FF FF 11 FF 00E129 1 FF LE129: .byte $FF 00E12A 1 44 .byte "D" 00E12B 1 CC 22 .byte $CC,$22 00E12D 1 2A .byte "*" 00E12E 1 0D .byte $0D 00E12F 1 52 55 4E .byte "RUN" 00E132 1 0D .byte $0D 00E133 1 90 05 1C 9F LE133: .byte $90,$05,$1C,$9F,$9C,$1E,$1F,$9E 00E137 1 9C 1E 1F 9E 00E13B 1 81 95 96 97 .byte $81,$95,$96,$97,$98,$99,$9A,$9B 00E13F 1 98 99 9A 9B 00E143 1 00 LE143: .byte $00 00E144 1 71 32 63 44 .byte "q2cD5FwH)Zk\m._" 00E148 1 35 46 77 48 00E14C 1 29 5A 6B 5C 00E153 1 00E153 1 09 40 LE153: ora #$40 00E155 1 2C .byte $2C 00E156 1 09 20 LE156: ora #$20 00E158 1 48 LE158: pha 00E159 1 24 94 bit C3P0 00E15B 1 10 0A bpl LE167 00E15D 1 38 sec 00E15E 1 66 A6 ror R2D2 00E160 1 20 81 E1 jsr LE181 00E163 1 46 94 lsr C3P0 00E165 1 46 A6 lsr R2D2 00E167 1 68 LE167: pla 00E168 1 85 95 sta BSOUR 00E16A 1 78 sei 00E16B 1 20 C6 E2 jsr LE2C6 00E16E 1 20 BF E2 jsr LE2BF 00E171 1 A5 01 lda PORT 00E173 1 09 04 ora #$04 00E175 1 85 01 sta PORT 00E177 1 78 LE177: sei 00E178 1 20 BF E2 jsr LE2BF 00E17B 1 20 C6 E2 jsr LE2C6 00E17E 1 20 DC E2 jsr LE2DC 00E181 1 78 LE181: sei 00E182 1 20 C6 E2 jsr LE2C6 00E185 1 20 D4 E2 jsr LE2D4 00E188 1 B0 5F bcs LE1E9 00E18A 1 20 B8 E2 jsr LE2B8 00E18D 1 24 A6 bit R2D2 00E18F 1 10 0E bpl LE19F 00E191 1 20 D4 E2 LE191: jsr LE2D4 00E194 1 90 FB bcc LE191 00E196 1 A5 01 LE196: lda PORT 00E198 1 C5 01 cmp PORT 00E19A 1 D0 FA bne LE196 00E19C 1 0A asl a 00E19D 1 B0 F7 bcs LE196 00E19F 1 20 D4 E2 LE19F: jsr LE2D4 00E1A2 1 90 FB bcc LE19F 00E1A4 1 20 BF E2 jsr LE2BF 00E1A7 1 A9 08 lda #$08 00E1A9 1 85 AA sta DCOUNT 00E1AB 1 20 D4 E2 LE1AB: jsr LE2D4 00E1AE 1 90 3E bcc LE1EE 00E1B0 1 66 95 ror BSOUR 00E1B2 1 B0 05 bcs LE1B9 00E1B4 1 20 CD E2 jsr LE2CD 00E1B7 1 D0 03 bne LE1BC 00E1B9 1 20 C6 E2 LE1B9: jsr LE2C6 00E1BC 1 20 11 E3 LE1BC: jsr LE311 00E1BF 1 20 B8 E2 jsr LE2B8 00E1C2 1 20 11 E3 jsr LE311 00E1C5 1 A5 01 lda PORT 00E1C7 1 29 FE and #$FE 00E1C9 1 09 02 ora #$02 00E1CB 1 85 01 sta PORT 00E1CD 1 C6 AA dec DCOUNT 00E1CF 1 D0 DA bne LE1AB 00E1D1 1 8A txa 00E1D2 1 48 pha 00E1D3 1 A2 78 ldx #$78 00E1D5 1 A5 01 LE1D5: lda PORT 00E1D7 1 C5 01 cmp PORT 00E1D9 1 D0 FA bne LE1D5 00E1DB 1 0A asl a 00E1DC 1 90 07 bcc LE1E5 00E1DE 1 CA dex 00E1DF 1 D0 F4 bne LE1D5 00E1E1 1 68 pla 00E1E2 1 AA tax 00E1E3 1 B0 09 bcs LE1EE 00E1E5 1 68 LE1E5: pla 00E1E6 1 AA tax 00E1E7 1 58 cli 00E1E8 1 60 rts 00E1E9 1 00E1E9 1 A9 80 LE1E9: lda #$80 00E1EB 1 4C F0 E1 jmp LE1F0 00E1EE 1 00E1EE 1 A9 03 LE1EE: lda #$03 00E1F0 1 20 1E F4 LE1F0: jsr LF41E 00E1F3 1 58 cli 00E1F4 1 18 clc 00E1F5 1 90 4B bcc LE242 00E1F7 1 85 95 LE1F7: sta BSOUR 00E1F9 1 20 77 E1 jsr LE177 00E1FC 1 A5 01 LE1FC: lda PORT 00E1FE 1 29 FB and #$FB 00E200 1 85 01 sta PORT 00E202 1 60 rts 00E203 1 00E203 1 85 95 LE203: sta BSOUR 00E205 1 20 77 E1 jsr LE177 00E208 1 24 90 bit STATUS 00E20A 1 30 36 bmi LE242 00E20C 1 78 LE20C: sei 00E20D 1 20 CD E2 jsr LE2CD 00E210 1 20 FC E1 jsr LE1FC 00E213 1 20 B8 E2 jsr LE2B8 00E216 1 00E216 1 LE216: 00E216 1 .if CompileComputer >= PLUS4_03 00E216 1 24 01 bit PORT 00E218 1 70 FC bvs LE216 00E21A 1 .else 00E21A 1 jsr LE2D4 00E21A 1 bmi LE216 00E21A 1 .endif 00E21A 1 58 cli 00E21B 1 60 rts 00E21C 1 00E21C 1 FF FillUntil $E21D,$FF 00E21D 1 00E21D 1 24 94 LE21D: bit C3P0 00E21F 1 30 05 bmi LE226 00E221 1 38 sec 00E222 1 66 94 ror C3P0 00E224 1 D0 05 bne LE22B 00E226 1 48 LE226: pha 00E227 1 20 81 E1 jsr LE181 00E22A 1 68 pla 00E22B 1 85 95 LE22B: sta BSOUR 00E22D 1 18 clc 00E22E 1 60 rts 00E22F 1 00E22F 1 78 LE22F: sei 00E230 1 20 BF E2 jsr LE2BF 00E233 1 A5 01 lda PORT 00E235 1 09 04 ora #$04 00E237 1 85 01 sta PORT 00E239 1 A9 5F lda #$5F 00E23B 1 D0 02 bne LE23F 00E23D 1 A9 3F LE23D: lda #$3F 00E23F 1 20 58 E1 LE23F: jsr LE158 00E242 1 20 FC E1 LE242: jsr LE1FC 00E245 1 8A LE245: txa 00E246 1 A2 14 ldx #$14 00E248 1 CA LE248: dex 00E249 1 D0 FD bne LE248 00E24B 1 AA tax 00E24C 1 20 B8 E2 jsr LE2B8 00E24F 1 4C C6 E2 jmp LE2C6 00E252 1 00E252 1 78 LE252: sei 00E253 1 A9 00 lda #$00 00E255 1 85 AA sta DCOUNT 00E257 1 20 B8 E2 jsr LE2B8 00E25A 1 8A txa 00E25B 1 48 pha 00E25C 1 20 D4 E2 LE25C: jsr LE2D4 00E25F 1 10 FB bpl LE25C 00E261 1 A2 20 LE261: ldx #$20 00E263 1 20 C6 E2 jsr LE2C6 00E266 1 A5 01 LE266: lda PORT 00E268 1 C5 01 cmp PORT 00E26A 1 D0 FA bne LE266 00E26C 1 0A asl a 00E26D 1 10 1F bpl LE28E 00E26F 1 CA dex 00E270 1 D0 F4 bne LE266 00E272 1 A5 AA lda DCOUNT 00E274 1 F0 07 beq LE27D 00E276 1 68 pla 00E277 1 AA tax 00E278 1 A9 02 lda #$02 00E27A 1 4C F0 E1 jmp LE1F0 00E27D 1 00E27D 1 20 CD E2 LE27D: jsr LE2CD 00E280 1 A2 40 ldx #$40 00E282 1 CA LE282: dex 00E283 1 D0 FD bne LE282 00E285 1 A9 40 lda #$40 00E287 1 20 1E F4 jsr LF41E 00E28A 1 E6 AA inc DCOUNT 00E28C 1 D0 D3 bne LE261 00E28E 1 A2 08 LE28E: ldx #$08 00E290 1 A5 01 LE290: lda PORT 00E292 1 0A asl a 00E293 1 10 FB bpl LE290 00E295 1 66 A8 ror BSOUR1 00E297 1 A5 01 LE297: lda PORT 00E299 1 C5 01 cmp PORT 00E29B 1 D0 FA bne LE297 00E29D 1 0A asl a 00E29E 1 30 F7 bmi LE297 00E2A0 1 CA dex 00E2A1 1 D0 ED bne LE290 00E2A3 1 86 AA stx DCOUNT 00E2A5 1 68 pla 00E2A6 1 AA tax 00E2A7 1 20 CD E2 jsr LE2CD 00E2AA 1 A9 40 lda #$40 00E2AC 1 24 90 bit STATUS 00E2AE 1 50 03 bvc LE2B3 00E2B0 1 20 45 E2 jsr LE245 00E2B3 1 A5 A8 LE2B3: lda BSOUR1 00E2B5 1 58 cli 00E2B6 1 18 clc 00E2B7 1 60 rts 00E2B8 1 00E2B8 1 A5 01 LE2B8: lda PORT 00E2BA 1 29 FD and #$FD 00E2BC 1 85 01 sta PORT 00E2BE 1 60 rts 00E2BF 1 00E2BF 1 A5 01 LE2BF: lda PORT 00E2C1 1 09 02 ora #$02 00E2C3 1 85 01 sta PORT 00E2C5 1 60 rts 00E2C6 1 00E2C6 1 A5 01 LE2C6: lda PORT 00E2C8 1 29 FE and #$FE 00E2CA 1 85 01 sta PORT 00E2CC 1 60 rts 00E2CD 1 00E2CD 1 A5 01 LE2CD: lda PORT 00E2CF 1 09 01 ora #$01 00E2D1 1 85 01 sta PORT 00E2D3 1 60 rts 00E2D4 1 00E2D4 1 A5 01 LE2D4: lda PORT 00E2D6 1 C5 01 cmp PORT 00E2D8 1 D0 FA bne LE2D4 00E2DA 1 0A asl a 00E2DB 1 60 rts 00E2DC 1 00E2DC 1 20 F8 E2 LE2DC: jsr LE2F8 00E2DF 1 A9 10 lda #$10 00E2E1 1 2C 09 FF LE2E1: bit TEDIFR 00E2E4 1 F0 FB beq LE2E1 00E2E6 1 8D 09 FF sta TEDIFR 00E2E9 1 60 rts 00E2EA 1 00E2EA 1 20 FC E2 LE2EA: jsr LE2FC 00E2ED 1 A9 10 lda #$10 00E2EF 1 2C 09 FF LE2EF: bit TEDIFR 00E2F2 1 F0 FB beq LE2EF 00E2F4 1 8D 09 FF sta TEDIFR 00E2F7 1 60 rts 00E2F8 1 00E2F8 1 A9 04 LE2F8: lda #$04 00E2FA 1 D0 02 bne LE2FE 00E2FC 1 A9 40 LE2FC: lda #$40 00E2FE 1 08 LE2FE: php 00E2FF 1 48 pha 00E300 1 78 sei 00E301 1 A9 00 lda #$00 00E303 1 8D 02 FF sta TEDT2L 00E306 1 68 pla 00E307 1 8D 03 FF sta TEDT2H 00E30A 1 A9 10 lda #$10 00E30C 1 8D 09 FF sta TEDIFR 00E30F 1 28 plp 00E310 1 60 rts 00E311 1 00E311 1 LE311beta: 00E311 1 00E311 1 .if CompileComputer < PLUS4_01 00E311 1 jsr $FBD8 00E311 1 rol $2e2e 00E311 1 .byte $4f,$4b 00E311 1 brk 00E311 1 rts 00E311 1 .endif 00E311 1 00E311 1 8A LE311: txa 00E312 1 A2 05 ldx #$05 00E314 1 CA LE314: dex 00E315 1 D0 FD bne LE314 00E317 1 AA tax 00E318 1 60 rts 00E319 1 00E319 1 .if CompileComputer < PLUS4_01 00E319 1 LE319: jsr LE2D4 00E319 1 bcc LE374 00E319 1 jsr LFBD8 00E319 1 .byte $0D,"PRESS PLAY & RECORD ON TAPE",0 00E319 1 00E319 1 jmp LE367 00E319 1 00E319 1 LE31B: 00E319 1 jsr LE2D4 00E319 1 00E319 1 bcc LE374 00E319 1 jsr LFBD8 00E319 1 00E319 1 .byte $0D,"PRESS PLAY ON TAPE",0 00E319 1 00E319 1 LE367: jsr LFBCB 00E319 1 bcs LE375 00E319 1 jsr LE2D4 00E319 1 bcs LE367 00E319 1 .if CompileComputer >= PLUS4_01 00E319 1 jsr LE311 00E319 1 .else 00E319 1 jsr LE311beta 00E319 1 .endif 00E319 1 LE374: clc 00E319 1 LE375: rts 00E319 1 00E319 1 .else 00E319 1 00E319 1 38 LE319: sec 00E31A 1 24 .byte $24 00E31B 1 18 LE31B: clc 00E31C 1 AD 10 FD lda SPI6529 00E31F 1 29 04 and #$04 00E321 1 F0 3F beq LE362 00E323 1 08 php 00E324 1 20 D8 FB jsr LFBD8 00E327 1 0D 50 52 45 .byte $0D,"PRESS PLAY ", 0 00E32B 1 53 53 20 50 00E32F 1 4C 41 59 20 00E334 1 00E334 1 28 plp 00E335 1 90 0D bcc LE344 00E337 1 20 D8 FB jsr LFBD8 00E33A 1 26 20 52 45 .byte "& RECORD ", 0 00E33E 1 43 4F 52 44 00E342 1 20 00 00E344 1 00E344 1 20 D8 FB LE344: jsr LFBD8 00E347 1 4F 4E 20 54 .byte "ON TAPE", 0 00E34B 1 41 50 45 00 00E34F 1 20 CB FB LE34F: jsr LFBCB 00E352 1 B0 0F bcs LE363 00E354 1 AD 10 FD lda SPI6529 00E357 1 29 04 and #$04 00E359 1 D0 F4 bne LE34F 00E35B 1 20 D8 FB jsr LFBD8 00E35E 1 0D 4F 4B 00 .byte $0D, "OK", 0 00E362 1 18 LE362: clc 00E363 1 60 LE363: rts 00E364 1 00E364 1 .endif 00E364 1 00E364 1 78 LE364: sei 00E365 1 AD 06 FF lda TEDVSP 00E368 1 29 EF and #$EF 00E36A 1 8D 06 FF sta TEDVSP 00E36D 1 AD 0A FF lda TEDIER 00E370 1 29 FD and #$FD 00E372 1 09 08 ora #$08 00E374 1 8D 0A FF sta TEDIER 00E377 1 60 rts 00E378 1 00E378 1 78 LE378: sei 00E379 1 AD 06 FF lda TEDVSP 00E37C 1 09 10 ora #$10 00E37E 1 8D 06 FF sta TEDVSP 00E381 1 AD 0A FF lda TEDIER 00E384 1 29 F7 and #$F7 00E386 1 09 02 ora #$02 00E388 1 8D 0A FF sta TEDIER 00E38B 1 58 cli 00E38C 1 60 rts 00E38D 1 00E38D 1 08 LE38D: php 00E38E 1 .if CompileComputer >= PLUS4_01 00E38E 1 38 sec 00E38F 1 6E FC 07 ror LSEM 00E392 1 A5 01 lda PORT 00E394 1 29 F5 and #$F5 00E396 1 85 01 sta PORT 00E398 1 A2 1E ldx #$1E 00E39A 1 20 EA E2 LE39A: jsr LE2EA 00E39D 1 CA dex 00E39E 1 D0 FA bne LE39A 00E3A0 1 28 plp 00E3A1 1 60 rts 00E3A2 1 00E3A2 1 43 31 39 38 .byte "C1984COMMODORE" 00E3A6 1 34 43 4F 4D 00E3AA 1 4D 4F 44 4F 00E3B0 1 .else 00E3B0 1 lda PORT 00E3B0 1 .byte ")",$F5,$85,$01,$A2,$1E, " ", $EA, $E2, $CA, $D0, $FA, "(`" 00E3B0 1 .endif 00E3B0 1 00E3B0 1 A5 01 LE3B0: lda PORT 00E3B2 1 09 08 ora #$08 00E3B4 1 85 01 sta PORT 00E3B6 1 60 rts 00E3B7 1 00E3B7 1 A0 00 LE3B7: ldy #$00 00E3B9 1 A9 20 lda #$20 00E3BB 1 91 B6 LE3BB: sta (TAPEBS),y 00E3BD 1 C8 iny 00E3BE 1 C0 C0 cpy #$C0 00E3C0 1 D0 F9 bne LE3BB 00E3C2 1 60 rts 00E3C3 1 00E3C3 1 48 LE3C3: pha 00E3C4 1 A9 33 lda #$33 00E3C6 1 85 B6 sta TAPEBS 00E3C8 1 A9 03 lda #$03 00E3CA 1 85 B7 sta $B7 00E3CC 1 68 pla 00E3CD 1 60 rts 00E3CE 1 00E3CE 1 20 CB FB LE3CE: jsr LFBCB 00E3D1 1 90 10 bcc LE3E3 00E3D3 1 20 B0 E3 jsr LE3B0 00E3D6 1 20 78 E3 jsr LE378 00E3D9 1 AE BE 07 ldx SRECOV 00E3DC 1 9A txs 00E3DD 1 A9 00 lda #$00 00E3DF 1 8D BE 07 sta SRECOV 00E3E2 1 38 sec 00E3E3 1 60 LE3E3: rts 00E3E4 1 00E3E4 1 AD 09 FF LE3E4: lda TEDIFR 00E3E7 1 2D 0A FF and TEDIER 00E3EA 1 29 08 and #$08 00E3EC 1 D0 01 bne LE3EF 00E3EE 1 60 rts 00E3EF 1 00E3EF 1 8D 09 FF LE3EF: sta TEDIFR 00E3F2 1 78 sei 00E3F3 1 A9 90 lda #$90 00E3F5 1 8D 00 FF sta TEDT1RL 00E3F8 1 A9 33 lda #$33 00E3FA 1 8D 01 FF sta TEDT1RH 00E3FD 1 AE BF 07 ldx DRECOV 00E400 1 9A txs 00E401 1 38 sec 00E402 1 60 rts 00E403 1 00E403 1 A9 A8 LE403: lda #$A8 00E405 1 8D 00 FF sta TEDT1RL 00E408 1 A9 48 lda #$48 00E40A 1 8D 01 FF sta TEDT1RH 00E40D 1 A9 08 lda #$08 00E40F 1 8D 09 FF sta TEDIFR 00E412 1 60 rts 00E413 1 00E413 1 38 LE413: sec 00E414 1 B0 01 bcs LE417 00E416 1 18 LE416: clc 00E417 1 8C CA 07 LE417: sty $07CA 00E41A 1 8E CB 07 stx $07CB 00E41D 1 AC C8 07 ldy T1PIPE 00E420 1 AE C9 07 ldx $07C9 00E423 1 A9 10 lda #$10 00E425 1 2C 09 FF LE425: bit TEDIFR 00E428 1 F0 FB beq LE425 00E42A 1 8C 02 FF sty TEDT2L 00E42D 1 8E 03 FF stx TEDT2H 00E430 1 8D 09 FF sta TEDIFR 00E433 1 A5 01 lda PORT 00E435 1 49 02 eor #$02 00E437 1 85 01 sta PORT 00E439 1 08 php 00E43A 1 20 CE E3 jsr LE3CE 00E43D 1 28 plp 00E43E 1 AC CA 07 ldy $07CA 00E441 1 AE CB 07 ldx $07CB 00E444 1 B0 D0 bcs LE416 00E446 1 60 rts 00E447 1 00E447 1 A9 4E LE447: lda #CONST_E447_T1PIPE 00E44E 1 8D C9 07 sta T1PIPE + 1 00E451 1 60 rts 00E452 1 00E452 1 A9 D0 LE452: lda #CONST_E452_T1PIPE 00E459 1 8D C9 07 sta T1PIPE + 1 00E45C 1 60 rts 00E45D 1 00E45D 1 A9 A4 LE45D: lda #CONST_E45D_T1PIPE 00E464 1 8D C9 07 sta T1PIPE + 1 00E467 1 60 rts 00E468 1 00E468 1 20 52 E4 LE468: jsr LE452 00E46B 1 20 13 E4 jsr LE413 00E46E 1 20 5D E4 jsr LE45D 00E471 1 4C 13 E4 jmp LE413 00E474 1 00E474 1 20 5D E4 LE474: jsr LE45D 00E477 1 20 13 E4 jsr LE413 00E47A 1 20 52 E4 jsr LE452 00E47D 1 4C 13 E4 jmp LE413 00E480 1 00E480 1 20 47 E4 LE480: jsr LE447 00E483 1 20 13 E4 jsr LE413 00E486 1 20 5D E4 jsr LE45D 00E489 1 4C 13 E4 jmp LE413 00E48C 1 00E48C 1 85 A7 LE48C: sta TPBYTE 00E48E 1 A9 01 lda #$01 00E490 1 8D B1 07 sta PARITY 00E493 1 20 80 E4 jsr LE480 00E496 1 A2 08 ldx #$08 00E498 1 66 A7 LE498: ror TPBYTE 00E49A 1 B0 09 bcs LE4A5 00E49C 1 EE B1 07 inc PARITY 00E49F 1 20 68 E4 jsr LE468 00E4A2 1 4C A8 E4 jmp LE4A8 00E4A5 1 00E4A5 1 20 74 E4 LE4A5: jsr LE474 00E4A8 1 CA LE4A8: dex 00E4A9 1 D0 ED bne LE498 00E4AB 1 6E B1 07 ror PARITY 00E4AE 1 B0 06 bcs LE4B6 00E4B0 1 20 68 E4 jsr LE468 00E4B3 1 4C B9 E4 jmp LE4B9 00E4B6 1 00E4B6 1 20 74 E4 LE4B6: jsr LE474 00E4B9 1 60 LE4B9: rts 00E4BA 1 00E4BA 1 BA LE4BA: tsx 00E4BB 1 8E BE 07 stx SRECOV 00E4BE 1 A5 01 lda PORT 00E4C0 1 09 02 ora #$02 00E4C2 1 85 01 sta PORT 00E4C4 1 20 52 E4 jsr LE452 00E4C7 1 A0 01 ldy #$01 00E4C9 1 8C 03 FF sty TEDT2H 00E4CC 1 A9 10 lda #$10 00E4CE 1 8D 09 FF sta TEDIFR 00E4D1 1 24 F7 bit PASS 00E4D3 1 10 04 bpl LE4D9 00E4D5 1 A0 40 ldy #$40 00E4D7 1 A2 FE ldx #$FE 00E4D9 1 20 13 E4 LE4D9: jsr LE413 00E4DC 1 CA dex 00E4DD 1 D0 FA bne LE4D9 00E4DF 1 88 dey 00E4E0 1 D0 F7 bne LE4D9 00E4E2 1 A0 09 ldy #$09 00E4E4 1 98 LE4E4: tya 00E4E5 1 05 F7 ora PASS 00E4E7 1 20 8C E4 jsr LE48C 00E4EA 1 88 dey 00E4EB 1 D0 F7 bne LE4E4 00E4ED 1 .if CompileComputer < PLUS4_04 00E4ED 1 ldy #$00 00E4ED 1 sty CHKSUM 00E4ED 1 .endif 00E4ED 1 A5 F8 lda TYPE 00E4EF 1 .if CompileComputer < PLUS4_04 00E4EF 1 beq LE4F6 00E4EF 1 eor CHKSUM 00E4EF 1 .endif 00E4EF 1 85 F5 sta CHKSUM 00E4F1 1 00E4F1 1 .if CompileComputer >= PLUS4_04 00E4F1 1 F0 03 beq LE4F6 00E4F3 1 .else 00E4F3 1 lda TYPE 00E4F3 1 .endif 00E4F3 1 20 8C E4 jsr LE48C 00E4F6 1 LE4F6: 00E4F6 1 .if CompileComputer >= PLUS4_04 00E4F6 1 A0 00 ldy #$00 00E4F8 1 A9 BA lda #$BA 00E4FA 1 8D DF 07 sta $07DF 00E4FD 1 20 D9 07 jsr KLUDES 00E500 1 .else 00E500 1 lda (WRBASE),y 00E500 1 .endif 00E500 1 48 pha 00E501 1 45 F5 eor CHKSUM 00E503 1 85 F5 sta CHKSUM 00E505 1 68 pla 00E506 1 20 8C E4 jsr LE48C 00E509 1 E6 BA inc WRBASE 00E50B 1 D0 02 bne LE50F 00E50D 1 E6 BB inc $BB 00E50F 1 EE F3 03 LE50F: inc WRLEN 00E512 1 D0 E2 bne LE4F6 00E514 1 EE F4 03 inc $03F4 00E517 1 D0 DD bne LE4F6 00E519 1 A5 F5 lda CHKSUM 00E51B 1 20 8C E4 jsr LE48C 00E51E 1 20 5D E4 jsr LE45D 00E521 1 20 13 E4 jsr LE413 00E524 1 20 52 E4 jsr LE452 00E527 1 A0 01 ldy #$01 00E529 1 A2 C2 ldx #$C2 00E52B 1 20 13 E4 LE52B: jsr LE413 00E52E 1 CA dex 00E52F 1 D0 FA bne LE52B 00E531 1 88 dey 00E532 1 D0 F7 bne LE52B 00E534 1 60 rts 00E535 1 00E535 1 20 19 E3 LE535: jsr LE319 00E538 1 20 64 E3 jsr LE364 00E53B 1 20 8D E3 jsr LE38D 00E53E 1 B0 26 bcs LE566 00E540 1 A9 80 lda #$80 00E542 1 85 F7 sta PASS 00E544 1 A5 B6 LE544: lda TAPEBS 00E546 1 85 BA sta WRBASE 00E548 1 A5 B7 lda $B7 00E54A 1 85 BB sta $BB 00E54C 1 A9 41 lda #$41 00E54E 1 8D F3 03 sta WRLEN 00E551 1 A9 FF lda #$FF 00E553 1 8D F4 03 sta $03F4 00E556 1 20 BA E4 jsr LE4BA 00E559 1 B0 0B bcs LE566 00E55B 1 A5 F7 lda PASS 00E55D 1 10 06 bpl LE565 00E55F 1 A9 00 lda #$00 00E561 1 85 F7 sta PASS 00E563 1 10 DF bpl LE544 00E565 1 18 LE565: clc 00E566 1 20 B0 E3 LE566: jsr LE3B0 00E569 1 4C 78 E3 jmp LE378 00E56C 1 00E56C 1 20 C3 E3 LE56C: jsr LE3C3 00E56F 1 20 B7 E3 jsr LE3B7 00E572 1 A0 00 ldy #$00 00E574 1 A5 B2 lda STAL 00E576 1 91 B6 sta (TAPEBS),y 00E578 1 C8 iny 00E579 1 A5 B3 lda $B3 00E57B 1 91 B6 sta (TAPEBS),y 00E57D 1 C8 iny 00E57E 1 A5 9D lda EAL 00E580 1 91 B6 sta (TAPEBS),y 00E582 1 C8 iny 00E583 1 A5 9E lda $9E 00E585 1 91 B6 sta (TAPEBS),y 00E587 1 C8 iny 00E588 1 8C B3 07 sty TT3 00E58B 1 A0 00 ldy #$00 00E58D 1 8C B2 07 sty TT1 00E590 1 AC B2 07 LE590: ldy TT1 00E593 1 C4 AB cpy FNLEN 00E595 1 F0 16 beq LE5AD 00E597 1 A9 AF lda #$AF 00E599 1 8D DF 07 sta $07DF 00E59C 1 20 D9 07 jsr KLUDES 00E59F 1 AC B3 07 ldy TT3 00E5A2 1 91 B6 sta (TAPEBS),y 00E5A4 1 EE B2 07 inc TT1 00E5A7 1 EE B3 07 inc TT3 00E5AA 1 4C 90 E5 jmp LE590 00E5AD 1 00E5AD 1 4C 35 E5 LE5AD: jmp LE535 00E5B0 1 00E5B0 1 20 19 E3 LE5B0: jsr LE319 00E5B3 1 20 64 E3 jsr LE364 00E5B6 1 20 8D E3 jsr LE38D 00E5B9 1 B0 2F bcs LE5EA 00E5BB 1 A9 80 lda #$80 00E5BD 1 85 F7 sta PASS 00E5BF 1 A5 B2 LE5BF: lda STAL 00E5C1 1 85 BA sta WRBASE 00E5C3 1 A5 B3 lda $B3 00E5C5 1 85 BB sta $BB 00E5C7 1 .if CompileComputer >= PLUS4_03 00E5C7 1 18 clc 00E5C8 1 .else 00E5C8 1 sec 00E5C8 1 .endif 00E5C8 1 A5 9D lda EAL 00E5CA 1 E5 B2 sbc STAL 00E5CC 1 49 FF eor #$FF 00E5CE 1 8D F3 03 sta WRLEN 00E5D1 1 A5 9E lda $9E 00E5D3 1 E5 B3 sbc $B3 00E5D5 1 49 FF eor #$FF 00E5D7 1 8D F4 03 sta $03F4 00E5DA 1 20 BA E4 jsr LE4BA 00E5DD 1 B0 0B bcs LE5EA 00E5DF 1 A5 F7 lda PASS 00E5E1 1 10 06 bpl LE5E9 00E5E3 1 A9 00 lda #$00 00E5E5 1 85 F7 sta PASS 00E5E7 1 10 D6 bpl LE5BF 00E5E9 1 18 LE5E9: clc 00E5EA 1 20 B0 E3 LE5EA: jsr LE3B0 00E5ED 1 4C 78 E3 jmp LE378 00E5F0 1 00E5F0 1 20 B7 E3 LE5F0: jsr LE3B7 00E5F3 1 A9 05 lda #$05 00E5F5 1 85 F8 sta TYPE 00E5F7 1 4C 35 E5 jmp LE535 00E5FA 1 00E5FA 1 40 LE5FA: .byte $40 00E5FB 1 00 LE5FB: .byte $00 00E5FC 1 80 LE5FC: .byte $80 00E5FD 1 AE B8 07 LE5FD: ldx DSAMP1 00E600 1 AC B9 07 ldy $07B9 00E603 1 AD BB 07 LE603: lda $07BB 00E606 1 48 pha 00E607 1 AD BA 07 lda DSAMP2 00E60A 1 48 pha 00E60B 1 A9 10 lda #$10 00E60D 1 24 01 LE60D: bit PORT 00E60F 1 F0 FC beq LE60D 00E611 1 24 01 LE611: bit PORT 00E613 1 D0 FC bne LE611 00E615 1 8E 02 FF stx TEDT2L 00E618 1 8C 03 FF sty TEDT2H 00E61B 1 68 pla 00E61C 1 8D 04 FF sta TEDT3L 00E61F 1 68 pla 00E620 1 8D 05 FF sta TEDT3H 00E623 1 A9 50 lda #$50 00E625 1 8D 09 FF sta TEDIFR 00E628 1 A5 01 LE628: lda PORT 00E62A 1 C5 01 cmp PORT 00E62C 1 D0 FA bne LE628 00E62E 1 29 10 and #$10 00E630 1 D0 D1 bne LE603 00E632 1 20 CE E3 jsr LE3CE 00E635 1 A9 10 lda #$10 00E637 1 24 01 LE637: bit PORT 00E639 1 D0 47 bne LE682 00E63B 1 2C 09 FF bit TEDIFR 00E63E 1 F0 F7 beq LE637 00E640 1 A5 01 LE640: lda PORT 00E642 1 C5 01 cmp PORT 00E644 1 D0 FA bne LE640 00E646 1 29 10 and #$10 00E648 1 D0 38 bne LE682 00E64A 1 A9 40 lda #$40 00E64C 1 2C 09 FF LE64C: bit TEDIFR 00E64F 1 F0 FB beq LE64C 00E651 1 A5 01 LE651: lda PORT 00E653 1 C5 01 cmp PORT 00E655 1 D0 FA bne LE651 00E657 1 29 10 and #$10 00E659 1 D0 2C bne LE687 00E65B 1 AD BC 07 lda ZCELL 00E65E 1 8D 02 FF sta TEDT2L 00E661 1 AD BD 07 lda $07BD 00E664 1 8D 03 FF sta TEDT2H 00E667 1 A9 10 lda #$10 00E669 1 8D 09 FF sta TEDIFR 00E66C 1 A9 10 lda #$10 00E66E 1 2C 09 FF LE66E: bit TEDIFR 00E671 1 F0 FB beq LE66E 00E673 1 A5 01 LE673: lda PORT 00E675 1 C5 01 cmp PORT 00E677 1 D0 FA bne LE673 00E679 1 29 10 and #$10 00E67B 1 F0 0F beq LE68C 00E67D 1 2C FC E5 bit LE5FC 00E680 1 30 08 bmi LE68A 00E682 1 2C FA E5 LE682: bit LE5FA 00E685 1 70 03 bvs LE68A 00E687 1 2C FB E5 LE687: bit LE5FB 00E68A 1 18 LE68A: clc 00E68B 1 60 rts 00E68C 1 00E68C 1 38 LE68C: sec 00E68D 1 60 rts 00E68E 1 00E68E 1 40 LE68E: .byte $40 00E68F 1 00 LE68F: .byte $00 00E690 1 80 LE690: .byte $80 00E691 1 20 FD E5 LE691: jsr LE5FD 00E694 1 B0 3D bcs LE6D3 00E696 1 70 12 bvs LE6AA 00E698 1 10 02 bpl LE69C 00E69A 1 30 27 bmi LE6C3 00E69C 1 20 FD E5 LE69C: jsr LE5FD 00E69F 1 B0 32 bcs LE6D3 00E6A1 1 70 02 bvs LE6A5 00E6A3 1 50 2E bvc LE6D3 00E6A5 1 2C 8F E6 LE6A5: bit LE68F 00E6A8 1 18 clc 00E6A9 1 60 rts 00E6AA 1 00E6AA 1 20 FD E5 LE6AA: jsr LE5FD 00E6AD 1 70 04 bvs LE6B3 00E6AF 1 10 0D bpl LE6BE 00E6B1 1 30 20 bmi LE6D3 00E6B3 1 20 FD E5 LE6B3: jsr LE5FD 00E6B6 1 B0 1B bcs LE6D3 00E6B8 1 70 F9 bvs LE6B3 00E6BA 1 10 17 bpl LE6D3 00E6BC 1 30 05 bmi LE6C3 00E6BE 1 2C 8E E6 LE6BE: bit LE68E 00E6C1 1 18 clc 00E6C2 1 60 rts 00E6C3 1 00E6C3 1 20 FD E5 LE6C3: jsr LE5FD 00E6C6 1 B0 0B bcs LE6D3 00E6C8 1 70 09 bvs LE6D3 00E6CA 1 10 02 bpl LE6CE 00E6CC 1 30 05 bmi LE6D3 00E6CE 1 2C 90 E6 LE6CE: bit LE690 00E6D1 1 18 clc 00E6D2 1 60 rts 00E6D3 1 00E6D3 1 38 LE6D3: sec 00E6D4 1 60 rts 00E6D5 1 00E6D5 1 BA LE6D5: tsx 00E6D6 1 8E BF 07 stx DRECOV 00E6D9 1 18 clc 00E6DA 1 6E CC 07 ror ENEXT 00E6DD 1 58 cli 00E6DE 1 20 91 E6 LE6DE: jsr LE691 00E6E1 1 B0 FB bcs LE6DE 00E6E3 1 70 F9 bvs LE6DE 00E6E5 1 10 F7 bpl LE6DE 00E6E7 1 20 03 E4 jsr LE403 00E6EA 1 18 clc 00E6EB 1 60 rts 00E6EC 1 00E6EC 1 2C CC 07 LE6EC: bit ENEXT 00E6EF 1 30 51 bmi LE742 00E6F1 1 20 D5 E6 jsr LE6D5 00E6F4 1 B0 4C bcs LE742 00E6F6 1 A9 01 LE6F6: lda #$01 00E6F8 1 8D B1 07 sta PARITY 00E6FB 1 A2 08 ldx #$08 00E6FD 1 8E B5 07 stx RDBITS 00E700 1 38 sec 00E701 1 6E CC 07 ror ENEXT 00E704 1 20 91 E6 LE704: jsr LE691 00E707 1 B0 39 bcs LE742 00E709 1 70 04 bvs LE70F 00E70B 1 10 0F bpl LE71C 00E70D 1 30 33 bmi LE742 00E70F 1 18 LE70F: clc 00E710 1 66 A7 ror TPBYTE 00E712 1 EE B1 07 inc PARITY 00E715 1 CE B5 07 dec RDBITS 00E718 1 D0 EA bne LE704 00E71A 1 F0 08 beq LE724 00E71C 1 38 LE71C: sec 00E71D 1 66 A7 ror TPBYTE 00E71F 1 CE B5 07 dec RDBITS 00E722 1 D0 E0 bne LE704 00E724 1 20 91 E6 LE724: jsr LE691 00E727 1 B0 19 bcs LE742 00E729 1 70 04 bvs LE72F 00E72B 1 10 0B bpl LE738 00E72D 1 30 13 bmi LE742 00E72F 1 AD B1 07 LE72F: lda PARITY 00E732 1 29 01 and #$01 00E734 1 D0 0C bne LE742 00E736 1 F0 07 beq LE73F 00E738 1 AD B1 07 LE738: lda PARITY 00E73B 1 29 01 and #$01 00E73D 1 F0 03 beq LE742 00E73F 1 18 LE73F: clc 00E740 1 90 01 bcc LE743 00E742 1 38 LE742: sec 00E743 1 78 LE743: sei 00E744 1 08 php 00E745 1 18 clc 00E746 1 6E CC 07 ror ENEXT 00E749 1 28 plp 00E74A 1 60 rts 00E74B 1 00E74B 1 BA LE74B: tsx 00E74C 1 8E BE 07 stx SRECOV 00E74F 1 A5 93 lda VERFCK 00E751 1 F0 03 beq LE756 00E753 1 38 sec 00E754 1 66 93 ror VERFCK 00E756 1 20 8D E3 LE756: jsr LE38D 00E759 1 20 64 E3 jsr LE364 00E75C 1 AD C0 07 lda TRSAVE 00E75F 1 85 B6 sta TAPEBS 00E761 1 AD C1 07 lda $07C1 00E764 1 85 B7 sta $B7 00E766 1 AD C2 07 lda $07C2 00E769 1 8D F5 03 sta RDCNT 00E76C 1 AD C3 07 lda $07C3 00E76F 1 8D F6 03 sta $03F6 00E772 1 20 1D E9 jsr LE91D 00E775 1 A0 00 ldy #$00 00E777 1 8C B6 07 sty ERRSP 00E77A 1 8C B7 07 sty FPERRS 00E77D 1 84 F5 sty CHKSUM 00E77F 1 84 B1 sty ERRSUM 00E781 1 84 F8 sty TYPE 00E783 1 .if CompileComputer >= PLUS4_04 00E783 1 A9 B6 lda #$B6 00E785 1 8D DF 07 sta $07DF 00E788 1 .else 00E788 1 dey 00E788 1 sty FPVERR 00E788 1 sty $92 00E788 1 .endif 00E788 1 2C B0 07 bit WROUT 00E78B 1 10 13 bpl LE7A0 00E78D 1 20 EC E6 jsr LE6EC 00E790 1 B0 0B bcs LE79D 00E792 1 A5 A7 lda TPBYTE 00E794 1 85 F8 sta TYPE 00E796 1 45 F5 eor CHKSUM 00E798 1 85 F5 sta CHKSUM 00E79A 1 4C A0 E7 jmp LE7A0 00E79D 1 00E79D 1 38 LE79D: sec 00E79E 1 66 F8 ror TYPE 00E7A0 1 20 EC E6 LE7A0: jsr LE6EC 00E7A3 1 B0 19 bcs LE7BE 00E7A5 1 .if CompileComputer < PLUS4_04 00E7A5 1 lda TPBYTE 00E7A5 1 .endif 00E7A5 1 A0 00 ldy #$00 00E7A7 1 .if CompileComputer >= PLUS4_04 00E7A7 1 20 D9 07 jsr KLUDES 00E7AA 1 EA nop 00E7AB 1 .endif 00E7AB 1 24 93 bit VERFCK 00E7AD 1 .if CompileComputer >= PLUS4_04 00E7AD 1 30 02 bmi LE7B1 00E7AF 1 A5 A7 lda TPBYTE 00E7B1 1 C5 A7 LE7B1: cmp TPBYTE 00E7B3 1 D0 09 bne LE7BE 00E7B5 1 91 B6 sta (TAPEBS),y 00E7B7 1 45 F5 eor CHKSUM 00E7B9 1 .else 00E7B9 1 bpl LE7B5 00E7B9 1 cmp (TAPEBS),y 00E7B9 1 beq LE7B5 00E7B9 1 sty FPVERR 00E7B9 1 bne LE7B7 00E7B9 1 LE7B5: sta (TAPEBS),y 00E7B9 1 LE7B7: eor CHKSUM 00E7B9 1 .endif 00E7B9 1 85 F5 sta CHKSUM 00E7BB 1 4C DC E7 jmp LE7DC 00E7BE 1 00E7BE 1 AC B6 07 LE7BE: ldy ERRSP 00E7C1 1 C0 1E cpy #$1E 00E7C3 1 B0 12 bcs LE7D7 00E7C5 1 A5 B6 lda TAPEBS 00E7C7 1 99 37 04 sta ESTAKL,y 00E7CA 1 A5 B7 lda $B7 00E7CC 1 99 55 04 sta ESTAKH,y 00E7CF 1 EE B6 07 inc ERRSP 00E7D2 1 E6 B1 inc ERRSUM 00E7D4 1 4C DC E7 jmp LE7DC 00E7D7 1 00E7D7 1 A9 FF LE7D7: lda #$FF 00E7D9 1 8D B6 07 sta ERRSP 00E7DC 1 E6 B6 LE7DC: inc TAPEBS 00E7DE 1 D0 02 bne LE7E2 00E7E0 1 E6 B7 inc $B7 00E7E2 1 EE F5 03 LE7E2: inc RDCNT 00E7E5 1 D0 B9 bne LE7A0 00E7E7 1 EE F6 03 inc $03F6 00E7EA 1 D0 B4 bne LE7A0 00E7EC 1 AD B6 07 lda ERRSP 00E7EF 1 8D B7 07 sta FPERRS 00E7F2 1 20 EC E6 jsr LE6EC 00E7F5 1 AD B7 07 lda FPERRS 00E7F8 1 D0 06 bne LE800 00E7FA 1 A5 A7 lda TPBYTE 00E7FC 1 C5 F5 cmp CHKSUM 00E7FE 1 D0 03 bne LE803 00E800 1 4C 0A E8 LE800: jmp LE80A 00E803 1 00E803 1 A5 F7 LE803: lda PASS 00E805 1 30 03 bmi LE80A 00E807 1 4C B7 E8 jmp LE8B7 00E80A 1 00E80A 1 A5 F7 LE80A: lda PASS 00E80C 1 30 0B bmi LE819 00E80E 1 AD B7 07 lda FPERRS 00E811 1 F0 03 beq LE816 00E813 1 4C B7 E8 jmp LE8B7 00E816 1 00E816 1 4C C7 E8 LE816: jmp LE8C7 00E819 1 00E819 1 A9 00 LE819: lda #$00 00E81B 1 8D B6 07 sta ERRSP 00E81E 1 85 F5 sta CHKSUM 00E820 1 AD C0 07 lda TRSAVE 00E823 1 85 B6 sta TAPEBS 00E825 1 AD C1 07 lda $07C1 00E828 1 85 B7 sta $B7 00E82A 1 AD C2 07 lda $07C2 00E82D 1 8D F5 03 sta RDCNT 00E830 1 AD C3 07 lda $07C3 00E833 1 8D F6 03 sta $03F6 00E836 1 20 1D E9 jsr LE91D 00E839 1 2C B0 07 bit WROUT 00E83C 1 10 15 bpl LE853 00E83E 1 20 EC E6 jsr LE6EC 00E841 1 24 F8 bit TYPE 00E843 1 10 08 bpl LE84D 00E845 1 A5 A7 lda TPBYTE 00E847 1 85 F8 sta TYPE 00E849 1 90 02 bcc LE84D 00E84B 1 66 F8 ror TYPE 00E84D 1 A5 F8 LE84D: lda TYPE 00E84F 1 45 F5 eor CHKSUM 00E851 1 85 F5 sta CHKSUM 00E853 1 20 EC E6 LE853: jsr LE6EC 00E856 1 6E C4 07 ror RDETMP 00E859 1 A5 A7 lda TPBYTE 00E85B 1 45 F5 eor CHKSUM 00E85D 1 85 F5 sta CHKSUM 00E85F 1 2C B7 07 bit FPERRS 00E862 1 30 32 bmi LE896 00E864 1 AC B6 07 ldy ERRSP 00E867 1 CC B7 07 cpy FPERRS 00E86A 1 F0 2A beq LE896 00E86C 1 B9 37 04 lda ESTAKL,y 00E86F 1 C5 B6 cmp TAPEBS 00E871 1 D0 23 bne LE896 00E873 1 B9 55 04 lda ESTAKH,y 00E876 1 C5 B7 cmp $B7 00E878 1 D0 1C bne LE896 00E87A 1 EE B6 07 inc ERRSP 00E87D 1 AD C4 07 lda RDETMP 00E880 1 30 14 bmi LE896 00E882 1 A0 00 ldy #$00 00E884 1 .if CompileComputer >= PLUS4_04 00E884 1 20 D9 07 jsr KLUDES 00E887 1 EA nop 00E888 1 .else 00E888 1 lda TPBYTE 00E888 1 .endif 00E888 1 24 93 bit VERFCK 00E88A 1 .if CompileComputer >= PLUS4_04 00E88A 1 30 02 bmi LE88E 00E88C 1 A5 A7 lda TPBYTE 00E88E 1 C5 A7 LE88E: cmp TPBYTE 00E890 1 .else 00E890 1 bpl LE892 00E890 1 cmp (TAPEBS),y 00E890 1 beq LE892 00E890 1 sty $92 00E890 1 .endif 00E890 1 D0 04 bne LE896 00E892 1 C6 B1 LE892: dec ERRSUM 00E894 1 91 B6 sta (TAPEBS),y 00E896 1 E6 B6 LE896: inc TAPEBS 00E898 1 D0 02 bne LE89C 00E89A 1 E6 B7 inc $B7 00E89C 1 EE F5 03 LE89C: inc RDCNT 00E89F 1 D0 B2 bne LE853 00E8A1 1 EE F6 03 inc $03F6 00E8A4 1 D0 AD bne LE853 00E8A6 1 20 EC E6 jsr LE6EC 00E8A9 1 .if CompileComputer >= PLUS4_04 00E8A9 1 A9 00 lda #$00 00E8AB 1 85 90 sta STATUS 00E8AD 1 .else 00E8AD 1 lda ERRSUM 00E8AD 1 bne LE8B7 00E8AD 1 lda $92 00E8AD 1 .if CompileComputer >= PLUS4_03 00E8AD 1 and FPVERR 00E8AD 1 .else 00E8AD 1 ora FPVERR 00E8AD 1 .endif 00E8AD 1 beq LE8BF 00E8AD 1 .endif 00E8AD 1 A5 F8 lda TYPE 00E8AF 1 .if CompileComputer >= PLUS4_04 00E8AF 1 A6 B1 ldx ERRSUM 00E8B1 1 F0 14 beq LE8C7 00E8B3 1 24 93 bit VERFCK 00E8B5 1 30 08 bmi LE8BF 00E8B7 1 .else 00E8B7 1 bpl LE8C7 00E8B7 1 .endif 00E8B7 1 A9 60 LE8B7: lda #$60 00E8B9 1 .if CompileComputer >= PLUS4_04 00E8B9 1 85 90 sta STATUS 00E8BB 1 .else 00E8BB 1 jsr LF41E 00E8BB 1 .endif 00E8BB 1 38 sec 00E8BC 1 .if CompileComputer >= PLUS4_04 00E8BC 1 4C C8 E8 jmp LE8C8 00E8BF 1 .else 00E8BF 1 bcs LE8C8 00E8BF 1 .endif 00E8BF 1 A9 10 LE8BF: lda #$10 00E8C1 1 .if CompileComputer >= PLUS4_04 00E8C1 1 85 90 sta STATUS 00E8C3 1 .else 00E8C3 1 jsr LF41E 00E8C3 1 .endif 00E8C3 1 38 sec 00E8C4 1 .if CompileComputer >= PLUS4_04 00E8C4 1 4C C8 E8 jmp LE8C8 00E8C7 1 .else 00E8C7 1 bcs LE8C8 00E8C7 1 .endif 00E8C7 1 18 LE8C7: clc 00E8C8 1 20 B0 E3 LE8C8: jsr LE3B0 00E8CB 1 20 78 E3 jsr LE378 00E8CE 1 60 rts 00E8CF 1 00E8CF 1 33 03 LE8CF: .addr L0333 00E8D1 1 41 FF .addr LFF41 00E8D3 1 00E8D3 1 A0 03 LE8D3: ldy #$03 00E8D5 1 B9 CF E8 LE8D5: lda LE8CF,y 00E8D8 1 99 C0 07 sta TRSAVE,y 00E8DB 1 88 dey 00E8DC 1 10 F7 bpl LE8D5 00E8DE 1 8C B0 07 sty WROUT 00E8E1 1 A5 93 lda VERFCK 00E8E3 1 48 pha 00E8E4 1 C8 iny 00E8E5 1 84 93 sty VERFCK 00E8E7 1 8C 39 05 sty TPTR 00E8EA 1 20 4B E7 jsr LE74B 00E8ED 1 68 pla 00E8EE 1 85 93 sta VERFCK 00E8F0 1 4C C3 E3 jmp LE3C3 00E8F3 1 00E8F3 1 A5 B2 LE8F3: lda STAL 00E8F5 1 8D C0 07 sta TRSAVE 00E8F8 1 A5 B3 lda $B3 00E8FA 1 8D C1 07 sta $07C1 00E8FD 1 .if CompileComputer >= PLUS4_03 00E8FD 1 18 clc 00E8FE 1 .else 00E8FE 1 sec 00E8FE 1 .endif 00E8FE 1 A5 9D lda EAL 00E900 1 E5 B2 sbc STAL 00E902 1 49 FF eor #$FF 00E904 1 8D C2 07 sta $07C2 00E907 1 A5 9E lda $9E 00E909 1 E5 B3 sbc $B3 00E90B 1 49 FF eor #$FF 00E90D 1 8D C3 07 sta $07C3 00E910 1 18 clc 00E911 1 6E B0 07 ror WROUT 00E914 1 4C 4B E7 jmp LE74B 00E917 1 00E917 1 02 01 02 02 LE917: .word $0102,$0202,$020D 00E91B 1 0D 02 00E91D 1 A2 05 LE91D: ldx #$05 00E91F 1 BD 17 E9 LE91F: lda LE917,x 00E922 1 9D B8 07 sta DSAMP1,x 00E925 1 CA dex 00E926 1 10 F7 bpl LE91F 00E928 1 A9 0A LE928: lda #$0A 00E92A 1 8D C5 07 sta LDRSCN 00E92D 1 20 FD E5 LE92D: jsr LE5FD 00E930 1 B0 F6 bcs LE928 00E932 1 50 F4 bvc LE928 00E934 1 CE C5 07 dec LDRSCN 00E937 1 D0 F4 bne LE92D 00E939 1 A9 00 LE939: lda #$00 00E93B 1 85 BA sta WRBASE 00E93D 1 85 BB sta $BB 00E93F 1 A0 10 ldy #$10 00E941 1 A2 00 LE941: ldx #$00 00E943 1 A9 10 lda #$10 00E945 1 24 01 LE945: bit PORT 00E947 1 F0 FC beq LE945 00E949 1 24 01 LE949: bit PORT 00E94B 1 D0 FC bne LE949 00E94D 1 E8 LE94D: inx 00E94E 1 F0 E9 beq LE939 00E950 1 24 01 bit PORT 00E952 1 F0 F9 beq LE94D 00E954 1 E8 LE954: inx 00E955 1 F0 E2 beq LE939 00E957 1 24 01 bit PORT 00E959 1 D0 F9 bne LE954 00E95B 1 8A txa 00E95C 1 18 clc 00E95D 1 65 BA adc WRBASE 00E95F 1 85 BA sta WRBASE 00E961 1 A9 00 lda #$00 00E963 1 65 BB adc $BB 00E965 1 85 BB sta $BB 00E967 1 88 dey 00E968 1 D0 D7 bne LE941 00E96A 1 46 BB lsr $BB 00E96C 1 66 BA ror WRBASE 00E96E 1 46 BB lsr $BB 00E970 1 66 BA ror WRBASE 00E972 1 A5 BA lda WRBASE 00E974 1 8D B8 07 sta DSAMP1 00E977 1 0A asl a 00E978 1 8D BA 07 sta DSAMP2 00E97B 1 8D BC 07 sta ZCELL 00E97E 1 A5 BB lda $BB 00E980 1 8D B9 07 sta $07B9 00E983 1 2A rol a 00E984 1 8D BB 07 sta $07BB 00E987 1 8D BD 07 sta $07BD 00E98A 1 20 FD E5 LE98A: jsr LE5FD 00E98D 1 B0 FB bcs LE98A 00E98F 1 70 F9 bvs LE98A 00E991 1 10 F7 bpl LE98A 00E993 1 20 FD E5 jsr LE5FD 00E996 1 B0 F2 bcs LE98A 00E998 1 70 F0 bvs LE98A 00E99A 1 30 EE bmi LE98A 00E99C 1 18 clc 00E99D 1 6E CC 07 ror ENEXT 00E9A0 1 20 03 E4 jsr LE403 00E9A3 1 A9 03 lda #$03 00E9A5 1 8D C6 07 sta CDERRM 00E9A8 1 20 F6 E6 jsr LE6F6 00E9AB 1 90 03 bcc LE9B0 00E9AD 1 CE C6 07 dec CDERRM 00E9B0 1 20 EC E6 LE9B0: jsr LE6EC 00E9B3 1 90 08 bcc LE9BD 00E9B5 1 CE C6 07 dec CDERRM 00E9B8 1 D0 03 bne LE9BD 00E9BA 1 4C 1D E9 jmp LE91D 00E9BD 1 00E9BD 1 A5 A7 LE9BD: lda TPBYTE 00E9BF 1 29 0F and #$0F 00E9C1 1 C9 01 cmp #$01 00E9C3 1 D0 EB bne LE9B0 00E9C5 1 A5 A7 lda TPBYTE 00E9C7 1 29 80 and #$80 00E9C9 1 85 F7 sta PASS 00E9CB 1 60 rts 00E9CC 1 00E9CC 1 20 D3 E8 LE9CC: jsr LE8D3 00E9CF 1 B0 4D bcs LEA1E 00E9D1 1 A5 F8 lda TYPE 00E9D3 1 C9 05 cmp #$05 00E9D5 1 F0 43 beq LEA1A 00E9D7 1 C9 01 cmp #$01 00E9D9 1 F0 08 beq LE9E3 00E9DB 1 C9 03 cmp #$03 00E9DD 1 F0 04 beq LE9E3 00E9DF 1 C9 04 cmp #$04 00E9E1 1 D0 E9 bne LE9CC 00E9E3 1 AA LE9E3: tax 00E9E4 1 24 9A bit MSGFLG 00E9E6 1 10 2F bpl LEA17 00E9E8 1 20 D8 FB jsr LFBD8 00E9EB 1 0D .byte $0D 00E9EC 1 46 4F 55 4E .byte "FOUND " 00E9F0 1 44 20 00E9F2 1 00 .byte $00 00E9F3 1 A0 04 ldy #$04 00E9F5 1 B1 B6 LE9F5: lda (TAPEBS),y 00E9F7 1 20 D2 FF jsr kCHROUT 00E9FA 1 C8 iny 00E9FB 1 C0 15 cpy #$15 00E9FD 1 D0 F6 bne LE9F5 00E9FF 1 A2 FF ldx #$FF 00EA01 1 20 EA E2 LEA01: jsr LE2EA 00EA04 1 20 EA E2 jsr LE2EA 00EA07 1 CA dex 00EA08 1 F0 0D beq LEA17 00EA0A 1 A9 7F lda #$7F 00EA0C 1 20 70 DB jsr LDB70 00EA0F 1 C9 7F cmp #$7F 00EA11 1 F0 0B beq LEA1E 00EA13 1 C9 DF cmp #$DF 00EA15 1 D0 EA bne LEA01 00EA17 1 18 LEA17: clc 00EA18 1 A5 F8 lda TYPE 00EA1A 1 60 LEA1A: rts 00EA1B 1 00EA1B 1 EA nop 00EA1C 1 EA nop 00EA1D 1 EA nop 00EA1E 1 A9 00 LEA1E: lda #$00 00EA20 1 60 rts 00EA21 1 00EA21 1 20 CC E9 LEA21: jsr LE9CC 00EA24 1 B0 2D bcs LEA53 00EA26 1 C9 05 cmp #$05 00EA28 1 F0 2B beq LEA55 00EA2A 1 .if CompileComputer >= PLUS4_03 00EA2A 1 A0 FF ldy #$FF 00EA2C 1 C8 LEA2C: iny 00EA2D 1 C4 AB cpy FNLEN 00EA2F 1 .else 00EA2F 1 ldy #$04 00EA2F 1 sty TT3 00EA2F 1 ldy #$00 00EA2F 1 sty TT1 00EA2F 1 LEA34: cpy FNLEN 00EA2F 1 .endif 00EA2F 1 F0 26 beq LEA57 00EA31 1 A9 AF lda #$AF 00EA33 1 8D DF 07 sta $07DF 00EA36 1 20 D9 07 jsr KLUDES 00EA39 1 .if CompileComputer >= PLUS4_03 00EA39 1 D9 37 03 cmp $0337,y 00EA3C 1 F0 EE beq LEA2C 00EA3E 1 46 F8 lsr TYPE 00EA40 1 90 DF bcc LEA21 00EA42 1 A0 FF ldy #$FF 00EA44 1 8C C3 07 sty $07C3 00EA47 1 88 dey 00EA48 1 8C C2 07 sty $07C2 00EA4B 1 A0 01 ldy #$01 00EA4D 1 20 D5 E8 jsr LE8D5 00EA50 1 4C 21 EA jmp LEA21 00EA53 1 .else 00EA53 1 ldy TT3 00EA53 1 cmp (TAPEBS),y 00EA53 1 bne LEA21 00EA53 1 inc TT1 00EA53 1 inc TT3 00EA53 1 ldy TT1 00EA53 1 jmp LEA34 00EA53 1 .endif 00EA53 1 00EA53 1 A9 00 LEA53: lda #$00 00EA55 1 38 LEA55: sec 00EA56 1 60 rts 00EA57 1 00EA57 1 18 LEA57: clc 00EA58 1 A5 F8 lda TYPE 00EA5A 1 60 rts 00EA5B 1 00EA5B 1 AD D4 07 LEA5B: lda ASTAT 00EA5E 1 29 10 and #$10 00EA60 1 F0 32 beq LEA94 00EA62 1 AD 10 FD lda SPI6529 00EA65 1 29 02 and #$02 00EA67 1 F0 2B beq LEA94 00EA69 1 A2 00 ldx #$00 00EA6B 1 2C D0 07 bit SOUNFG 00EA6E 1 10 09 bpl LEA79 00EA70 1 AD CF 07 lda SOUTQ 00EA73 1 8E D0 07 stx SOUNFG 00EA76 1 4C 89 EA jmp LEA89 00EA79 1 00EA79 1 2C CE 07 LEA79: bit UOUTFG 00EA7C 1 10 16 bpl LEA94 00EA7E 1 2C D6 07 bit ALSTOP 00EA81 1 30 11 bmi LEA94 00EA83 1 AD CD 07 lda UOUTQ 00EA86 1 8E CE 07 stx UOUTFG 00EA89 1 8D 00 FD LEA89: sta ACIA 00EA8C 1 AD D4 07 lda ASTAT 00EA8F 1 29 EF and #$EF 00EA91 1 8D D4 07 sta ASTAT 00EA94 1 60 LEA94: rts 00EA95 1 00EA95 1 AD D4 07 LEA95: lda ASTAT 00EA98 1 29 08 and #$08 00EA9A 1 F0 54 beq LEAF0 00EA9C 1 AD D4 07 lda ASTAT 00EA9F 1 29 F7 and #$F7 00EAA1 1 8D D4 07 sta ASTAT 00EAA4 1 AD 00 FD lda ACIA 00EAA7 1 F0 19 beq LEAC2 00EAA9 1 8D D5 07 sta AINTMP 00EAAC 1 C5 FC cmp XON 00EAAE 1 D0 07 bne LEAB7 00EAB0 1 A9 00 lda #$00 00EAB2 1 8D D6 07 sta ALSTOP 00EAB5 1 F0 39 beq LEAF0 00EAB7 1 C5 FD LEAB7: cmp XOFF 00EAB9 1 D0 07 bne LEAC2 00EABB 1 A9 FF lda #$FF 00EABD 1 8D D6 07 sta ALSTOP 00EAC0 1 D0 2E bne LEAF0 00EAC2 1 AD D3 07 LEAC2: lda INQCNT 00EAC5 1 C9 3F cmp #$3F 00EAC7 1 F0 27 beq LEAF0 00EAC9 1 C9 38 cmp #$38 00EACB 1 D0 0F bne LEADC 00EACD 1 A5 FD lda XOFF 00EACF 1 F0 0B beq LEADC 00EAD1 1 8D CF 07 sta SOUTQ 00EAD4 1 A9 FF lda #$FF 00EAD6 1 8D D0 07 sta SOUNFG 00EAD9 1 8D D7 07 sta ARSTOP 00EADC 1 AE D1 07 LEADC: ldx INQFPT 00EADF 1 E8 inx 00EAE0 1 8A txa 00EAE1 1 29 3F and #$3F 00EAE3 1 8D D1 07 sta INQFPT 00EAE6 1 AA tax 00EAE7 1 AD D5 07 lda AINTMP 00EAEA 1 9D F7 03 sta $03F7,x 00EAED 1 EE D3 07 inc INQCNT 00EAF0 1 60 LEAF0: rts 00EAF1 1 00EAF1 1 AD D3 07 LEAF1: lda INQCNT 00EAF4 1 F0 34 beq LEB2A 00EAF6 1 08 php 00EAF7 1 78 sei 00EAF8 1 AE D2 07 ldx INQRPT 00EAFB 1 E8 inx 00EAFC 1 8A txa 00EAFD 1 29 3F and #$3F 00EAFF 1 8D D2 07 sta INQRPT 00EB02 1 28 plp 00EB03 1 AA tax 00EB04 1 BD F7 03 lda $03F7,x 00EB07 1 48 pha 00EB08 1 CE D3 07 dec INQCNT 00EB0B 1 AD D3 07 lda INQCNT 00EB0E 1 C9 08 cmp #$08 00EB10 1 D0 19 bne LEB2B 00EB12 1 2C D7 07 bit ARSTOP 00EB15 1 10 14 bpl LEB2B 00EB17 1 A5 FC lda XON 00EB19 1 F0 10 beq LEB2B 00EB1B 1 8D CF 07 sta SOUTQ 00EB1E 1 38 sec 00EB1F 1 6E D0 07 ror SOUNFG 00EB22 1 4E D7 07 lsr ARSTOP 00EB25 1 2C D8 07 LEB25: bit APRES 00EB28 1 10 0B bpl LEB35 00EB2A 1 48 LEB2A: pha 00EB2B 1 AD D4 07 LEB2B: lda ASTAT 00EB2E 1 29 4F and #$4F 00EB30 1 49 40 eor #$40 00EB32 1 85 90 sta STATUS 00EB34 1 68 pla 00EB35 1 18 LEB35: clc 00EB36 1 60 rts 00EB37 1 00EB37 1 2C CE 07 LEB37: bit UOUTFG 00EB3A 1 30 FB bmi LEB37 00EB3C 1 8D CD 07 sta UOUTQ 00EB3F 1 38 sec 00EB40 1 6E CE 07 ror UOUTFG 00EB43 1 4C 2A EB jmp LEB2A 00EB46 1 00EB46 1 A9 00 LEB46: lda #$00 00EB48 1 A2 0B ldx #$0B 00EB4A 1 9D CD 07 LEB4A: sta UOUTQ,x 00EB4D 1 CA dex 00EB4E 1 10 FA bpl LEB4A 00EB50 1 8D 01 FD sta LFD01 00EB53 1 85 FC sta XON 00EB55 1 85 FD sta XOFF 00EB57 1 60 rts 00EB58 1 00EB58 1 0D LEB58: .byte $0D 00EB59 1 49 2F 4F 20 .byte "I/O ERROR " 00EB5D 1 45 52 52 4F 00EB61 1 52 20 00EB63 1 00EB63 1 A3 0D .byte $A3,$0D 00EB65 1 53 45 41 52 .byte "SEARCHING" 00EB69 1 43 48 49 4E 00EB6D 1 47 00EB6E 1 00EB6E 1 A0 .byte $A0 00EB6F 1 46 4F 52 .byte "FOR" 00EB72 1 A0 0D .byte $A0,$0D 00EB74 1 50 52 45 53 .byte "PRESS PLAY ON TAP" 00EB78 1 53 20 50 4C 00EB7C 1 41 59 20 4F 00EB85 1 00EB85 1 00EB85 1 C5 .byte $C5 00EB86 1 50 52 45 53 .byte "PRESS RECORD & PLAY ON TAP" 00EB8A 1 53 20 52 45 00EB8E 1 43 4F 52 44 00EBA0 1 00EBA0 1 00EBA0 1 00EBA0 1 C5 0D .byte $C5,$0D 00EBA2 1 4C 4F 41 44 .byte "LOADIN" 00EBA6 1 49 4E 00EBA8 1 C7 0D .byte $C7,$0D 00EBAA 1 53 41 56 49 .byte "SAVING" 00EBAE 1 4E 47 00EBB0 1 A0 0D .byte $A0,$0D 00EBB2 1 56 45 52 49 .byte "VERIFYIN" 00EBB6 1 46 59 49 4E 00EBBA 1 C7 0D .byte $C7,$0D 00EBBC 1 46 4F 55 4E .byte "FOUND" 00EBC0 1 44 00EBC1 1 A0 0D .byte $A0,$0D 00EBC3 1 4F 4B .byte "OK" 00EBC5 1 8D .byte $8D 00EBC6 1 24 9A LEBC6: bit MSGFLG 00EBC8 1 10 0D bpl LEBD7 00EBCA 1 B9 58 EB LEBCA: lda LEB58,y 00EBCD 1 08 php 00EBCE 1 29 7F and #$7F 00EBD0 1 20 D2 FF jsr kCHROUT 00EBD3 1 C8 iny 00EBD4 1 28 plp 00EBD5 1 10 F3 bpl LEBCA 00EBD7 1 18 LEBD7: clc 00EBD8 1 60 rts 00EBD9 1 00EBD9 1 A5 98 LEBD9: lda DFLTN 00EBDB 1 D0 1A bne LEBF7 00EBDD 1 A5 EF lda NDX 00EBDF 1 0D 5D 05 ora KYNDX 00EBE2 1 F0 3E beq LEC22 00EBE4 1 78 sei 00EBE5 1 4C C1 D8 jmp LD8C1 00EBE8 1 00EBE8 1 A5 98 LEBE8: lda DFLTN 00EBEA 1 D0 0B bne LEBF7 00EBEC 1 A5 CA lda PNTR 00EBEE 1 85 C5 sta $C5 00EBF0 1 A5 CD lda TBLX 00EBF2 1 85 C4 sta LSXP 00EBF4 1 4C 65 D9 jmp LD965 00EBF7 1 00EBF7 1 C9 03 LEBF7: cmp #$03 00EBF9 1 D0 1F bne LEC1A 00EBFB 1 05 C7 ora CRSW 00EBFD 1 85 C7 sta CRSW 00EBFF 1 AD E8 07 lda SCRT 00EC02 1 85 C3 sta INDX 00EC04 1 4C 65 D9 jmp LD965 00EC07 1 00EC07 1 20 BA FB LEC07: jsr LFBBA 00EC0A 1 C9 01 cmp #$01 00EC0C 1 D0 06 bne LEC14 00EC0E 1 20 24 EC jsr LEC24 00EC11 1 4C C4 FB jmp LFBC4 00EC14 1 00EC14 1 20 F1 EA LEC14: jsr LEAF1 00EC17 1 4C C4 FB jmp LFBC4 00EC1A 1 00EC1A 1 90 EB LEC1A: bcc LEC07 00EC1C 1 A5 90 lda STATUS 00EC1E 1 F0 6B beq iACPTR 00EC20 1 A9 0D lda #$0D 00EC22 1 18 LEC22: clc 00EC23 1 60 rts 00EC24 1 00EC24 1 AC 39 05 LEC24: ldy TPTR 00EC27 1 C0 BF cpy #$BF 00EC29 1 90 06 bcc LEC31 00EC2B 1 20 D3 E8 jsr LE8D3 00EC2E 1 90 F4 bcc LEC24 00EC30 1 60 rts 00EC31 1 00EC31 1 AC 39 05 LEC31: ldy TPTR 00EC34 1 B1 B6 lda (TAPEBS),y 00EC36 1 48 pha 00EC37 1 C8 iny 00EC38 1 C0 BF cpy #$BF 00EC3A 1 B0 09 bcs LEC45 00EC3C 1 B1 B6 lda (TAPEBS),y 00EC3E 1 D0 05 bne LEC45 00EC40 1 A9 40 lda #$40 00EC42 1 20 1E F4 jsr LF41E 00EC45 1 EE 39 05 LEC45: inc TPTR 00EC48 1 68 pla 00EC49 1 18 clc 00EC4A 1 60 rts 00EC4B 1 00EC4B 1 48 LEC4B: pha 00EC4C 1 A5 99 lda DFLTO 00EC4E 1 C9 03 cmp #$03 00EC50 1 D0 04 bne LEC56 00EC52 1 68 pla 00EC53 1 4C 49 DC jmp LDC49 00EC56 1 00EC56 1 90 04 LEC56: bcc LEC5C 00EC58 1 68 pla 00EC59 1 4C DF EC jmp iCIOUT 00EC5C 1 00EC5C 1 20 B7 FB LEC5C: jsr LFBB7 00EC5F 1 C9 01 cmp #$01 00EC61 1 D0 21 bne LEC84 00EC63 1 AC 39 05 ldy TPTR 00EC66 1 C0 BF cpy #$BF 00EC68 1 90 0B bcc LEC75 00EC6A 1 20 35 E5 jsr LE535 00EC6D 1 B0 0F bcs LEC7E 00EC6F 1 A9 02 lda #$02 00EC71 1 85 F8 sta TYPE 00EC73 1 A0 00 ldy #$00 00EC75 1 68 LEC75: pla 00EC76 1 91 B6 sta (TAPEBS),y 00EC78 1 C8 iny 00EC79 1 8C 39 05 sty TPTR 00EC7C 1 90 0A bcc LEC88 00EC7E 1 68 LEC7E: pla 00EC7F 1 A9 00 lda #$00 00EC81 1 4C C4 FB jmp LFBC4 00EC84 1 00EC84 1 68 LEC84: pla 00EC85 1 20 37 EB jsr LEB37 00EC88 1 4C C1 FB LEC88: jmp LFBC1 00EC8B 1 00EC8B 1 iACPTR: 00EC8B 1 .if CompileComputer >= PLUS4_01 00EC8B 1 86 BA stx WRBASE 00EC8D 1 .endif 00EC8D 1 24 F9 bit USEKDY 00EC8F 1 70 05 bvs LEC96 00EC91 1 .if CompileComputer >= PLUS4_01 00EC91 1 A6 BA ldx WRBASE 00EC93 1 .endif 00EC93 1 4C 52 E2 jmp LE252 00EC96 1 00EC96 1 LEC96: 00EC96 1 .if CompileComputer >= PLUS4_01 00EC96 1 A5 F9 lda USEKDY 00EC98 1 29 30 and #$30 00EC9A 1 AA tax 00EC9B 1 A9 84 lda #$84 00EC9D 1 9D C0 FE sta LFEC0,x 00ECA0 1 BD C2 FE LECA0: lda LFEC2,x 00ECA3 1 30 FB bmi LECA0 00ECA5 1 A9 00 lda #$00 00ECA7 1 9D C3 FE sta LFEC3,x 00ECAA 1 9D C2 FE sta LFEC2,x 00ECAD 1 BD C2 FE LECAD: lda LFEC2,x 00ECB0 1 10 FB bpl LECAD 00ECB2 1 BD C1 FE lda LFEC1,x 00ECB5 1 .else 00ECB5 1 lda #$84 00ECB5 1 sta LFEF0 00ECB5 1 LEC97: lda LFEF2 00ECB5 1 bmi LEC97 00ECB5 1 lda #$00 00ECB5 1 sta LFEF3 00ECB5 1 sta LFEF2 00ECB5 1 LECA4: lda LFEF2 00ECB5 1 bpl LECA4 00ECB5 1 lda LFEF1 00ECB5 1 .endif 00ECB5 1 29 03 and #$03 00ECB7 1 C9 03 cmp #$03 00ECB9 1 D0 02 bne LECBD 00ECBB 1 A9 40 lda #$40 00ECBD 1 20 1E F4 LECBD: jsr LF41E 00ECC0 1 .if CompileComputer >= PLUS4_01 00ECC0 1 BD C0 FE lda LFEC0,x 00ECC3 1 .else 00ECC3 1 lda LFEF0 00ECC3 1 .endif 00ECC3 1 48 pha 00ECC4 1 A9 40 lda #$40 00ECC6 1 .if CompileComputer >= PLUS4_01 00ECC6 1 9D C2 FE sta LFEC2,x 00ECC9 1 .else 00ECC9 1 sta LFEF2 00ECC9 1 .endif 00ECC9 1 LECC9: 00ECC9 1 .if CompileComputer >= PLUS4_01 00ECC9 1 BD C2 FE lda LFEC2,x 00ECCC 1 .else 00ECCC 1 lda LFEF2 00ECCC 1 .endif 00ECCC 1 30 FB bmi LECC9 00ECCE 1 A9 FF lda #$FF 00ECD0 1 .if CompileComputer >= PLUS4_01 00ECD0 1 9D C3 FE sta LFEC3,x 00ECD3 1 A9 00 lda #$00 00ECD5 1 9D C0 FE sta LFEC0,x 00ECD8 1 9D C2 FE sta LFEC2,x 00ECDB 1 4C D4 ED jmp LEDD4 00ECDE 1 EA nop 00ECDF 1 .else 00ECDF 1 sta LFEF3 00ECDF 1 lda #$00 00ECDF 1 sta LFEF0 00ECDF 1 sta LFEF2 00ECDF 1 LECD2: lda LFEF2 00ECDF 1 bpl LECD2 00ECDF 1 lda #$40 00ECDF 1 sta LFEF2 00ECDF 1 LECDC: pla 00ECDF 1 clc 00ECDF 1 rts 00ECDF 1 .endif 00ECDF 1 00ECDF 1 24 F9 iCIOUT: bit USEKDY 00ECE1 1 30 03 bmi LECE6 00ECE3 1 4C 1D E2 jmp LE21D 00ECE6 1 00ECE6 1 48 LECE6: pha 00ECE7 1 8D E8 05 sta KDYCMD 00ECEA 1 A9 83 lda #$83 00ECEC 1 00ECEC 1 LECEC: 00ECEC 1 .if CompileComputer >= PLUS4_01 00ECEC 1 86 BA stx WRBASE 00ECEE 1 48 pha 00ECEF 1 A5 F9 lda USEKDY 00ECF1 1 29 30 and #$30 00ECF3 1 AA tax 00ECF4 1 68 pla 00ECF5 1 9D C0 FE sta LFEC0,x 00ECF8 1 BD C2 FE LECF8: lda LFEC2,x 00ECFB 1 30 FB bmi LECF8 00ECFD 1 .else 00ECFD 1 sta LFEF0 00ECFD 1 LECEF: lda LFEF2 00ECFD 1 bmi LECEF 00ECFD 1 .endif 00ECFD 1 AD E8 05 lda KDYCMD 00ED00 1 .if CompileComputer >= PLUS4_01 00ED00 1 9D C0 FE sta LFEC0,x 00ED03 1 .else 00ED03 1 sta LFEF0 00ED03 1 .endif 00ED03 1 A9 00 lda #$00 00ED05 1 .if CompileComputer >= PLUS4_01 00ED05 1 9D C2 FE sta LFEC2,x 00ED08 1 .else 00ED08 1 sta LFEF2 00ED08 1 .endif 00ED08 1 00ED08 1 LED08: 00ED08 1 .if CompileComputer >= PLUS4_01 00ED08 1 BD C2 FE lda LFEC2,x 00ED0B 1 .else 00ED0B 1 lda LFEF2 00ED0B 1 .endif 00ED0B 1 10 FB bpl LED08 00ED0D 1 .if CompileComputer >= PLUS4_01 00ED0D 1 BD C1 FE lda LFEC1,x 00ED10 1 .else 00ED10 1 lda LFEF1 00ED10 1 .endif 00ED10 1 29 03 and #$03 00ED12 1 20 1E F4 jsr LF41E 00ED15 1 .if CompileComputer >= PLUS4_01 00ED15 1 4C DB ED jmp LEDDB 00ED18 1 .else 00ED18 1 lda #$00 00ED18 1 sta LFEF0 00ED18 1 lda #$40 00ED18 1 sta LFEF2 00ED18 1 bne LECDC 00ED18 1 .endif 00ED18 1 00ED18 1 20 E8 EE LED18: jsr LEEE8 00ED1B 1 F0 03 beq LED20 00ED1D 1 4C 79 F2 jmp LF279 00ED20 1 00ED20 1 20 F8 EE LED20: jsr LEEF8 00ED23 1 F0 11 beq LED36 00ED25 1 C9 03 cmp #$03 00ED27 1 F0 0D beq LED36 00ED29 1 B0 0F bcs LED3A 00ED2B 1 C9 02 cmp #$02 00ED2D 1 D0 28 bne LED57 00ED2F 1 20 25 EB jsr LEB25 00ED32 1 B0 05 bcs LED39 00ED34 1 A5 AE lda FA 00ED36 1 85 98 LED36: sta DFLTN 00ED38 1 18 clc 00ED39 1 60 LED39: rts 00ED3A 1 00ED3A 1 AA LED3A: tax 00ED3B 1 20 FA ED jsr iTALK 00ED3E 1 24 90 bit STATUS 00ED40 1 30 12 bmi LED54 00ED42 1 A5 AD lda SA 00ED44 1 10 06 bpl LED4C 00ED46 1 20 13 EE jsr LEE13 00ED49 1 4C 4F ED jmp LED4F 00ED4C 1 00ED4C 1 20 1A EE LED4C: jsr iTKSA 00ED4F 1 8A LED4F: txa 00ED50 1 24 90 bit STATUS 00ED52 1 10 E2 bpl LED36 00ED54 1 4C 7F F2 LED54: jmp LF27F 00ED57 1 00ED57 1 A6 AD LED57: ldx SA 00ED59 1 E0 60 cpx #$60 00ED5B 1 F0 D9 beq LED36 00ED5D 1 4C 82 F2 jmp LF282 00ED60 1 00ED60 1 20 E8 EE LED60: jsr LEEE8 00ED63 1 F0 03 beq LED68 00ED65 1 4C 79 F2 jmp LF279 00ED68 1 00ED68 1 20 F8 EE LED68: jsr LEEF8 00ED6B 1 D0 03 bne LED70 00ED6D 1 4C 85 F2 LED6D: jmp LF285 00ED70 1 00ED70 1 C9 03 LED70: cmp #$03 00ED72 1 F0 0D beq LED81 00ED74 1 B0 0F bcs LED85 00ED76 1 C9 02 cmp #$02 00ED78 1 D0 27 bne LEDA1 00ED7A 1 20 25 EB jsr LEB25 00ED7D 1 B0 05 bcs LED84 00ED7F 1 A5 AE lda FA 00ED81 1 85 99 LED81: sta DFLTO 00ED83 1 18 clc 00ED84 1 60 LED84: rts 00ED85 1 00ED85 1 AA LED85: tax 00ED86 1 20 2C EE jsr iLISTEN 00ED89 1 24 90 bit STATUS 00ED8B 1 30 11 bmi LED9E 00ED8D 1 A5 AD lda SA 00ED8F 1 10 05 bpl LED96 00ED91 1 20 45 EE jsr LEE45 00ED94 1 D0 03 bne LED99 00ED96 1 20 4D EE LED96: jsr iSECOND 00ED99 1 8A LED99: txa 00ED9A 1 24 90 bit STATUS 00ED9C 1 10 E3 bpl LED81 00ED9E 1 4C 7F F2 LED9E: jmp LF27F 00EDA1 1 00EDA1 1 A6 AD LEDA1: ldx SA 00EDA3 1 E0 60 cpx #$60 00EDA5 1 F0 C6 beq LED6D 00EDA7 1 D0 D8 bne LED81 00EDA9 1 48 LEDA9: pha 00EDAA 1 .if CompileComputer >= PLUS4_01 00EDAA 1 86 BA stx WRBASE 00EDAC 1 A2 30 ldx #$30 00EDAE 1 A5 AE lda FA 00EDB0 1 C9 08 cmp #$08 00EDB2 1 F0 06 beq LEDBA 00EDB4 1 C9 09 cmp #$09 00EDB6 1 D0 17 bne LEDCF 00EDB8 1 A2 00 ldx #$00 00EDBA 1 A9 55 LEDBA: lda #$55 00EDBC 1 9D C0 FE sta LFEC0,x 00EDBF 1 5D C0 FE eor LFEC0,x 00EDC2 1 D0 0B bne LEDCF 00EDC4 1 BD C1 FE lda LFEC1,x 00EDC7 1 .else 00EDC7 1 txa 00EDC7 1 pha 00EDC7 1 ldx #$08 00EDC7 1 lda #$55 00EDC7 1 sta LFEF0 00EDC7 1 eor LFEF0 00EDC7 1 bne LEDCF 00EDC7 1 lda #$33 00EDC7 1 sta LFEF0 00EDC7 1 eor LFEF0 00EDC7 1 bne LEDCF 00EDC7 1 lda LFEF1 00EDC7 1 .endif 00EDC7 1 29 02 and #$02 00EDC9 1 D0 04 bne LEDCF 00EDCB 1 .if CompileComputer >= PLUS4_01 00EDCB 1 86 F9 stx USEKDY 00EDCD 1 .else 00EDCD 1 lda #$85 00EDCD 1 sta LFEF0 00EDCD 1 .byte $AD 00EDCD 1 .byte $F2 00EDCD 1 inc $FB30,x 00EDCD 1 stx LFEF2 00EDCD 1 LEDD6: lda LFEF2 00EDCD 1 bpl LEDD6 00EDCD 1 lda LFEF1 00EDCD 1 and #$03 00EDCD 1 beq LEDE3 00EDCD 1 inx 00EDCD 1 LEDE3: lda #$40 00EDCD 1 sta LFEF0 00EDCD 1 sta LFEF2 00EDCD 1 txa 00EDCD 1 sta KDYNUM 00EDCD 1 cmp FA 00EDCD 1 bne LEDCF 00EDCD 1 .endif 00EDCD 1 18 clc 00EDCE 1 24 .byte $24 00EDCF 1 38 LEDCF: sec 00EDD0 1 .if CompileComputer >= PLUS4_01 00EDD0 1 A6 BA ldx WRBASE 00EDD2 1 68 pla 00EDD3 1 60 rts 00EDD4 1 00EDD4 1 BD C2 FE LEDD4: lda LFEC2,x 00EDD7 1 10 FB bpl LEDD4 00EDD9 1 30 05 bmi LEDE0 00EDDB 1 A9 00 LEDDB: lda #$00 00EDDD 1 9D C0 FE sta LFEC0,x 00EDE0 1 A9 40 LEDE0: lda #$40 00EDE2 1 9D C2 FE sta LFEC2,x 00EDE5 1 A6 BA ldx WRBASE 00EDE7 1 68 pla 00EDE8 1 18 clc 00EDE9 1 60 rts 00EDEA 1 .else 00EDEA 1 pla 00EDEA 1 tax 00EDEA 1 pla 00EDEA 1 rts 00EDEA 1 .endif 00EDEA 1 00EDEA 1 .if CompileComputer >= PLUS4_01 00EDEA 1 8D F2 FE LEDEA: sta LFEF2 00EDED 1 8D C5 FE sta LFEC5 00EDF0 1 8D C2 FE sta LFEC2 00EDF3 1 CA dex 00EDF4 1 8E C3 FE stx LFEC3 00EDF7 1 4C DD CF jmp LCFEA 00EDFA 1 .endif 00EDFA 1 00EDFA 1 20 A9 ED iTALK: jsr LEDA9 00EDFD 1 90 03 bcc LEE02 00EDFF 1 4C 53 E1 jmp LE153 00EE02 1 00EE02 1 48 LEE02: pha 00EE03 1 A9 40 lda #$40 00EE05 1 8D E8 05 sta KDYCMD 00EE08 1 A5 F9 lda USEKDY 00EE0A 1 09 40 ora #$40 00EE0C 1 85 F9 sta USEKDY 00EE0E 1 A9 81 lda #$81 00EE10 1 4C EC EC jmp LECEC 00EE13 1 00EE13 1 24 F9 LEE13: bit USEKDY 00EE15 1 70 35 bvs LEE4C 00EE17 1 4C 0C E2 jmp LE20C 00EE1A 1 00EE1A 1 24 F9 iTKSA: bit USEKDY 00EE1C 1 70 03 bvs LEE21 00EE1E 1 4C 03 E2 jmp LE203 00EE21 1 00EE21 1 48 LEE21: pha 00EE22 1 .if CompileComputer >= PLUS4_05 00EE22 1 EA nop 00EE23 1 EA nop 00EE24 1 .else 00EE24 1 lda SA 00EE24 1 .endif 00EE24 1 8D E8 05 sta KDYCMD 00EE27 1 A9 82 lda #$82 00EE29 1 4C EC EC jmp LECEC 00EE2C 1 00EE2C 1 20 A9 ED iLISTEN:jsr LEDA9 00EE2F 1 90 03 bcc LEE34 00EE31 1 4C 56 E1 jmp LE156 00EE34 1 00EE34 1 48 LEE34: pha 00EE35 1 A9 20 lda #$20 00EE37 1 8D E8 05 sta KDYCMD 00EE3A 1 A5 F9 lda USEKDY 00EE3C 1 09 80 ora #$80 00EE3E 1 85 F9 sta USEKDY 00EE40 1 A9 81 lda #$81 00EE42 1 4C EC EC jmp LECEC 00EE45 1 00EE45 1 24 F9 LEE45: bit USEKDY 00EE47 1 30 03 bmi LEE4C 00EE49 1 4C FC E1 jmp LE1FC 00EE4C 1 00EE4C 1 60 LEE4C: rts 00EE4D 1 00EE4D 1 24 F9 iSECOND:bit USEKDY 00EE4F 1 30 03 bmi LEE54 00EE51 1 4C F7 E1 jmp LE1F7 00EE54 1 00EE54 1 48 LEE54: pha 00EE55 1 8D E8 05 sta KDYCMD 00EE58 1 A9 82 lda #$82 00EE5A 1 4C EC EC jmp LECEC 00EE5D 1 00EE5D 1 66 BA LEE5D: ror WRBASE 00EE5F 1 20 ED EE jsr LEEED 00EE62 1 F0 02 beq LEE66 00EE64 1 18 clc 00EE65 1 60 rts 00EE66 1 00EE66 1 20 F8 EE LEE66: jsr LEEF8 00EE69 1 8A txa 00EE6A 1 48 pha 00EE6B 1 A5 AE lda FA 00EE6D 1 F0 5B beq LEECA 00EE6F 1 C9 03 cmp #$03 00EE71 1 F0 57 beq LEECA 00EE73 1 B0 40 bcs LEEB5 00EE75 1 C9 02 cmp #$02 00EE77 1 D0 08 bne LEE81 00EE79 1 08 php 00EE7A 1 78 sei 00EE7B 1 20 46 EB jsr LEB46 00EE7E 1 28 plp 00EE7F 1 F0 49 beq LEECA 00EE81 1 A5 AD LEE81: lda SA 00EE83 1 29 0F and #$0F 00EE85 1 F0 43 beq LEECA 00EE87 1 AC 39 05 ldy TPTR 00EE8A 1 C0 BF cpy #$BF 00EE8C 1 90 0E bcc LEE9C 00EE8E 1 20 35 E5 jsr LE535 00EE91 1 B0 12 bcs LEEA5 00EE93 1 A9 02 lda #$02 00EE95 1 85 F8 sta TYPE 00EE97 1 A0 00 ldy #$00 00EE99 1 8C 39 05 sty TPTR 00EE9C 1 A9 00 LEE9C: lda #$00 00EE9E 1 91 B6 sta (TAPEBS),y 00EEA0 1 20 35 E5 jsr LE535 00EEA3 1 90 04 bcc LEEA9 00EEA5 1 68 LEEA5: pla 00EEA6 1 A9 00 lda #$00 00EEA8 1 60 rts 00EEA9 1 00EEA9 1 A5 AD LEEA9: lda SA 00EEAB 1 C9 62 cmp #$62 00EEAD 1 D0 1B bne LEECA 00EEAF 1 20 F0 E5 jsr LE5F0 00EEB2 1 4C CA EE jmp LEECA 00EEB5 1 00EEB5 1 24 BA LEEB5: bit WRBASE 00EEB7 1 10 0E bpl LEEC7 00EEB9 1 A5 AE lda FA 00EEBB 1 C9 08 cmp #$08 00EEBD 1 90 08 bcc LEEC7 00EEBF 1 A5 AD lda SA 00EEC1 1 29 0F and #$0F 00EEC3 1 C9 0F cmp #$0F 00EEC5 1 F0 03 beq LEECA 00EEC7 1 20 11 F2 LEEC7: jsr LF211 00EECA 1 68 LEECA: pla 00EECB 1 AA tax 00EECC 1 C6 97 dec LDTND 00EECE 1 E4 97 cpx LDTND 00EED0 1 F0 14 beq LEEE6 00EED2 1 A4 97 ldy LDTND 00EED4 1 B9 09 05 lda LAT,y 00EED7 1 9D 09 05 sta LAT,x 00EEDA 1 B9 13 05 lda FAT,y 00EEDD 1 9D 13 05 sta FAT,x 00EEE0 1 B9 1D 05 lda SAT,y 00EEE3 1 9D 1D 05 sta SAT,x 00EEE6 1 18 LEEE6: clc 00EEE7 1 60 rts 00EEE8 1 00EEE8 1 A9 00 LEEE8: lda #$00 00EEEA 1 85 90 sta STATUS 00EEEC 1 8A txa 00EEED 1 A6 97 LEEED: ldx LDTND 00EEEF 1 CA LEEEF: dex 00EEF0 1 30 15 bmi LEF07 00EEF2 1 DD 09 05 cmp LAT,x 00EEF5 1 D0 F8 bne LEEEF 00EEF7 1 60 rts 00EEF8 1 00EEF8 1 BD 09 05 LEEF8: lda LAT,x 00EEFB 1 85 AC sta LA 00EEFD 1 BD 1D 05 lda SAT,x 00EF00 1 85 AD sta SA 00EF02 1 BD 13 05 lda FAT,x 00EF05 1 85 AE sta FA 00EF07 1 60 LEF07: rts 00EF08 1 00EF08 1 A9 00 LEF08: lda #$00 00EF0A 1 85 97 sta LDTND 00EF0C 1 A2 03 LEF0C: ldx #$03 00EF0E 1 E4 99 cpx DFLTO 00EF10 1 B0 03 bcs LEF15 00EF12 1 20 23 EF jsr iUNLSN 00EF15 1 E4 98 LEF15: cpx DFLTN 00EF17 1 B0 03 bcs LEF1C 00EF19 1 20 3B EF jsr iUNTLK 00EF1C 1 86 99 LEF1C: stx DFLTO 00EF1E 1 A9 00 lda #$00 00EF20 1 85 98 sta DFLTN 00EF22 1 60 rts 00EF23 1 00EF23 1 24 F9 iUNLSN: bit USEKDY 00EF25 1 30 03 bmi LEF2A 00EF27 1 4C 3D E2 jmp LE23D 00EF2A 1 00EF2A 1 48 LEF2A: pha 00EF2B 1 A9 3F lda #$3F 00EF2D 1 8D E8 05 sta KDYCMD 00EF30 1 A5 F9 lda USEKDY 00EF32 1 29 7F and #$7F 00EF34 1 85 F9 sta USEKDY 00EF36 1 A9 81 lda #$81 00EF38 1 4C EC EC jmp LECEC 00EF3B 1 00EF3B 1 24 F9 iUNTLK: bit USEKDY 00EF3D 1 70 03 bvs LEF42 00EF3F 1 4C 2F E2 jmp LE22F 00EF42 1 00EF42 1 48 LEF42: pha 00EF43 1 A9 5F lda #$5F 00EF45 1 8D E8 05 sta KDYCMD 00EF48 1 A5 F9 lda USEKDY 00EF4A 1 29 BF and #$BF 00EF4C 1 85 F9 sta USEKDY 00EF4E 1 A9 81 lda #$81 00EF50 1 4C EC EC jmp LECEC 00EF53 1 00EF53 1 A6 AC LEF53: ldx LA 00EF55 1 20 E8 EE jsr LEEE8 00EF58 1 D0 03 bne LEF5D 00EF5A 1 4C 76 F2 jmp LF276 00EF5D 1 00EF5D 1 A6 97 LEF5D: ldx LDTND 00EF5F 1 E0 0A cpx #$0A 00EF61 1 90 03 bcc LEF66 00EF63 1 4C 73 F2 jmp LF273 00EF66 1 00EF66 1 E6 97 LEF66: inc LDTND 00EF68 1 A5 AC lda LA 00EF6A 1 9D 09 05 sta LAT,x 00EF6D 1 A5 AD lda SA 00EF6F 1 09 60 ora #$60 00EF71 1 85 AD sta SA 00EF73 1 9D 1D 05 sta SAT,x 00EF76 1 A5 AE lda FA 00EF78 1 9D 13 05 sta FAT,x 00EF7B 1 F0 09 beq LEF86 00EF7D 1 C9 03 cmp #$03 00EF7F 1 F0 05 beq LEF86 00EF81 1 90 05 bcc LEF88 00EF83 1 20 05 F0 jsr LF005 00EF86 1 18 LEF86: clc 00EF87 1 60 rts 00EF88 1 00EF88 1 C9 02 LEF88: cmp #$02 00EF8A 1 D0 2C bne LEFB8 00EF8C 1 20 46 EB jsr LEB46 00EF8F 1 AA tax 00EF90 1 E8 LEF90: inx 00EF91 1 F0 0B beq LEF9E 00EF93 1 8E 03 FD stx LFD03 00EF96 1 EC 03 FD cpx LFD03 00EF99 1 F0 F5 beq LEF90 00EF9B 1 4C 7F F2 jmp LF27F 00EF9E 1 00EF9E 1 38 LEF9E: sec 00EF9F 1 6E D8 07 ror APRES 00EFA2 1 A9 AF lda #$AF 00EFA4 1 8D DF 07 sta $07DF 00EFA7 1 A0 00 ldy #$00 00EFA9 1 20 D9 07 jsr KLUDES 00EFAC 1 8D 03 FD sta LFD03 00EFAF 1 C8 iny 00EFB0 1 20 D9 07 jsr KLUDES 00EFB3 1 8D 02 FD sta LFD02 00EFB6 1 18 clc 00EFB7 1 60 rts 00EFB8 1 00EFB8 1 A5 AD LEFB8: lda SA 00EFBA 1 29 0F and #$0F 00EFBC 1 D0 2C bne LEFEA 00EFBE 1 20 1B E3 jsr LE31B 00EFC1 1 B0 26 bcs LEFE9 00EFC3 1 20 60 F1 jsr LF160 00EFC6 1 A5 AB lda FNLEN 00EFC8 1 F0 0A beq LEFD4 00EFCA 1 20 21 EA jsr LEA21 00EFCD 1 90 10 bcc LEFDF 00EFCF 1 F0 18 beq LEFE9 00EFD1 1 4C 7C F2 LEFD1: jmp LF27C 00EFD4 1 00EFD4 1 20 CC E9 LEFD4: jsr LE9CC 00EFD7 1 F0 10 beq LEFE9 00EFD9 1 B0 F6 bcs LEFD1 00EFDB 1 C9 05 cmp #$05 00EFDD 1 F0 F2 beq LEFD1 00EFDF 1 A0 BF LEFDF: ldy #$BF 00EFE1 1 8C 39 05 sty TPTR 00EFE4 1 A9 02 lda #$02 00EFE6 1 85 F8 sta TYPE 00EFE8 1 18 LEFE8: clc 00EFE9 1 60 LEFE9: rts 00EFEA 1 00EFEA 1 20 19 E3 LEFEA: jsr LE319 00EFED 1 B0 FA bcs LEFE9 00EFEF 1 A9 04 lda #$04 00EFF1 1 85 F8 sta TYPE 00EFF3 1 20 6C E5 jsr LE56C 00EFF6 1 B0 0C bcs LF004 00EFF8 1 A9 02 lda #$02 00EFFA 1 85 F8 sta TYPE 00EFFC 1 A0 00 ldy #$00 00EFFE 1 8C 39 05 sty TPTR 00F001 1 8C 37 05 sty CTALLY 00F004 1 60 LF004: rts 00F005 1 00F005 1 A5 AD LF005: lda SA 00F007 1 30 DF bmi LEFE8 00F009 1 A4 AB ldy FNLEN 00F00B 1 F0 DB beq LEFE8 00F00D 1 A9 00 lda #$00 00F00F 1 85 90 sta STATUS 00F011 1 A5 AE lda FA 00F013 1 20 2C EE jsr iLISTEN 00F016 1 24 90 bit STATUS 00F018 1 30 0B bmi LF025 00F01A 1 A5 AD lda SA 00F01C 1 09 F0 ora #$F0 00F01E 1 20 4D EE jsr iSECOND 00F021 1 A5 90 lda STATUS 00F023 1 10 05 bpl LF02A 00F025 1 68 LF025: pla 00F026 1 68 pla 00F027 1 4C 7F F2 jmp LF27F 00F02A 1 00F02A 1 A5 AB LF02A: lda FNLEN 00F02C 1 F0 12 beq LF040 00F02E 1 A0 00 ldy #$00 00F030 1 A9 AF LF030: lda #$AF 00F032 1 8D DF 07 sta $07DF 00F035 1 20 D9 07 jsr KLUDES 00F038 1 20 DF EC jsr iCIOUT 00F03B 1 C8 iny 00F03C 1 C4 AB cpy FNLEN 00F03E 1 D0 F0 bne LF030 00F040 1 4C 23 F2 LF040: jmp LF223 00F043 1 00F043 1 86 B4 iLOAD: stx MEMUSS 00F045 1 84 B5 sty $B5 00F047 1 6C 2E 03 jmp (lILOAD) 00F04A 1 00F04A 1 85 93 LF04A: sta VERFCK 00F04C 1 A9 00 lda #$00 00F04E 1 85 90 sta STATUS 00F050 1 A5 AE lda FA 00F052 1 D0 03 bne LF057 00F054 1 4C 8B F2 LF054: jmp LF28B 00F057 1 00F057 1 C9 03 LF057: cmp #$03 00F059 1 F0 F9 beq LF054 00F05B 1 B0 07 bcs LF064 00F05D 1 C9 02 cmp #$02 00F05F 1 F0 F3 beq LF054 00F061 1 4C F0 F0 jmp LF0F0 00F064 1 00F064 1 A4 AB LF064: ldy FNLEN 00F066 1 D0 03 bne LF06B 00F068 1 4C 88 F2 jmp LF288 00F06B 1 00F06B 1 A6 AD LF06B: ldx SA 00F06D 1 20 60 F1 jsr LF160 00F070 1 A9 60 lda #$60 00F072 1 85 AD sta SA 00F074 1 20 05 F0 jsr LF005 00F077 1 A5 AE lda FA 00F079 1 20 FA ED jsr iTALK 00F07C 1 A5 AD lda SA 00F07E 1 20 1A EE jsr iTKSA 00F081 1 20 8B EC jsr iACPTR 00F084 1 85 9D sta EAL 00F086 1 A5 90 lda STATUS 00F088 1 4A lsr a 00F089 1 4A lsr a 00F08A 1 B0 5C bcs LF0E8 00F08C 1 20 8B EC jsr iACPTR 00F08F 1 85 9E sta $9E 00F091 1 8A txa 00F092 1 D0 08 bne LF09C 00F094 1 A5 B4 lda MEMUSS 00F096 1 85 9D sta EAL 00F098 1 A5 B5 lda $B5 00F09A 1 85 9E sta $9E 00F09C 1 20 89 F1 LF09C: jsr LF189 00F09F 1 A9 FD LF09F: lda #$FD 00F0A1 1 25 90 and STATUS 00F0A3 1 85 90 sta STATUS 00F0A5 1 20 E1 FF jsr kSTOP 00F0A8 1 D0 03 bne LF0AD 00F0AA 1 4C FF F1 jmp LF1FF 00F0AD 1 00F0AD 1 20 8B EC LF0AD: jsr iACPTR 00F0B0 1 AA tax 00F0B1 1 A5 90 lda STATUS 00F0B3 1 4A lsr a 00F0B4 1 4A lsr a 00F0B5 1 B0 E8 bcs LF09F 00F0B7 1 8A txa 00F0B8 1 A4 93 ldy VERFCK 00F0BA 1 F0 18 beq LF0D4 00F0BC 1 A0 00 ldy #$00 00F0BE 1 8D C7 07 sta VSAVE 00F0C1 1 A9 9D lda #$9D 00F0C3 1 8D DF 07 sta $07DF 00F0C6 1 20 D9 07 jsr KLUDES 00F0C9 1 CD C7 07 cmp VSAVE 00F0CC 1 F0 08 beq LF0D6 00F0CE 1 A9 10 lda #$10 00F0D0 1 20 1E F4 jsr LF41E 00F0D3 1 2C .byte $2C 00F0D4 1 91 9D LF0D4: sta (EAL),y 00F0D6 1 E6 9D LF0D6: inc EAL 00F0D8 1 D0 02 bne LF0DC 00F0DA 1 E6 9E inc $9E 00F0DC 1 24 90 LF0DC: bit STATUS 00F0DE 1 50 BF bvc LF09F 00F0E0 1 20 3B EF jsr iUNTLK 00F0E3 1 20 11 F2 jsr LF211 00F0E6 1 90 03 bcc LF0EB 00F0E8 1 4C 7C F2 LF0E8: jmp LF27C 00F0EB 1 00F0EB 1 A6 9D LF0EB: ldx EAL 00F0ED 1 A4 9E ldy $9E 00F0EF 1 60 LF0EF: rts 00F0F0 1 00F0F0 1 20 1B E3 LF0F0: jsr LE31B 00F0F3 1 B0 FA bcs LF0EF 00F0F5 1 20 60 F1 jsr LF160 00F0F8 1 A5 AB LF0F8: lda FNLEN 00F0FA 1 F0 09 beq LF105 00F0FC 1 20 21 EA jsr LEA21 00F0FF 1 90 0B bcc LF10C 00F101 1 F0 EC beq LF0EF 00F103 1 B0 E3 bcs LF0E8 00F105 1 20 CC E9 LF105: jsr LE9CC 00F108 1 F0 E5 beq LF0EF 00F10A 1 B0 DC bcs LF0E8 00F10C 1 A5 F8 LF10C: lda TYPE 00F10E 1 C9 01 cmp #$01 00F110 1 F0 12 beq LF124 00F112 1 C9 03 cmp #$03 00F114 1 D0 E2 bne LF0F8 00F116 1 A0 00 LF116: ldy #$00 00F118 1 B1 B6 lda (TAPEBS),y 00F11A 1 85 B4 sta MEMUSS 00F11C 1 C8 iny 00F11D 1 B1 B6 lda (TAPEBS),y 00F11F 1 85 B5 sta $B5 00F121 1 4C 28 F1 jmp LF128 00F124 1 00F124 1 A5 AD LF124: lda SA 00F126 1 D0 EE bne LF116 00F128 1 38 LF128: sec 00F129 1 A0 02 ldy #$02 00F12B 1 B1 B6 lda (TAPEBS),y 00F12D 1 A0 00 ldy #$00 00F12F 1 F1 B6 sbc (TAPEBS),y 00F131 1 AA tax 00F132 1 A0 03 ldy #$03 00F134 1 B1 B6 lda (TAPEBS),y 00F136 1 A0 01 ldy #$01 00F138 1 F1 B6 sbc (TAPEBS),y 00F13A 1 A8 tay 00F13B 1 18 clc 00F13C 1 8A txa 00F13D 1 65 B4 adc MEMUSS 00F13F 1 85 9D sta EAL 00F141 1 98 tya 00F142 1 65 B5 adc $B5 00F144 1 85 9E sta $9E 00F146 1 A5 B4 lda MEMUSS 00F148 1 85 B2 sta STAL 00F14A 1 A5 B5 lda $B5 00F14C 1 85 B3 sta $B3 00F14E 1 20 89 F1 jsr LF189 00F151 1 20 F3 E8 jsr LE8F3 00F154 1 90 95 bcc LF0EB 00F156 1 A9 1D lda #$1D 00F158 1 24 93 bit VERFCK 00F15A 1 10 93 bpl LF0EF 00F15C 1 A9 1C lda #$1C 00F15E 1 D0 8F bne LF0EF 00F160 1 A5 9A LF160: lda MSGFLG 00F162 1 10 24 bpl LF188 00F164 1 A0 0C ldy #$0C 00F166 1 20 CA EB jsr LEBCA 00F169 1 A5 AB lda FNLEN 00F16B 1 F0 1B beq LF188 00F16D 1 A0 17 ldy #$17 00F16F 1 20 CA EB jsr LEBCA 00F172 1 A4 AB LF172: ldy FNLEN 00F174 1 F0 12 beq LF188 00F176 1 A0 00 ldy #$00 00F178 1 A9 AF LF178: lda #$AF 00F17A 1 8D DF 07 sta $07DF 00F17D 1 20 D9 07 jsr KLUDES 00F180 1 20 D2 FF jsr kCHROUT 00F183 1 C8 iny 00F184 1 C4 AB cpy FNLEN 00F186 1 D0 F0 bne LF178 00F188 1 60 LF188: rts 00F189 1 00F189 1 A0 49 LF189: ldy #$49 00F18B 1 A5 93 lda VERFCK 00F18D 1 F0 02 beq LF191 00F18F 1 A0 59 ldy #$59 00F191 1 4C C6 EB LF191: jmp LEBC6 00F194 1 00F194 1 86 9D iSAVE: stx EAL 00F196 1 84 9E sty $9E 00F198 1 AA tax 00F199 1 B5 00 lda PDIR,x 00F19B 1 85 B2 sta STAL 00F19D 1 B5 01 lda PORT,x 00F19F 1 85 B3 sta $B3 00F1A1 1 6C 30 03 jmp (lISAVE) 00F1A4 1 00F1A4 1 A5 AE LF1A4: lda FA 00F1A6 1 D0 03 bne LF1AB 00F1A8 1 4C 8B F2 LF1A8: jmp LF28B 00F1AB 1 00F1AB 1 C9 03 LF1AB: cmp #$03 00F1AD 1 F0 F9 beq LF1A8 00F1AF 1 C9 02 cmp #$02 00F1B1 1 F0 F5 beq LF1A8 00F1B3 1 90 7F bcc LF234 00F1B5 1 A9 61 lda #$61 00F1B7 1 85 AD sta SA 00F1B9 1 A4 AB ldy FNLEN 00F1BB 1 D0 03 bne LF1C0 00F1BD 1 4C 88 F2 jmp LF288 00F1C0 1 00F1C0 1 20 05 F0 LF1C0: jsr LF005 00F1C3 1 20 28 F2 jsr LF228 00F1C6 1 A5 AE lda FA 00F1C8 1 20 2C EE jsr iLISTEN 00F1CB 1 A5 AD lda SA 00F1CD 1 20 4D EE jsr iSECOND 00F1D0 1 A0 00 ldy #$00 00F1D2 1 A5 B3 lda $B3 00F1D4 1 85 9C sta $9C 00F1D6 1 A5 B2 lda STAL 00F1D8 1 85 9B sta SAL 00F1DA 1 A5 9B lda SAL 00F1DC 1 20 DF EC jsr iCIOUT 00F1DF 1 A5 9C lda $9C 00F1E1 1 20 DF EC jsr iCIOUT 00F1E4 1 38 LF1E4: sec 00F1E5 1 A5 9B lda SAL 00F1E7 1 E5 9D sbc EAL 00F1E9 1 A5 9C lda $9C 00F1EB 1 E5 9E sbc $9E 00F1ED 1 B0 1F bcs LF20E 00F1EF 1 A9 9B lda #$9B 00F1F1 1 8D DF 07 sta $07DF 00F1F4 1 20 D9 07 jsr KLUDES 00F1F7 1 20 DF EC jsr iCIOUT 00F1FA 1 20 E1 FF jsr kSTOP 00F1FD 1 D0 07 bne LF206 00F1FF 1 20 11 F2 LF1FF: jsr LF211 00F202 1 A9 00 lda #$00 00F204 1 38 sec 00F205 1 60 rts 00F206 1 00F206 1 E6 9B LF206: inc SAL 00F208 1 D0 DA bne LF1E4 00F20A 1 E6 9C inc $9C 00F20C 1 D0 D6 bne LF1E4 00F20E 1 20 23 EF LF20E: jsr iUNLSN 00F211 1 24 AD LF211: bit SA 00F213 1 30 11 bmi LF226 00F215 1 A5 AE lda FA 00F217 1 20 2C EE jsr iLISTEN 00F21A 1 A5 AD lda SA 00F21C 1 29 EF and #$EF 00F21E 1 09 E0 ora #$E0 00F220 1 20 4D EE jsr iSECOND 00F223 1 20 23 EF LF223: jsr iUNLSN 00F226 1 18 LF226: clc 00F227 1 60 rts 00F228 1 00F228 1 A5 9A LF228: lda MSGFLG 00F22A 1 10 38 bpl LF264 00F22C 1 A0 51 ldy #$51 00F22E 1 20 CA EB jsr LEBCA 00F231 1 4C 72 F1 jmp LF172 00F234 1 00F234 1 20 19 E3 LF234: jsr LE319 00F237 1 B0 29 bcs LF262 00F239 1 20 28 F2 jsr LF228 00F23C 1 A2 03 ldx #$03 00F23E 1 A5 AD lda SA 00F240 1 29 01 and #$01 00F242 1 D0 02 bne LF246 00F244 1 A2 01 ldx #$01 00F246 1 86 F8 LF246: stx TYPE 00F248 1 20 6C E5 jsr LE56C 00F24B 1 B0 15 bcs LF262 00F24D 1 A9 00 lda #$00 00F24F 1 85 F8 sta TYPE 00F251 1 20 B0 E5 jsr LE5B0 00F254 1 B0 0C bcs LF262 00F256 1 A5 AD lda SA 00F258 1 29 02 and #$02 00F25A 1 F0 05 beq LF261 00F25C 1 20 F0 E5 jsr LE5F0 00F25F 1 B0 01 bcs LF262 00F261 1 18 LF261: clc 00F262 1 A9 00 LF262: lda #$00 00F264 1 60 LF264: rts 00F265 1 00F265 1 A5 91 LF265: lda STKEY 00F267 1 C9 7F cmp #$7F 00F269 1 D0 07 bne LF272 00F26B 1 08 php 00F26C 1 20 CC FF jsr kCLRCHN 00F26F 1 85 EF sta NDX 00F271 1 28 plp 00F272 1 60 LF272: rts 00F273 1 00F273 1 A9 01 LF273: lda #$01 00F275 1 2C .byte $2C 00F276 1 A9 02 LF276: lda #$02 00F278 1 2C .byte $2C 00F279 1 A9 03 LF279: lda #$03 00F27B 1 2C .byte $2C 00F27C 1 A9 04 LF27C: lda #$04 00F27E 1 2C .byte $2C 00F27F 1 A9 05 LF27F: lda #$05 00F281 1 2C .byte $2C 00F282 1 A9 06 LF282: lda #$06 00F284 1 2C .byte $2C 00F285 1 A9 07 LF285: lda #$07 00F287 1 2C .byte $2C 00F288 1 A9 08 LF288: lda #$08 00F28A 1 2C .byte $2C 00F28B 1 A9 09 LF28B: lda #$09 00F28D 1 48 pha 00F28E 1 20 CC FF jsr kCLRCHN 00F291 1 A0 00 ldy #$00 00F293 1 24 9A bit MSGFLG 00F295 1 50 0A bvc LF2A1 00F297 1 20 CA EB jsr LEBCA 00F29A 1 68 pla 00F29B 1 48 pha 00F29C 1 09 30 ora #$30 00F29E 1 20 D2 FF jsr kCHROUT 00F2A1 1 68 LF2A1: pla 00F2A2 1 38 sec 00F2A3 1 60 rts 00F2A4 1 00F2A4 1 A2 FF NMI: ldx #$FF 00F2A6 1 78 sei 00F2A7 1 9A txs 00F2A8 1 D8 cld 00F2A9 1 20 A6 CF jsr LCFA6 00F2AC 1 20 0B F3 jsr iIOINIT 00F2AF 1 20 11 CF jsr LCF11 00F2B2 1 08 php 00F2B3 1 30 07 bmi LF2BC 00F2B5 1 A9 A5 lda #$A5 00F2B7 1 CD 08 05 cmp DEJAVU 00F2BA 1 F0 03 beq LF2BF 00F2BC 1 20 52 F3 LF2BC: jsr iRAMTAS 00F2BF 1 20 CE F2 LF2BF: jsr iRESTOR 00F2C2 1 20 4E D8 jsr iCINT 00F2C5 1 28 plp 00F2C6 1 30 03 bmi LF2CB 00F2C8 1 4C 45 F4 jmp LF445 00F2CB 1 00F2CB 1 4C 00 80 LF2CB: jmp L8000 00F2CE 1 00F2CE 1 A2 EB iRESTOR:ldx #$EB 00F2D0 1 A0 F2 ldy #$F2 00F2D2 1 18 clc 00F2D3 1 86 B8 iVECTOR:stx TMP2 00F2D5 1 84 B9 sty $B9 00F2D7 1 A0 1F ldy #$1F 00F2D9 1 B9 12 03 LF2D9: lda lITIME,y 00F2DC 1 B0 02 bcs LF2E0 00F2DE 1 B1 B8 lda (TMP2),y 00F2E0 1 99 12 03 LF2E0: sta lITIME,y 00F2E3 1 90 02 bcc LF2E7 00F2E5 1 91 B8 sta (TMP2),y 00F2E7 1 88 LF2E7: dey 00F2E8 1 10 EF bpl LF2D9 00F2EA 1 60 rts 00F2EB 1 00F2EB 1 42 CE .addr LCE42 00F2ED 1 0E CE .addr LCE0E 00F2EF 1 4C F4 .addr LF44C 00F2F1 1 53 EF .addr LEF53 00F2F3 1 5D EE .addr LEE5D 00F2F5 1 18 ED .addr LED18 00F2F7 1 60 ED .addr LED60 00F2F9 1 0C EF .addr LEF0C 00F2FB 1 E8 EB .addr LEBE8 00F2FD 1 4B EC .addr LEC4B 00F2FF 1 65 F2 .addr LF265 00F301 1 D9 EB .addr LEBD9 00F303 1 08 EF .addr LEF08 00F305 1 4C F4 .addr LF44C 00F307 1 4A F0 .addr LF04A 00F309 1 A4 F1 .addr LF1A4 00F30B 1 A9 0F iIOINIT:lda #$0F 00F30D 1 85 00 sta PDIR 00F30F 1 A9 08 lda #$08 00F311 1 85 01 sta PORT 00F313 1 A2 FF ldx #$FF 00F315 1 8E 10 FD stx SPI6529 00F318 1 8E F3 FE stx LFEF3 00F31B 1 E8 inx 00F31C 1 8E F4 FE stx LFEF4 00F31F 1 8E F0 FE stx LFEF0 00F322 1 A9 40 lda #$40 00F324 1 8D F5 FE sta LFEF5 00F327 1 .if CompileComputer >= PLUS4_01 00F327 1 20 EA ED jsr LEDEA 00F32A 1 .else 00F32A 1 sta LFEF2 00F32A 1 .endif 00F32A 1 BD 38 F3 LF32A: lda LF338,x 00F32D 1 9D 00 FF sta TEDT1RL,x 00F330 1 E8 inx 00F331 1 E0 1A cpx #$1A 00F333 1 D0 F5 bne LF32A 00F335 1 4C 46 EB jmp LEB46 00F338 1 00F338 1 F1 39 00 00 LF338: .byte $F1,$39,$00,$00,$00,$00,$1B,$08 | LF338_NTSC 00F33C 1 00 00 1B 48 00F340 1 00 00 02 CC .byte $00,$00,$02,$CC,$00,$00,$00,$00 00F344 1 00 00 00 00 00F348 1 00 00 04 D0 .byte $00,$00,$04,$D0,$08,$71,$5B,$75 00F34C 1 08 71 5B 75 00F350 1 77 6E .byte $77,$6E 00F352 1 A9 00 iRAMTAS:lda #$00 00F354 1 A8 tay 00F355 1 99 02 00 LF355: sta SRCHTK,y 00F358 1 99 00 02 sta BUF,y 00F35B 1 99 00 03 sta lIERROR,y 00F35E 1 99 00 04 sta $0400,y 00F361 1 99 00 07 sta $0700,y 00F364 1 C8 iny 00F365 1 D0 EE bne LF355 00F367 1 A2 08 ldx #$08 00F369 1 86 9F stx T1 00F36B 1 BD F5 FF LF36B: lda RESET - 1,x 00F36E 1 9D F5 FF sta RESET - 1,x 00F371 1 DD F5 3F cmp $3FF5,x 00F374 1 D0 01 bne LF377 00F376 1 C8 iny 00F377 1 DD F5 7F LF377: cmp $7FF5,x 00F37A 1 D0 02 bne LF37E 00F37C 1 C6 9F dec T1 00F37E 1 CA LF37E: dex 00F37F 1 D0 EA bne LF36B 00F381 1 C0 08 cpy #$08 00F383 1 F0 07 beq LF38C 00F385 1 A5 9F lda T1 00F387 1 D0 08 bne LF391 00F389 1 A0 7F ldy #$7F 00F38B 1 2C .byte $2C 00F38C 1 A0 3F LF38C: ldy #$3F 00F38E 1 A2 F6 ldx #$F6 00F390 1 2C .byte $2C 00F391 1 A0 FD LF391: ldy #$FD 00F393 1 18 clc 00F394 1 20 2F F4 jsr LF42F 00F397 1 A9 10 lda #$10 00F399 1 8D 32 05 sta $0532 00F39C 1 A2 3A ldx #$3A 00F39E 1 BD D1 F3 LF39E: lda LF3D1,x 00F3A1 1 9D 5E 05 sta KEYIDX,x 00F3A4 1 CA dex 00F3A5 1 D0 F7 bne LF39E 00F3A7 1 8E 5D 05 stx KYNDX 00F3AA 1 A2 0B ldx #$0B 00F3AC 1 BD B3 CF LF3AC: lda LCFB3,x 00F3AF 1 9D D9 07 sta KLUDES,x 00F3B2 1 CA dex 00F3B3 1 10 F7 bpl LF3AC 00F3B5 1 A2 0F ldx #$0F 00F3B7 1 BD 43 E1 LF3B7: lda LE143,x 00F3BA 1 9D 13 01 sta COLKEY,x 00F3BD 1 CA dex 00F3BE 1 10 F7 bpl LF3B7 00F3C0 1 A9 A5 lda #$A5 00F3C2 1 8D 08 05 sta DEJAVU 00F3C5 1 .if CompileComputer >= PLUS4_BETA_0203 00F3C5 1 A9 04 lda #$04 00F3C7 1 8D FA 07 sta FFRMSK 00F3CA 1 A9 18 lda #$18 00F3CC 1 8D FB 07 sta VMBMSK 00F3CF 1 .endif 00F3CF 1 60 rts 00F3D0 1 00F3D0 1 .if CompileComputer = PLUS4_BETA_0119 00F3D0 1 LCFB3: php 00F3D0 1 sei 00F3D0 1 sta TEDROMSEL 00F3D0 1 lda (PDIR),y 00F3D0 1 sta TEDRAMSEL 00F3D0 1 plp 00F3D0 1 LF3D1: rts 00F3D0 1 00F3D0 1 .else 00F3D0 1 EA nop 00F3D1 1 EA LF3D1: nop 00F3D2 1 .endif 00F3D2 1 07 06 0A 07 .byte $07,$06,$0A,$07,$06,$04,$05,$05 00F3D6 1 06 04 05 05 00F3DA 1 47 52 41 50 .byte "GRAPHICDLOAD" 00F3DE 1 48 49 43 44 00F3E2 1 4C 4F 41 44 00F3E6 1 00F3E6 1 22 .byte $22 00F3E7 1 44 49 52 45 .byte "DIRECTORY" 00F3EB 1 43 54 4F 52 00F3EF 1 59 00F3F0 1 00F3F0 1 0D .byte $0D 00F3F1 1 53 43 4E 43 .byte "SCNCLR" 00F3F5 1 4C 52 00F3F7 1 0D .byte $0D 00F3F8 1 44 53 41 56 .byte "DSAVE" 00F3FC 1 45 00F3FD 1 22 .byte $22 00F3FE 1 52 55 4E .byte "RUN" 00F401 1 0D .byte $0D 00F402 1 4C 49 53 54 .byte "LIST" 00F406 1 0D .byte $0D 00F407 1 48 45 4C 50 .byte "HELP" 00F40B 1 0D .byte $0D 00F40C 1 85 AB iSETNAM:sta FNLEN 00F40E 1 86 AF stx FNADR 00F410 1 84 B0 sty $B0 00F412 1 60 rts 00F413 1 00F413 1 85 AC iSETLFS:sta LA 00F415 1 86 AE stx FA 00F417 1 84 AD sty SA 00F419 1 60 rts 00F41A 1 00F41A 1 85 9A iSETMSF:sta MSGFLG 00F41C 1 A5 90 iREADST:lda STATUS 00F41E 1 05 90 LF41E: ora STATUS 00F420 1 85 90 sta STATUS 00F422 1 60 rts 00F423 1 00F423 1 8D 35 05 iSETTMO:sta TIMOUT 00F426 1 60 rts 00F427 1 00F427 1 90 06 iMEMTOP:bcc LF42F 00F429 1 AE 33 05 ldx MSIZ 00F42C 1 AC 34 05 ldy $0534 00F42F 1 8E 33 05 LF42F: stx MSIZ 00F432 1 8C 34 05 sty $0534 00F435 1 60 rts 00F436 1 00F436 1 90 06 iMEMBOT:bcc LF43E 00F438 1 AE 31 05 ldx MEMSTR 00F43B 1 AC 32 05 ldy $0532 00F43E 1 8E 31 05 LF43E: stx MEMSTR 00F441 1 8C 32 05 sty $0532 00F444 1 60 rts 00F445 1 00F445 1 A2 00 LF445: ldx #$00 00F447 1 8E 54 05 stx FLGS 00F44A 1 F0 0C beq LF458 00F44C 1 D8 LF44C: cld 00F44D 1 A2 05 ldx #$05 00F44F 1 68 LF44F: pla 00F450 1 9D 52 05 sta PCH,x 00F453 1 CA dex 00F454 1 10 F9 bpl LF44F 00F456 1 A2 09 ldx #$09 00F458 1 8E F4 07 LF458: stx SYREG 00F45B 1 A9 C0 lda #$C0 00F45D 1 85 9A sta MSGFLG 00F45F 1 BA tsx 00F460 1 8E 58 05 stx SP 00F463 1 AE F4 07 ldx SYREG 00F466 1 20 66 CF jsr LCF66 00F469 1 AD 06 FF lda TEDVSP 00F46C 1 09 10 ora #$10 00F46E 1 8D 06 FF sta TEDVSP 00F471 1 A9 00 lda #$00 00F473 1 85 A1 sta T2 00F475 1 85 A2 sta $A2 00F477 1 58 cli 00F478 1 A2 0F LF478: ldx #$0F 00F47A 1 20 66 CF jsr LCF66 00F47D 1 AD 52 05 lda PCH 00F480 1 20 10 FB jsr LFB10 00F483 1 A0 00 ldy #$00 00F485 1 B9 53 05 LF485: lda PCL,y 00F488 1 20 05 FB jsr LFB05 00F48B 1 C8 iny 00F48C 1 C0 06 cpy #$06 00F48E 1 90 F5 bcc LF485 00F490 1 B0 03 bcs LF495 00F492 1 20 0B FB LF492: jsr LFB0B 00F495 1 20 3A FB LF495: jsr LFB3A 00F498 1 A2 00 ldx #$00 00F49A 1 86 F3 stx CHRPTR 00F49C 1 20 CF FF LF49C: jsr kCHRIN 00F49F 1 9D 00 02 sta BUF,x 00F4A2 1 E8 inx 00F4A3 1 C9 0D cmp #$0D 00F4A5 1 D0 F5 bne LF49C 00F4A7 1 CA dex 00F4A8 1 86 F4 stx BUFEND 00F4AA 1 20 3F FB LF4AA: jsr LFB3F 00F4AD 1 F0 E6 beq LF495 00F4AF 1 C9 20 cmp #$20 00F4B1 1 F0 F7 beq LF4AA 00F4B3 1 A2 0F ldx #$0F 00F4B5 1 DD 70 F5 LF4B5: cmp LF570,x 00F4B8 1 F0 05 beq LF4BF 00F4BA 1 CA dex 00F4BB 1 10 F8 bpl LF4B5 00F4BD 1 30 D3 bmi LF492 00F4BF 1 E0 0D LF4BF: cpx #$0D 00F4C1 1 B0 0E bcs LF4D1 00F4C3 1 8A txa 00F4C4 1 0A asl a 00F4C5 1 AA tax 00F4C6 1 BD 81 F5 lda LF580+1,x 00F4C9 1 48 pha 00F4CA 1 BD 80 F5 lda LF580,x 00F4CD 1 48 pha 00F4CE 1 4C AD FA jmp LFAAD 00F4D1 1 00F4D1 1 8D 5B 05 LF4D1: sta CMPFLG 00F4D4 1 4C 6E F6 jmp LF66E 00F4D7 1 00F4D7 1 B0 08 LF4D7: bcs LF4E1 00F4D9 1 20 5B FB jsr LFB5B 00F4DC 1 20 AD FA jsr LFAAD 00F4DF 1 90 06 bcc LF4E7 00F4E1 1 A9 0B LF4E1: lda #$0B 00F4E3 1 85 F1 sta T0 00F4E5 1 D0 0E bne LF4F5 00F4E7 1 20 64 FB LF4E7: jsr LFB64 00F4EA 1 4A lsr a 00F4EB 1 .if CompileComputer = PLUS4_BETA_0203 00F4EB 1 ror $51 00F4EB 1 .else 00F4EB 1 66 F1 ror T0 00F4ED 1 .endif 00F4ED 1 4A lsr a 00F4EE 1 66 F1 ror T0 00F4F0 1 4A lsr a 00F4F1 1 66 F1 ror T0 00F4F3 1 85 F2 sta $F2 00F4F5 1 20 E1 FF LF4F5: jsr kSTOP 00F4F8 1 F0 0D beq LF507 00F4FA 1 20 9A F5 jsr LF59A 00F4FD 1 A9 08 lda #$08 00F4FF 1 20 96 FB jsr LFB96 00F502 1 20 72 FB jsr LFB72 00F505 1 B0 EE bcs LF4F5 00F507 1 4C 95 F4 LF507: jmp LF495 00F50A 1 00F50A 1 B0 FB LF50A: bcs LF507 00F50C 1 A5 F1 lda T0 00F50E 1 A4 F2 ldy $F2 00F510 1 8D 53 05 sta PCL 00F513 1 8C 52 05 sty PCH 00F516 1 A0 00 ldy #$00 00F518 1 20 AD FA LF518: jsr LFAAD 00F51B 1 B0 EA bcs LF507 00F51D 1 A5 F1 lda T0 00F51F 1 99 54 05 sta FLGS,y 00F522 1 C8 iny 00F523 1 C0 05 cpy #$05 00F525 1 90 F1 bcc LF518 00F527 1 B0 DE bcs LF507 00F529 1 B0 13 LF529: bcs LF53E 00F52B 1 20 5B FB jsr LFB5B 00F52E 1 A0 00 ldy #$00 00F530 1 20 AD FA LF530: jsr LFAAD 00F533 1 B0 09 bcs LF53E 00F535 1 A5 F1 lda T0 00F537 1 91 A1 sta (T2),y 00F539 1 C8 iny 00F53A 1 C0 08 cpy #$08 00F53C 1 90 F2 bcc LF530 00F53E 1 00F53E 1 LF53E: 00F53E 1 .if CompileComputer >= PLUS4_01 00F53E 1 20 D8 FB jsr LFBD8 00F541 1 1B .byte $1B 00F542 1 4F .byte $4F 00F543 1 91 00 sta (PDIR),y 00F545 1 20 9A F5 jsr LF59A 00F548 1 4C 95 F4 jmp LF495 00F54B 1 .else 00F54B 1 lda #$91 00F54B 1 jsr kCHROUT 00F54B 1 jsr LDF87 00F54B 1 jsr LF59A 00F54B 1 bcs LF507 00F54B 1 .endif 00F54B 1 00F54B 1 B0 0A LF54B: bcs LF557 00F54D 1 A5 F1 lda T0 00F54F 1 8D 53 05 sta PCL 00F552 1 A5 F2 lda $F2 00F554 1 8D 52 05 sta PCH 00F557 1 AE 58 05 LF557: ldx SP 00F55A 1 9A txs 00F55B 1 A2 00 ldx #$00 00F55D 1 BD 52 05 LF55D: lda PCH,x 00F560 1 48 pha 00F561 1 E8 inx 00F562 1 E0 03 cpx #$03 00F564 1 D0 F7 bne LF55D 00F566 1 AE 56 05 ldx XR 00F569 1 AC 57 05 ldy YR 00F56C 1 AD 55 05 lda ACC 00F56F 1 40 rti 00F570 1 00F570 1 58 4D 52 47 LF570: .byte "XMRGTCDA.HF>;LSV" 00F574 1 54 43 44 41 00F578 1 2E 48 46 3E 00F580 1 00F580 1 02 80 D6 F4 LF580: .word $8002,$F4D6,$F477,$F54A 00F584 1 77 F4 4A F5 00F588 1 D0 F5 CD F5 .word $F5D0,$F5CD,$F723,$F91E 00F58C 1 23 F7 1E F9 00F590 1 1E F9 0D F6 .word $F91E,$F60D,$F709,$F528 00F594 1 09 F7 28 F5 00F598 1 09 F5 .word $F509 00F59A 1 20 3A FB LF59A: jsr LFB3A 00F59D 1 A9 3E lda #$3E 00F59F 1 20 D2 FF jsr kCHROUT 00F5A2 1 20 FB FA jsr LFAFB 00F5A5 1 A0 00 ldy #$00 00F5A7 1 20 96 CF LF5A7: jsr LCF96 00F5AA 1 20 05 FB jsr LFB05 00F5AD 1 C8 iny 00F5AE 1 C0 08 cpy #$08 00F5B0 1 90 F5 bcc LF5A7 00F5B2 1 20 D8 FB jsr LFBD8 00F5B5 1 3A .byte ":" 00F5B6 1 12 00 .byte $12,$00 00F5B8 1 A0 00 ldy #$00 00F5BA 1 20 96 CF LF5BA: jsr LCF96 00F5BD 1 29 7F and #$7F 00F5BF 1 C9 20 cmp #$20 00F5C1 1 B0 02 bcs LF5C5 00F5C3 1 A9 2E lda #$2E 00F5C5 1 20 D2 FF LF5C5: jsr kCHROUT 00F5C8 1 C8 iny 00F5C9 1 C0 08 cpy #$08 00F5CB 1 90 ED bcc LF5BA 00F5CD 1 60 rts 00F5CE 1 00F5CE 1 A9 00 LF5CE: lda #$00 00F5D0 1 2C .byte $2C 00F5D1 1 A9 80 LF5D1: lda #$80 00F5D3 1 .if CompileComputer >= PLUS4_01 00F5D3 1 85 BB sta $BB 00F5D5 1 .else 00F5D5 1 sta CMPFLG 00F5D5 1 .endif 00F5D5 1 20 A0 FB jsr LFBA0 00F5D8 1 B0 30 bcs LF60A 00F5DA 1 20 AD FA jsr LFAAD 00F5DD 1 B0 2B bcs LF60A 00F5DF 1 20 3A FB jsr LFB3A 00F5E2 1 A0 00 ldy #$00 00F5E4 1 LF5E4: 00F5E4 1 .if CompileComputer >= PLUS4_01 00F5E4 1 20 96 CF jsr LCF96 00F5E7 1 24 BB bit $BB 00F5E9 1 .else 00F5E9 1 lda (T2),y 00F5E9 1 bit CMPFLG 00F5E9 1 .endif 00F5E9 1 10 02 bpl LF5ED 00F5EB 1 91 F1 sta (T0),y 00F5ED 1 D1 F1 LF5ED: cmp (T0),y 00F5EF 1 F0 08 beq LF5F9 00F5F1 1 20 E1 FF jsr kSTOP 00F5F4 1 F0 11 beq LF607 00F5F6 1 20 FB FA jsr LFAFB 00F5F9 1 E6 F1 LF5F9: inc T0 00F5FB 1 D0 02 bne LF5FF 00F5FD 1 E6 F2 inc $F2 00F5FF 1 20 94 FB LF5FF: jsr LFB94 00F602 1 20 86 FB jsr LFB86 00F605 1 B0 DD bcs LF5E4 00F607 1 4C 95 F4 LF607: jmp LF495 00F60A 1 00F60A 1 4C 92 F4 LF60A: jmp LF492 00F60D 1 00F60D 1 .if CompileComputer >= PLUS4_01 00F60D 1 EA nop 00F60E 1 .endif 00F60E 1 00F60E 1 20 A0 FB LF60E: jsr LFBA0 00F611 1 B0 F7 bcs LF60A 00F613 1 A0 00 ldy #$00 00F615 1 20 3F FB jsr LFB3F 00F618 1 C9 27 cmp #$27 00F61A 1 D0 12 bne LF62E 00F61C 1 20 3F FB jsr LFB3F 00F61F 1 LF61F: 00F61F 1 .if CompileComputer >= PLUS4_01 00F61F 1 99 5D 02 sta XCNT,y 00F622 1 .else 00F622 1 sta $77,y 00F622 1 .endif 00F622 1 C8 iny 00F623 1 20 3F FB jsr LFB3F 00F626 1 F0 1B beq LF643 00F628 1 C0 20 cpy #$20 00F62A 1 D0 F3 bne LF61F 00F62C 1 F0 15 beq LF643 00F62E 1 8C 5C 05 LF62E: sty BAD 00F631 1 20 AB FA jsr LFAAB 00F634 1 A5 F1 LF634: lda T0 00F636 1 .if CompileComputer >= PLUS4_01 00F636 1 99 5D 02 sta XCNT,y 00F639 1 .else 00F639 1 sta $77,y 00F639 1 .endif 00F639 1 C8 iny 00F63A 1 20 AD FA jsr LFAAD 00F63D 1 B0 04 bcs LF643 00F63F 1 C0 20 cpy #$20 00F641 1 D0 F1 bne LF634 00F643 1 8C 5B 05 LF643: sty CMPFLG 00F646 1 20 3A FB jsr LFB3A 00F649 1 A2 00 LF649: ldx #$00 00F64B 1 A0 00 ldy #$00 00F64D 1 20 96 CF LF64D: jsr LCF96 00F650 1 .if CompileComputer >= PLUS4_01 00F650 1 DD 5D 02 cmp XCNT,x 00F653 1 .else 00F653 1 cmp $77,x 00F653 1 .endif 00F653 1 D0 0F bne LF664 00F655 1 C8 iny 00F656 1 E8 inx 00F657 1 EC 5B 05 cpx CMPFLG 00F65A 1 D0 F1 bne LF64D 00F65C 1 20 E1 FF jsr kSTOP 00F65F 1 .if CompileComputer >= PLUS4_01 00F65F 1 F0 A6 beq LF607 00F661 1 .else 00F661 1 beq LF66B 00F661 1 .endif 00F661 1 20 FB FA jsr LFAFB 00F664 1 20 94 FB LF664: jsr LFB94 00F667 1 20 86 FB jsr LFB86 00F66A 1 B0 DD bcs LF649 00F66C 1 .if CompileComputer >= PLUS4_01 00F66C 1 90 99 bcc LF607 00F66E 1 .else 00F66E 1 LF66B: jmp LF495 00F66E 1 .endif 00F66E 1 00F66E 1 A0 01 LF66E: ldy #$01 00F670 1 84 AE sty FA 00F672 1 84 AD sty SA 00F674 1 88 dey 00F675 1 84 AB sty FNLEN 00F677 1 84 90 sty STATUS 00F679 1 84 93 sty VERFCK 00F67B 1 .if CompileComputer >= PLUS4_01 00F67B 1 A9 02 lda #>XCNT 00F67D 1 85 B0 sta FNADR+1 00F67F 1 A9 5D lda #= PLUS4_01 00F6A3 1 C0 11 cpy #$11 00F6A5 1 .else 00F6A5 1 cpy #$10 00F6A5 1 .endif 00F6A5 1 90 EB bcc LF692 00F6A7 1 4C 92 F4 LF6A7: jmp LF492 00F6AA 1 00F6AA 1 .if CompileComputer >= PLUS4_01 00F6AA 1 EA nop 00F6AB 1 .endif 00F6AB 1 00F6AB 1 86 F3 LF6AB: stx CHRPTR 00F6AD 1 20 3F FB jsr LFB3F 00F6B0 1 20 AD FA jsr LFAAD 00F6B3 1 B0 31 bcs LF6E6 00F6B5 1 A5 F1 lda T0 00F6B7 1 .if CompileComputer < PLUS4_01 00F6B7 1 and #$0F 00F6B7 1 .endif 00F6B7 1 F0 EE beq LF6A7 00F6B9 1 C9 03 cmp #$03 00F6BB 1 F0 EA beq LF6A7 00F6BD 1 85 AE sta FA 00F6BF 1 20 AD FA jsr LFAAD 00F6C2 1 B0 22 bcs LF6E6 00F6C4 1 20 5B FB jsr LFB5B 00F6C7 1 20 AD FA jsr LFAAD 00F6CA 1 B0 DB bcs LF6A7 00F6CC 1 20 3A FB jsr LFB3A 00F6CF 1 A6 F1 ldx T0 00F6D1 1 A4 F2 ldy $F2 00F6D3 1 AD 5B 05 lda CMPFLG 00F6D6 1 C9 53 cmp #$53 00F6D8 1 D0 CD bne LF6A7 00F6DA 1 A9 00 lda #$00 00F6DC 1 85 AD sta SA 00F6DE 1 A9 A1 lda #$A1 00F6E0 1 20 D8 FF jsr kSAVE 00F6E3 1 4C 95 F4 LF6E3: jmp LF495 00F6E6 1 00F6E6 1 AD 5B 05 LF6E6: lda CMPFLG 00F6E9 1 C9 56 cmp #$56 00F6EB 1 F0 06 beq LF6F3 00F6ED 1 C9 4C cmp #$4C 00F6EF 1 D0 B6 bne LF6A7 00F6F1 1 A9 00 lda #$00 00F6F3 1 20 D5 FF LF6F3: jsr kLOAD 00F6F6 1 A5 90 lda STATUS 00F6F8 1 29 10 and #$10 00F6FA 1 F0 E7 beq LF6E3 00F6FC 1 AD 5B 05 lda CMPFLG 00F6FF 1 C9 4C cmp #$4C 00F701 1 F0 A4 beq LF6A7 00F703 1 A2 2A ldx #$2A 00F705 1 20 66 CF jsr LCF66 00F708 1 30 D9 bmi LF6E3 00F70A 1 20 A0 FB LF70A: jsr LFBA0 00F70D 1 B0 98 bcs LF6A7 00F70F 1 20 AD FA jsr LFAAD 00F712 1 B0 93 bcs LF6A7 00F714 1 A0 00 ldy #$00 00F716 1 A5 F1 LF716: lda T0 00F718 1 91 A1 sta (T2),y 00F71A 1 20 94 FB jsr LFB94 00F71D 1 20 86 FB jsr LFB86 00F720 1 B0 F4 bcs LF716 00F722 1 90 BF bcc LF6E3 00F724 1 B0 08 LF724: bcs LF72E 00F726 1 20 5B FB jsr LFB5B 00F729 1 20 AD FA jsr LFAAD 00F72C 1 90 06 bcc LF734 00F72E 1 A9 14 LF72E: lda #$14 00F730 1 85 F1 sta T0 00F732 1 D0 03 bne LF737 00F734 1 20 64 FB LF734: jsr LFB64 00F737 1 20 3A FB LF737: jsr LFB3A 00F73A 1 20 E1 FF jsr kSTOP 00F73D 1 F0 A4 beq LF6E3 00F73F 1 20 52 F7 jsr LF752 00F742 1 E6 F6 inc LENGTH 00F744 1 A5 F6 lda LENGTH 00F746 1 20 96 FB jsr LFB96 00F749 1 A5 F6 lda LENGTH 00F74B 1 20 74 FB jsr LFB74 00F74E 1 B0 E7 bcs LF737 00F750 1 90 91 bcc LF6E3 00F752 1 A9 2E LF752: lda #$2E 00F754 1 20 D2 FF jsr kCHROUT 00F757 1 20 08 FB jsr LFB08 00F75A 1 20 FB FA LF75A: jsr LFAFB 00F75D 1 20 08 FB jsr LFB08 00F760 1 A0 00 ldy #$00 00F762 1 20 96 CF jsr LCF96 00F765 1 20 D4 F7 jsr LF7D4 00F768 1 48 pha 00F769 1 A6 F6 ldx LENGTH 00F76B 1 E8 inx 00F76C 1 CA LF76C: dex 00F76D 1 10 0B bpl LF77A 00F76F 1 20 D8 FB jsr LFBD8 00F772 1 20 20 20 .byte " " 00F775 1 00 .byte $00 00F776 1 4C 80 F7 jmp LF780 00F779 1 00F779 1 EA nop 00F77A 1 20 96 CF LF77A: jsr LCF96 00F77D 1 20 05 FB jsr LFB05 00F780 1 C8 LF780: iny 00F781 1 C0 03 cpy #$03 00F783 1 90 E7 bcc LF76C 00F785 1 68 pla 00F786 1 A2 03 ldx #$03 00F788 1 20 1B F8 jsr LF81B 00F78B 1 A2 06 ldx #$06 00F78D 1 E0 03 LF78D: cpx #$03 00F78F 1 D0 14 bne LF7A5 00F791 1 A4 F6 ldy LENGTH 00F793 1 F0 10 beq LF7A5 00F795 1 AD 4B 05 LF795: lda FORMAT 00F798 1 C9 E8 cmp #$E8 00F79A 1 20 96 CF jsr LCF96 00F79D 1 B0 1D bcs LF7BC 00F79F 1 20 10 FB jsr LFB10 00F7A2 1 88 dey 00F7A3 1 D0 F0 bne LF795 00F7A5 1 0E 4B 05 LF7A5: asl FORMAT 00F7A8 1 90 0E bcc LF7B8 00F7AA 1 BD 8E F8 lda LF88E,x 00F7AD 1 20 D2 FF jsr kCHROUT 00F7B0 1 BD 94 F8 lda LF894,x 00F7B3 1 F0 03 beq LF7B8 00F7B5 1 20 D2 FF jsr kCHROUT 00F7B8 1 CA LF7B8: dex 00F7B9 1 D0 D2 bne LF78D 00F7BB 1 60 rts 00F7BC 1 00F7BC 1 20 C8 F7 LF7BC: jsr LF7C8 00F7BF 1 18 clc 00F7C0 1 69 01 adc #$01 00F7C2 1 D0 01 bne LF7C5 00F7C4 1 E8 inx 00F7C5 1 4C FF FA LF7C5: jmp LFAFF 00F7C8 1 00F7C8 1 A6 A2 LF7C8: ldx $A2 00F7CA 1 A8 tay 00F7CB 1 10 01 bpl LF7CE 00F7CD 1 CA dex 00F7CE 1 65 A1 LF7CE: adc T2 00F7D0 1 90 01 bcc LF7D3 00F7D2 1 E8 inx 00F7D3 1 60 LF7D3: rts 00F7D4 1 00F7D4 1 A8 LF7D4: tay 00F7D5 1 4A lsr a 00F7D6 1 90 0B bcc LF7E3 00F7D8 1 4A lsr a 00F7D9 1 B0 17 bcs LF7F2 00F7DB 1 C9 22 cmp #$22 00F7DD 1 F0 13 beq LF7F2 00F7DF 1 29 07 and #$07 00F7E1 1 09 80 ora #$80 00F7E3 1 4A LF7E3: lsr a 00F7E4 1 AA tax 00F7E5 1 BD 3D F8 lda LF83D,x 00F7E8 1 B0 04 bcs LF7EE 00F7EA 1 4A lsr a 00F7EB 1 4A lsr a 00F7EC 1 4A lsr a 00F7ED 1 4A lsr a 00F7EE 1 29 0F LF7EE: and #$0F 00F7F0 1 D0 04 bne LF7F6 00F7F2 1 A0 80 LF7F2: ldy #$80 00F7F4 1 A9 00 lda #$00 00F7F6 1 AA LF7F6: tax 00F7F7 1 BD 81 F8 lda LF881,x 00F7FA 1 8D 4B 05 sta FORMAT 00F7FD 1 29 03 and #$03 00F7FF 1 85 F6 sta LENGTH 00F801 1 98 tya 00F802 1 29 8F and #$8F 00F804 1 AA tax 00F805 1 98 tya 00F806 1 A0 03 ldy #$03 00F808 1 E0 8A cpx #$8A 00F80A 1 F0 0B beq LF817 00F80C 1 4A LF80C: lsr a 00F80D 1 90 08 bcc LF817 00F80F 1 4A lsr a 00F810 1 4A LF810: lsr a 00F811 1 09 20 ora #$20 00F813 1 88 dey 00F814 1 D0 FA bne LF810 00F816 1 C8 iny 00F817 1 88 LF817: dey 00F818 1 D0 F2 bne LF80C 00F81A 1 60 rts 00F81B 1 00F81B 1 A8 LF81B: tay 00F81C 1 B9 9B F8 lda LF89B,y 00F81F 1 85 9F sta T1 00F821 1 B9 DB F8 lda LF8DB,y 00F824 1 85 A0 sta $A0 00F826 1 A9 00 LF826: lda #$00 00F828 1 A0 05 ldy #$05 00F82A 1 06 A0 LF82A: asl $A0 00F82C 1 26 9F rol T1 00F82E 1 2A rol a 00F82F 1 88 dey 00F830 1 D0 F8 bne LF82A 00F832 1 69 3F adc #$3F 00F834 1 20 D2 FF jsr kCHROUT 00F837 1 CA dex 00F838 1 D0 EC bne LF826 00F83A 1 4C 08 FB jmp LFB08 00F83D 1 00F83D 1 40 LF83D: .byte "@" 00F83E 1 02 .byte $02 00F83F 1 45 .byte "E" 00F840 1 03 D0 08 .byte $03,$D0,$08 00F843 1 40 .byte "@" 00F844 1 09 .byte $09 00F845 1 30 .byte "0" 00F846 1 22 .byte $22 00F847 1 45 33 .byte "E3" 00F849 1 D0 08 .byte $D0,$08 00F84B 1 40 .byte "@" 00F84C 1 09 .byte $09 00F84D 1 40 .byte "@" 00F84E 1 02 .byte $02 00F84F 1 45 33 .byte "E3" 00F851 1 D0 08 .byte $D0,$08 00F853 1 40 .byte "@" 00F854 1 09 .byte $09 00F855 1 40 .byte "@" 00F856 1 02 .byte $02 00F857 1 45 .byte "E" 00F858 1 B3 D0 08 .byte $B3,$D0,$08 00F85B 1 40 .byte "@" 00F85C 1 09 00 22 .byte $09,$00,$22 00F85F 1 44 33 .byte "D3" 00F861 1 D0 8C .byte $D0,$8C 00F863 1 44 .byte "D" 00F864 1 00 11 22 .byte $00,$11,$22 00F867 1 44 33 .byte "D3" 00F869 1 D0 8C .byte $D0,$8C 00F86B 1 44 .byte "D" 00F86C 1 9A 10 22 .byte $9A,$10,$22 00F86F 1 44 33 .byte "D3" 00F871 1 D0 08 .byte $D0,$08 00F873 1 40 .byte "@" 00F874 1 09 10 22 .byte $09,$10,$22 00F877 1 44 33 .byte "D3" 00F879 1 D0 08 .byte $D0,$08 00F87B 1 40 .byte "@" 00F87C 1 09 .byte $09 00F87D 1 62 .byte "b" 00F87E 1 13 .byte $13 00F87F 1 78 .byte "x" 00F880 1 A9 .byte $A9 00F881 1 00 LF881: .byte $00 00F882 1 21 .byte "!" 00F883 1 81 82 00 00 .byte $81,$82,$00,$00 00F887 1 59 4D .byte "YM" 00F889 1 91 92 86 .byte $91,$92,$86 00F88C 1 4A .byte "J" 00F88D 1 85 .byte $85 00F88E 1 9D LF88E: .byte $9D 00F88F 1 2C 29 2C 23 .byte ",),#(" 00F893 1 28 00F894 1 24 59 LF894: .byte "$Y" 00F896 1 00 .byte $00 00F897 1 58 24 24 .byte "X$$" 00F89A 1 00 .byte $00 00F89B 1 1C 8A 1C LF89B: .byte $1C,$8A,$1C 00F89E 1 23 5D .byte "#]" 00F8A0 1 8B 1B A1 9D .byte $8B,$1B,$A1,$9D,$8A,$1D 00F8A4 1 8A 1D 00F8A6 1 23 .byte "#" 00F8A7 1 9D 8B 1D A1 .byte $9D,$8B,$1D,$A1,$00 00F8AB 1 00 00F8AC 1 29 .byte ")" 00F8AD 1 19 AE .byte $19,$AE 00F8AF 1 69 .byte "i" 00F8B0 1 A8 19 .byte $A8,$19 00F8B2 1 23 24 53 .byte "#$S" 00F8B5 1 1B .byte $1B 00F8B6 1 23 24 53 .byte "#$S" 00F8B9 1 19 A1 00 1A .byte $19,$A1,$00,$1A 00F8BD 1 5B 5B .byte "[[" 00F8BF 1 A5 .byte $A5 00F8C0 1 69 24 24 .byte "i$$" 00F8C3 1 AE AE A8 AD .byte $AE,$AE,$A8,$AD 00F8C7 1 29 .byte ")" 00F8C8 1 00 .byte $00 00F8C9 1 7C .byte "|" 00F8CA 1 00 15 9C .byte $00,$15,$9C 00F8CD 1 6D .byte "m" 00F8CE 1 9C A5 .byte $9C,$A5 00F8D0 1 69 29 53 .byte "i)S" 00F8D3 1 84 13 .byte $84,$13 00F8D5 1 34 .byte "4" 00F8D6 1 11 A5 .byte $11,$A5 00F8D8 1 69 23 .byte "i#" 00F8DA 1 A0 .byte $A0 00F8DB 1 D8 LF8DB: .byte $D8 00F8DC 1 62 5A 48 26 .byte "bZH&b" 00F8E0 1 62 00F8E1 1 94 88 .byte $94,$88 00F8E3 1 54 44 .byte "TD" 00F8E5 1 C8 .byte $C8 00F8E6 1 54 68 44 .byte "ThD" 00F8E9 1 E8 94 00 B4 .byte $E8,$94,$00,$B4,$08,$84 00F8ED 1 08 84 00F8EF 1 74 .byte "t" 00F8F0 1 B4 .byte $B4 00F8F1 1 28 6E 74 .byte "(nt" 00F8F4 1 F4 CC .byte $F4,$CC 00F8F6 1 4A 72 .byte "Jr" 00F8F8 1 F2 A4 8A 00 .byte $F2,$A4,$8A,$00,$AA,$A2,$A2 00F8FC 1 AA A2 A2 00F8FF 1 74 74 74 72 .byte "tttrDh" 00F903 1 44 68 00F905 1 B2 .byte $B2 00F906 1 32 .byte "2" 00F907 1 B2 00 22 00 .byte $B2,$00,$22,$00,$1A,$1A 00F90B 1 1A 1A 00F90D 1 26 26 72 72 .byte "&&rr" 00F911 1 88 C8 C4 CA .byte $88,$C8,$C4,$CA 00F915 1 26 48 44 44 .byte "&HDD" 00F919 1 A2 C8 0D .byte $A2,$C8,$0D 00F91C 1 20 20 20 .byte " " 00F91F 1 90 03 LF91F: bcc LF924 00F921 1 4C 92 F4 jmp LF492 00F924 1 00F924 1 20 5B FB LF924: jsr LFB5B 00F927 1 A2 00 LF927: ldx #$00 00F929 1 86 78 stx $78 00F92B 1 20 3F FB LF92B: jsr LFB3F 00F92E 1 D0 07 bne LF937 00F930 1 E0 00 cpx #$00 00F932 1 D0 03 bne LF937 00F934 1 4C 95 F4 jmp LF495 00F937 1 00F937 1 C9 20 LF937: cmp #$20 00F939 1 F0 EC beq LF927 00F93B 1 9D 4C 05 sta MSAL,x 00F93E 1 E8 inx 00F93F 1 E0 03 cpx #$03 00F941 1 D0 E8 bne LF92B 00F943 1 CA LF943: dex 00F944 1 30 12 bmi LF958 00F946 1 BD 4C 05 lda MSAL,x 00F949 1 38 sec 00F94A 1 E9 3F sbc #$3F 00F94C 1 A0 05 ldy #$05 00F94E 1 4A LF94E: lsr a 00F94F 1 66 78 ror $78 00F951 1 66 77 ror $77 00F953 1 88 dey 00F954 1 D0 F8 bne LF94E 00F956 1 F0 EB beq LF943 00F958 1 A2 02 LF958: ldx #$02 00F95A 1 20 3F FB LF95A: jsr LFB3F 00F95D 1 F0 1E beq LF97D 00F95F 1 C9 20 cmp #$20 00F961 1 F0 F7 beq LF95A 00F963 1 20 7D FA jsr LFA7D 00F966 1 B0 0E bcs LF976 00F968 1 20 8B FA jsr LFA8B 00F96B 1 A4 F1 ldy T0 00F96D 1 84 F2 sty $F2 00F96F 1 85 F1 sta T0 00F971 1 A9 30 lda #$30 00F973 1 95 77 sta $77,x 00F975 1 E8 inx 00F976 1 95 77 LF976: sta $77,x 00F978 1 E8 inx 00F979 1 .if CompileComputer >= PLUS4_03 00F979 1 E0 0A cpx #$0A 00F97B 1 .else 00F97B 1 cpx #$1E 00F97B 1 .endif 00F97B 1 90 DD bcc LF95A 00F97D 1 86 9F LF97D: stx T1 00F97F 1 A2 00 ldx #$00 00F981 1 8E 4F 05 stx WRAP 00F984 1 A2 00 LF984: ldx #$00 00F986 1 8E 50 05 stx TMPC 00F989 1 AD 4F 05 lda WRAP 00F98C 1 20 D4 F7 jsr LF7D4 00F98F 1 AE 4B 05 ldx FORMAT 00F992 1 86 A0 stx $A0 00F994 1 AA tax 00F995 1 BD DB F8 lda LF8DB,x 00F998 1 20 5E FA jsr LFA5E 00F99B 1 BD 9B F8 lda LF89B,x 00F99E 1 20 5E FA jsr LFA5E 00F9A1 1 A2 06 ldx #$06 00F9A3 1 E0 03 LF9A3: cpx #$03 00F9A5 1 D0 13 bne LF9BA 00F9A7 1 A4 F6 ldy LENGTH 00F9A9 1 F0 0F beq LF9BA 00F9AB 1 AD 4B 05 LF9AB: lda FORMAT 00F9AE 1 C9 E8 cmp #$E8 00F9B0 1 A9 30 lda #$30 00F9B2 1 B0 1E bcs LF9D2 00F9B4 1 20 5B FA jsr LFA5B 00F9B7 1 88 dey 00F9B8 1 D0 F1 bne LF9AB 00F9BA 1 0E 4B 05 LF9BA: asl FORMAT 00F9BD 1 90 0E bcc LF9CD 00F9BF 1 BD 8E F8 lda LF88E,x 00F9C2 1 20 5E FA jsr LFA5E 00F9C5 1 BD 94 F8 lda LF894,x 00F9C8 1 F0 03 beq LF9CD 00F9CA 1 20 5E FA jsr LFA5E 00F9CD 1 CA LF9CD: dex 00F9CE 1 D0 D3 bne LF9A3 00F9D0 1 F0 06 beq LF9D8 00F9D2 1 20 5B FA LF9D2: jsr LFA5B 00F9D5 1 20 5B FA jsr LFA5B 00F9D8 1 A5 9F LF9D8: lda T1 00F9DA 1 CD 50 05 cmp TMPC 00F9DD 1 F0 03 beq LF9E2 00F9DF 1 4C 6A FA jmp LFA6A 00F9E2 1 00F9E2 1 A4 F6 LF9E2: ldy LENGTH 00F9E4 1 F0 34 beq LFA1A 00F9E6 1 A5 A0 lda $A0 00F9E8 1 C9 9D cmp #$9D 00F9EA 1 D0 26 bne LFA12 00F9EC 1 A5 F1 lda T0 00F9EE 1 E5 A1 sbc T2 00F9F0 1 8D 51 05 sta DIFF 00F9F3 1 A5 F2 lda $F2 00F9F5 1 E5 A2 sbc $A2 00F9F7 1 90 09 bcc LFA02 00F9F9 1 D0 77 bne LFA72 00F9FB 1 AE 51 05 ldx DIFF 00F9FE 1 30 72 bmi LFA72 00FA00 1 10 09 bpl LFA0B 00FA02 1 A8 LFA02: tay 00FA03 1 C8 iny 00FA04 1 D0 6C bne LFA72 00FA06 1 AE 51 05 ldx DIFF 00FA09 1 10 67 bpl LFA72 00FA0B 1 CA LFA0B: dex 00FA0C 1 CA dex 00FA0D 1 8A txa 00FA0E 1 A4 F6 ldy LENGTH 00FA10 1 D0 03 bne LFA15 00FA12 1 B9 F0 00 LFA12: lda STPFLG,y 00FA15 1 91 A1 LFA15: sta (T2),y 00FA17 1 88 dey 00FA18 1 D0 F8 bne LFA12 00FA1A 1 AD 4F 05 LFA1A: lda WRAP 00FA1D 1 91 A1 sta (T2),y 00FA1F 1 20 35 FB jsr LFB35 00FA22 1 A2 28 ldx #$28 00FA24 1 20 66 CF jsr LCF66 00FA27 1 20 5A F7 jsr LF75A 00FA2A 1 E6 F6 inc LENGTH 00FA2C 1 A5 F6 lda LENGTH 00FA2E 1 20 96 FB jsr LFB96 00FA31 1 A9 41 lda #$41 00FA33 1 8D 27 05 sta KEYD 00FA36 1 A9 20 lda #$20 00FA38 1 8D 28 05 sta $0528 00FA3B 1 8D 2D 05 sta $052D 00FA3E 1 A5 A2 lda $A2 00FA40 1 20 20 FB jsr LFB20 00FA43 1 8D 29 05 sta $0529 00FA46 1 8E 2A 05 stx $052A 00FA49 1 A5 A1 lda T2 00FA4B 1 20 20 FB jsr LFB20 00FA4E 1 8D 2B 05 sta $052B 00FA51 1 8E 2C 05 stx $052C 00FA54 1 A9 07 lda #$07 00FA56 1 85 EF sta NDX 00FA58 1 4C 95 F4 jmp LF495 00FA5B 1 00FA5B 1 20 5E FA LFA5B: jsr LFA5E 00FA5E 1 8E F3 07 LFA5E: stx SXREG 00FA61 1 AE 50 05 ldx TMPC 00FA64 1 D5 77 cmp $77,x 00FA66 1 F0 0D beq LFA75 00FA68 1 68 pla 00FA69 1 68 pla 00FA6A 1 EE 4F 05 LFA6A: inc WRAP 00FA6D 1 F0 03 beq LFA72 00FA6F 1 4C 84 F9 jmp LF984 00FA72 1 00FA72 1 4C 92 F4 LFA72: jmp LF492 00FA75 1 00FA75 1 E8 LFA75: inx 00FA76 1 8E 50 05 stx TMPC 00FA79 1 AE F3 07 ldx SXREG 00FA7C 1 60 rts 00FA7D 1 00FA7D 1 C9 41 LFA7D: cmp #$41 00FA7F 1 90 03 bcc LFA84 00FA81 1 C9 47 cmp #$47 00FA83 1 60 rts 00FA84 1 00FA84 1 C9 30 LFA84: cmp #$30 00FA86 1 90 16 bcc LFA9E 00FA88 1 C9 3A cmp #$3A 00FA8A 1 60 rts 00FA8B 1 00FA8B 1 20 A0 FA LFA8B: jsr LFAA0 00FA8E 1 0A asl a 00FA8F 1 0A asl a 00FA90 1 0A asl a 00FA91 1 0A asl a 00FA92 1 8D 5C 05 sta BAD 00FA95 1 20 3F FB jsr LFB3F 00FA98 1 20 A0 FA jsr LFAA0 00FA9B 1 0D 5C 05 ora BAD 00FA9E 1 38 LFA9E: sec 00FA9F 1 60 rts 00FAA0 1 00FAA0 1 C9 3A LFAA0: cmp #$3A 00FAA2 1 08 php 00FAA3 1 29 0F and #$0F 00FAA5 1 28 plp 00FAA6 1 90 02 bcc LFAAA 00FAA8 1 69 08 adc #$08 00FAAA 1 60 LFAAA: rts 00FAAB 1 00FAAB 1 C6 F3 LFAAB: dec CHRPTR 00FAAD 1 A9 00 LFAAD: lda #$00 00FAAF 1 85 F1 sta T0 00FAB1 1 85 F2 sta $F2 00FAB3 1 8D F4 07 sta SYREG 00FAB6 1 20 3F FB LFAB6: jsr LFB3F 00FAB9 1 F0 3A beq LFAF5 00FABB 1 C9 20 cmp #$20 00FABD 1 F0 F7 beq LFAB6 00FABF 1 C9 20 LFABF: cmp #$20 00FAC1 1 F0 2E beq LFAF1 00FAC3 1 C9 2C cmp #$2C 00FAC5 1 F0 2A beq LFAF1 00FAC7 1 C9 30 cmp #$30 00FAC9 1 90 2B bcc LFAF6 00FACB 1 C9 47 cmp #$47 00FACD 1 B0 27 bcs LFAF6 00FACF 1 C9 3A cmp #$3A 00FAD1 1 90 06 bcc LFAD9 00FAD3 1 C9 41 cmp #$41 00FAD5 1 90 1F bcc LFAF6 00FAD7 1 E9 08 sbc #$08 00FAD9 1 E9 2F LFAD9: sbc #$2F 00FADB 1 0A asl a 00FADC 1 0A asl a 00FADD 1 0A asl a 00FADE 1 0A asl a 00FADF 1 A2 04 ldx #$04 00FAE1 1 0A LFAE1: asl a 00FAE2 1 26 F1 rol T0 00FAE4 1 26 F2 rol $F2 00FAE6 1 CA dex 00FAE7 1 D0 F8 bne LFAE1 00FAE9 1 EE F4 07 inc SYREG 00FAEC 1 20 3F FB jsr LFB3F 00FAEF 1 D0 CE bne LFABF 00FAF1 1 AD F4 07 LFAF1: lda SYREG 00FAF4 1 18 clc 00FAF5 1 60 LFAF5: rts 00FAF6 1 00FAF6 1 68 LFAF6: pla 00FAF7 1 68 pla 00FAF8 1 4C 92 F4 jmp LF492 00FAFB 1 00FAFB 1 A5 A1 LFAFB: lda T2 00FAFD 1 A6 A2 ldx $A2 00FAFF 1 48 LFAFF: pha 00FB00 1 8A txa 00FB01 1 20 10 FB jsr LFB10 00FB04 1 68 pla 00FB05 1 20 10 FB LFB05: jsr LFB10 00FB08 1 A9 20 LFB08: lda #$20 00FB0A 1 2C .byte $2C 00FB0B 1 A9 3F LFB0B: lda #$3F 00FB0D 1 4C D2 FF jmp kCHROUT 00FB10 1 00FB10 1 8E F3 07 LFB10: stx SXREG 00FB13 1 20 20 FB jsr LFB20 00FB16 1 20 D2 FF jsr kCHROUT 00FB19 1 8A txa 00FB1A 1 AE F3 07 ldx SXREG 00FB1D 1 4C D2 FF jmp kCHROUT 00FB20 1 00FB20 1 48 LFB20: pha 00FB21 1 20 2A FB jsr LFB2A 00FB24 1 AA tax 00FB25 1 68 pla 00FB26 1 4A lsr a 00FB27 1 4A lsr a 00FB28 1 4A lsr a 00FB29 1 4A lsr a 00FB2A 1 29 0F LFB2A: and #$0F 00FB2C 1 C9 0A cmp #$0A 00FB2E 1 90 02 bcc LFB32 00FB30 1 69 06 adc #$06 00FB32 1 69 30 LFB32: adc #$30 00FB34 1 60 rts 00FB35 1 00FB35 1 A9 91 LFB35: lda #$91 00FB37 1 20 D2 FF jsr kCHROUT 00FB3A 1 A9 0D LFB3A: lda #$0D 00FB3C 1 4C D2 FF jmp kCHROUT 00FB3F 1 00FB3F 1 8E F3 07 LFB3F: stx SXREG 00FB42 1 A6 F3 ldx CHRPTR 00FB44 1 E4 F4 cpx BUFEND 00FB46 1 B0 0F bcs LFB57 00FB48 1 BD 00 02 lda BUF,x 00FB4B 1 C9 3A cmp #$3A 00FB4D 1 F0 08 beq LFB57 00FB4F 1 E6 F3 inc CHRPTR 00FB51 1 08 LFB51: php 00FB52 1 AE F3 07 ldx SXREG 00FB55 1 28 plp 00FB56 1 60 rts 00FB57 1 00FB57 1 A9 00 LFB57: lda #$00 00FB59 1 F0 F6 beq LFB51 00FB5B 1 A5 F1 LFB5B: lda T0 00FB5D 1 85 A1 sta T2 00FB5F 1 A5 F2 lda $F2 00FB61 1 85 A2 sta $A2 00FB63 1 60 rts 00FB64 1 00FB64 1 38 LFB64: sec 00FB65 1 A5 F1 lda T0 00FB67 1 E5 A1 sbc T2 00FB69 1 85 F1 sta T0 00FB6B 1 A5 F2 lda $F2 00FB6D 1 E5 A2 sbc $A2 00FB6F 1 85 F2 sta $F2 00FB71 1 60 rts 00FB72 1 00FB72 1 A9 01 LFB72: lda #$01 00FB74 1 8D F3 07 LFB74: sta SXREG 00FB77 1 38 sec 00FB78 1 A5 F1 lda T0 00FB7A 1 ED F3 07 sbc SXREG 00FB7D 1 85 F1 sta T0 00FB7F 1 A5 F2 lda $F2 00FB81 1 E9 00 sbc #$00 00FB83 1 85 F2 sta $F2 00FB85 1 60 rts 00FB86 1 00FB86 1 38 LFB86: sec 00FB87 1 A5 9F lda T1 00FB89 1 E9 01 sbc #$01 00FB8B 1 85 9F sta T1 00FB8D 1 A5 A0 lda $A0 00FB8F 1 E9 00 sbc #$00 00FB91 1 85 A0 sta $A0 00FB93 1 60 rts 00FB94 1 00FB94 1 A9 01 LFB94: lda #$01 00FB96 1 18 LFB96: clc 00FB97 1 65 A1 adc T2 00FB99 1 85 A1 sta T2 00FB9B 1 90 02 bcc LFB9F 00FB9D 1 E6 A2 inc $A2 00FB9F 1 60 LFB9F: rts 00FBA0 1 00FBA0 1 B0 14 LFBA0: bcs LFBB6 00FBA2 1 20 5B FB jsr LFB5B 00FBA5 1 20 AD FA jsr LFAAD 00FBA8 1 B0 0C bcs LFBB6 00FBAA 1 20 64 FB jsr LFB64 00FBAD 1 A5 F1 lda T0 00FBAF 1 85 9F sta T1 00FBB1 1 A5 F2 lda $F2 00FBB3 1 85 A0 sta $A0 00FBB5 1 18 clc 00FBB6 1 60 LFBB6: rts 00FBB7 1 00FBB7 1 8D 10 01 LFBB7: sta SAVEA 00FBBA 1 8E 12 01 LFBBA: stx $0112 00FBBD 1 8C 11 01 sty SAVEY 00FBC0 1 60 rts 00FBC1 1 00FBC1 1 AD 10 01 LFBC1: lda SAVEA 00FBC4 1 AE 12 01 LFBC4: ldx $0112 00FBC7 1 AC 11 01 ldy SAVEY 00FBCA 1 60 rts 00FBCB 1 00FBCB 1 86 FA LFBCB: stx XSTOP 00FBCD 1 20 11 CF jsr LCF11 00FBD0 1 A6 FA ldx XSTOP 00FBD2 1 49 80 eor #$80 00FBD4 1 0A asl a 00FBD5 1 A9 00 lda #$00 00FBD7 1 60 rts 00FBD8 1 00FBD8 1 48 LFBD8: pha 00FBD9 1 98 tya 00FBDA 1 48 pha 00FBDB 1 8A txa 00FBDC 1 48 pha 00FBDD 1 BA tsx 00FBDE 1 E8 inx 00FBDF 1 E8 inx 00FBE0 1 E8 inx 00FBE1 1 E8 inx 00FBE2 1 BD 00 01 lda FBUFFER,x 00FBE5 1 85 BC sta IMPARM 00FBE7 1 E8 inx 00FBE8 1 BD 00 01 lda FBUFFER,x 00FBEB 1 85 BD sta $BD 00FBED 1 E6 BC inc IMPARM 00FBEF 1 D0 02 bne LFBF3 00FBF1 1 E6 BD inc $BD 00FBF3 1 A0 00 LFBF3: ldy #$00 00FBF5 1 B1 BC LFBF5: lda (IMPARM),y 00FBF7 1 F0 06 beq LFBFF 00FBF9 1 20 D2 FF jsr kCHROUT 00FBFC 1 C8 iny 00FBFD 1 D0 F6 bne LFBF5 00FBFF 1 98 LFBFF: tya 00FC00 1 BA tsx 00FC01 1 E8 inx 00FC02 1 E8 inx 00FC03 1 E8 inx 00FC04 1 E8 inx 00FC05 1 18 clc 00FC06 1 65 BC adc IMPARM 00FC08 1 9D 00 01 sta FBUFFER,x 00FC0B 1 A9 00 lda #$00 00FC0D 1 65 BD adc $BD 00FC0F 1 E8 inx 00FC10 1 9D 00 01 sta FBUFFER,x 00FC13 1 68 pla 00FC14 1 AA tax 00FC15 1 68 pla 00FC16 1 A8 tay 00FC17 1 68 pla 00FC18 1 60 rts 00FC19 1 00FC19 1 A2 00 iIOBASE:ldx #ACIA 00FC1D 1 60 rts 00FC1E 1 00FC1E 1 A2 03 LFC1E: ldx #$03 00FC20 1 86 96 stx RSAV 00FC22 1 A9 00 lda #$00 00FC24 1 9D EC 05 LFC24: sta PAT,x 00FC27 1 CA dex 00FC28 1 10 FA bpl LFC24 00FC2A 1 A6 96 LFC2A: ldx RSAV 00FC2C 1 BD 7B FC lda LFC7B,x 00FC2F 1 AA tax 00FC30 1 9D D0 FD sta LFDD0,x 00FC33 1 A0 02 ldy #$02 00FC35 1 B9 07 80 LFC35: lda L8007,y 00FC38 1 D9 56 FC cmp LFC56,y 00FC3B 1 D0 14 bne LFC51 00FC3D 1 88 dey 00FC3E 1 10 F5 bpl LFC35 00FC40 1 AD 06 80 lda L8006 00FC43 1 A6 96 ldx RSAV 00FC45 1 9D EC 05 sta PAT,x 00FC48 1 C9 01 cmp #$01 00FC4A 1 D0 05 bne LFC51 00FC4C 1 86 FB stx CURBNK 00FC4E 1 20 00 80 jsr L8000 00FC51 1 C6 96 LFC51: dec RSAV 00FC53 1 10 D5 bpl LFC2A 00FC55 1 60 rts 00FC56 1 00FC56 1 43 42 4D LFC56: .byte "CBM" 00FC59 1 78 LFC59: sei 00FC5A 1 A2 03 ldx #$03 00FC5C 1 BD EC 05 LFC5C: lda PAT,x 00FC5F 1 F0 10 beq LFC71 00FC61 1 8A txa 00FC62 1 48 pha 00FC63 1 BD 7B FC lda LFC7B,x 00FC66 1 AA tax 00FC67 1 9D D0 FD sta LFDD0,x 00FC6A 1 86 FB stx CURBNK 00FC6C 1 20 00 80 jsr L8000 00FC6F 1 68 pla 00FC70 1 AA tax 00FC71 1 CA LFC71: dex 00FC72 1 D0 E8 bne LFC5C 00FC74 1 8D D0 FD sta LFDD0 00FC77 1 86 FB stx CURBNK 00FC79 1 58 cli 00FC7A 1 60 rts 00FC7B 1 00FC7B 1 00 05 0A 0F LFC7B: .byte $00,$05,$0A,$0F 00FC7F 1 9D D0 FD LFC7F: sta LFDD0,x 00FC82 1 AA tax 00FC83 1 B1 BE lda (FETPTR),y 00FC85 1 9D D0 FD sta LFDD0,x 00FC88 1 60 rts 00FC89 1 00FC89 1 48 LFC89: pha 00FC8A 1 86 FB stx CURBNK 00FC8C 1 9D D0 FD sta LFDD0,x 00FC8F 1 AE F3 05 ldx FETXRG 00FC92 1 AD F4 05 lda FETSRG 00FC95 1 48 pha 00FC96 1 AD F2 05 lda FETARG 00FC99 1 28 plp 00FC9A 1 20 B0 FC jsr LFCB0 00FC9D 1 8D F2 05 sta FETARG 00FCA0 1 08 php 00FCA1 1 68 pla 00FCA2 1 8D F4 05 sta FETSRG 00FCA5 1 8E F3 05 stx FETXRG 00FCA8 1 68 pla 00FCA9 1 85 FB sta CURBNK 00FCAB 1 AA tax 00FCAC 1 9D D0 FD sta LFDD0,x 00FCAF 1 60 rts 00FCB0 1 00FCB0 1 6C F0 05 LFCB0: jmp (LNGJMP) 00FCB3 1 00FCB3 1 48 IRQ: pha 00FCB4 1 8A txa 00FCB5 1 48 pha 00FCB6 1 98 tya 00FCB7 1 48 pha 00FCB8 1 8D D0 FD LFCB8: sta LFDD0 00FCBB 1 4C 00 CE jmp LCE00 00FCBE 1 00FCBE 1 A6 FB LFCBE: ldx CURBNK 00FCC0 1 9D D0 FD sta LFDD0,x 00FCC3 1 68 pla 00FCC4 1 A8 tay 00FCC5 1 68 pla 00FCC6 1 AA tax 00FCC7 1 68 pla 00FCC8 1 40 rti 00FCC9 1 00FCC9 1 A6 FB LFCC9: ldx CURBNK 00FCCB 1 9D D0 FD sta LFDD0,x 00FCCE 1 6C FE 02 jmp (BNKVEC) 00FCD1 1 00FCD1 1 .if CompileComputer = PLUS4_01 00FCD1 1 .byte $1E,$B0,$6F,$E0,$0F,$F1,$4F,$F0 00FCD1 1 .byte $0F,$D0,$0F,$30,$0F,$B0,$0F,$82 00FCD1 1 .byte $3F,$32,$FB,$D6,$FD,$85,$FD,$38 00FCD1 1 .byte $EF,$0D,$B7,$0D,$DB,$42,$3D,$0F 00FCD1 1 .elseif CompileComputer = PLUS4_BETA_0203 .OR CompileComputer = PLUS4_BETA_0119 00FCD1 1 .byte $FE,$39,$F5,$EF,$77,$B5,$4A,$85 00FCD1 1 .byte $4F,$41,$2E,$1A,$F6,$30,$4F,$86 00FCD1 1 .byte $1F,$3B,$7B,$D6,$FC,$A5,$5D,$38 00FCD1 1 .byte $6E,$CD,$97,$2D,$5B,$53,$1D,$54 00FCD1 1 .endif 00FCD1 1 00FCD1 1 FF FF FF FF FillUntil $FCF1,$FF 00FCD5 1 FF FF FF FF 00FCD9 1 FF FF FF FF 00FCF1 1 00FCF1 1 4C C9 FC jmp LFCC9 00FCF4 1 00FCF4 1 4C 59 FC LFCF4: jmp LFC59 00FCF7 1 00FCF7 1 4C 7F FC jmp LFC7F 00FCFA 1 00FCFA 1 4C 89 FC jmp LFC89 00FCFD 1 00FCFD 1 4C B8 FC jmp LFCB8 00FD00 1 00FD00 1 FF ACIA: .byte FILLER_FD00 00FD01 1 FF LFD01: .byte FILLER_FD00 00FD02 1 FF LFD02: .byte FILLER_FD00 00FD03 1 FF FF FF FF LFD03: .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD07 1 FF FF FF FF 00FD0B 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD0F 1 FF 00FD10 1 FF FF FF FF SPI6529:.byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD14 1 FF FF FF FF 00FD18 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD1C 1 FF FF FF FF 00FD20 1 FF FF FF FF LFD20: .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD24 1 FF FF FF FF 00FD28 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD2C 1 FF FF FF FF 00FD30 1 FF FF FF FF LFD30: .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD34 1 FF FF FF FF 00FD38 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD3C 1 FF FF FF FF 00FD40 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD44 1 FF FF FF FF 00FD48 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD4C 1 FF FF FF FF 00FD50 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD54 1 FF FF FF FF 00FD58 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD5C 1 FF FF FF FF 00FD60 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD64 1 FF FF FF FF 00FD68 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD6C 1 FF FF FF FF 00FD70 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD74 1 FF FF FF FF 00FD78 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD7C 1 FF FF FF FF 00FD80 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD84 1 FF FF FF FF 00FD88 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD8C 1 FF FF FF FF 00FD90 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD94 1 FF FF FF FF 00FD98 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FD9C 1 FF FF FF FF 00FDA0 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FDA4 1 FF FF FF FF 00FDA8 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FDAC 1 FF FF FF FF 00FDB0 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FDB4 1 FF FF FF FF 00FDB8 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FDBC 1 FF FF FF FF 00FDC0 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FDC4 1 FF FF FF FF 00FDC8 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FDCC 1 FF FF FF FF 00FDD0 1 FF FF FF FF LFDD0: .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FDD4 1 FF FF FF FF 00FDD8 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FDDC 1 FF FF FF FF 00FDE0 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FDE4 1 FF FF FF FF 00FDE8 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FDEC 1 FF FF FF FF 00FDF0 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FDF4 1 FF FF FF FF 00FDF8 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FDFC 1 FF FF FF FF 00FE00 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE04 1 FF FF FF FF 00FE08 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE0C 1 FF FF FF FF 00FE10 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE14 1 FF FF FF FF 00FE18 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE1C 1 FF FF FF FF 00FE20 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE24 1 FF FF FF FF 00FE28 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE2C 1 FF FF FF FF 00FE30 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE34 1 FF FF FF FF 00FE38 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE3C 1 FF FF FF FF 00FE40 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE44 1 FF FF FF FF 00FE48 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE4C 1 FF FF FF FF 00FE50 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE54 1 FF FF FF FF 00FE58 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE5C 1 FF FF FF FF 00FE60 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE64 1 FF FF FF FF 00FE68 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE6C 1 FF FF FF FF 00FE70 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE74 1 FF FF FF FF 00FE78 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE7C 1 FF FF FF FF 00FE80 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE84 1 FF FF FF FF 00FE88 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE8C 1 FF FF FF FF 00FE90 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE94 1 FF FF FF FF 00FE98 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FE9C 1 FF FF FF FF 00FEA0 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FEA4 1 FF FF FF FF 00FEA8 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FEAC 1 FF FF FF FF 00FEB0 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FEB4 1 FF FF FF FF 00FEB8 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FEBC 1 FF FF FF FF 00FEC0 1 FF LFEC0: .byte FILLER_FD00 00FEC1 1 FF LFEC1: .byte FILLER_FD00 00FEC2 1 FF LFEC2: .byte FILLER_FD00 00FEC3 1 FF LFEC3: .byte FILLER_FD00 00FEC4 1 FF LFEC4: .byte FILLER_FD00 00FEC5 1 FF FF FF FF LFEC5: .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FEC9 1 FF FF FF FF 00FECD 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FED1 1 FF FF FF FF 00FED5 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FED9 1 FF FF FF FF 00FEDD 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FEE1 1 FF FF FF FF 00FEE5 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FEE9 1 FF FF FF FF 00FEED 1 FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00 00FEF0 1 FF LFEF0: .byte FILLER_FD00 00FEF1 1 FF LFEF1: .byte FILLER_FD00 00FEF2 1 FF LFEF2: .byte FILLER_FD00 00FEF3 1 FF LFEF3: .byte FILLER_FD00 00FEF4 1 FF LFEF4: .byte FILLER_FD00 00FEF5 1 FF FF FF FF LFEF5: .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FEF9 1 FF FF FF FF 00FEFD 1 FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00 00FF00 1 FF TEDT1RL:.byte FILLER_FD00 00FF01 1 FF TEDT1RH:.byte FILLER_FD00 00FF02 1 FF TEDT2L: .byte FILLER_FD00 00FF03 1 FF TEDT2H: .byte FILLER_FD00 00FF04 1 FF TEDT3L: .byte FILLER_FD00 00FF05 1 FF TEDT3H: .byte FILLER_FD00 00FF06 1 FF TEDVSP: .byte FILLER_FD00 00FF07 1 FF TEDHSP: .byte FILLER_FD00 00FF08 1 FF TEDKEYB:.byte FILLER_FD00 00FF09 1 FF TEDIFR: .byte FILLER_FD00 00FF0A 1 FF TEDIER: .byte FILLER_FD00 00FF0B 1 TEDRASTER: 00FF0B 1 FF .byte FILLER_FD00 00FF0C 1 TEDCRSRPOSHI: 00FF0C 1 FF .byte FILLER_FD00 00FF0D 1 TEDCRSRPOSLO: 00FF0D 1 FF .byte FILLER_FD00 00FF0E 1 TEDFREQV1LO: 00FF0E 1 FF .byte FILLER_FD00 00FF0F 1 TEDFREQV2LO: 00FF0F 1 FF .byte FILLER_FD00 00FF10 1 TEDFREQV2HI: 00FF10 1 FF .byte FILLER_FD00 00FF11 1 FF TEDVOL: .byte FILLER_FD00 00FF12 1 TEDFREQV1HI: 00FF12 1 FF .byte FILLER_FD00 00FF13 1 TEDROMSTATUS: 00FF13 1 FF .byte FILLER_FD00 00FF14 1 TEDVIDEORAM: 00FF14 1 FF .byte FILLER_FD00 00FF15 1 TEDCOLBG0: 00FF15 1 FF .byte FILLER_FD00 00FF16 1 TEDCOLBG1: 00FF16 1 FF .byte FILLER_FD00 00FF17 1 TEDCOLBG2: 00FF17 1 FF .byte FILLER_FD00 00FF18 1 TEDCOLBG3: 00FF18 1 FF .byte FILLER_FD00 00FF19 1 TEDCOLFRAME: 00FF19 1 FF .byte FILLER_FD00 00FF1A 1 TEDBMRHI: 00FF1A 1 FF .byte FILLER_FD00 00FF1B 1 TEDBMRLO: 00FF1B 1 FF .byte FILLER_FD00 00FF1C 1 TEDRASTERROWHi: 00FF1C 1 FF .byte FILLER_FD00 00FF1D 1 TEDRASTERROWLO: 00FF1D 1 FF .byte FILLER_FD00 00FF1E 1 TEDRASTERCOL: 00FF1E 1 FF .byte FILLER_FD00 00FF1F 1 TEDVERTSUBADDRESS: 00FF1F 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FF23 1 FF FF FF FF 00FF27 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FF2B 1 FF FF FF FF 00FF2F 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FF33 1 FF FF FF FF 00FF37 1 FF FF FF FF .byte FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00,FILLER_FD00 00FF3B 1 FF FF FF 00FF3E 1 TEDRAMSEL: 00FF3E 1 FF .byte FILLER_FD00 00FF3F 1 TEDROMSEL: 00FF3F 1 FF .byte FILLER_FD00 00FF40 1 00FF40 1 FF .byte FILLER_FF40 00FF41 1 00FF41 1 LFF41: 00FF41 1 00FF41 1 .if CompileComputer = PLUS4_BETA_0203 .or CompileComputer = PLUS4_BETA_0119 00FF41 1 .byte $5C,$D0,$C5,$9B,$B2,$F8,$DB,$00 00FF41 1 .elseif CompileComputer = PLUS4_01 00FF41 1 .byte $5F,$D0,$8D,$99,$1A,$A0,$DB,$00 00FF41 1 .endif 00FF41 1 00FF41 1 FF FF FF FF FillUntil $FF49,$FF 00FF45 1 FF FF FF FF 00FF49 1 00FF49 1 kDEFFNKEY: 00FF49 1 4C C2 B7 jmp LB7C2 00FF4C 1 00FF4C 1 4C 49 DC kPRINT: jmp LDC49 00FF4F 1 00FF4F 1 4C D8 FB LFF4F: jmp LFBD8 00FF52 1 00FF52 1 kMLMONITOR: 00FF52 1 4C 45 F4 jmp LF445 00FF55 1 00FF55 1 .if CompileComputer = PLUS4_BETA_0203 .or CompileComputer = PLUS4_BETA_0119 00FF55 1 .byte $68,$77,$07,$C8,$C7,$25,$7E,$6F 00FF55 1 .byte $BE,$B0,$4E,$B7,$D8,$1C,$2D,$18 00FF55 1 .byte $DF,$73,$F7,$20,$77,$84,$64,$D8 00FF55 1 .byte $7B,$30,$E3,$0A,$79,$42,$B3,$AB 00FF55 1 .byte $3A,$5E,$E2,$3F,$87,$4F,$7C,$36 00FF55 1 .byte $7D,$A0 00FF55 1 .elseif CompileComputer = PLUS4_01 00FF55 1 .byte $2D,$F0,$0F,$F0,$8F,$F0,$2F,$61 00FF55 1 .byte $2F,$F0,$4F,$A7,$D9,$8C,$AD,$18 00FF55 1 .byte $DD,$73,$F7,$08,$57,$04,$75,$C8 00FF55 1 .byte $7B,$62,$E5,$0A,$F8,$03,$F1,$0B 00FF55 1 .byte $FA,$0E,$F0,$0F,$F1,$4F,$F8,$06 00FF55 1 .byte $FC,$0C 00FF55 1 .endif 00FF55 1 00FF55 1 FF FF FF FF FillUntil $FF7F,$FF 00FF59 1 FF FF FF FF 00FF5D 1 FF FF FF FF 00FF7F 1 00FF7F 1 C4 05 .byte ROM_CHECKSUM,ROM_VERSION 00FF81 1 00FF81 1 4C 4E D8 kCINT: jmp iCINT 00FF84 1 00FF84 1 4C 0B F3 kIOINIT:jmp iIOINIT 00FF87 1 00FF87 1 4C 52 F3 kRAMTAS:jmp iRAMTAS 00FF8A 1 00FF8A 1 4C CE F2 kRESTOR:jmp iRESTOR 00FF8D 1 00FF8D 1 4C D3 F2 kVECTOR:jmp iVECTOR 00FF90 1 00FF90 1 4C 1A F4 kSETMSF:jmp iSETMSF 00FF93 1 00FF93 1 4C 4D EE kSECOND:jmp iSECOND 00FF96 1 00FF96 1 4C 1A EE kTKSA: jmp iTKSA 00FF99 1 00FF99 1 4C 27 F4 kMEMTOP:jmp iMEMTOP 00FF9C 1 00FF9C 1 4C 36 F4 kMEMBOT:jmp iMEMBOT 00FF9F 1 00FF9F 1 4C 11 DB kSCNKEY:jmp iSCNKEY 00FFA2 1 00FFA2 1 4C 23 F4 kSETTMO:jmp iSETTMO 00FFA5 1 00FFA5 1 4C 8B EC kACPTR: jmp iACPTR 00FFA8 1 00FFA8 1 4C DF EC kCIOUT: jmp iCIOUT 00FFAB 1 00FFAB 1 4C 3B EF kUNTLK: jmp iUNTLK 00FFAE 1 00FFAE 1 4C 23 EF kUNLSN: jmp iUNLSN 00FFB1 1 00FFB1 1 4C 2C EE kLISTEN:jmp iLISTEN 00FFB4 1 00FFB4 1 4C FA ED kTALK: jmp iTALK 00FFB7 1 00FFB7 1 4C 1C F4 kREADST:jmp iREADST 00FFBA 1 00FFBA 1 4C 13 F4 kSETLFS:jmp iSETLFS 00FFBD 1 00FFBD 1 4C 0C F4 kSETNAM:jmp iSETNAM 00FFC0 1 00FFC0 1 6C 18 03 kOPEN: jmp (lIOPEN) 00FFC3 1 00FFC3 1 6C 1A 03 kCLOSE: jmp (lICLOSE) 00FFC6 1 00FFC6 1 6C 1C 03 kCHKIN: jmp (lICHKIN) 00FFC9 1 00FFC9 1 6C 1E 03 kCHKOUT:jmp (lICHKOUT) 00FFCC 1 00FFCC 1 6C 20 03 kCLRCHN:jmp (lICLRCHN) 00FFCF 1 00FFCF 1 6C 22 03 kCHRIN: jmp (lICHRIN) 00FFD2 1 00FFD2 1 6C 24 03 kCHROUT:jmp (lICHROUT) 00FFD5 1 00FFD5 1 4C 43 F0 kLOAD: jmp iLOAD 00FFD8 1 00FFD8 1 4C 94 F1 kSAVE: jmp iSAVE 00FFDB 1 00FFDB 1 4C 2D CF kSETTIM:jmp iSETTIM 00FFDE 1 00FFDE 1 4C 26 CF kRDTIM: jmp iRDTIM 00FFE1 1 00FFE1 1 6C 26 03 kSTOP: jmp (lISTOP) 00FFE4 1 00FFE4 1 6C 28 03 kGETIN: jmp (lIGETIN) 00FFE7 1 00FFE7 1 6C 2A 03 kCLALL: jmp (lICLALL) 00FFEA 1 00FFEA 1 4C F0 CE kUDTIM: jmp iUDTIM 00FFED 1 00FFED 1 4C 34 D8 kSCREEN:jmp iSCREEN 00FFF0 1 00FFF0 1 4C 39 D8 kPLOT: jmp iPLOT 00FFF3 1 00FFF3 1 4C 19 FC kIOBASE:jmp iIOBASE 00FFF6 1 00FFF6 1 8D 3E FF RESET: sta TEDRAMSEL 00FFF9 1 4C A4 F2 jmp NMI 00FFFC 1 00FFFC 1 F6 FF .addr RESET 00FFFE 1 B3 FC .addr IRQ 00FFFE 1