 .OPT NO LIST›; SAVE #D1:ST2.M65›  LIST  ›;›?SETPB› STA ?ZPBORA› LDA PORTB   Mask out bits› AND #$F3    2 and 3 (LEDs)› ORA ?ZPBORA Force mask bits› STA PORTB   high› RTS ›;›?21425› LDX #60     Delay loops› BNE ?21431  Go always›;›?21429› LDX #150›;›?21431› LDY #$FF›;›?21433› STY WSYNC› DEY › BNE ?21433› DEX › BNE ?21431› RTS ›;›?21443› PHA › LDX ?ZRTIX› LDA $8D› EOR #$FF› AND $3038,X› STA $3038,X› PLA › AND $8D› ORA $3038,X› STA $3038,X› RTS ›;›?DLI.1› PHA › LDA #12› STA COLPF1› LDA COLOR4› STA COLPF2› LDA #0› STA ATRACT› LDA HELPFG› BEQ ?21501  Go if not Help› LDA #0› STA HELPFG› LDA #$0C    Force b4 b0 high› JSR ?SETPB-?DSP Go set Portb› CLI › JMP ?MAIN-?DSP Back to start›;›?21501› LDA $8A     If 0 then› BEQ ?21576  dlist jmp set› LDA CONSOL› AND #1      Start pressed?› BEQ ?21516› LDA #$B3› BNE ?21518  Go always›;›?21516› LDA #$33›;›?21518› STA $301C› LDA CONSOL› AND #2      Select pressed?› BEQ ?21532› LDA #$F3› BNE ?21534  Go always›;›?21532› LDA #$73›;›?21534› STA $301E› LDA CONSOL› AND #4      Option?› BEQ ?21548› LDA #$AF› BNE ?21550  Go always›;›?21548› LDA #$2F›;›?21550› STA $3020› LDA CONSOL› AND #$07› CMP #$07› BEQ ?21571› LDA #$64› STA AUDF2› LDA #$A8› BNE ?21573  Go always›;›?21571› LDA #0›;›?21573› STA AUDC2›;›?21576› PLA › RTI ›;›?21578› .BYTE $00,$50,$54,$30› .BYTE $30,$30›;›?KEYTST› LDX #0› STX $94› LDX #3› JSR ?SETCOL-?DSP› LDX # <?KEYDL-?DSP› LDY # >?KEYDL-?DSP› LDA #$FF› JSR ?SETDL-?DSP Dlist x=< y=>›;›;›?21602› LDX #2› JSR ?SCRMOV-?DSP› LDX #$07› JSR ?SCRMOV-?DSP› LDA $82› BEQ ?21635› LDX $94› LDA ?21829-?DSP,X› INC $94› LDX $94› CPX #$13› BNE ?21649› JSR ?21429-?DSP delay› JMP ?MEMTST-?DSP›;›?21635› LDA CH› CMP #$FF› BEQ ?21635› CMP #$C0› BCS ?21635› LDA CH›;›?21649› LDX #$FF› STX CH› PHA › AND #$80› BEQ ?21664› LDX #$08› JSR ?SCRMOV-?DSP›;›?21664› PLA › PHA › AND #$40› BEQ ?21680› LDX #$05› JSR ?SCRMOV-?DSP› LDX #4› JSR ?SCRMOV-?DSP›;›?21680› PLA › AND #$3F› CMP #$21› BEQ ?21791› CMP #$2C› BEQ ?21807› CMP #$34› BEQ ?21799› CMP #$0C› BEQ ?21817› TAX › LDA ?22428-?DSP,X› PHA › LDA # <$3021› STA $95› LDA # >$3021› STA $95+1› PLA › LDY #$FF›;›?21715› INY › CMP ($95),Y› BNE ?21715› LDA ($95),Y› EOR #$80› STA ($95),Y›;›?21726› LDA $82› BEQ ?21749› JSR ?21765-?DSP› LDX #$14› JSR ?21431-?DSP› JSR ?NOSOUND-?DSP› LDX #$0A› JSR ?21431-?DSP› JMP ?21602-?DSP›;›?21749› JSR ?21765-?DSP›;›?21752› LDA SKSTAT› AND #4› BEQ ?21752› JSR ?NOSOUND-?DSP› JMP ?21602-?DSP›;›?21765› LDA #100› STA AUDF1› LDA #168› STA AUDC1› RTS ›;›?NOSOUND› LDA #0› STA AUDC1› STA AUDC2› STA AUDC3› STA AUDC4› RTS ›;›?21791› LDX #3› JSR ?SCRMOV-?DSP› JMP ?21726-?DSP›;›?21799› LDX #6› JSR ?SCRMOV-?DSP› JMP ?21726-?DSP›;›?21807› LDA #$7F› STA $3052› STA $3053› BNE ?21726›;›?21817› LDA #$32› STA $306D› LDA #$34› STA $306E› BNE ?21726›;›?21829› .BYTE $52,$08,$0A,$2B› .BYTE $28,$0D,$3D,$39› .BYTE $2D,$1F,$30,$35› .BYTE $1A,$7F,$2D,$3F› .BYTE $28,$0D›;›?AVTEST› LDX #2      A-V test?› JSR ?SETCOL-?DSP›;›?21852› LDA #0› STA $97›;›?21856› LDA #0› STA $98› LDX # <?AVDL-?DSP› LDY # >?AVDL-?DSP› LDA #0› JSR ?SETDL-?DSP Dlist x=< y=>› LDX #9› JSR ?SCRMOV-?DSP› LDA $97› LSR A› CLC › ADC #$11› STA $300B› LDX #15›;›?21885› LDA #$FF› STA $3150,X› STA $31B0,X› STA $3210,X› STA $3270,X› STA $32D0,X› DEX › BPL ?21885› LDA #0› STA $99› LDA #$0C› STA $9A›;›?21913› LDX $99› LDA ?22294-?DSP+1,X› TAY › LDA ?22294-?DSP,X› TAX › LDA $9A› JSR ?22149-?DSP› CLC › LDA $9A› ADC #$06› STA $9A› INC $99› INC $99› LDA $99› CMP #$14› BNE ?21913› JSR ?21425-?DSP Delay› LDX #$54› LDY #$31› LDA #0› JSR ?22149-?DSP› LDA #$51› JSR ?22124-?DSP› LDX #$86› LDY #$31› LDA #0› JSR ?22149-?DSP› LDA #$5B› JSR ?22124-?DSP› LDX #$F8› LDY #$30› LDA #$48› JSR ?22149-?DSP› LDX #$C7› LDY #$30› LDA #$54› JSR ?22149-?DSP› LDX #$48› LDY #$32› LDA #$4E› JSR ?22149-?DSP› LDA #$44› JSR ?22124-?DSP› LDX #$CA› LDY #$30› LDA #$48› JSR ?22149-?DSP› LDX #$1A› LDY #$32› LDA #$4E› JSR ?22149-?DSP› LDX #$CA› LDY #$31› LDA #$06› JSR ?22149-?DSP› LDA #$3C› JSR ?22124-?DSP› LDX #$3C› LDY #$30› LDA #$48› JSR ?22149-?DSP› LDX #$8C› LDY #$31› LDA #$4E› JSR ?22149-?DSP› LDX #$3C› LDY #$31› LDA #$06› JSR ?22149-?DSP› LDA #$2D› JSR ?22124-?DSP› LDX #$9E› LDY #$30› LDA #$48› JSR ?22149-?DSP› LDX #$EE› LDY #$31› LDA #$4E› JSR ?22149-?DSP› LDA #$35› JSR ?22124-?DSP› JSR ?21429-?DSP delay› INC $97› INC $97› LDA $97› CMP #$08› BNE ?22115› LDA $82› BNE ?22118› JMP ?21852-?DSP›;›?22115› JMP ?21856-?DSP›;›;›?22118› JSR ?21429-?DSP delay› JMP ?KEYTST-?DSP›;›?22124› LDY $97› STA AUDF1,Y› LDA #168› STA AUDC1,Y› LDX $98› LDA ?22198-?DSP,X› TAX › JSR ?21431-?DSP› INC $98› JSR ?NOSOUND-?DSP› RTS ›;›?22149› STX $9B› STY $9B+1› TAX › LDY #0› LDA #$10› STA $9D› LDA #6› STA $A3›;›?22164› LDA ?22204-?DSP,X› ORA ($9B),Y› STA ($9B),Y› JSR ?ADD16-?DSP› DEC $9D› BNE ?22164› INC $9D› INX › DEC $A3› BNE ?22164› RTS ›;›?ADD16› CLC › LDA $9B› ADC #16› STA $9B› BCC ?22197› INC $9B+1›;›?22197› RTS ›;›;›?22198› .BYTE 32,32,32› .BYTE 16,16,32›;›?22204› .BYTE 1,31,63,127› .BYTE 62,28,0,65,66› .BYTE 76,112,64,0› .BYTE 1,2,4,8,16,0› .BYTE 67,68,72,72,72,0› .BYTE 68,34,16,8,7,0› .BYTE 4,8,5,2,0,0› .BYTE 48,72,136› .BYTE 132,132,0,136› .BYTE 136,144,160› .BYTE 192,0,240,136› .BYTE 132,130,130,0› .BYTE 130,130,132,136,240› .SBYTE "     "› .SBYTE +$80,"       "› .SBYTE 32› .BYTE 28› .BYTE 62,127,126› .BYTE 124,64› .SBYTE "      "› .BYTE 4,4,6,5,6›;›?22294› .WORD $30C1› .WORD $3121› .WORD $3181› .WORD $31F1› .WORD $3002› .WORD $3062› .WORD $3122› .WORD $3182› .WORD $30C2› .WORD $31C2›;›?FILRAM› PHA         Fill ram› LDA ?FILTAB-?DSP,X with byte› STA $9E     in a at› LDA ?FILTAB-?DSP+1,X addresses› STA $9E+1   determined› LDA ?FILTAB-?DSP+2,X by x› STA $A0› LDA ?FILTAB-?DSP+3,X› STA $A0+1› LDY #0›;›?22337› PLA › STA ($9E),Y› INC $9E› BNE ?22346› INC $9E+1›;›?22346› PHA › LDA $9E› CMP $A0› BNE ?22337› LDA $9E+1› CMP $A0+1› BNE ?22337› PLA         Return orig chr› RTS ›;›?SCRMOV› LDA STSCIX,X Get index› TAY         to screen data› LDA ?SCRLEN-?DSP,X Get length› STA $9E     to counter› LDA ?SCROFF-?DSP,X Get offset› TAX         into screen›;›?22374› LDA STSCDT,Y Copy message› STA $3000,X to screen› INY         at offset in› INX         x rom offset› DEC $9E     in y› BNE ?22374› RTS ›;›?SETCOL› LDA ?COLTB-?DSP,X Set› STA COLOR0  colors› LDA ?COLTB-?DSP+4,X Return› STA COLOR1  x=x y=y› LDA ?COLTB-?DSP+8,X a=color4› STA COLOR2› LDA ?COLTB-?DSP+12,X› STA COLOR4› RTS ›;›?COLTB› .BYTE 44,12,42,24 col0› .BYTE 15,50,12,14 col1› .BYTE 210,214,0,180 col2› .BYTE 210,160,48,180 col4›; main,mem,av,key›;›?22428› .BYTE 44,42,27› .BYTE 145,146,43,11› .BYTE 10,47,0,48,53› .BYTE 178,41,13› .BYTE 29,54,168,35› .BYTE 147,148,34,56› .BYTE 58,20,0,19› .BYTE 22,91,21,18› .BYTE 17,12,0,14,46,0› .BYTE 45,15,161,50,0› .BYTE 37,57,255,52,55› .BYTE 49,25,0,16,23› .BYTE 162,24,28,30,38,40› .BYTE 36,0,163,39,51,33›?FILTAB  .WORD $3000,$3EFF x=0› .WORD $3020,$3024 x=4› .WORD $3024,$3028 x=8› .WORD $3000,$3020 x=12›;›?SCRLEN› .BYTE 19,3,19› .BYTE 19,4,4,3,168,3,7›;›?SCROFF› .BYTE 0,40,0,183› .BYTE 146,171,76,34,114,4›