relabel
This commit is contained in:
Joshua Bell
parent
0ab94dd62b
commit
73710c55b2
|
|
@ -186,7 +186,7 @@ MainEntry:
|
|||
stx SAVEX
|
||||
sty SAVEY
|
||||
pha
|
||||
bvc LC35B
|
||||
bvc l1
|
||||
|
||||
lda #<LC305
|
||||
sta KSWL
|
||||
|
|
@ -197,9 +197,9 @@ MainEntry:
|
|||
stx CSWH
|
||||
jsr LC800
|
||||
clc
|
||||
LC35B: php
|
||||
l1: php
|
||||
bit RD80VID
|
||||
bpl LC36D
|
||||
bpl l2
|
||||
lsr WNDWDTH
|
||||
asl WNDWDTH
|
||||
sta SET80COL
|
||||
|
|
@ -209,45 +209,45 @@ LC35B: php
|
|||
lda OURCH
|
||||
sta CH
|
||||
|
||||
LC36D: plp
|
||||
l2: plp
|
||||
pla
|
||||
bcs LC376
|
||||
bcs l3
|
||||
jsr LC8B1
|
||||
bra LC3B7
|
||||
bra l9
|
||||
|
||||
LC376: ldx SAVEX
|
||||
beq LC38B
|
||||
l3: ldx SAVEX
|
||||
beq l4
|
||||
dex
|
||||
lda $0678
|
||||
cmp #$88 ; left?
|
||||
beq LC38B
|
||||
beq l4
|
||||
cmp $0200,x
|
||||
bne LC3AF
|
||||
bne l7
|
||||
sta $0200,x
|
||||
LC38B: jsr LC877
|
||||
l4: jsr LC877
|
||||
cmp #$9B ; escape?
|
||||
beq EscapeMode
|
||||
cmp #$8D ; return?
|
||||
bne LC39B
|
||||
bne l5
|
||||
pha
|
||||
jsr DoClearEOL
|
||||
pla
|
||||
LC39B: cmp #$95 ; right?
|
||||
bne LC3AA
|
||||
l5: cmp #$95 ; right?
|
||||
bne l6
|
||||
jsr LCEBE
|
||||
ora #$80
|
||||
cmp #$A0 ; non-control char
|
||||
bcs LC3AA
|
||||
bcs l6
|
||||
ora #$40
|
||||
LC3AA: sta $0678
|
||||
bra LC3B5
|
||||
l6: sta $0678
|
||||
bra l8
|
||||
|
||||
LC3AF: jsr LC850
|
||||
l7: jsr LC850
|
||||
stz $0678
|
||||
LC3B5: bra LC3BA
|
||||
l8: bra l10
|
||||
|
||||
LC3B7: lda SAVEA
|
||||
LC3BA: ldx SAVEX
|
||||
l9: lda SAVEA
|
||||
l10: ldx SAVEX
|
||||
ldy CH
|
||||
sty OURCH
|
||||
ldy SAVEY
|
||||
|
|
@ -262,10 +262,10 @@ EscapeMode:
|
|||
jsr LC850
|
||||
jsr ProcessEscapeModeKey
|
||||
cmp #$98 ; ctrl-x (clear)
|
||||
beq LC3AA
|
||||
beq l6
|
||||
lda MODE ; still in escape mode?
|
||||
bmi EscapeMode
|
||||
bra LC38B
|
||||
bra l4
|
||||
|
||||
;;; ============================================================
|
||||
|
||||
|
|
|
|||
|
|
@ -189,45 +189,45 @@ MainEntry:
|
|||
stx SAVEX
|
||||
sty SAVEY
|
||||
pha
|
||||
bvc LC354
|
||||
bvc l1
|
||||
|
||||
jsr LC806
|
||||
clc
|
||||
LC354: php
|
||||
l1: php
|
||||
jsr LC9B4
|
||||
plp
|
||||
pla
|
||||
bcc LC397
|
||||
bcc l7
|
||||
ldx SAVEX
|
||||
beq LC371
|
||||
beq l2
|
||||
dex
|
||||
lda $0678
|
||||
cmp #$88 ; left?
|
||||
beq LC371
|
||||
beq l2
|
||||
cmp $0200,x
|
||||
bne LC38F
|
||||
bne l5
|
||||
sta $0200,x
|
||||
|
||||
LC371: jsr LC96F
|
||||
l2: jsr LC96F
|
||||
cmp #$9B ; escape?
|
||||
beq EscapeMode
|
||||
cmp #$8D ; return?
|
||||
bne LC381
|
||||
bne l3
|
||||
pha
|
||||
jsr DoClearEOL
|
||||
pla
|
||||
LC381: cmp #$95 ; right?
|
||||
bne LC38A
|
||||
l3: cmp #$95 ; right?
|
||||
bne l4
|
||||
ldy CH
|
||||
jsr LC9A8
|
||||
LC38A: sta $0678
|
||||
bra LC395
|
||||
LC38F: jsr LC822
|
||||
l4: sta $0678
|
||||
bra l6
|
||||
l5: jsr LC822
|
||||
stz $0678
|
||||
LC395: bra LC39D
|
||||
LC397: jsr LC849
|
||||
l6: bra l8
|
||||
l7: jsr LC849
|
||||
lda SAVEA
|
||||
LC39D: ldx SAVEX
|
||||
l8: ldx SAVEX
|
||||
ldy CH
|
||||
sty OURCH
|
||||
sty XCOORD
|
||||
|
|
@ -243,10 +243,10 @@ EscapeMode:
|
|||
jsr LC822
|
||||
jsr ProcessEscapeModeKey
|
||||
cmp #$98
|
||||
beq LC38A
|
||||
beq l4
|
||||
lda MODE
|
||||
bmi EscapeMode
|
||||
bra LC371
|
||||
bra l2
|
||||
|
||||
;;; ============================================================
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue