AppleIIAsm-Collection/source/d10_speaker/DEMO.SPEAKER

646 lines
17 KiB
Plaintext
Raw Normal View History

6000- 4C 38 61 JMP $6138
6003- 00 BRK
6004- 00 BRK
6005- 00 BRK
6006- 00 BRK
6007- 00 BRK
6008- 00 BRK
6009- 00 BRK
600A- 00 BRK
600B- 00 BRK
600C- 00 BRK
600D- 00 BRK
600E- 00 BRK
600F- 00 BRK
6010- 00 BRK
6011- 00 BRK
6012- 00 BRK
6013- 00 BRK
6014- 00 BRK
6015- 00 BRK
6016- 00 BRK
6017- 00 BRK
6018- 00 BRK
6019- 00 BRK
601A- 00 BRK
601B- 00 BRK
601C- 00 BRK
601D- 00 BRK
601E- 00 BRK
601F- 00 BRK
6020- 00 BRK
6021- 00 BRK
6022- 00 BRK
6023- 00 BRK
6024- 00 BRK
6025- 00 BRK
6026- 00 BRK
6027- 00 BRK
6028- 00 BRK
6029- 00 BRK
602A- 00 BRK
602B- 00 BRK
602C- 00 BRK
602D- 00 BRK
602E- 00 BRK
602F- 00 BRK
6030- 00 BRK
6031- 00 BRK
6032- 00 BRK
6033- 00 BRK
6034- 00 BRK
6035- 00 BRK
6036- 00 BRK
6037- 00 BRK
6038- 00 BRK
6039- 00 BRK
603A- 00 BRK
603B- 00 BRK
603C- 00 BRK
603D- 00 BRK
603E- 00 BRK
603F- 00 BRK
6040- 00 BRK
6041- 00 BRK
6042- 00 BRK
6043- 00 BRK
6044- 00 BRK
6045- 00 BRK
6046- 00 BRK
6047- 00 BRK
6048- 00 BRK
6049- 00 BRK
604A- 00 BRK
604B- 00 BRK
604C- 00 BRK
604D- 00 BRK
604E- 00 BRK
604F- 00 BRK
6050- 00 BRK
6051- 00 BRK
6052- 00 BRK
6053- 00 BRK
6054- 00 BRK
6055- 00 BRK
6056- 00 BRK
6057- 00 BRK
6058- 00 BRK
6059- 00 BRK
605A- 00 BRK
605B- 00 BRK
605C- 00 BRK
605D- 00 BRK
605E- 00 BRK
605F- 00 BRK
6060- 00 BRK
6061- 00 BRK
6062- 00 BRK
6063- 00 BRK
6064- 00 BRK
6065- 00 BRK
6066- 00 BRK
6067- 00 BRK
6068- 00 BRK
6069- 00 BRK
606A- 00 BRK
606B- 00 BRK
606C- 00 BRK
606D- 00 BRK
606E- 00 BRK
606F- 00 BRK
6070- 00 BRK
6071- 00 BRK
6072- 00 BRK
6073- 00 BRK
6074- 00 BRK
6075- 00 BRK
6076- 00 BRK
6077- 00 BRK
6078- 00 BRK
6079- 00 BRK
607A- 00 BRK
607B- 00 BRK
607C- 00 BRK
607D- 00 BRK
607E- 00 BRK
607F- 00 BRK
6080- 00 BRK
6081- 00 BRK
6082- 00 BRK
6083- 00 BRK
6084- 00 BRK
6085- 00 BRK
6086- 00 BRK
6087- 00 BRK
6088- 00 BRK
6089- 00 BRK
608A- 00 BRK
608B- 00 BRK
608C- 00 BRK
608D- 00 BRK
608E- 00 BRK
608F- 00 BRK
6090- 00 BRK
6091- 00 BRK
6092- 00 BRK
6093- 00 BRK
6094- 00 BRK
6095- 00 BRK
6096- 00 BRK
6097- 00 BRK
6098- 00 BRK
6099- 00 BRK
609A- 00 BRK
609B- 00 BRK
609C- 00 BRK
609D- 00 BRK
609E- 00 BRK
609F- 00 BRK
60A0- 00 BRK
60A1- 00 BRK
60A2- 00 BRK
60A3- 00 BRK
60A4- 00 BRK
60A5- 00 BRK
60A6- 00 BRK
60A7- 00 BRK
60A8- 00 BRK
60A9- 00 BRK
60AA- 00 BRK
60AB- 00 BRK
60AC- 00 BRK
60AD- 00 BRK
60AE- 00 BRK
60AF- 00 BRK
60B0- 00 BRK
60B1- 00 BRK
60B2- 00 BRK
60B3- 00 BRK
60B4- 00 BRK
60B5- 00 BRK
60B6- 00 BRK
60B7- 00 BRK
60B8- 00 BRK
60B9- 00 BRK
60BA- 00 BRK
60BB- 00 BRK
60BC- 00 BRK
60BD- 00 BRK
60BE- 00 BRK
60BF- 00 BRK
60C0- 00 BRK
60C1- 00 BRK
60C2- 00 BRK
60C3- 00 BRK
60C4- 00 BRK
60C5- 00 BRK
60C6- 00 BRK
60C7- 00 BRK
60C8- 00 BRK
60C9- 00 BRK
60CA- 00 BRK
60CB- 00 BRK
60CC- 00 BRK
60CD- 00 BRK
60CE- 00 BRK
60CF- 00 BRK
60D0- 00 BRK
60D1- 00 BRK
60D2- 00 BRK
60D3- 00 BRK
60D4- 00 BRK
60D5- 00 BRK
60D6- 00 BRK
60D7- 00 BRK
60D8- 00 BRK
60D9- 00 BRK
60DA- 00 BRK
60DB- 00 BRK
60DC- 00 BRK
60DD- 00 BRK
60DE- 00 BRK
60DF- 00 BRK
60E0- 00 BRK
60E1- 00 BRK
60E2- 00 BRK
60E3- 00 BRK
60E4- 00 BRK
60E5- 00 BRK
60E6- 00 BRK
60E7- 00 BRK
60E8- 00 BRK
60E9- 00 BRK
60EA- 00 BRK
60EB- 00 BRK
60EC- 00 BRK
60ED- 00 BRK
60EE- 00 BRK
60EF- 00 BRK
60F0- 00 BRK
60F1- 00 BRK
60F2- 00 BRK
60F3- 00 BRK
60F4- 00 BRK
60F5- 00 BRK
60F6- 00 BRK
60F7- 00 BRK
60F8- 00 BRK
60F9- 00 BRK
60FA- 00 BRK
60FB- 00 BRK
60FC- 00 BRK
60FD- 00 BRK
60FE- 00 BRK
60FF- 00 BRK
6100- 00 BRK
6101- 00 BRK
6102- 00 BRK
6103- 00 BRK
6104- 00 BRK
6105- 00 BRK
6106- 00 BRK
6107- 00 BRK
6108- 00 BRK
6109- 00 BRK
610A- 00 BRK
610B- 00 BRK
610C- 00 BRK
610D- 00 BRK
610E- 00 BRK
610F- 00 BRK
6110- 00 BRK
6111- 00 BRK
6112- 00 BRK
6113- 00 BRK
6114- 00 BRK
6115- 00 BRK
6116- 00 BRK
6117- 00 BRK
6118- 00 BRK
6119- 00 BRK
611A- 00 BRK
611B- 00 BRK
611C- 00 BRK
611D- 00 BRK
611E- 00 BRK
611F- 00 BRK
6120- 00 BRK
6121- 00 BRK
6122- 00 BRK
6123- 00 BRK
6124- 00 BRK
6125- 00 BRK
6126- 00 BRK
6127- 00 BRK
6128- 00 BRK
6129- 00 BRK
612A- 00 BRK
612B- 00 BRK
612C- 00 BRK
612D- 00 BRK
612E- 00 BRK
612F- 00 BRK
6130- 00 BRK
6131- 00 BRK
6132- 00 BRK
6133- 00 BRK
6134- 00 BRK
6135- 00 BRK
6136- 00 BRK
6137- 00 BRK
6138- 4C A6 61 JMP $61A6
613B- 8D 75 61 STA $6175
613E- 8C 76 61 STY $6176
6141- 8E 77 61 STX $6177
6144- A9 00 LDA #$00
6146- A8 TAY
6147- AA TAX
6148- 8D 76 61 STA $6176
614B- F0 11 BEQ $615E
614D- 18 CLC
614E- 6D 75 61 ADC $6175
6151- AA TAX
6152- 98 TYA
6153- 6D 76 61 ADC $6176
6156- A8 TAY
6157- 8A TXA
6158- 0E 75 61 ASL $6175
615B- 2E 76 61 ROL $6176
615E- 4E 77 61 LSR $6177
6161- B0 EA BCS $614D
6163- D0 F3 BNE $6158
6165- 8E 75 61 STX $6175
6168- 8C 77 61 STY $6177
616B- AD 77 61 LDA $6177
616E- AE 75 61 LDX $6175
6171- AC 76 61 LDY $6176
6174- 60 RTS
6175- 00 BRK
6176- 00 BRK
6177- 00 BRK
6178- 00 BRK
6179- 00 BRK
617A- 00 BRK
617B- 00 BRK
617C- 00 BRK
617D- A0 00 LDY #$00
617F- 8C 7A 61 STY $617A
6182- 8C 7C 61 STY $617C
6185- 8E 79 61 STX $6179
6188- 8D 7B 61 STA $617B
618B- A9 00 LDA #$00
618D- A2 08 LDX #$08
618F- 0E 7B 61 ASL $617B
6192- 2A ROL
6193- CD 79 61 CMP $6179
6196- 90 03 BCC $619B
6198- ED 79 61 SBC $6179
619B- 2E 7B 61 ROL $617B
619E- CA DEX
619F- D0 F1 BNE $6192
61A1- AA TAX
61A2- AD 7B 61 LDA $617B
61A5- 60 RTS
61A6- A0 01 LDY #$01
61A8- 8C ED 63 STY $63ED
61AB- 84 19 STY $19
61AD- A0 FF LDY #$FF
61AF- A2 D8 LDX #$D8
61B1- AD ED 63 LDA $63ED
61B4- 20 7E 63 JSR $637E
61B7- A4 19 LDY $19
61B9- 20 33 63 JSR $6333
61BC- C3 ???
61BD- BB ???
61BE- D7 ???
61BF- C8 INY
61C0- CF ???
61C1- CC C5 8D CPY $8DC5
61C4- 8D 00 20 STA $2000
61C7- 54 ???
61C8- 63 ???
61C9- 84 19 STY $19
61CB- A0 E3 LDY #$E3
61CD- A2 D8 LDX #$D8
61CF- AD ED 63 LDA $63ED
61D2- 20 7E 63 JSR $637E
61D5- A4 19 LDY $19
61D7- 20 33 63 JSR $6333
61DA- C4 A0 CPY $A0
61DC- D7 ???
61DD- C8 INY
61DE- CF ???
61DF- CC C5 8D CPY $8DC5
61E2- 8D 00 20 STA $2000
61E5- 54 ???
61E6- 63 ???
61E7- 84 19 STY $19
61E9- A0 CA LDY #$CA
61EB- A2 D8 LDX #$D8
61ED- AD ED 63 LDA $63ED
61F0- 20 7E 63 JSR $637E
61F3- A4 19 LDY $19
61F5- 20 33 63 JSR $6333
61F8- C5 A0 CMP $A0
61FA- D7 ???
61FB- C8 INY
61FC- CF ???
61FD- CC C5 8D CPY $8DC5
6200- 8D 00 20 STA $2000
6203- 54 ???
6204- 63 ???
6205- 84 19 STY $19
6207- A0 BF LDY #$BF
6209- A2 D8 LDX #$D8
620B- AD ED 63 LDA $63ED
620E- 20 7E 63 JSR $637E
6211- A4 19 LDY $19
6213- 20 33 63 JSR $6333
6216- C6 A0 DEC $A0
6218- D7 ???
6219- C8 INY
621A- CF ???
621B- CC C5 8D CPY $8DC5
621E- 8D 00 20 STA $2000
6221- 54 ???
6222- 63 ???
6223- 84 19 STY $19
6225- A0 AA LDY #$AA
6227- A2 D8 LDX #$D8
6229- AD ED 63 LDA $63ED
622C- 20 7E 63 JSR $637E
622F- A4 19 LDY $19
6231- 20 33 63 JSR $6333
6234- C7 ???
6235- A0 D7 LDY #$D7
6237- C8 INY
6238- CF ???
6239- CC C5 8D CPY $8DC5
623C- 8D 00 20 STA $2000
623F- 54 ???
6240- 63 ???
6241- 84 19 STY $19
6243- A0 98 LDY #$98
6245- A2 D8 LDX #$D8
6247- AD ED 63 LDA $63ED
624A- 20 7E 63 JSR $637E
624D- A4 19 LDY $19
624F- 20 33 63 JSR $6333
6252- C1 A0 CMP ($A0,X)
6254- D7 ???
6255- C8 INY
6256- CF ???
6257- CC C5 8D CPY $8DC5
625A- 8D 00 20 STA $2000
625D- 54 ???
625E- 63 ???
625F- 84 19 STY $19
6261- A0 87 LDY #$87
6263- A2 D8 LDX #$D8
6265- AD ED 63 LDA $63ED
6268- 20 7E 63 JSR $637E
626B- A4 19 LDY $19
626D- 20 33 63 JSR $6333
6270- C2 ???
6271- A0 D7 LDY #$D7
6273- C8 INY
6274- CF ???
6275- CC C5 8D CPY $8DC5
6278- 8D 00 20 STA $2000
627B- 54 ???
627C- 63 ???
627D- EE ED 63 INC $63ED
6280- AD ED 63 LDA $63ED
6283- C9 05 CMP #$05
6285- F0 03 BEQ $628A
6287- 4C AB 61 JMP $61AB
628A- 4C D0 03 JMP $03D0
628D- 00 BRK
628E- 00 BRK
628F- 00 BRK
6290- 00 BRK
6291- 00 BRK
6292- 00 BRK
6293- 00 BRK
6294- 00 BRK
6295- 00 BRK
6296- 00 BRK
6297- B0 B1 BCS $624A
6299- B2 B3 LDA ($B3)
629B- B4 B5 LDY $B5,X
629D- B6 B7 LDX $B7,Y
629F- B8 CLV
62A0- B9 C1 C2 LDA $C2C1,Y
62A3- C3 ???
62A4- C4 C5 CPY $C5
62A6- C6 85 DEC $85
62A8- 06 86 ASL $86
62AA- 07 ???
62AB- A0 FF LDY #$FF
62AD- C8 INY
62AE- B9 38 60 LDA $6038,Y
62B1- 91 06 STA ($06),Y
62B3- CC 37 60 CPY $6037
62B6- D0 F5 BNE $62AD
62B8- 60 RTS
62B9- 29 F0 AND #$F0
62BB- 4A LSR
62BC- 4A LSR
62BD- 4A LSR
62BE- 4A LSR
62BF- 60 RTS
62C0- 8C 8F 62 STY $628F
62C3- 85 06 STA $06
62C5- 86 07 STX $07
62C7- A9 8D LDA #$8D
62C9- 20 F0 FD JSR $FDF0 F8ROM:COUT1
62CC- A5 07 LDA $07
62CE- 20 B9 62 JSR $62B9
62D1- AA TAX
62D2- BD 97 62 LDA $6297,X
62D5- 20 F0 FD JSR $FDF0 F8ROM:COUT1
62D8- A5 07 LDA $07
62DA- 29 0F AND #$0F
62DC- AA TAX
62DD- BD 97 62 LDA $6297,X
62E0- 20 F0 FD JSR $FDF0 F8ROM:COUT1
62E3- A5 06 LDA $06
62E5- 20 B9 62 JSR $62B9
62E8- AA TAX
62E9- BD 97 62 LDA $6297,X
62EC- 20 F0 FD JSR $FDF0 F8ROM:COUT1
62EF- A5 06 LDA $06
62F1- 29 0F AND #$0F
62F3- AA TAX
62F4- BD 97 62 LDA $6297,X
62F7- 20 F0 FD JSR $FDF0 F8ROM:COUT1
62FA- A9 BA LDA #$BA
62FC- 20 F0 FD JSR $FDF0 F8ROM:COUT1
62FF- A9 A0 LDA #$A0
6301- 20 F0 FD JSR $FDF0 F8ROM:COUT1
6304- A0 00 LDY #$00
6306- B1 06 LDA ($06),Y
6308- 20 B9 62 JSR $62B9
630B- 8D 8E 62 STA $628E
630E- B1 06 LDA ($06),Y
6310- 29 0F AND #$0F
6312- 8D 8D 62 STA $628D
6315- AE 8E 62 LDX $628E
6318- BD 97 62 LDA $6297,X
631B- 20 F0 FD JSR $FDF0 F8ROM:COUT1
631E- AE 8D 62 LDX $628D
6321- BD 97 62 LDA $6297,X
6324- 20 F0 FD JSR $FDF0 F8ROM:COUT1
6327- A9 A0 LDA #$A0
6329- 20 F0 FD JSR $FDF0 F8ROM:COUT1
632C- C8 INY
632D- CC 8F 62 CPY $628F
6330- D0 D4 BNE $6306
6332- 60 RTS
6333- 68 PLA
6334- 85 06 STA $06
6336- 68 PLA
6337- 85 07 STA $07
6339- A0 01 LDY #$01
633B- B1 06 LDA ($06),Y
633D- F0 06 BEQ $6345
633F- 20 F0 FD JSR $FDF0 F8ROM:COUT1
6342- C8 INY
6343- D0 F6 BNE $633B
6345- 18 CLC
6346- 98 TYA
6347- 65 06 ADC $06
6349- 85 06 STA $06
634B- A5 07 LDA $07
634D- 69 00 ADC #$00
634F- 48 PHA
6350- A5 06 LDA $06
6352- 48 PHA
6353- 60 RTS
6354- AD 00 C0 LDA $C000 r:KBD w:CLR80COL
6357- 10 FB BPL $6354
6359- 29 7F AND #$7F
635B- 8D 10 C0 STA $C010 r:KBDSTRB
635E- 60 RTS
635F- A9 01 LDA #$01
6361- 8D B6 AA STA $AAB6
6364- 85 76 STA $76
6366- 85 33 STA $33
6368- 85 06 STA $06
636A- 86 07 STX $07
636C- A9 FF LDA #$FF
636E- 85 D8 STA $D8
6370- A0 00 LDY #$00
6372- B1 06 LDA ($06),Y
6374- 8D 5A 9D STA $9D5A
6377- C8 INY
6378- B1 06 LDA ($06),Y
637A- 8D 5B 9D STA $9D5B
637D- 60 RTS
637E- 8D 27 60 STA $6027
6381- 8E 24 60 STX $6024
6384- 8C 25 60 STY $6025
6387- A9 00 LDA #$00
6389- 8D 23 60 STA $6023
638C- AE 27 60 LDX $6027
638F- AD 25 60 LDA $6025
6392- 20 7D 61 JSR $617D
6395- 8D 25 60 STA $6025
6398- 8A TXA
6399- 18 CLC
639A- 6D 25 60 ADC $6025
639D- 8D 25 60 STA $6025
63A0- A9 FF LDA #$FF
63A2- 38 SEC
63A3- ED 25 60 SBC $6025
63A6- 18 CLC
63A7- 6D 24 60 ADC $6024
63AA- 8D 24 60 STA $6024
63AD- AD 23 60 LDA $6023
63B0- 69 00 ADC #$00
63B2- 8D 23 60 STA $6023
63B5- AC 27 60 LDY $6027
63B8- AC 24 60 LDY $6024
63BB- AD 23 60 LDA $6023
63BE- AE 27 60 LDX $6027
63C1- 20 3B 61 JSR $613B
63C4- 8C 24 60 STY $6024
63C7- 8E 23 60 STX $6023
63CA- A9 00 LDA #$00
63CC- A2 00 LDX #$00
63CE- AC 25 60 LDY $6025
63D1- 2C 30 C0 BIT $C030 rw:SPKR
63D4- 88 DEY
63D5- D0 FD BNE $63D4
63D7- AD 24 60 LDA $6024
63DA- 38 SEC
63DB- E9 01 SBC #$01
63DD- 8D 24 60 STA $6024
63E0- AD 23 60 LDA $6023
63E3- E9 00 SBC #$00
63E5- 8D 23 60 STA $6023
63E8- B0 E0 BCS $63CA
63EA- 90 00 BCC $63EC
63EC- 60 RTS
63ED- 05 00 ORA $00