Apple-2-SW/IIcSystemClock
1
0
Fork 0
mirror of https://github.com/a2stuff/IIcSystemClock.git synced 2024-06-08 04:29:31 +00:00
Code Issues Projects Releases Wiki Activity

disasm: equates

Browse Source
This commit is contained in:
Joshua Bell 2019-04-20 16:58:58 -07:00
parent 9898df1d04
commit ab7f24bb3c
1 changed files with 35 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
clock.system.s
View File

@ -1,11 +1,8 @@
; da65 V2.17 - Git 5ac11b5e .include "opcodes.inc"
; Created: 2019-04-20 15:45:09 .include "apple2.inc"
; Input file: orig/CLOCK.SYSTEM.SYS
; Page: 1
.include "common.inc" .include "common.inc"
.feature string_escapes .feature string_escapes
.org $2000 .org $2000
.setcpu "6502" .setcpu "6502"
@ -21,14 +18,8 @@ L119F := $119F
L11AA := $11AA L11AA := $11AA
L11C0 := $11C0 L11C0 := $11C0
L11C3 := $11C3 L11C3 := $11C3
LBF00 := $BF00
LBF06 := $BF06
LC300 := $C300 LC300 := $C300
LFC58 := $FC58
LFCA8 := $FCA8
LFD0C := $FD0C
LFDDA := $FDDA
LFDED := $FDED
L2000: L2000:
L2001 := * + 1 L2001 := * + 1
lda #$06 lda #$06
@ -45,7 +36,7 @@ L2013: ldx #$FF
lda #$00 lda #$00
sta $BFFC sta $BFFC
sta $BFFD sta $BFFD
sta $C082 sta ROMIN2
lda $03F3 lda $03F3
eor #$FF eor #$FF
sta $03F4 sta $03F4
@ -182,7 +173,7 @@ L2135: ldy #$07
lda $BF98 lda $BF98
ror a ror a
bcc L2145 bcc L2145
jsr LFC58 jsr MON_HOME
jmp L1000 jmp L1000
L2145: lda #$00 L2145: lda #$00
@ -192,8 +183,8 @@ L2145: lda #$00
sta $BF93 sta $BF93
jmp L11AA jmp L11AA
L2156: lda #$4C L2156: lda #OPC_JMP_abs
sta LBF06 sta DATETIME
lda $BF98 lda $BF98
ora #$01 ora #$01
sta $BF98 sta $BF98
@ -222,10 +213,10 @@ L218C: bit $C010
L2199: ldy #$05 L2199: ldy #$05
jsr L10EF jsr L10EF
lda $11FF lda $11FF
jsr LFDDA jsr PRBYTE
ldy #$06 ldy #$06
jsr L10EF jsr L10EF
L21A9: jsr LFD0C L21A9: jsr RDKEY
and #$DF and #$DF
cmp #$D9 cmp #$D9
beq L21D3 beq L21D3
@ -267,8 +258,8 @@ L2203 := * + 2
sta $F000,y sta $F000,y
dey dey
bpl L21FE bpl L21FE
jsr LBF06 jsr DATETIME
lda $C082 lda ROMIN2
jmp L1000 jmp L1000
L2210: lda $11FF L2210: lda $11FF
@ -506,12 +497,12 @@ L236B: lda $C063
L238A: jsr L2265 L238A: jsr L2265
rts rts
L238E: jsr LFD0C L238E: jsr RDKEY
cmp #$B0 cmp #$B0
bcc L238E bcc L238E
cmp #$BA cmp #$BA
bcs L238E bcs L238E
jmp LFDED jmp COUT
L239C: .byte $DF L239C: .byte $DF
.byte $FF .byte $FF
@ -578,7 +569,7 @@ L2415: lda ($00),y
sta $121D,y sta $121D,y
sta $0280,y sta $0280,y
ora #$80 ora #$80
jsr LFDED jsr COUT
iny iny
cpy $05 cpy $05
bne L2415 bne L2415
@ -587,13 +578,13 @@ L2415: lda ($00),y
sta $22 sta $22
lda #$18 lda #$18
sta $23 sta $23
jsr LFC58 jsr MON_HOME
lda $09 lda $09
beq L2443 beq L2443
lda #$15 lda #$15
jsr LFDED jsr COUT
lda #$8D lda #$8D
jsr LFDED jsr COUT
L2443: jmp L2000 L2443: jmp L2000
L2446: clc L2446: clc
@ -640,14 +631,14 @@ L248C: rts
beq L24A4 beq L24A4
cpy #$08 cpy #$08
beq L24A4 beq L24A4
jsr LFC58 jsr MON_HOME
L24A4: ldy #$00 L24A4: ldy #$00
L24A6: lda $F000,y L24A6: lda $F000,y
beq L24B7 beq L24B7
cmp #$E0 cmp #$E0
bcc L24B1 bcc L24B1
and $08 and $08
L24B1: jsr LFDED L24B1: jsr COUT
iny iny
bne L24A6 bne L24A6
L24B7: rts L24B7: rts
@ -659,9 +650,9 @@ L24BF: lda $BF90,y
sta $1203,y sta $1203,y
dey dey
bpl L24BF bpl L24BF
lda #$60 lda #OPC_RTS
sta LBF06 sta DATETIME
jsr LBF00 jsr PRODOS
.byte $C3 .byte $C3
sbc $D011,y sbc $D011,y
asl $A9 asl $A9
@ -675,21 +666,21 @@ L24BF: lda $BF90,y
ldy #$0B ldy #$0B
jsr L10EF jsr L10EF
jsr L11C3 jsr L11C3
jsr LFD0C jsr RDKEY
jmp L111A jmp L111A
jsr LBF00 jsr PRODOS
iny iny
sbc #$11 sbc #$11
bne L2546 bne L2546
lda $11EE lda $11EE
sta $11F0 sta $11F0
jsr LBF00 jsr PRODOS
dex dex
.byte $EF .byte $EF
ora ($D0),y ora ($D0),y
.byte $43 .byte $43
jsr LBF00 jsr PRODOS
cpy $11F7 cpy $11F7
bne L2546 bne L2546
rts rts
@ -697,7 +688,7 @@ L24BF: lda $BF90,y
lda $BF30 lda $BF30
sta $11DD sta $11DD
sta $11E4 sta $11E4
jsr LBF00 jsr PRODOS
cmp $DC cmp $DC
ora ($D0),y ora ($D0),y
and #$AD and #$AD
@ -709,17 +700,17 @@ L24BF: lda $BF90,y
sty $120B sty $120B
lda #$2F lda #$2F
sta $120C sta $120C
jsr LBF00 jsr PRODOS
dec $E0 dec $E0
ora ($D0),y ora ($D0),y
.byte $12 .byte $12
jsr LBF00 jsr PRODOS
cpy $F9 cpy $F9
ora ($D0),y ora ($D0),y
asl a asl a
rts rts
jsr LBF00 jsr PRODOS
.byte $80 .byte $80
.byte $E3 .byte $E3
ora ($D0),y ora ($D0),y
@ -731,8 +722,8 @@ L2546: ldy #$02
lda $0B lda $0B
cmp #$07 cmp #$07
bne L255E bne L255E
lda #$60 lda #OPC_RTS
sta LBF06 sta DATETIME
jmp L1000 jmp L1000
L255E: jmp L11C0 L255E: jmp L11C0
@ -740,10 +731,10 @@ L255E: jmp L11C0
lda #$20 lda #$20
sta $0C sta $0C
L2565: lda #$02 L2565: lda #$02
jsr LFCA8 jsr WAIT
sta $C030 sta $C030
lda #$24 lda #$24
jsr LFCA8 jsr WAIT
sta $C030 sta $C030
dec $0C dec $0C
bne L2565 bne L2565