Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-26 02:49:18 +00:00
Code Issues Projects Releases Wiki Activity

button boxes

Browse Source
This commit is contained in:
Joshua Bell 2017-09-06 08:23:23 -07:00
parent f4542e5d64
commit 62d8c35399
1 changed files with 142 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

213
desk.acc/calculator.s
View File

@ -138,73 +138,144 @@ state: .byte $00
L08D1: .byte $00,$6E,$0C L08D1: .byte $00,$6E,$0C
L08D4: .byte $80 L08D4: .byte $80
;; table of floating point constants ??? ;; button definitions
L08D5: .byte $00,$0C,$00,$15,$00,$E1,$0A,$03 L08D5: .byte $00,$0C,$00,$15,$00,$E1,$0A,$03
.byte $00,$00,$00,$00,$00,$14,$00,$0C .byte $00,$00,$00,$00,$00,$14,$00,$0C
.byte $00,$63,$13,$00,$1F,$00,$0D,$00 .byte $00,$63,$13,$00,$1F,$00
.byte $16,$00,$1E,$00,$1F,$00,$29,$00
btnc_box:
.word $0D,$16,$1E,$1F
.byte $29,$00
.byte $15,$00,$E1,$0A,$03,$00,$00,$00 .byte $15,$00,$E1,$0A,$03,$00,$00,$00
.byte $00,$00,$14,$00,$0C,$00,$65,$30 .byte $00,$00,$14,$00,$0C,$00,$65,$30
.byte $00,$1F,$00,$2A,$00,$16,$00,$3B .byte $00,$1F,$00
.byte $00,$1F,$00,$45,$00,$15,$00,$E1
btne_box:
.word $2A,$16,$3B,$1F
.byte $45,$00,$15,$00,$E1
.byte $0A,$03,$00,$00,$00,$00,$00,$14 .byte $0A,$03,$00,$00,$00,$00,$00,$14
.byte $00,$0C,$00,$3D,$4C,$00,$1F,$00 .byte $00,$0C,$00,$3D,$4C,$00,$1F,$00
.byte $46,$00,$16,$00,$57,$00,$1F,$00
btneq_box:
.word $46,$16,$57,$1F
.byte $61,$00,$15,$00,$E1,$0A,$03,$00 .byte $61,$00,$15,$00,$E1,$0A,$03,$00
.byte $00,$00,$00,$00,$14,$00,$0C,$00 .byte $00,$00,$00,$00,$14,$00,$0C,$00
.byte $2A,$68,$00,$1F,$00,$62,$00,$16 .byte $2A,$68,$00,$1F,$00
.byte $00,$73,$00,$1F,$00,$0C,$00,$25
btnmul_box:
.word $62,$16,$73,$1F
.byte $0C,$00,$25
.byte $00,$E1,$0A,$03,$00,$00,$00,$00 .byte $00,$E1,$0A,$03,$00,$00,$00,$00
.byte $00,$14,$00,$0C,$00,$37,$13,$00 .byte $00,$14,$00,$0C,$00,$37,$13,$00
.byte $2F,$00,$0D,$00,$26,$00,$1E,$00 .byte $2F,$00
.byte $2F,$00,$29,$00,$25,$00,$E1,$0A
btn7_box:
.word $0D,$26,$1E,$2F
.word $29
.byte $25,$00,$E1,$0A
.byte $03,$00,$00,$00,$00,$00,$14,$00 .byte $03,$00,$00,$00,$00,$00,$14,$00
.byte $0C,$00,$38,$30,$00,$2F,$00,$2A .byte $0C,$00,$38,$30,$00,$2F,$00
.byte $00,$26,$00,$3B,$00,$2F,$00,$45
btn8_box:
.word $2A,$26,$3B,$2F
.byte $45
.byte $00,$25,$00,$E1,$0A,$03,$00,$00 .byte $00,$25,$00,$E1,$0A,$03,$00,$00
.byte $00,$00,$00,$14,$00,$0C,$00,$39 .byte $00,$00,$00,$14,$00,$0C,$00,$39
.byte $4C,$00,$2F,$00,$46,$00,$26,$00 .byte $4C,$00,$2F,$00
.byte $57,$00,$2F,$00,$61,$00,$25,$00
btn9_box:
.word $46,$26,$57,$2F
.byte $61,$00,$25,$00
.byte $E1,$0A,$03,$00,$00,$00,$00,$00 .byte $E1,$0A,$03,$00,$00,$00,$00,$00
.byte $14,$00,$0C,$00,$2F,$68,$00,$2F .byte $14,$00,$0C,$00,$2F,$68,$00,$2F
.byte $00,$62,$00,$26,$00,$73,$00,$2F .byte $00
.byte $00,$0C,$00,$34,$00,$E1,$0A,$03
btndiv_box:
.word $62,$26,$73,$2F
.byte $0C,$00,$34,$00,$E1,$0A,$03
.byte $00,$00,$00,$00,$00,$14,$00,$0C .byte $00,$00,$00,$00,$00,$14,$00,$0C
.byte $00,$34,$13,$00,$3E,$00,$0D,$00 .byte $00,$34,$13,$00,$3E,$00
.byte $35,$00,$1E,$00,$3E,$00,$29,$00
btn4_box:
.word $0D,$35,$1E,$3E
.byte $29,$00
.byte $34,$00,$E1,$0A,$03,$00,$00,$00 .byte $34,$00,$E1,$0A,$03,$00,$00,$00
.byte $00,$00,$14,$00,$0C,$00,$35,$30 .byte $00,$00,$14,$00,$0C,$00,$35,$30
.byte $00,$3E,$00,$2A,$00,$35,$00,$3B .byte $00,$3E,$00
.byte $00,$3E,$00,$45,$00,$34,$00,$E1
btn5_box:
.word $2A,$35,$3B,$3E
.byte $45,$00,$34,$00,$E1
.byte $0A,$03,$00,$00,$00,$00,$00,$14 .byte $0A,$03,$00,$00,$00,$00,$00,$14
.byte $00,$0C,$00,$36,$4C,$00,$3E,$00 .byte $00,$0C,$00,$36,$4C,$00,$3E,$00
.byte $46,$00,$35,$00,$57,$00,$3E,$00
btn6_box:
.word $46,$35,$57,$3E
.byte $61,$00,$34,$00,$E1,$0A,$03,$00 .byte $61,$00,$34,$00,$E1,$0A,$03,$00
.byte $00,$00,$00,$00,$14,$00,$0C,$00 .byte $00,$00,$00,$00,$14,$00,$0C,$00
.byte $2D,$68,$00,$3E,$00,$62,$00,$35 .byte $2D,$68,$00,$3E,$00
.byte $00,$73,$00,$3E,$00,$0C,$00,$43
btnsub_box:
.word $62,$35,$73,$3E
.byte $0C,$00,$43
.byte $00,$E1,$0A,$03,$00,$00,$00,$00 .byte $00,$E1,$0A,$03,$00,$00,$00,$00
.byte $00,$14,$00,$0C,$00,$31,$13,$00 .byte $00,$14,$00,$0C,$00,$31,$13,$00
.byte $4D,$00,$0D,$00,$44,$00,$1E,$00 .byte $4D,$00
.byte $4D,$00,$29,$00,$43,$00,$E1,$0A
btn1_box:
.word $0D,$44,$1E,$4D
.byte $29,$00,$43,$00,$E1,$0A
.byte $03,$00,$00,$00,$00,$00,$14,$00 .byte $03,$00,$00,$00,$00,$00,$14,$00
.byte $0C,$00,$32,$30,$00,$4D,$00,$2A .byte $0C,$00,$32,$30,$00,$4D,$00
.byte $00,$44,$00,$3B,$00,$4D,$00,$45
btn2_box:
.word $2A,$44,$3B,$4D
.byte $45
.byte $00,$43,$00,$E1,$0A,$03,$00,$00 .byte $00,$43,$00,$E1,$0A,$03,$00,$00
.byte $00,$00,$00,$14,$00,$0C,$00,$33 .byte $00,$00,$00,$14,$00,$0C,$00,$33
.byte $4C,$00,$4D,$00,$46,$00,$44,$00 .byte $4C,$00,$4D,$00
.byte $57,$00,$4D,$00,$0C,$00,$52,$00
btn3_box:
.word $46,$44,$57,$4D
.byte $0C,$00,$52,$00
.byte $08,$0B,$08,$00,$00,$00,$00,$00 .byte $08,$0B,$08,$00,$00,$00,$00,$00
.byte $31,$00,$0C,$00,$30,$13,$00,$5C .byte $31,$00,$0C,$00,$30,$13,$00,$5C
.byte $00,$0D,$00,$53,$00,$3B,$00,$5C .byte $00
.byte $00,$45,$00,$52,$00,$E1,$0A,$03
btn0_box:
.word $0D,$53,$3B,$5C
.byte $45,$00,$52,$00,$E1,$0A,$03
.byte $00,$00,$00,$00,$00,$14,$00,$0C .byte $00,$00,$00,$00,$00,$14,$00,$0C
.byte $00,$2E,$4E,$00,$5C,$00,$46,$00 .byte $00,$2E,$4E,$00,$5C,$00
.byte $53,$00,$57,$00,$5C,$00,$61,$00
btndec_box:
.word $46,$53,$57,$5C
.byte $61,$00
.byte $43,$00,$70,$0B,$03,$00,$00,$00 .byte $43,$00,$70,$0B,$03,$00,$00,$00
.byte $00,$00,$14,$00,$1B,$00,$2B,$68 .byte $00,$00,$14,$00,$1B,$00,$2B,$68
.byte $00,$5C,$00,$62,$00,$44,$00,$73 .byte $00,$5C,$00
.byte $00,$5C,$00,$00,$00,$00,$40,$7E
btnadd_box:
.word $62,$44,$73,$5C
.byte $00,$00,$00,$40,$7E
.byte $7F,$1F,$7E,$7F,$1F,$7E,$7F,$1F .byte $7F,$1F,$7E,$7F,$1F,$7E,$7F,$1F
.byte $7E,$7F,$1F,$7E,$7F,$1F,$7E,$7F .byte $7E,$7F,$1F,$7E,$7F,$1F,$7E,$7F
.byte $1F,$7E,$7F,$1F,$7E,$7F,$1F,$7E .byte $1F,$7E,$7F,$1F,$7E,$7F,$1F,$7E
@ -627,8 +698,8 @@ L0F68: clc
L0F6A: cmp #'C' L0F6A: cmp #'C'
bne :+ bne :+
ldx #$EB ldx #<btnc_box
ldy #$08 ldy #>btnc_box
lda #$63 lda #$63
jsr L120A jsr L120A
lda #$00 lda #$00
@ -648,8 +719,8 @@ L0F6A: cmp #'C'
: cmp #'E' : cmp #'E'
bne L0FC7 bne L0FC7
ldx #$08 ldx #<btne_box
ldy #$09 ldy #>btne_box
lda #$65 lda #$65
jsr L120A jsr L120A
ldy L0BC8 ldy L0BC8
@ -669,21 +740,21 @@ L0FC6: rts
L0FC7: cmp #'=' L0FC7: cmp #'='
bne :+ bne :+
pha pha
ldx #$25 ldx #<btneq_box
ldy #$09 ldy #>btneq_box
jmp L114C jmp L114C
: cmp #'*' : cmp #'*'
bne :+ bne :+
pha pha
ldx #$42 ldx #<btnmul_box
ldy #$09 ldy #>btnmul_box
jmp L114C jmp L114C
: cmp #'.' : cmp #'.'
bne L1003 bne L1003
ldx #$BB ldx #<btndec_box
ldy #$0A ldy #>btndec_box
jsr L120A jsr L120A
lda L0BC7 lda L0BC7
ora L0BC8 ora L0BC8
@ -700,15 +771,15 @@ L1002: rts
L1003: cmp #'+' L1003: cmp #'+'
bne :+ bne :+
pha pha
ldx #$D8 ldx #<btnadd_box
ldy #$0A ldy #>btnadd_box
jmp L114C jmp L114C
: cmp #'-' : cmp #'-'
bne L1030 bne L1030
pha pha
ldx #$2A ldx #<btnsub_box
ldy #$0A ldy #>btnsub_box
lda L0BC8 lda L0BC8
beq L102B beq L102B
lda L0BC9 lda L0BC9
@ -726,78 +797,78 @@ L102B: pla
L1030: cmp #'/' L1030: cmp #'/'
bne :+ bne :+
pha pha
ldx #$B6 ldx #<btndiv_box
ldy #$09 ldy #>btndiv_box
jmp L114C jmp L114C
: cmp #'0' : cmp #'0'
bne :+ bne :+
pha pha
ldx #$9E ldx #<btn0_box
ldy #$0A ldy #>btn0_box
jmp L10FF jmp L10FF
: cmp #'1' : cmp #'1'
bne :+ bne :+
pha pha
ldx #$47 ldx #<btn1_box
ldy #$0A ldy #>btn1_box
jmp L10FF jmp L10FF
: cmp #'2' : cmp #'2'
bne :+ bne :+
pha pha
ldx #$64 ldx #<btn2_box
ldy #$0A ldy #>btn2_box
jmp L10FF jmp L10FF
: cmp #'3' : cmp #'3'
bne :+ bne :+
pha pha
ldx #$81 ldx #<btn3_box
ldy #$0A ldy #>btn3_box
jmp L10FF jmp L10FF
: cmp #'4' : cmp #'4'
bne :+ bne :+
pha pha
ldx #$D3 ldx #<btn4_box
ldy #$09 ldy #>btn4_box
jmp L10FF jmp L10FF
: cmp #'5' : cmp #'5'
bne :+ bne :+
pha pha
ldx #$F0 ldx #<btn5_box
ldy #$09 ldy #>btn5_box
jmp L10FF jmp L10FF
: cmp #'6' : cmp #'6'
bne :+ bne :+
pha pha
ldx #$0D ldx #<btn6_box
ldy #$0A ldy #>btn6_box
jmp L10FF jmp L10FF
: cmp #'7' : cmp #'7'
bne :+ bne :+
pha pha
ldx #$5F ldx #<btn7_box
ldy #$09 ldy #>btn7_box
jmp L10FF jmp L10FF
: cmp #'8' : cmp #'8'
bne :+ bne :+
pha pha
ldx #$7C ldx #<btn8_box
ldy #$09 ldy #>btn8_box
jmp L10FF jmp L10FF
: cmp #'9' : cmp #'9'
bne :+ bne :+
pha pha
ldx #$99 ldx #<btn9_box
ldy #$09 ldy #>btn9_box
jmp L10FF jmp L10FF
: cmp #$7F : cmp #$7F