home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Glitch Apple Disk Collection
/
2014.glitch.apple.collection.zip
/
indexed
/
PRODOS2.DSK
/
SYSUTIL.SYSTEM.asm
< prev
next >
Wrap
Assembly Source File
|
2014-09-09
|
10KB
|
419 lines
B800- A9 00 LDA #$00
B802- 85 FC STA $FC
B804- A9 20 LDA #$20
B806- 85 FD STA $FD
B808- A9 00 LDA #$00
B80A- 85 FE STA $FE
B80C- A9 B8 LDA #$B8
B80E- 85 FF STA $FF
B810- 20 E9 22 JSR $22E9
B813- 4C 16 B8 JMP $B816
B816- 20 5A B9 JSR $B95A
B819- 20 18 B9 JSR $B918
B81C- 20 DC BA JSR $BADC
B81F- 20 00 BF JSR $BF00
B822- C8 INY
B823- B8 CLV
B824- B8 CLV
B825- 90 03 BCC $B82A
B827- 4C 15 BA JMP $BA15
B82A- A9 04 LDA #$04
B82C- 8D BE B8 STA $B8BE
B82F- AD BD B8 LDA $B8BD
B832- 8D BF B8 STA $B8BF
B835- 20 00 BF JSR $BF00
B838- CA DEX
B839- BE B8 90 LDX $90B8,Y
B83C- 03 ???
B83D- 4C 15 BA JMP $BA15
B840- A9 01 LDA #$01
B842- 8D BE B8 STA $B8BE
B845- 20 00 BF JSR $BF00
B848- CC BE B8 CPY $B8BE
B84B- 90 03 BCC $B850
B84D- 4C 15 BA JMP $BA15
B850- 20 00 0E JSR $0E00
B853- 20 93 BA JSR $BA93
B856- AD 31 BF LDA $BF31
B859- C9 08 CMP #$08
B85B- 90 06 BCC $B863
B85D- 20 00 BF JSR $BF00
B860- C5 8F CMP $8F
B862- BA TSX
B863- A9 CD LDA #$CD
B865- 8D B9 B8 STA $B8B9
B868- A9 B8 LDA #$B8
B86A- 8D BA B8 STA $B8BA
B86D- 20 00 BF JSR $BF00
B870- C8 INY
B871- B8 CLV
B872- B8 CLV
B873- 90 03 BCC $B878
B875- 4C 15 BA JMP $BA15
B878- A9 04 LDA #$04
B87A- 8D BE B8 STA $B8BE
B87D- A9 09 LDA #$09
B87F- 8D C1 B8 STA $B8C1
B882- AD BD B8 LDA $B8BD
B885- 8D BF B8 STA $B8BF
B888- 20 00 BF JSR $BF00
B88B- CA DEX
B88C- BE B8 90 LDX $90B8,Y
B88F- 03 ???
B890- 4C 15 BA JMP $BA15
B893- A9 01 LDA #$01
B895- 8D BE B8 STA $B8BE
B898- 20 00 BF JSR $BF00
B89B- CC BE B8 CPY $B8BE
B89E- 90 03 BCC $B8A3
B8A0- 4C 15 BA JMP $BA15
B8A3- A9 00 LDA #$00
B8A5- 8D F2 03 STA $03F2
B8A8- A9 09 LDA #$09
B8AA- 8D F3 03 STA $03F3
B8AD- 49 A5 EOR #$A5
B8AF- 8D F4 03 STA $03F4
B8B2- 8D 10 C0 STA $C010
B8B5- 4C 00 09 JMP $0900
B8B8- 03 ???
B8B9- C6 B8 DEC $B8
B8BB- 00 BRK
B8BC- BB ???
B8BD- 00 BRK
B8BE- 04 ???
B8BF- 00 BRK
B8C0- 00 BRK
B8C1- 0E 00 B0 ASL $B000
B8C4- 00 BRK
B8C5- 00 BRK
B8C6- 06 D5 ASL $D5
B8C8- D4 ???
B8C9- C9 CC CMP #$CC
B8CB- AE B1 06 LDX $06B1
B8CE- D5 D4 CMP $D4,X
B8D0- C9 CC CMP #$CC
B8D2- AE B0 40 LDX $40B0
B8D5- 00 BRK
B8D6- 00 BRK
B8D7- 00 BRK
B8D8- 00 BRK
B8D9- 00 BRK
B8DA- 00 BRK
B8DB- 00 BRK
B8DC- 00 BRK
B8DD- 00 BRK
B8DE- 00 BRK
B8DF- 00 BRK
B8E0- 00 BRK
B8E1- 00 BRK
B8E2- 00 BRK
B8E3- 00 BRK
B8E4- 00 BRK
B8E5- 00 BRK
B8E6- 00 BRK
B8E7- 00 BRK
B8E8- 00 BRK
B8E9- 00 BRK
B8EA- 00 BRK
B8EB- 00 BRK
B8EC- 00 BRK
B8ED- 00 BRK
B8EE- 00 BRK
B8EF- 00 BRK
B8F0- 00 BRK
B8F1- 00 BRK
B8F2- 00 BRK
B8F3- 00 BRK
B8F4- 00 BRK
B8F5- 00 BRK
B8F6- 00 BRK
B8F7- 00 BRK
B8F8- 00 BRK
B8F9- 00 BRK
B8FA- 00 BRK
B8FB- 00 BRK
B8FC- 00 BRK
B8FD- 00 BRK
B8FE- 00 BRK
B8FF- 00 BRK
B900- 00 BRK
B901- 00 BRK
B902- 00 BRK
B903- 00 BRK
B904- 00 BRK
B905- 00 BRK
B906- 00 BRK
B907- 00 BRK
B908- 00 BRK
B909- 00 BRK
B90A- 00 BRK
B90B- 00 BRK
B90C- 00 BRK
B90D- 00 BRK
B90E- 00 BRK
B90F- 00 BRK
B910- 00 BRK
B911- 00 BRK
B912- 00 BRK
B913- 00 BRK
B914- 00 BRK
B915- 01 D4 ORA ($D4,X)
B917- B8 CLV
B918- AC 80 02 LDY $0280
B91B- B9 80 02 LDA $0280,Y
B91E- C9 2F CMP #$2F
B920- F0 05 BEQ $B927
B922- 88 DEY
B923- 10 F6 BPL $B91B
B925- 80 ???
B926- 16 88 ASL $88,X
B928- 8C D4 B8 STY $B8D4
B92B- B9 80 02 LDA $0280,Y
B92E- 99 D4 B8 STA $B8D4,Y
B931- 88 DEY
B932- D0 F7 BNE $B92B
B934- 20 00 BF JSR $BF00
B937- C6 15 DEC $15
B939- B9 90 01 LDA $0190,Y
B93C- 00 BRK
B93D- 60 RTS
B93E- 6C 36 JMP ($36)
B940- 00 BRK
B941- 8E 7B 05 STX $057B
B944- 84 25 STY $25
B946- 20 56 B9 JSR $B956
B949- A0 00 LDY #$00
B94B- B1 F0 LDA ($F0),Y
B94D- F0 06 BEQ $B955
B94F- 20 3E B9 JSR $B93E
B952- C8 INY
B953- 80 ???
B954- F6 60 INC $60,X
B956- 20 22 FC JSR $FC22
B959- 60 RTS
B95A- A9 0D LDA #$0D
B95C- 20 00 C3 JSR $C300
B95F- A0 09 LDY #$09
B961- A2 1C LDX #$1C
B963- A9 9C LDA #$9C
B965- 85 F0 STA $F0
B967- A9 B9 LDA #$B9
B969- 85 F1 STA $F1
B96B- 20 41 B9 JSR $B941
B96E- A2 19 LDX #$19
B970- A0 0B LDY #$0B
B972- A9 B6 LDA #$B6
B974- 85 F0 STA $F0
B976- A9 B9 LDA #$B9
B978- 85 F1 STA $F1
B97A- 20 41 B9 JSR $B941
B97D- A0 0E LDY #$0E
B97F- A2 14 LDX #$14
B981- A9 D7 LDA #$D7
B983- 85 F0 STA $F0
B985- A9 B9 LDA #$B9
B987- 85 F2 STA $F2
B989- 20 41 B9 JSR $B941
B98C- A0 0F LDY #$0F
B98E- A2 1F LDX #$1F
B990- A9 01 LDA #$01
B992- 85 F0 STA $F0
B994- A9 BA LDA #$BA
B996- 85 F2 STA $F2
B998- 20 41 B9 JSR $B941
B99B- 60 RTS
B99C- C1 F0 CMP ($F0,X)
B99E- F0 EC BEQ $B98C
B9A0- E5 A0 SBC $A0
B9A2- C9 C9 CMP #$C9
B9A4- A0 D3 LDY #$D3
B9A6- F9 F3 F4 SBC $F4F3,Y
B9A9- E5 ED SBC $ED
B9AB- A0 D5 LDY #$D5
B9AD- F4 ???
B9AE- E9 EC SBC #$EC
B9B0- E9 F4 SBC #$F4
B9B2- E9 E5 SBC #$E5
B9B4- F3 ???
B9B5- 00 BRK
B9B6- D6 E5 DEC $E5,X
B9B8- F2 ???
B9B9- F3 ???
B9BA- E9 EF SBC #$EF
B9BC- EE A0 B3 INC $B3A0
B9BF- AE B1 A0 LDX $A0B1
B9C2- A0 A0 LDY #$A0
B9C4- A0 A0 LDY #$A0
B9C6- A0 A0 LDY #$A0
B9C8- A0 C6 LDY #$C6
B9CA- E5 E2 SBC $E2
B9CC- F2 ???
B9CD- F5 E1 SBC $E1,X
B9CF- F2 ???
B9D0- F9 A0 B1 SBC $B1A0,Y
B9D3- B9 B8 B8 LDA $B8B8,Y
B9D6- 00 BRK
B9D7- C3 ???
B9D8- EF ???
B9D9- F0 F9 BEQ $B9D4
B9DB- F2 ???
B9DC- E9 E7 SBC #$E7
B9DE- E8 INX
B9DF- F4 ???
B9E0- A0 C1 LDY #$C1
B9E2- F0 F0 BEQ $B9D4
B9E4- EC E5 A0 CPX $A0E5
B9E7- C3 ???
B9E8- EF ???
B9E9- ED F0 F5 SBC $F5F0
B9EC- F4 ???
B9ED- E5 F2 SBC $F2
B9EF- AC A0 C9 LDY $C9A0
B9F2- EE E3 AE INC $AEE3
B9F5- A0 A0 LDY #$A0
B9F7- B1 B9 LDA ($B9),Y
B9F9- B8 CLV
B9FA- B3 ???
B9FB- AD B1 B9 LDA $B9B1
B9FE- B8 CLV
B9FF- B8 CLV
BA00- 00 BRK
BA01- C1 EC CMP ($EC,X)
BA03- EC A0 D2 CPX $D2A0
BA06- E9 E7 SBC #$E7
BA08- E8 INX
BA09- F4 ???
BA0A- F3 ???
BA0B- A0 D2 LDY #$D2
BA0D- E5 F3 SBC $F3
BA0F- E5 F2 SBC $F2
BA11- F6 E5 INC $E5,X
BA13- E4 00 CPX $00
BA15- A9 0C LDA #$0C
BA17- 20 3E B9 JSR $B93E
BA1A- AE 7B 05 LDX $057B
BA1D- A4 25 LDY $25
BA1F- A9 46 LDA #$46
BA21- 85 F0 STA $F0
BA23- A9 BA LDA #$BA
BA25- 85 F2 STA $F2
BA27- 20 41 B9 JSR $B941
BA2A- A9 6E LDA #$6E
BA2C- 85 F0 STA $F0
BA2E- A9 BA LDA #$BA
BA30- 85 F2 STA $F2
BA32- 20 41 B9 JSR $B941
BA35- AD 00 C0 LDA $C000
BA38- 10 FB BPL $BA35
BA3A- 2C 10 C0 BIT $C010
BA3D- 9C ???
BA3E- 35 C0 AND $C0,X
BA40- 20 00 BF JSR $BF00
BA43- 65 88 ADC $88
BA45- BA TSX
BA46- D5 EE CMP $EE,X
BA48- E1 E2 SBC ($E2,X)
BA4A- EC E5 A0 CPX $A0E5
BA4D- F4 ???
BA4E- EF ???
BA4F- A0 EC LDY #$EC
BA51- E1 F5 SBC ($F5,X)
BA53- EE E3 E8 INC $E8E3
BA56- A0 F4 LDY #$F4
BA58- E8 INX
BA59- E5 A0 SBC $A0
BA5B- D3 ???
BA5C- F9 F3 F4 SBC $F4F3,Y
BA5F- E5 ED SBC $ED
BA61- A0 D5 LDY #$D5
BA63- F4 ???
BA64- E9 EC SBC #$EC
BA66- E9 F4 SBC #$F4
BA68- E9 E5 SBC #$E5
BA6A- F3 ???
BA6B- AE 0D 00 LDX $000D
BA6E- D0 F2 BNE $BA62
BA70- E5 F3 SBC $F3
BA72- F3 ???
BA73- A0 D2 LDY #$D2
BA75- C5 D4 CMP $D4
BA77- D5 D2 CMP $D2,X
BA79- CE A0 F4 DEC $F4A0
BA7C- EF ???
BA7D- A0 E3 LDY #$E3
BA7F- EF ???
BA80- EE F4 E9 INC $E9F4
BA83- EE F5 E5 INC $E5F5
BA86- AE 00 04 LDX $0400
BA89- 00 BRK
BA8A- 00 BRK
BA8B- 00 BRK
BA8C- 00 BRK
BA8D- 00 BRK
BA8E- 00 BRK
BA8F- 02 ???
BA90- 00 BRK
BA91- 93 ???
BA92- BA TSX
BA93- A9 00 LDA #$00
BA95- 8D FD 08 STA $08FD
BA98- AE 31 BF LDX $BF31
BA9B- BD 32 BF LDA $BF32,X
BA9E- C9 BF CMP #$BF
BAA0- F0 08 BEQ $BAAA
BAA2- C9 BE CMP #$BE
BAA4- F0 04 BEQ $BAAA
BAA6- CA DEX
BAA7- 10 F2 BPL $BA9B
BAA9- 60 RTS
BAAA- EC 31 BF CPX $BF31
BAAD- F0 09 BEQ $BAB8
BAAF- BD 33 BF LDA $BF33,X
BAB2- 9D 32 BF STA $BF32,X
BAB5- E8 INX
BAB6- D0 F2 BNE $BAAA
BAB8- A9 00 LDA #$00
BABA- 9D 32 BF STA $BF32,X
BABD- CE 31 BF DEC $BF31
BAC0- AD 26 BF LDA $BF26
BAC3- 8D FE 08 STA $08FE
BAC6- AD 27 BF LDA $BF27
BAC9- 8D FF 08 STA $08FF
BACC- AD 20 BF LDA $BF20
BACF- 8D 26 BF STA $BF26
BAD2- AD 21 BF LDA $BF21
BAD5- 8D 27 BF STA $BF27
BAD8- EE FD 08 INC $08FD
BADB- 60 RTS
BADC- 20 00 BF JSR $BF00
BADF- 42 ???
BAE0- E3 ???
BAE1- BA TSX
BAE2- 60 RTS
BAE3- 00 BRK
BAE4- 33 ???
BAE5- 00 BRK
BAE6- 00 BRK
BAE7- 40 RTI
BAE8- 40 RTI
BAE9- A0 00 LDY #$00
BAEB- AE 0D 23 LDX $230D
BAEE- F0 0E BEQ $BAFE
BAF0- B1 FC LDA ($FC),Y
BAF2- 91 FE STA ($FE),Y
BAF4- C8 INY
BAF5- D0 F9 BNE $BAF0
BAF7- E6 FD INC $FD
BAF9- E6 FF INC $FF
BAFB- CA DEX
BAFC- D0 F2 BNE $BAF0
BAFE- AE 0C 23 LDX $230C
BB01- F0 08 BEQ $BB0B
BB03- B1 FC LDA ($FC),Y
BB05- 91 FE STA ($FE),Y
BB07- C8 INY
BB08- CA DEX
BB09- D0 F8 BNE $BB03
BB0B- 60 RTS
BB0C- E9 02 SBC #$02