Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-07-16 05:28:59 +00:00
Code Issues Projects Releases Wiki Activity
5810e0653f
a2d/desk.acc/calculator.s
Joshua Bell 5810e0653f button boxes
2017-09-06 08:42:33 -07:00

1261 lines
27 KiB
ArmAsm
Raw Blame History

.setcpu "65C02"
.org $800
.include "apple2.inc"
.include "../inc/prodos.inc"
.include "../inc/auxmem.inc"
.include "../inc/applesoft.inc"
.include "a2d.inc"
L0020 := $0020
L00B1 := $00B1
ROMIN2 := $C082
start: jmp copy2aux
save_stack: .byte 0
.proc copy2aux
tsx
stx save_stack
start := call_init
end := da_end
dest := start
lda ROMIN2
lda #<start
sta STARTLO
lda #>start
sta STARTHI
lda #<end
sta ENDLO
lda #>end
sta ENDHI
lda #<dest
sta DESTINATIONLO
lda #>dest
sta DESTINATIONHI
sec ; main>aux
jsr AUXMOVE
lda #<start
sta XFERSTARTLO
lda #>start
sta XFERSTARTHI
php
pla
ora #$40 ; set overflow: use aux zp/stack
pha
plp
sec ; control main>aux
jmp XFER
.endproc
.proc exit_da
lda LCBANK1
lda LCBANK1
ldx save_stack
txs
rts
.endproc
call_init:
lda ROMIN2
jmp L0D18
L084C: lda LCBANK1
lda LCBANK1
ldx #$10
L0854: lda L088D,x
sta L0020,x
dex
bpl L0854
jsr L0020
lda ROMIN2
lda #$34
jsr L089E
lda LCBANK1
lda LCBANK1
bit L089D
bmi L0878
jsr UNKNOWN_CALL
.byte $0C
.addr 0
L0878: lda #$00
sta L089D
lda ROMIN2
A2D_CALL $3C, L08D1
A2D_CALL A2D_TEXT_BOX1, L0C6E
rts
L088D: sta RAMRDOFF
sta RAMWRTOFF
jsr JUMP_TABLE_15
sta RAMRDON
sta RAMWRTON
rts
L089D: brk
L089E: sta L08D1
lda L0CBD
cmp #$BF
bcc L08AE
lda #$80
sta L089D
rts
L08AE: A2D_CALL $3C, L08D1
A2D_CALL A2D_TEXT_BOX1, L0C6E
lda L08D1
cmp #$34
bne L08C4
jmp L12E8
L08C4: rts
.proc button_state_params
state: .byte $00
.endproc
L08C6: .byte $00
L08C7: .byte $00,$00,$00
.proc text_pos_params1
left: .word 0
base: .word 0
.endproc
.byte $00,$00
.proc button_click_params
state: .byte $00
.endproc
L08D1: .byte $00,$6E,$0C
L08D4: .byte $80
;; button definitions
button_width := 17
button_height := 9
col1_left := 13
col1_right := col1_left+button_width
col2_left := 42
col2_right := col2_left+button_width
col3_left := 70
col3_right := col3_left+button_width
col4_left := 98
col4_right := col4_left+button_width
row1_top := 22
row1_bot := row1_top+button_height
row2_top := 38
row2_bot := row2_top+button_height
row3_top := 53
row3_bot := row3_top+button_height
row4_top := 68
row4_bot := row4_top+button_height
row5_top := 83
row5_bot := row5_top+button_height
L08D5: .byte $00,$0C,$00,$15,$00,$E1,$0A,$03
.byte $00,$00,$00,$00,$00,$14,$00,$0C
.byte $00,$63,$13,$00
.word row1_bot
btnc_box:
.word col1_left,row1_top,col1_right,row1_bot
.byte $29,$00
.byte $15,$00,$E1,$0A,$03,$00,$00,$00
.byte $00,$00,$14,$00,$0C,$00,$65,$30
.byte $00
.word row1_bot
btne_box:
.word col2_left,row1_top,col2_right,row1_bot
.byte $45,$00,$15,$00,$E1
.byte $0A,$03,$00,$00,$00,$00,$00,$14
.byte $00,$0C,$00,$3D,$4C,$00
.word row1_bot
btneq_box:
.word col3_left,row1_top,col3_right,row1_bot
.byte $61,$00,$15,$00,$E1,$0A,$03,$00
.byte $00,$00,$00,$00,$14,$00,$0C,$00
.byte $2A,$68,$00
.word row1_bot
btnmul_box:
.word col4_left,row1_top,col4_right,row1_bot
.byte $0C,$00,$25
.byte $00,$E1,$0A,$03,$00,$00,$00,$00
.byte $00,$14,$00,$0C,$00,$37,$13,$00
.word row2_bot
btn7_box:
.word col1_left,row2_top,col1_right,row2_bot
.word $29
.byte $25,$00,$E1,$0A
.byte $03,$00,$00,$00,$00,$00,$14,$00
.byte $0C,$00,$38,$30,$00
.word row2_bot
btn8_box:
.word col2_left,row2_top,col2_right,row2_bot
.byte $45
.byte $00,$25,$00,$E1,$0A,$03,$00,$00
.byte $00,$00,$00,$14,$00,$0C,$00,$39
.byte $4C,$00
.word row2_bot
btn9_box:
.word col3_left,row2_top,col3_right,row2_bot
.byte $61,$00,$25,$00
.byte $E1,$0A,$03,$00,$00,$00,$00,$00
.byte $14,$00,$0C,$00,$2F,$68,$00
.word row2_bot
btndiv_box:
.word col4_left,row2_top,col4_right,row2_bot
.byte $0C,$00,$34,$00,$E1,$0A,$03
.byte $00,$00,$00,$00,$00,$14,$00,$0C
.byte $00,$34,$13,$00
.word row3_bot
btn4_box:
.word col1_left,row3_top,col1_right,row3_bot
.byte $29,$00
.byte $34,$00,$E1,$0A,$03,$00,$00,$00
.byte $00,$00,$14,$00,$0C,$00,$35,$30
.byte $00
.word row3_bot
btn5_box:
.word col2_left,row3_top,col2_right,row3_bot
.byte $45,$00,$34,$00,$E1
.byte $0A,$03,$00,$00,$00,$00,$00,$14
.byte $00,$0C,$00,$36,$4C,$00
.word row3_bot
btn6_box:
.word col3_left,row3_top,col3_right,row3_bot
.byte $61,$00,$34,$00,$E1,$0A,$03,$00
.byte $00,$00,$00,$00,$14,$00,$0C,$00
.byte $2D,$68,$00
.word row3_bot
btnsub_box:
.word col4_left,row3_top,col4_right,row3_bot
.byte $0C,$00,$43
.byte $00,$E1,$0A,$03,$00,$00,$00,$00
.byte $00,$14,$00,$0C,$00,$31,$13,$00
.word row4_bot
btn1_box:
.word col1_left,row4_top,col1_right,row4_bot
.byte $29,$00,$43,$00,$E1,$0A
.byte $03,$00,$00,$00,$00,$00,$14,$00
.byte $0C,$00,$32,$30,$00
.word row4_bot
btn2_box:
.word col2_left,row4_top,col2_right,row4_bot
.byte $45
.byte $00,$43,$00,$E1,$0A,$03,$00,$00
.byte $00,$00,$00,$14,$00,$0C,$00,$33
.byte $4C,$00
.word row4_bot
btn3_box:
.word col3_left,row4_top,col3_right,row4_bot
.byte $0C,$00,$52,$00
.byte $08,$0B,$08,$00,$00,$00,$00,$00
.byte $31,$00,$0C,$00,$30,$13,$00
.word row5_bot
btn0_box:
.word col1_left,row5_top,col2_right,row5_bot
.byte $45,$00,$52,$00,$E1,$0A,$03
.byte $00,$00,$00,$00,$00,$14,$00,$0C
.byte $00,$2E,$4E,$00
.word row5_bot
btndec_box:
.word col3_left,row5_top,col3_right,row5_bot
.byte $61,$00
.byte $43,$00,$70,$0B,$03,$00,$00,$00
.byte $00,$00,$14,$00,$1B,$00,$2B,$68
.byte $00
.word row5_bot
btnadd_box:
.word col4_left,row4_top,col4_right,row5_bot
.byte $00,$00,$00,$40,$7E
.byte $7F,$1F,$7E,$7F,$1F,$7E,$7F,$1F
.byte $7E,$7F,$1F,$7E,$7F,$1F,$7E,$7F
.byte $1F,$7E,$7F,$1F,$7E,$7F,$1F,$7E
.byte $7F,$1F,$7E,$7F,$1F,$00,$00,$00
.byte $01,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$7F,$7E,$7F,$7F,$7F,$7F
.byte $7F,$3F,$7E,$7E,$7F,$7F,$7F,$7F
.byte $7F,$3F,$7E,$7E,$7F,$7F,$7F,$7F
.byte $7F,$3F,$7E,$7E,$7F,$7F,$7F,$7F
.byte $7F,$3F,$7E,$7E,$7F,$7F,$7F,$7F
.byte $7F,$3F,$7E,$7E,$7F,$7F,$7F,$7F
.byte $7F,$3F,$7E,$7E,$7F,$7F,$7F,$7F
.byte $7F,$3F,$7E,$7E,$7F,$7F,$7F,$7F
.byte $7F,$3F,$7E,$7E,$7F,$7F,$7F,$7F
.byte $7F,$3F,$7E,$7E,$7F,$7F,$7F,$7F
.byte $7F,$3F,$7E,$00,$00,$00,$00,$00
.byte $00,$00,$7E,$01,$00,$00,$00,$00
.byte $00,$00,$7E,$00,$00,$40,$7E,$7F
.byte $1F,$7E,$7F,$1F,$7E,$7F,$1F,$7E
.byte $7F,$1F,$7E,$7F,$1F,$7E,$7F,$1F
.byte $7E,$7F,$1F,$7E,$7F,$1F,$7E,$7F
.byte $1F,$7E,$7F,$1F,$7E,$7F,$1F,$7E
.byte $7F,$1F,$7E,$7F,$1F,$7E,$7F,$1F
.byte $7E,$7F,$1F,$7E,$7F,$1F,$7E,$7F
.byte $1F,$7E,$7F,$1F,$7E,$7F,$1F,$7E
.byte $7F,$1F,$7E,$7F,$1F,$7E,$7F,$1F
.byte $7E,$7F,$1F,$7E,$7F,$1F,$7E,$7F
.byte $1F,$00,$00,$00,$01,$00,$00
L0BC4: .byte $00
L0BC5: .byte $00
L0BC6: .byte $00
L0BC7: .byte $00
L0BC8: .byte $00
L0BC9: .byte $00
L0BCA: .byte $00
L0BCB: .byte $00
.proc clear_box_params1
hoffset:.word 1
voffset:.word 0
width: .word 129
height: .word 96
.endproc
background_pattern:
.byte $77,$DD,$77,$DD,$77,$DD,$77,$DD
.byte $00
black_pattern:
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00
white_pattern:
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
.byte $00
L0BEF: .byte $7F
L0BF0: .byte $0A,$00,$05,$00,$78,$00,$11,$00
.proc clear_box_params2
hoffset:.word 11
voffset:.word 6
width: .word 119
height: .word 16
.endproc
;; For drawing 1-character strings (button labels)
.proc draw_text_params_label
.addr label
.byte 1
.endproc
label: .byte 0 ; modified with char to draw
.proc draw_text_params1
addr: .addr text_buffer1
length: .byte 15
.endproc
text_buffer_size := 14
text_buffer1:
.byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.proc draw_text_params2
addr: .addr text_buffer2
length: .byte 15
.endproc
text_buffer2:
.byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
spaces_string:
A2D_DEFSTRING " "
error_string:
A2D_DEFSTRING "Error "
L0C40: .byte $07
L0C41: .byte $0C,$0F
L0C43: .byte $00,$00
.proc destroy_window_params
id: .byte $34
.endproc
.proc text_pos_params3
left: .word 0
base: .word 16
.endproc
.proc text_pos_params2
left: .word 15
base: .word 16
.endproc
L0C4E: .byte $45,$00,$10,$00,$00,$00,$00,$00
.byte $00,$00
L0C58: .byte $73
L0C59: .byte $00
L0C5A: .byte $F7
L0C5B: .byte $FF,$68,$0C,$01,$00,$00,$00,$00
.byte $00,$06,$00,$05,$00,$41,$35,$47
.byte $37,$36,$49
L0C6E: .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00
L0C93: .byte $00,$00,$0D,$00,$00,$20,$80,$00
.byte $00,$00,$00,$00,$2F,$02,$B1,$00
L0CA3: .byte $00,$01,$02
L0CA6: .byte $06
create_window_params:
.byte $34 ; id
.byte $02 ; flags
.addr title
.byte $00,$00,$00,$00
.byte $00,$00,$00,$00,$82,$00,$60,$00
.byte $82,$00,$60,$00
L0CBB: .byte $D2
L0CBC: .byte $00
L0CBD: .byte $3C
L0CBE: .byte $00,$00,$20,$80,$00,$00,$00,$00
.byte $00,$82,$00,$60,$00,$FF,$FF,$FF
.byte $FF,$FF,$FF,$FF,$FF,$FF,$00,$00
.byte $00,$00,$00,$01,$01,$00,$7F,$00
.byte $88,$00,$00
title: PASCAL_STRING "Calc"
L0CE6: .byte $00,$00,$02,$00,$06,$00,$0E,$00
.byte $1E,$00,$3E,$00,$7E,$00,$1A,$00
.byte $30,$00,$30,$00,$60,$00,$00,$00
.byte $03,$00,$07,$00,$0F,$00,$1F,$00
.byte $3F,$00,$7F,$00,$7F,$01,$7F,$00
.byte $78,$00,$78,$00,$70,$01,$70,$01
.byte $01,$01
L0D18: sta ALTZPON
lda LCBANK1
lda LCBANK1
A2D_CALL $1A, L08D4
A2D_CALL A2D_CREATE_WINDOW, create_window_params
A2D_CALL $03, L0C6E
A2D_CALL A2D_TEXT_BOX1, L0C6E
A2D_CALL $2B, 0
lda #$01
sta button_state_params::state
A2D_CALL $2D, button_state_params
A2D_CALL A2D_GET_BUTTON, button_state_params
lda ROMIN2
jsr L128E
lda #$34
jsr L089E
jsr L129E
lda #$3D
sta L0BC6
lda #$00
sta L0BC5
sta L0BC7
sta L0BC8
sta L0BC9
sta L0BCA
sta L0BCB
ldx #$1C
L0D79: lda L13CB,x
sta $B0,x
dex
bne L0D79
lda #$00
sta $D8
lda #$AE
sta $36
lda #$13
sta $37
lda #$01
jsr FLOAT
ldx #$52
ldy #$0C
jsr ROUND
lda #$00
jsr FLOAT
jsr FADD
jsr FOUT
lda #$07
jsr FMULT
lda #$00
jsr FLOAT
ldx #$52
ldy #$0C
jsr ROUND
tsx
stx L0BC4
lda #$3D
jsr L0F6A
lda #$43
jsr L0F6A
A2D_CALL $24, L0CE6
L0DC9: A2D_CALL $2A, button_state_params
lda button_state_params::state
cmp #$01
bne L0DDC
jsr L0DE6
jmp L0DC9
L0DDC: cmp #$03
bne L0DC9
jsr L0E6F
jmp L0DC9
L0DE6: lda LCBANK1
lda LCBANK1
A2D_CALL A2D_GET_MOUSE, L08C6
lda ROMIN2
lda text_pos_params1::left
cmp #$02
bcc L0E03
lda text_pos_params1::left+1
cmp #$34
beq L0E04
L0E03: rts
L0E04: lda text_pos_params1::left
cmp #$02
bne L0E13
jsr L0E95
bcc L0E03
jmp L0F6A
L0E13: cmp #$05
bne L0E53
A2D_CALL A2D_BTN_CLICK, button_click_params
lda button_click_params::state
beq L0E03
L0E22: lda LCBANK1
lda LCBANK1
A2D_CALL A2D_DESTROY_WINDOW, destroy_window_params
jsr UNKNOWN_CALL
.byte $0C
.addr 0
lda ROMIN2
A2D_CALL $1A, L08D5
ldx #$09
L0E3F: lda L0E4A,x
sta L0020,x
dex
bpl L0E3F
jmp L0020
L0E4A: sta RAMRDOFF
sta RAMWRTOFF
jmp exit_da
L0E53: cmp #$03
bne L0E03
lda #$34
sta button_state_params::state
lda LCBANK1
lda LCBANK1
A2D_CALL $44, button_state_params
lda ROMIN2
jsr L084C
rts
L0E6F: lda L08C7
bne L0E94
lda L08C6
cmp #$1B ; Escape
bne L0E87
lda L0BC5
bne L0E85
lda L0BCB
beq L0E22
L0E85: lda #$43
L0E87: cmp #$7F
beq L0E91
cmp #$60
bcc L0E91
and #$5F
L0E91: jmp L0F6A
L0E94: rts
L0E95: lda #$34
sta button_state_params::state
A2D_CALL $46, button_state_params
lda text_pos_params1::left+1
ora text_pos_params1::base+1
bne L0E94
lda text_pos_params1::base
ldx text_pos_params1::left
cmp #$16
bcc L0F22
cmp #$22
bcs :+
jsr L0F38
bcc L0F22
lda L0F23,x
rts
: cmp #$25
bcc L0F22
cmp #$31
bcs :+
jsr L0F38
bcc L0F22
lda L0F27,x
rts
: cmp #$34
bcc L0F22
cmp #$40
bcs :+
jsr L0F38
bcc L0F22
lda L0F2B,x
rts
: cmp #$43
bcc L0F22
cmp #$4F
bcs :+
jsr L0F38
bcc L0F22
sec
lda L0F2F,x
rts
: cmp #$52
bcs :+
lda text_pos_params1::left
cmp #$61
bcc L0F22
cmp #$74
bcs L0F22
lda #$2B
sec
rts
: cmp #$5E
bcs L0F22
jsr L0F38
bcc :+
lda L0F33,x
rts
: lda text_pos_params1::left
cmp #$0C
bcc L0F22
cmp #'='
bcs L0F22
lda #$30
sec
rts
L0F22: clc
L0F23: rts
.byte $43,$45,$3D
L0F27: .byte $2A,$37,$38,$39
L0F2B: .byte $2F,$34,$35,$36
L0F2F: .byte $2D,$31,$32,$33
L0F33: .byte $2B,$30,$30,$2E,$2B
L0F38: cpx #$0C
bcc L0F68
cpx #$20
bcs :+
ldx #$01
sec
rts
: cpx #$29
bcc L0F68
cpx #$3D
bcs :+
ldx #$02
sec
rts
: cpx #$45
bcc L0F68
cpx #$59
bcs :+
ldx #$03
sec
rts
: cpx #$61
bcc L0F68
cpx #$74
bcs L0F68
ldx #$04
sec
rts
L0F68: clc
rts
L0F6A: cmp #'C'
bne :+
ldx #<btnc_box
ldy #>btnc_box
lda #$63
jsr L120A
lda #$00
jsr FLOAT
ldx #$52
ldy #$0C
jsr ROUND
lda #$3D
sta L0BC6
lda #$00
sta L0BC5
sta L0BCB
sta L0BC7
sta L0BC8
sta L0BC9
jmp L129E
: cmp #'E'
bne L0FC7
ldx #<btne_box
ldy #>btne_box
lda #$65
jsr L120A
ldy L0BC8
bne L0FC6
ldy L0BCB
bne :+
inc L0BCB
lda #'1'
sta text_buffer1 + text_buffer_size
sta text_buffer2 + text_buffer_size
: lda #'E'
sta L0BC8
jmp L1107
L0FC6: rts
L0FC7: cmp #'='
bne :+
pha
ldx #<btneq_box
ldy #>btneq_box
jmp L114C
: cmp #'*'
bne :+
pha
ldx #<btnmul_box
ldy #>btnmul_box
jmp L114C
: cmp #'.'
bne L1003
ldx #<btndec_box
ldy #>btndec_box
jsr L120A
lda L0BC7
ora L0BC8
bne L1002
lda L0BCB
bne :+
inc L0BCB
: lda #$2E
sta L0BC7
jmp L1107
L1002: rts
L1003: cmp #'+'
bne :+
pha
ldx #<btnadd_box
ldy #>btnadd_box
jmp L114C
: cmp #'-'
bne L1030
pha
ldx #<btnsub_box
ldy #>btnsub_box
lda L0BC8
beq L102B
lda L0BC9
bne L102B
sec
ror L0BC9
pla
pha
jmp L10FF
L102B: pla
pha
jmp L114C
L1030: cmp #'/'
bne :+
pha
ldx #<btndiv_box
ldy #>btndiv_box
jmp L114C
: cmp #'0'
bne :+
pha
ldx #<btn0_box
ldy #>btn0_box
jmp L10FF
: cmp #'1'
bne :+
pha
ldx #<btn1_box
ldy #>btn1_box
jmp L10FF
: cmp #'2'
bne :+
pha
ldx #<btn2_box
ldy #>btn2_box
jmp L10FF
: cmp #'3'
bne :+
pha
ldx #<btn3_box
ldy #>btn3_box
jmp L10FF
: cmp #'4'
bne :+
pha
ldx #<btn4_box
ldy #>btn4_box
jmp L10FF
: cmp #'5'
bne :+
pha
ldx #<btn5_box
ldy #>btn5_box
jmp L10FF
: cmp #'6'
bne :+
pha
ldx #<btn6_box
ldy #>btn6_box
jmp L10FF
: cmp #'7'
bne :+
pha
ldx #<btn7_box
ldy #>btn7_box
jmp L10FF
: cmp #'8'
bne :+
pha
ldx #<btn8_box
ldy #>btn8_box
jmp L10FF
: cmp #'9'
bne :+
pha
ldx #<btn9_box
ldy #>btn9_box
jmp L10FF
: cmp #$7F
bne L10FE
ldy L0BCB
beq L10FE
cpy #$01
bne :+
jsr L11F5
jmp L12A4
: dec L0BCB
ldx #0
lda text_buffer1 + text_buffer_size
cmp #'.'
bne L10D6
stx L0BC7
L10D6: cmp #'E'
bne :+
stx L0BC8
: cmp #'-'
bne :+
stx L0BC9
: ldx #$0D
L10E6: lda text_buffer1,x
sta text_buffer1+1,x
sta text_buffer2+1,x
dex
dey
bne L10E6
lda #' '
sta text_buffer1+1,x
sta text_buffer2+1,x
jmp L12A4
L10FE: rts
L10FF: jsr L120A
bne L1106
pla
rts
L1106: pla
L1107: sec
ror L0BCA
ldy L0BCB
bne L111C
pha
jsr L128E
pla
cmp #$30
bne L111C
jmp L12A4
L111C: sec
ror L0BC5
cpy #$0A
bcs L114B
pha
ldy L0BCB
beq L113E
lda #$0F
sec
sbc L0BCB
tax
L1131: lda text_buffer1,x
sta text_buffer1-1,x
sta text_buffer2-1,x
inx
dey
bne L1131
L113E: inc L0BCB
pla
sta text_buffer1 + text_buffer_size
sta text_buffer2 + text_buffer_size
jmp L12A4
L114B: rts
L114C: jsr L120A
bne L1153
pla
rts
L1153: lda L0BC6
cmp #'='
bne :+
lda L0BCA
bne L1173
lda #$00
jsr FLOAT
jmp L1181
: lda L0BCA
bne L1173
pla
sta L0BC6
jmp L11F5
L1173: lda #$07
sta $B8
lda #$0C
sta $B9
jsr L00B1
jsr FIN
L1181: pla
ldx L0BC6
sta L0BC6
lda #$52
ldy #$0C
cpx #'+'
bne :+
jsr FADD
jmp L11C0
: cpx #'-'
bne :+
jsr FSUB
jmp L11C0
: cpx #'*'
bne :+
jsr FMULT
jmp L11C0
: cpx #'/'
bne :+
jsr FDIV
jmp L11C0
: cpx #'='
bne L11C0
ldy L0BCA
bne L11C0
jmp L11F5
L11C0: ldx #$52
ldy #$0C
jsr ROUND
jsr FOUT
ldy #0
L11CC: lda $0100,y
beq L11D4
iny
bne L11CC
L11D4: ldx #text_buffer_size
L11D6: lda $FF,y
sta text_buffer1,x
sta text_buffer2,x
dex
dey
bne L11D6
cpx #0
bmi L11F2
L11E7: lda #' '
sta text_buffer1,x
sta text_buffer2,x
dex
bpl L11E7
L11F2: jsr L12A4
L11F5: jsr L127E
lda #0
sta L0BCB
sta L0BC7
sta L0BC8
sta L0BC9
sta L0BCA
rts
L120A: stx L122F
stx L1253
stx L1273
sty L122F+1
sty L1253+1
sty L1273+1
A2D_CALL A2D_SET_PATTERN, black_pattern
A2D_CALL $07, L0CA6
sec
ror $FC
L122F := *+4
L122B: A2D_CALL A2D_CLEAR_BOX, 0
L1231: A2D_CALL A2D_GET_BUTTON, button_state_params
lda button_state_params::state
cmp #$04
bne L126B
lda #$34
sta button_state_params::state
A2D_CALL $46, button_state_params
A2D_CALL A2D_SET_TEXT_POS, text_pos_params1
L1253 := *+4
A2D_CALL $13, 0
bne L1261
lda $FC
beq L1231
lda #$00
sta $FC
beq L122B
L1261: lda $FC
bne L1231
sec
ror $FC
jmp L122B
L126B: lda $FC
beq L1275
L1273 := *+4
A2D_CALL A2D_CLEAR_BOX, 0
L1275: A2D_CALL $07, L0CA3
lda $FC
rts
L127E: ldy #text_buffer_size
L1280: lda #' '
sta text_buffer1-1,y
dey
bne L1280
lda #$30
sta text_buffer1 + text_buffer_size
rts
L128E: ldy #text_buffer_size
L1290: lda #' '
sta text_buffer2-1,y
dey
bne L1290
lda #'0'
sta text_buffer2 + text_buffer_size
rts
L129E: jsr L127E
jsr L128E
L12A4: ldx #$07
ldy #$0C
jsr L12C0
A2D_CALL A2D_DRAW_TEXT, draw_text_params1
rts
L12B2: ldx #$1A
ldy #$0C
jsr L12C0
A2D_CALL A2D_DRAW_TEXT, draw_text_params2
rts
L12C0: stx L0C40
sty L0C41
A2D_CALL $18, L0C40
lda #$69
sec
sbc L0C43
sta text_pos_params3::left
A2D_CALL A2D_SET_TEXT_POS, text_pos_params2
A2D_CALL A2D_DRAW_TEXT, spaces_string
A2D_CALL A2D_SET_TEXT_POS, text_pos_params3
rts
L12E8: A2D_CALL $26, 0
A2D_CALL A2D_SET_PATTERN, background_pattern
A2D_CALL A2D_CLEAR_BOX, clear_box_params1
A2D_CALL A2D_SET_PATTERN, black_pattern
A2D_CALL $12, L0BF0
A2D_CALL A2D_SET_PATTERN, white_pattern
A2D_CALL A2D_CLEAR_BOX, clear_box_params2
A2D_CALL $0C, L0BEF
lda #$D6
sta $FA
lda #$08
sta $FB
L1320: ldy #0
lda ($FA),y
beq L1363
lda $FA
sta L1347
ldy $FB
sty L1347+1
clc
adc #$11
sta L134D
bcc L1339
iny
L1339: sty L134D+1
ldy #$10
lda ($FA),y
sta label
L1347 := *+4
A2D_CALL $14, 0
L134D := *+4
A2D_CALL A2D_SET_TEXT_POS, 0
A2D_CALL A2D_DRAW_TEXT, draw_text_params_label
lda $FA
clc
adc #$1D
sta $FA
bcc L1320
inc $FB
jmp L1320
L1363: ldx L0CBC
lda L0CBB
clc
adc #$73
sta L0C58
bcc L1372
inx
L1372: stx L0C59
ldx L0CBE
lda L0CBD
sec
sbc #$16
sta L0C5A
bcs L1384
dex
L1384: stx L0C5B
A2D_CALL A2D_TEXT_BOX2, L0C93
A2D_CALL $14, L0C58
lda #$34
sta L08D1
A2D_CALL $3C, L08D1
A2D_CALL A2D_TEXT_BOX1, L0C6E
A2D_CALL $25, 0
jsr L12B2
rts
jsr L129E
A2D_CALL A2D_SET_TEXT_POS, L0C4E
A2D_CALL A2D_DRAW_TEXT, error_string
jsr L11F5
lda #$3D
sta L0BC6
ldx L0BC4
txs
L13CB := * + 2
jmp L0DC9
L13CC: inc $B8
bne L13D2
inc $B9
L13D2: lda $EA60
cmp #$3A
bcs L13E3
cmp #' '
beq L13CC
sec
sbc #'0'
sec
sbc #$D0
L13E3: rts
da_end := *
Reference in New Issue View Git Blame Copy Permalink