mirror of
https://github.com/mi57730/a2d.git
synced 2024-09-02 23:28:56 +00:00
8779 lines
194 KiB
ArmAsm
8779 lines
194 KiB
ArmAsm
.setcpu "6502"
|
|
|
|
.include "apple2.inc"
|
|
.include "../inc/apple2.inc"
|
|
.include "../inc/auxmem.inc"
|
|
.include "../inc/prodos.inc"
|
|
.include "../inc/mouse.inc"
|
|
.include "../a2d.inc"
|
|
.include "../desktop.inc"
|
|
|
|
;;; ==================================================
|
|
;;; A2D - the GUI library
|
|
;;; ==================================================
|
|
|
|
.proc a2d
|
|
.org $4000
|
|
|
|
;;; ==================================================
|
|
|
|
;;; ZP Usage
|
|
|
|
params_addr := $80
|
|
|
|
;; $8A initialized same way as state (see $01 IMPL)
|
|
|
|
|
|
;; $A8 - Menu count
|
|
|
|
;; $A9-$AA - Address of current window
|
|
;; $AB-... - Copy of current window params (first 12 bytes)
|
|
|
|
;; $D0-$F3 - Drawing state
|
|
;; $D0-$DF - Box
|
|
;; $D0-D1 - left
|
|
;; $D2-D3 - top
|
|
;; $D4-D5 - addr (low byte might be mask?)
|
|
;; $D6-D7 - stride
|
|
;; $D8-D9 - hoff
|
|
;; $DA-DB - voff
|
|
;; $DC-DD - width
|
|
;; $DE-DF - height
|
|
;; $E0-$E7 - Pattern
|
|
;; $E8-$E9 - mskand/mskor
|
|
;; $EA-$ED - position (x/y words)
|
|
;; $EE-$EF - thickness (h/v bytes)
|
|
;; $F0 - fill mode (still sketchy on this???)
|
|
;; $F1 - text mask
|
|
;; $F2-$F3 - font
|
|
|
|
;; $F4-$F5 - Active state (???)
|
|
;; $F6-$FA - ???
|
|
;; $FB-$FC - glyph widths
|
|
;; $FD - glyph flag (if set, stride is 2x???)
|
|
;; $FE - last glyph index (count is this + 1)
|
|
;; $FF - glyph height
|
|
|
|
|
|
state := $D0
|
|
state_box := $D0
|
|
state_left := $D0
|
|
state_top := $D2
|
|
state_addr := $D4
|
|
state_stride := $D6
|
|
state_hoff := $D8
|
|
state_voff := $DA
|
|
state_width := $DC
|
|
state_height := $DE
|
|
state_pattern := $E0
|
|
state_msk := $E8
|
|
state_mskand := $E8
|
|
state_mskor := $E9
|
|
state_pos := $EA
|
|
state_xpos := $EA
|
|
state_ypos := $EC
|
|
state_thick := $EE
|
|
state_hthick := $EE
|
|
state_vthick := $EF
|
|
state_fill := $F0
|
|
state_tmask := $F1
|
|
state_font := $F2
|
|
|
|
sizeof_window_params := $3A
|
|
|
|
sizeof_state := 36
|
|
state_offset_in_window_params := $14
|
|
next_offset_in_window_params := $38
|
|
|
|
active := $F4
|
|
active_state := $F4 ; address of live state block
|
|
|
|
fill_eor_mask := $F6
|
|
|
|
glyph_widths := $FB ; address
|
|
glyph_flag := $FD ;
|
|
glyph_last := $FE ; last glyph index
|
|
glyph_height_p := $FF ; glyph height
|
|
|
|
;;; ==================================================
|
|
;;; A2D
|
|
|
|
.proc a2d_dispatch
|
|
.assert * = A2D, error, "A2D entry point must be at $4000"
|
|
|
|
lda LOWSCR
|
|
sta SET80COL
|
|
|
|
bit preserve_zp_flag ; save ZP?
|
|
bpl adjust_stack
|
|
|
|
;; Save $80...$FF, swap in what A2D needs at $F4...$FF
|
|
ldx #$7F
|
|
: lda $80,x
|
|
sta zp_saved,x
|
|
dex
|
|
bpl :-
|
|
ldx #$0B
|
|
: lda active_saved,x
|
|
sta active,x
|
|
dex
|
|
bpl :-
|
|
jsr apply_active_state_to_state
|
|
|
|
adjust_stack: ; Adjust stack to account for params
|
|
pla ; and stash address at params_addr.
|
|
sta params_addr
|
|
clc
|
|
adc #<3
|
|
tax
|
|
pla
|
|
sta params_addr+1
|
|
adc #>3
|
|
pha
|
|
txa
|
|
pha
|
|
|
|
tsx
|
|
stx stack_ptr_stash
|
|
|
|
ldy #1 ; Command index
|
|
lda (params_addr),y
|
|
asl a
|
|
tax
|
|
lda a2d_jump_table,x
|
|
sta jump+1
|
|
lda a2d_jump_table+1,x
|
|
sta jump+2
|
|
|
|
iny ; Point params_addr at params
|
|
lda (params_addr),y
|
|
pha
|
|
iny
|
|
lda (params_addr),y
|
|
sta params_addr+1
|
|
pla
|
|
sta params_addr
|
|
|
|
;; Param length format is a byte pair;
|
|
;; * first byte is ZP address to copy bytes to
|
|
;; * second byte's high bit is "hide cursor" flag
|
|
;; * rest of second byte is # bytes to copy
|
|
|
|
ldy param_lengths+1,x ; Check param length...
|
|
bpl done_hiding
|
|
|
|
txa ; if high bit was set, stash
|
|
pha ; registers and params_addr and then
|
|
tya ; optionally hide cursor
|
|
pha
|
|
lda params_addr
|
|
pha
|
|
lda params_addr+1
|
|
pha
|
|
bit hide_cursor_flag
|
|
bpl :+
|
|
jsr hide_cursor
|
|
: pla
|
|
sta params_addr+1
|
|
pla
|
|
sta params_addr
|
|
pla
|
|
and #$7F ; clear high bit in length count
|
|
tay
|
|
pla
|
|
tax
|
|
|
|
done_hiding:
|
|
lda param_lengths,x ; ZP offset for params
|
|
beq jump ; nothing to copy
|
|
sta store+1
|
|
dey
|
|
: lda (params_addr),y
|
|
store: sta $FF,y ; self modified
|
|
dey
|
|
bpl :-
|
|
|
|
jump: jsr $FFFF ; the actual call
|
|
|
|
;; Exposed for routines to call directly
|
|
cleanup:
|
|
bit hide_cursor_flag
|
|
bpl :+
|
|
jsr show_cursor
|
|
|
|
: bit preserve_zp_flag
|
|
bpl exit_with_0
|
|
jsr apply_state_to_active_state
|
|
ldx #$0B
|
|
: lda active,x
|
|
sta active_saved,x
|
|
dex
|
|
bpl :-
|
|
ldx #$7F
|
|
: lda zp_saved,x
|
|
sta $80,x
|
|
dex
|
|
bpl :-
|
|
|
|
;; default is to return with A=0
|
|
exit_with_0:
|
|
lda #0
|
|
|
|
rts1: rts
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
;;; Routines can jmp here to exit with A set
|
|
|
|
a2d_exit_with_a:
|
|
pha
|
|
jsr a2d_dispatch::cleanup
|
|
pla
|
|
ldx stack_ptr_stash
|
|
txs
|
|
ldy #$FF
|
|
rts2: rts
|
|
|
|
;;; ==================================================
|
|
;;; Copy state params (36 bytes) to/from active state addr
|
|
|
|
.proc apply_active_state_to_state
|
|
ldy #sizeof_state-1
|
|
: lda (active_state),y
|
|
sta state,y
|
|
dey
|
|
bpl :-
|
|
rts
|
|
.endproc
|
|
|
|
.proc apply_state_to_active_state
|
|
ldy #sizeof_state-1
|
|
: lda state,y
|
|
sta (active_state),y
|
|
dey
|
|
bpl :-
|
|
rts
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
;;; Drawing calls show/hide cursor before/after
|
|
;;; A recursion count is kept to allow rentrancy.
|
|
|
|
hide_cursor_count:
|
|
.byte 0
|
|
|
|
.proc hide_cursor
|
|
dec hide_cursor_count
|
|
jmp HIDE_CURSOR_IMPL
|
|
.endproc
|
|
|
|
.proc show_cursor
|
|
bit hide_cursor_count
|
|
bpl rts2
|
|
inc hide_cursor_count
|
|
jmp SHOW_CURSOR_IMPL
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
;;; Jump table for A2D entry point calls
|
|
|
|
;; jt_rts can be used if the only thing the
|
|
;; routine needs to do is copy params into
|
|
;; the zero page (state)
|
|
jt_rts := a2d_dispatch::rts1
|
|
|
|
a2d_jump_table:
|
|
.addr jt_rts ; $00 NOOP
|
|
.addr L5E51 ; $01
|
|
.addr CFG_DISPLAY_IMPL ; $02 CFG_DISPLAY
|
|
.addr QUERY_SCREEN_IMPL ; $03 QUERY_SCREEN
|
|
.addr SET_STATE_IMPL ; $04 SET_STATE
|
|
.addr GET_STATE_IMPL ; $05 GET_STATE
|
|
.addr SET_BOX_IMPL ; $06 SET_BOX
|
|
.addr SET_FILL_MODE_IMPL ; $07 SET_FILL_MODE
|
|
.addr SET_PATTERN_IMPL ; $08 SET_PATTERN
|
|
.addr jt_rts ; $09 SET_MSK
|
|
.addr jt_rts ; $0A SET_THICKNESS
|
|
.addr SET_FONT_IMPL ; $0B SET_FONT
|
|
.addr jt_rts ; $0C SET_TEXT_MASK
|
|
.addr OFFSET_POS_IMPL ; $0D OFFSET_POS
|
|
.addr jt_rts ; $0E SET_POS
|
|
.addr DRAW_LINE_IMPL ; $0F DRAW_LINE
|
|
.addr DRAW_LINE_ABS_IMPL ; $10 DRAW_LINE_ABS
|
|
.addr FILL_RECT_IMPL ; $11 FILL_RECT
|
|
.addr DRAW_RECT_IMPL ; $12 DRAW_RECT
|
|
.addr TEST_BOX_IMPL ; $13 TEST_BOX
|
|
.addr DRAW_BITMAP_IMPL ; $14 DRAW_BITMAP
|
|
.addr L537E ; $15
|
|
.addr DRAW_POLYGONS_IMPL ; $16 DRAW_POLYGONS
|
|
.addr L537A ; $17
|
|
.addr MEASURE_TEXT_IMPL ; $18 MEASURE_TEXT
|
|
.addr DRAW_TEXT_IMPL ; $19 DRAW_TEXT
|
|
.addr CONFIGURE_ZP_IMPL ; $1A CONFIGURE_ZP_USE
|
|
.addr LOW_ZP_STASH_IMPL ; $1B LOW_ZP_STASH
|
|
.addr L5F0A ; $1C
|
|
.addr INIT_SCREEN_AND_MOUSE_IMPL ; $1D INIT_SCREEN_AND_MOUSE
|
|
.addr DISABLE_MOUSE_IMPL ; $1E DISABLE_MOUSE
|
|
.addr L64D2 ; $1F
|
|
.addr HOOK_MOUSE_IMPL ; $20 HOOK_MOUSE
|
|
.addr L8427 ; $21
|
|
.addr L7D61 ; $22
|
|
.addr GET_INT_HANDLER_IMPL; $23 GET_INT_HANDLER
|
|
.addr SET_CURSOR_IMPL ; $24 SET_CURSOR
|
|
.addr SHOW_CURSOR_IMPL ; $25 SHOW_CURSOR
|
|
.addr HIDE_CURSOR_IMPL ; $26 HIDE_CURSOR
|
|
.addr ERASE_CURSOR_IMPL ; $27 ERASE_CURSOR
|
|
.addr GET_CURSOR_IMPL ; $28 GET_CURSOR
|
|
.addr L6663 ; $29
|
|
.addr GET_INPUT_IMPL ; $2A GET_INPUT
|
|
.addr CALL_2B_IMPL ; $2B
|
|
.addr L65D4 ; $2C
|
|
.addr SET_INPUT_IMPL ; $2D SET_INPUT
|
|
.addr SET_KBD_FLAG_IMPL ; $2E SET_KBD_FLAG
|
|
.addr L6ECD ; $2F
|
|
.addr SET_MENU_IMPL ; $30 SET_MENU
|
|
.addr MENU_CLICK_IMPL ; $31 MENU_CLICK
|
|
.addr L6B60 ; $32
|
|
.addr L6B1D ; $33
|
|
.addr L6BCB ; $34
|
|
.addr L6BA9 ; $35
|
|
.addr L6BB5 ; $36
|
|
.addr L6F1C ; $37
|
|
.addr CREATE_WINDOW_IMPL ; $38 CREATE_WINDOW
|
|
.addr DESTROY_WINDOW_IMPL ; $39 DESTROY_WINDOW
|
|
.addr L7836 ; $3A
|
|
.addr QUERY_WINDOW_IMPL ; $3B QUERY_WINDOW
|
|
.addr QUERY_STATE_IMPL ; $3C QUERY_STATE
|
|
.addr UPDATE_STATE_IMPL ; $3D UPDATE_STATE
|
|
.addr REDRAW_WINDOW_IMPL ; $3E REDRAW_WINDOW
|
|
.addr L758C ; $3F
|
|
.addr QUERY_TARGET_IMPL ; $40 QUERY_TARGET
|
|
.addr QUERY_TOP_IMPL ; $41 QUERY_TOP
|
|
.addr RAISE_WINDOW_IMPL ; $42 RAISE_WINDOW
|
|
.addr CLOSE_CLICK_IMPL ; $43 CLOSE_CLICK
|
|
.addr DRAG_WINDOW_IMPL ; $44 DRAG_WINDOW
|
|
.addr DRAG_RESIZE_IMPL ; $45 DRAG_RESIZE
|
|
.addr MAP_COORDS_IMPL ; $46 MAP_COORDS
|
|
.addr L78E1 ; $47
|
|
.addr QUERY_CLIENT_IMPL ; $48 QUERY_CLIENT
|
|
.addr RESIZE_WINDOW_IMPL ; $49 RESIZE_WINDOW
|
|
.addr DRAG_SCROLL_IMPL ; $4A DRAG_SCROLL
|
|
.addr UPDATE_SCROLL_IMPL ; $4B UPDATE_SCROLL
|
|
.addr L7965 ; $4C
|
|
.addr L51B3 ; $4D
|
|
.addr L7D69 ; $4E
|
|
|
|
;; Entry point param lengths
|
|
;; (length, ZP destination, hide cursor flag)
|
|
param_lengths:
|
|
|
|
.macro PARAM_DEFN length, zp, cursor
|
|
.byte zp, ((length) | ((cursor) << 7))
|
|
.endmacro
|
|
|
|
PARAM_DEFN 0, $00, 0 ; $00 NOOP
|
|
PARAM_DEFN 0, $00, 0 ; $01
|
|
PARAM_DEFN 1, $82, 0 ; $02
|
|
PARAM_DEFN 0, $00, 0 ; $03 QUERY_SCREEN
|
|
PARAM_DEFN 36, state, 0 ; $04 SET_STATE
|
|
PARAM_DEFN 0, $00, 0 ; $05 GET_STATE
|
|
PARAM_DEFN 16, state_box, 0 ; $06 SET_BOX
|
|
PARAM_DEFN 1, state_fill, 0 ; $07 SET_FILL_MODE
|
|
PARAM_DEFN 8, state_pattern, 0 ; $08 SET_PATTERN
|
|
PARAM_DEFN 2, state_msk, 0 ; $09
|
|
PARAM_DEFN 2, state_thick, 0 ; $0A SET_THICKNESS
|
|
PARAM_DEFN 0, $00, 0 ; $0B
|
|
PARAM_DEFN 1, state_tmask, 0 ; $0C SET_TEXT_MASK
|
|
PARAM_DEFN 4, $A1, 0 ; $0D
|
|
PARAM_DEFN 4, state_pos, 0 ; $0E SET_POS
|
|
PARAM_DEFN 4, $A1, 1 ; $0F DRAW_LINE
|
|
PARAM_DEFN 4, $92, 1 ; $10 DRAW_LINE_ABS
|
|
PARAM_DEFN 8, $92, 1 ; $11 FILL_RECT
|
|
PARAM_DEFN 8, $9F, 1 ; $12 DRAW_RECT
|
|
PARAM_DEFN 8, $92, 0 ; $13 TEST_BOX
|
|
PARAM_DEFN 16, $8A, 0 ; $14 DRAW_BITMAP
|
|
PARAM_DEFN 0, $00, 1 ; $15
|
|
PARAM_DEFN 0, $00, 1 ; $16 DRAW_POLYGONS
|
|
PARAM_DEFN 0, $00, 0 ; $17
|
|
PARAM_DEFN 3, $A1, 0 ; $18 MEASURE_TEXT
|
|
PARAM_DEFN 3, $A1, 1 ; $19 DRAW_TEXT
|
|
PARAM_DEFN 1, $82, 0 ; $1A CONFIGURE_ZP_USE
|
|
PARAM_DEFN 1, $82, 0 ; $1B LOW_ZP_STASH
|
|
PARAM_DEFN 0, $00, 0 ; $1C
|
|
PARAM_DEFN 12, $82, 0 ; $1D INIT_SCREEN_AND_MOUSE
|
|
PARAM_DEFN 0, $00, 0 ; $1E DISABLE_MOUSE
|
|
PARAM_DEFN 3, $82, 0 ; $1F
|
|
PARAM_DEFN 2, $82, 0 ; $20 HOOK_MOUSE
|
|
PARAM_DEFN 2, $82, 0 ; $21
|
|
PARAM_DEFN 1, $82, 0 ; $22
|
|
PARAM_DEFN 0, $00, 0 ; $23 GET_INT_HANDLER
|
|
PARAM_DEFN 0, $00, 0 ; $24 SET_CURSOR
|
|
PARAM_DEFN 0, $00, 0 ; $25 SHOW_CURSOR
|
|
PARAM_DEFN 0, $00, 0 ; $26 HIDE_CURSOR
|
|
PARAM_DEFN 0, $00, 0 ; $27 ERASE_CURSOR
|
|
PARAM_DEFN 0, $00, 0 ; $28 GET_CURSOR
|
|
PARAM_DEFN 0, $00, 0 ; $29
|
|
PARAM_DEFN 0, $00, 0 ; $2A GET_INPUT
|
|
PARAM_DEFN 0, $00, 0 ; $2B
|
|
PARAM_DEFN 0, $00, 0 ; $2C
|
|
PARAM_DEFN 5, $82, 0 ; $2D SET_INPUT
|
|
PARAM_DEFN 1, $82, 0 ; $2E SET_KBD_FLAG
|
|
PARAM_DEFN 4, $82, 0 ; $2F
|
|
PARAM_DEFN 0, $00, 0 ; $30 SET_MENU
|
|
PARAM_DEFN 0, $00, 0 ; $31 MENU_CLICK
|
|
PARAM_DEFN 4, $C7, 0 ; $32
|
|
PARAM_DEFN 1, $C7, 0 ; $33
|
|
PARAM_DEFN 2, $C7, 0 ; $34
|
|
PARAM_DEFN 3, $C7, 0 ; $35
|
|
PARAM_DEFN 3, $C7, 0 ; $36
|
|
PARAM_DEFN 4, $C7, 0 ; $37
|
|
PARAM_DEFN 0, $00, 0 ; $38 CREATE_WINDOW
|
|
PARAM_DEFN 1, $82, 0 ; $39 DESTROY_WINDOW
|
|
PARAM_DEFN 0, $00, 0 ; $3A
|
|
PARAM_DEFN 1, $82, 0 ; $3B QUERY_WINDOW
|
|
PARAM_DEFN 3, $82, 0 ; $3C QUERY_STATE
|
|
PARAM_DEFN 2, $82, 0 ; $3D UPDATE_STATE
|
|
PARAM_DEFN 1, $82, 0 ; $3E REDRAW_WINDOW
|
|
PARAM_DEFN 1, $82, 0 ; $3F
|
|
PARAM_DEFN 4, state_pos, 0 ; $40 QUERY_TARGET
|
|
PARAM_DEFN 0, $00, 0 ; $41
|
|
PARAM_DEFN 1, $82, 0 ; $42 RAISE_WINDOW
|
|
PARAM_DEFN 0, $00, 0 ; $43 CLOSE_CLICK
|
|
PARAM_DEFN 5, $82, 0 ; $44 DRAG_WINDOW
|
|
PARAM_DEFN 5, $82, 0 ; $45 DRAG_RESIZE
|
|
PARAM_DEFN 5, $82, 0 ; $46 MAP_COORDS
|
|
PARAM_DEFN 5, $82, 0 ; $47
|
|
PARAM_DEFN 4, state_pos, 0 ; $48 QUERY_CLIENT
|
|
PARAM_DEFN 3, $82, 0 ; $49 RESIZE_WINDOW
|
|
PARAM_DEFN 5, $82, 0 ; $4A DRAG_SCROLL
|
|
PARAM_DEFN 3, $8C, 0 ; $4B UPDATE_SCROLL
|
|
PARAM_DEFN 2, $8C, 0 ; $4C
|
|
PARAM_DEFN 16, $8A, 0 ; $4D
|
|
PARAM_DEFN 2, $82, 0 ; $4E
|
|
|
|
;;; ==================================================
|
|
|
|
;; ???
|
|
L4221: .byte $00,$02,$04,$06,$08,$0A,$0C,$0E
|
|
.byte $10,$12,$14,$16,$18,$1A,$1C,$1E
|
|
.byte $20,$22,$24,$26,$28,$2A,$2C,$2E
|
|
.byte $30,$32,$34,$36,$38,$3A,$3C,$3E
|
|
.byte $40,$42,$44,$46,$48,$4A,$4C,$4E
|
|
.byte $50,$52,$54,$56,$58,$5A,$5C,$5E
|
|
.byte $60,$62,$64,$66,$68,$6A,$6C,$6E
|
|
.byte $70,$72,$74,$76,$78,$7A,$7C,$7E
|
|
.byte $00,$02,$04,$06,$08,$0A,$0C,$0E
|
|
.byte $10,$12,$14,$16,$18,$1A,$1C,$1E
|
|
.byte $20,$22,$24,$26,$28,$2A,$2C,$2E
|
|
.byte $30,$32,$34,$36,$38,$3A,$3C,$3E
|
|
.byte $40,$42,$44,$46,$48,$4A,$4C,$4E
|
|
.byte $50,$52,$54,$56,$58,$5A,$5C,$5E
|
|
.byte $60,$62,$64,$66,$68,$6A,$6C,$6E
|
|
.byte $70,$72,$74,$76,$78,$7A,$7C,$7E
|
|
|
|
L42A1: .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,$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 $01,$01,$01,$01,$01,$01,$01,$01
|
|
.byte $01,$01,$01,$01,$01,$01,$01,$01
|
|
.byte $01,$01,$01,$01,$01,$01,$01,$01
|
|
.byte $01,$01,$01,$01,$01,$01,$01,$01
|
|
.byte $01,$01,$01,$01,$01,$01,$01,$01
|
|
.byte $01,$01,$01,$01,$01,$01,$01,$01
|
|
.byte $01,$01,$01,$01,$01,$01,$01,$01
|
|
.byte $01,$01,$01,$01,$01,$01,$01,$01
|
|
|
|
L4321: .byte $00,$04,$08,$0C,$10,$14,$18,$1C
|
|
.byte $20,$24,$28,$2C,$30,$34,$38,$3C
|
|
.byte $40,$44,$48,$4C,$50,$54,$58,$5C
|
|
.byte $60,$64,$68,$6C,$70,$74,$78,$7C
|
|
.byte $00,$04,$08,$0C,$10,$14,$18,$1C
|
|
.byte $20,$24,$28,$2C,$30,$34,$38,$3C
|
|
.byte $40,$44,$48,$4C,$50,$54,$58,$5C
|
|
.byte $60,$64,$68,$6C,$70,$74,$78,$7C
|
|
.byte $00,$04,$08,$0C,$10,$14,$18,$1C
|
|
.byte $20,$24,$28,$2C,$30,$34,$38,$3C
|
|
.byte $40,$44,$48,$4C,$50,$54,$58,$5C
|
|
.byte $60,$64,$68,$6C,$70,$74,$78,$7C
|
|
.byte $00,$04,$08,$0C,$10,$14,$18,$1C
|
|
.byte $20,$24,$28,$2C,$30,$34,$38,$3C
|
|
.byte $40,$44,$48,$4C,$50,$54,$58,$5C
|
|
.byte $60,$64,$68,$6C,$70,$74,$78,$7C
|
|
|
|
L43A1: .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 $01,$01,$01,$01,$01,$01,$01,$01
|
|
.byte $01,$01,$01,$01,$01,$01,$01,$01
|
|
.byte $01,$01,$01,$01,$01,$01,$01,$01
|
|
.byte $01,$01,$01,$01,$01,$01,$01,$01
|
|
.byte $02,$02,$02,$02,$02,$02,$02,$02
|
|
.byte $02,$02,$02,$02,$02,$02,$02,$02
|
|
.byte $02,$02,$02,$02,$02,$02,$02,$02
|
|
.byte $02,$02,$02,$02,$02,$02,$02,$02
|
|
.byte $03,$03,$03,$03,$03,$03,$03,$03
|
|
.byte $03,$03,$03,$03,$03,$03,$03,$03
|
|
.byte $03,$03,$03,$03,$03,$03,$03,$03
|
|
.byte $03,$03,$03,$03,$03,$03,$03,$03
|
|
|
|
L4421: .byte $00,$08,$10,$18,$20,$28,$30,$38
|
|
.byte $40,$48,$50,$58,$60,$68,$70,$78
|
|
.byte $00,$08,$10,$18,$20,$28,$30,$38
|
|
.byte $40,$48,$50,$58,$60,$68,$70,$78
|
|
.byte $00,$08,$10,$18,$20,$28,$30,$38
|
|
.byte $40,$48,$50,$58,$60,$68,$70,$78
|
|
.byte $00,$08,$10,$18,$20,$28,$30,$38
|
|
.byte $40,$48,$50,$58,$60,$68,$70,$78
|
|
.byte $00,$08,$10,$18,$20,$28,$30,$38
|
|
.byte $40,$48,$50,$58,$60,$68,$70,$78
|
|
.byte $00,$08,$10,$18,$20,$28,$30,$38
|
|
.byte $40,$48,$50,$58,$60,$68,$70,$78
|
|
.byte $00,$08,$10,$18,$20,$28,$30,$38
|
|
.byte $40,$48,$50,$58,$60,$68,$70,$78
|
|
.byte $00,$08,$10,$18,$20,$28,$30,$38
|
|
.byte $40,$48,$50,$58,$60,$68,$70,$78
|
|
|
|
L44A1: .byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $01,$01,$01,$01,$01,$01,$01,$01
|
|
.byte $01,$01,$01,$01,$01,$01,$01,$01
|
|
.byte $02,$02,$02,$02,$02,$02,$02,$02
|
|
.byte $02,$02,$02,$02,$02,$02,$02,$02
|
|
.byte $03,$03,$03,$03,$03,$03,$03,$03
|
|
.byte $03,$03,$03,$03,$03,$03,$03,$03
|
|
.byte $04,$04,$04,$04,$04,$04,$04,$04
|
|
.byte $04,$04,$04,$04,$04,$04,$04,$04
|
|
.byte $05,$05,$05,$05,$05,$05,$05,$05
|
|
.byte $05,$05,$05,$05,$05,$05,$05,$05
|
|
.byte $06,$06,$06,$06,$06,$06,$06,$06
|
|
.byte $06,$06,$06,$06,$06,$06,$06,$06
|
|
.byte $07,$07,$07,$07,$07,$07,$07,$07
|
|
.byte $07,$07,$07,$07,$07,$07,$07,$07
|
|
|
|
L4521: .byte $00,$10,$20,$30,$40,$50,$60,$70
|
|
.byte $00,$10,$20,$30,$40,$50,$60,$70
|
|
.byte $00,$10,$20,$30,$40,$50,$60,$70
|
|
.byte $00,$10,$20,$30,$40,$50,$60,$70
|
|
.byte $00,$10,$20,$30,$40,$50,$60,$70
|
|
.byte $00,$10,$20,$30,$40,$50,$60,$70
|
|
.byte $00,$10,$20,$30,$40,$50,$60,$70
|
|
.byte $00,$10,$20,$30,$40,$50,$60,$70
|
|
.byte $00,$10,$20,$30,$40,$50,$60,$70
|
|
.byte $00,$10,$20,$30,$40,$50,$60,$70
|
|
.byte $00,$10,$20,$30,$40,$50,$60,$70
|
|
.byte $00,$10,$20,$30,$40,$50,$60,$70
|
|
.byte $00,$10,$20,$30,$40,$50,$60,$70
|
|
.byte $00,$10,$20,$30,$40,$50,$60,$70
|
|
.byte $00,$10,$20,$30,$40,$50,$60,$70
|
|
.byte $00,$10,$20,$30,$40,$50,$60,$70
|
|
|
|
L45A1: .byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $01,$01,$01,$01,$01,$01,$01,$01
|
|
.byte $02,$02,$02,$02,$02,$02,$02,$02
|
|
.byte $03,$03,$03,$03,$03,$03,$03,$03
|
|
.byte $04,$04,$04,$04,$04,$04,$04,$04
|
|
.byte $05,$05,$05,$05,$05,$05,$05,$05
|
|
.byte $06,$06,$06,$06,$06,$06,$06,$06
|
|
.byte $07,$07,$07,$07,$07,$07,$07,$07
|
|
.byte $08,$08,$08,$08,$08,$08,$08,$08
|
|
.byte $09,$09,$09,$09,$09,$09,$09,$09
|
|
.byte $0A,$0A,$0A,$0A,$0A,$0A,$0A,$0A
|
|
.byte $0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B
|
|
.byte $0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C
|
|
.byte $0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D
|
|
.byte $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E
|
|
.byte $0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F
|
|
|
|
L4621: .byte $00,$20,$40,$60,$00,$20,$40,$60
|
|
.byte $00,$20,$40,$60,$00,$20,$40,$60
|
|
.byte $00,$20,$40,$60,$00,$20,$40,$60
|
|
.byte $00,$20,$40,$60,$00,$20,$40,$60
|
|
.byte $00,$20,$40,$60,$00,$20,$40,$60
|
|
.byte $00,$20,$40,$60,$00,$20,$40,$60
|
|
.byte $00,$20,$40,$60,$00,$20,$40,$60
|
|
.byte $00,$20,$40,$60,$00,$20,$40,$60
|
|
.byte $00,$20,$40,$60,$00,$20,$40,$60
|
|
.byte $00,$20,$40,$60,$00,$20,$40,$60
|
|
.byte $00,$20,$40,$60,$00,$20,$40,$60
|
|
.byte $00,$20,$40,$60,$00,$20,$40,$60
|
|
.byte $00,$20,$40,$60,$00,$20,$40,$60
|
|
.byte $00,$20,$40,$60,$00,$20,$40,$60
|
|
.byte $00,$20,$40,$60,$00,$20,$40,$60
|
|
.byte $00,$20,$40,$60,$00,$20,$40,$60
|
|
|
|
L46A1: .byte $00,$00,$00,$00,$01,$01,$01,$01
|
|
.byte $02,$02,$02,$02,$03,$03,$03,$03
|
|
.byte $04,$04,$04,$04,$05,$05,$05,$05
|
|
.byte $06,$06,$06,$06,$07,$07,$07,$07
|
|
.byte $08,$08,$08,$08,$09,$09,$09,$09
|
|
.byte $0A,$0A,$0A,$0A,$0B,$0B,$0B,$0B
|
|
.byte $0C,$0C,$0C,$0C,$0D,$0D,$0D,$0D
|
|
.byte $0E,$0E,$0E,$0E,$0F,$0F,$0F,$0F
|
|
.byte $10,$10,$10,$10,$11,$11,$11,$11
|
|
.byte $12,$12,$12,$12,$13,$13,$13,$13
|
|
.byte $14,$14,$14,$14,$15,$15,$15,$15
|
|
.byte $16,$16,$16,$16,$17,$17,$17,$17
|
|
.byte $18,$18,$18,$18,$19,$19,$19,$19
|
|
.byte $1A,$1A,$1A,$1A,$1B,$1B,$1B,$1B
|
|
.byte $1C,$1C,$1C,$1C,$1D,$1D,$1D,$1D
|
|
.byte $1E,$1E,$1E,$1E,$1F,$1F,$1F,$1F
|
|
|
|
L4721: .byte $00,$40,$00,$40,$00,$40,$00,$40
|
|
.byte $00,$40,$00,$40,$00,$40,$00,$40
|
|
.byte $00,$40,$00,$40,$00,$40,$00,$40
|
|
.byte $00,$40,$00,$40,$00,$40,$00,$40
|
|
.byte $00,$40,$00,$40,$00,$40,$00,$40
|
|
.byte $00,$40,$00,$40,$00,$40,$00,$40
|
|
.byte $00,$40,$00,$40,$00,$40,$00,$40
|
|
.byte $00,$40,$00,$40,$00,$40,$00,$40
|
|
.byte $00,$40,$00,$40,$00,$40,$00,$40
|
|
.byte $00,$40,$00,$40,$00,$40,$00,$40
|
|
.byte $00,$40,$00,$40,$00,$40,$00,$40
|
|
.byte $00,$40,$00,$40,$00,$40,$00,$40
|
|
.byte $00,$40,$00,$40,$00,$40,$00,$40
|
|
.byte $00,$40,$00,$40,$00,$40,$00,$40
|
|
.byte $00,$40,$00,$40,$00,$40,$00,$40
|
|
.byte $00,$40,$00,$40,$00,$40,$00,$40
|
|
|
|
L47A1: .byte $00,$00,$01,$01,$02,$02,$03,$03
|
|
.byte $04,$04,$05,$05,$06,$06,$07,$07
|
|
.byte $08,$08,$09,$09,$0A,$0A,$0B,$0B
|
|
.byte $0C,$0C,$0D,$0D,$0E,$0E,$0F,$0F
|
|
.byte $10,$10,$11,$11,$12,$12,$13,$13
|
|
.byte $14,$14,$15,$15,$16,$16,$17,$17
|
|
.byte $18,$18,$19,$19,$1A,$1A,$1B,$1B
|
|
.byte $1C,$1C,$1D,$1D,$1E,$1E,$1F,$1F
|
|
.byte $20,$20,$21,$21,$22,$22,$23,$23
|
|
.byte $24,$24,$25,$25,$26,$26,$27,$27
|
|
.byte $28,$28,$29,$29,$2A,$2A,$2B,$2B
|
|
.byte $2C,$2C,$2D,$2D,$2E,$2E,$2F,$2F
|
|
.byte $30,$30,$31,$31,$32,$32,$33,$33
|
|
.byte $34,$34,$35,$35,$36,$36,$37,$37
|
|
.byte $38,$38,$39,$39,$3A,$3A,$3B,$3B
|
|
.byte $3C,$3C,$3D,$3D,$3E,$3E,$3F,$3F
|
|
|
|
L4821: .byte $00,$00,$00,$00
|
|
L4825: .byte $00,$00,$00
|
|
|
|
L4828: .byte $01,$01,$01,$01,$01,$01,$01,$02
|
|
.byte $02,$02,$02,$02,$02,$02,$03,$03
|
|
.byte $03,$03,$03,$03,$03,$04,$04,$04
|
|
.byte $04,$04,$04,$04,$05,$05,$05,$05
|
|
.byte $05,$05,$05,$06,$06,$06,$06,$06
|
|
.byte $06,$06,$07,$07,$07,$07,$07,$07
|
|
.byte $07,$08,$08,$08,$08,$08,$08,$08
|
|
.byte $09,$09,$09,$09,$09,$09,$09,$0A
|
|
.byte $0A,$0A,$0A,$0A,$0A,$0A,$0B,$0B
|
|
.byte $0B,$0B,$0B,$0B,$0B,$0C,$0C,$0C
|
|
.byte $0C,$0C,$0C,$0C,$0D,$0D,$0D,$0D
|
|
.byte $0D,$0D,$0D,$0E,$0E,$0E,$0E,$0E
|
|
.byte $0E,$0E,$0F,$0F,$0F,$0F,$0F,$0F
|
|
.byte $0F,$10,$10,$10,$10,$10,$10,$10
|
|
.byte $11,$11,$11,$11,$11,$11,$11,$12
|
|
.byte $12,$12,$12,$12,$12,$12,$13,$13
|
|
.byte $13,$13,$13,$13,$13,$14,$14,$14
|
|
.byte $14,$14,$14,$14,$15,$15,$15,$15
|
|
.byte $15,$15,$15,$16,$16,$16,$16,$16
|
|
.byte $16,$16,$17,$17,$17,$17,$17,$17
|
|
.byte $17,$18,$18,$18,$18,$18,$18,$18
|
|
.byte $19,$19,$19,$19,$19,$19,$19,$1A
|
|
.byte $1A,$1A,$1A,$1A,$1A,$1A,$1B,$1B
|
|
.byte $1B,$1B,$1B,$1B,$1B,$1C,$1C,$1C
|
|
.byte $1C,$1C,$1C,$1C,$1D,$1D,$1D,$1D
|
|
.byte $1D,$1D,$1D,$1E,$1E,$1E,$1E,$1E
|
|
.byte $1E,$1E,$1F,$1F,$1F,$1F,$1F,$1F
|
|
.byte $1F,$20,$20,$20,$20,$20,$20,$20
|
|
.byte $21,$21,$21,$21,$21,$21,$21,$22
|
|
.byte $22,$22,$22,$22,$22,$22,$23,$23
|
|
.byte $23,$23,$23,$23,$23,$24,$24,$24
|
|
.byte $24
|
|
L4921: .byte $00,$01,$02,$03
|
|
L4925: .byte $04,$05,$06,$00,$01,$02,$03,$04
|
|
.byte $05,$06,$00,$01,$02,$03,$04,$05
|
|
.byte $06,$00,$01,$02,$03,$04,$05,$06
|
|
.byte $00,$01,$02,$03,$04,$05,$06,$00
|
|
.byte $01,$02,$03,$04,$05,$06,$00,$01
|
|
.byte $02,$03,$04,$05,$06,$00,$01,$02
|
|
.byte $03,$04,$05,$06,$00,$01,$02,$03
|
|
.byte $04,$05,$06,$00,$01,$02,$03,$04
|
|
.byte $05,$06,$00,$01,$02,$03,$04,$05
|
|
.byte $06,$00,$01,$02,$03,$04,$05,$06
|
|
.byte $00,$01,$02,$03,$04,$05,$06,$00
|
|
.byte $01,$02,$03,$04,$05,$06,$00,$01
|
|
.byte $02,$03,$04,$05,$06,$00,$01,$02
|
|
.byte $03,$04,$05,$06,$00,$01,$02,$03
|
|
.byte $04,$05,$06,$00,$01,$02,$03,$04
|
|
L499D: .byte $05,$06,$00,$01,$02,$03,$04,$05
|
|
.byte $06,$00,$01,$02,$03,$04,$05,$06
|
|
.byte $00,$01,$02,$03,$04,$05,$06,$00
|
|
.byte $01,$02,$03,$04,$05,$06,$00,$01
|
|
.byte $02,$03,$04,$05,$06,$00,$01,$02
|
|
.byte $03,$04,$05,$06,$00,$01,$02,$03
|
|
.byte $04,$05,$06,$00,$01,$02,$03,$04
|
|
.byte $05,$06,$00,$01,$02,$03,$04,$05
|
|
.byte $06,$00,$01,$02,$03,$04,$05,$06
|
|
.byte $00,$01,$02,$03,$04,$05,$06,$00
|
|
.byte $01,$02,$03,$04,$05,$06,$00,$01
|
|
.byte $02,$03,$04,$05,$06,$00,$01,$02
|
|
.byte $03,$04,$05,$06,$00,$01,$02,$03
|
|
.byte $04,$05,$06,$00,$01,$02,$03,$04
|
|
.byte $05,$06,$00,$01,$02,$03,$04,$05
|
|
.byte $06,$00,$01,$02,$03,$04,$05,$06
|
|
.byte $00,$01,$02,$03
|
|
|
|
;;; ==================================================
|
|
|
|
hires_table_lo:
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $80,$80,$80,$80,$80,$80,$80,$80
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $80,$80,$80,$80,$80,$80,$80,$80
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $80,$80,$80,$80,$80,$80,$80,$80
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $80,$80,$80,$80,$80,$80,$80,$80
|
|
.byte $28,$28,$28,$28,$28,$28,$28,$28
|
|
.byte $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
|
|
.byte $28,$28,$28,$28,$28,$28,$28,$28
|
|
.byte $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
|
|
.byte $28,$28,$28,$28,$28,$28,$28,$28
|
|
.byte $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
|
|
.byte $28,$28,$28,$28,$28,$28,$28,$28
|
|
.byte $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
|
|
.byte $50,$50,$50,$50,$50,$50,$50,$50
|
|
.byte $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
|
|
.byte $50,$50,$50,$50,$50,$50,$50,$50
|
|
.byte $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
|
|
.byte $50,$50,$50,$50,$50,$50,$50,$50
|
|
.byte $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
|
|
.byte $50,$50,$50,$50,$50,$50,$50,$50
|
|
.byte $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
|
|
|
|
hires_table_hi:
|
|
.byte $00,$04,$08,$0C,$10,$14,$18,$1C
|
|
.byte $00,$04,$08,$0C,$10,$14,$18,$1C
|
|
.byte $01,$05,$09,$0D,$11,$15,$19,$1D
|
|
.byte $01,$05,$09,$0D,$11,$15,$19,$1D
|
|
.byte $02,$06,$0A,$0E,$12,$16,$1A,$1E
|
|
.byte $02,$06,$0A,$0E,$12,$16,$1A,$1E
|
|
.byte $03,$07,$0B,$0F,$13,$17,$1B,$1F
|
|
.byte $03,$07,$0B,$0F,$13,$17,$1B,$1F
|
|
.byte $00,$04,$08,$0C,$10,$14,$18,$1C
|
|
.byte $00,$04,$08,$0C,$10,$14,$18,$1C
|
|
.byte $01,$05,$09,$0D,$11,$15,$19,$1D
|
|
.byte $01,$05,$09,$0D,$11,$15,$19,$1D
|
|
.byte $02,$06,$0A,$0E,$12,$16,$1A,$1E
|
|
.byte $02,$06,$0A,$0E,$12,$16,$1A,$1E
|
|
.byte $03,$07,$0B,$0F,$13,$17,$1B,$1F
|
|
.byte $03,$07,$0B,$0F,$13,$17,$1B,$1F
|
|
.byte $00,$04,$08,$0C,$10,$14,$18,$1C
|
|
.byte $00,$04,$08,$0C,$10,$14,$18,$1C
|
|
.byte $01,$05,$09,$0D,$11,$15,$19,$1D
|
|
.byte $01,$05,$09,$0D,$11,$15,$19,$1D
|
|
.byte $02,$06,$0A,$0E,$12,$16,$1A,$1E
|
|
.byte $02,$06,$0A,$0E,$12,$16,$1A,$1E
|
|
.byte $03,$07,$0B,$0F,$13,$17,$1B,$1F
|
|
.byte $03,$07,$0B,$0F,$13,$17,$1B,$1F
|
|
|
|
;;; ==================================================
|
|
;;; Routines called during FILL_RECT etc based on
|
|
;;; state_fill
|
|
|
|
.proc fillmode0
|
|
lda ($84),y
|
|
eor ($8E),y
|
|
eor fill_eor_mask
|
|
and $89
|
|
eor ($84),y
|
|
bcc :+
|
|
loop: lda ($8E),y
|
|
eor fill_eor_mask
|
|
: and state_mskand
|
|
ora state_mskor
|
|
sta ($84),y
|
|
dey
|
|
bne loop
|
|
.endproc
|
|
.proc fillmode0a
|
|
lda ($84),y
|
|
eor ($8E),y
|
|
eor fill_eor_mask
|
|
and $88
|
|
eor ($84),y
|
|
and state_mskand
|
|
ora state_mskor
|
|
sta ($84),y
|
|
rts
|
|
.endproc
|
|
|
|
.proc fillmode1
|
|
lda ($8E),y
|
|
eor fill_eor_mask
|
|
and $89
|
|
bcc :+
|
|
loop: lda ($8E),y
|
|
eor fill_eor_mask
|
|
: ora ($84),y
|
|
and state_mskand
|
|
ora state_mskor
|
|
sta ($84),y
|
|
dey
|
|
bne loop
|
|
.endproc
|
|
.proc fillmode1a
|
|
lda ($8E),y
|
|
eor fill_eor_mask
|
|
and $88
|
|
ora ($84),y
|
|
and state_mskand
|
|
ora state_mskor
|
|
sta ($84),y
|
|
rts
|
|
.endproc
|
|
|
|
.proc fillmode2
|
|
lda ($8E),y
|
|
eor fill_eor_mask
|
|
and $89
|
|
bcc :+
|
|
loop: lda ($8E),y
|
|
eor fill_eor_mask
|
|
: eor ($84),y
|
|
and state_mskand
|
|
ora state_mskor
|
|
sta ($84),y
|
|
dey
|
|
bne loop
|
|
.endproc
|
|
.proc fillmode2a
|
|
lda ($8E),y
|
|
eor fill_eor_mask
|
|
and $88
|
|
eor ($84),y
|
|
and state_mskand
|
|
ora state_mskor
|
|
sta ($84),y
|
|
rts
|
|
.endproc
|
|
|
|
.proc fillmode3
|
|
lda ($8E),y
|
|
eor fill_eor_mask
|
|
and $89
|
|
bcc :+
|
|
loop: lda ($8E),y
|
|
eor fill_eor_mask
|
|
: eor #$FF
|
|
and ($84),y
|
|
and state_mskand
|
|
ora state_mskor
|
|
sta ($84),y
|
|
dey
|
|
bne loop
|
|
.endproc
|
|
.proc fillmode3a
|
|
lda ($8E),y
|
|
eor fill_eor_mask
|
|
and $88
|
|
eor #$FF
|
|
and ($84),y
|
|
and state_mskand
|
|
ora state_mskor
|
|
sta ($84),y
|
|
rts
|
|
.endproc
|
|
|
|
L4C41: cpx $98
|
|
beq L4C49
|
|
inx
|
|
L4C46:
|
|
L4C47 := * + 1
|
|
L4C48 := * + 2
|
|
jmp L4CFB
|
|
|
|
L4C49: rts
|
|
|
|
lda L4C5B
|
|
adc $90
|
|
sta L4C5B
|
|
bcc L4C57
|
|
inc L4C5C
|
|
L4C57: ldy L5168
|
|
L4C5A:
|
|
L4C5B := * + 1
|
|
L4C5C := * + 2
|
|
lda $FFFF,y
|
|
and #$7F
|
|
sta $0601,y
|
|
dey
|
|
bpl L4C5A
|
|
bmi L4C9F
|
|
L4C67: ldy $8C
|
|
inc $8C
|
|
lda hires_table_hi,y
|
|
ora $80
|
|
sta $83
|
|
lda hires_table_lo,y
|
|
adc $8A
|
|
sta $82
|
|
L4C79: stx $81
|
|
ldy #0
|
|
ldx #0
|
|
L4C7F: sta HISCR
|
|
lda ($82),y
|
|
and #$7F
|
|
sta LOWSCR
|
|
L4C8A := * + 1
|
|
sta $0601,x
|
|
lda ($82),y
|
|
and #$7F
|
|
L4C91 := * + 1
|
|
sta $0602,x
|
|
iny
|
|
inx
|
|
inx
|
|
cpx L5168
|
|
bcc L4C7F
|
|
beq L4C7F
|
|
ldx $81
|
|
L4C9F: clc
|
|
L4CA1 := * + 1
|
|
L4CA2 := * + 2
|
|
jmp L4CBE
|
|
|
|
L4CA3: stx $82
|
|
ldy L5168
|
|
lda #$00
|
|
L4CAA: ldx $0601,y
|
|
L4CAE := * + 1
|
|
L4CAF := * + 2
|
|
ora L42A1,x
|
|
L4CB1 := * + 1
|
|
sta $0602,y
|
|
L4CB4 := * + 1
|
|
L4CB5 := * + 2
|
|
lda L4221,x
|
|
dey
|
|
bpl L4CAA
|
|
L4CBA := * + 1
|
|
sta $0601
|
|
ldx $82
|
|
L4CBE:
|
|
L4CBF := * + 1
|
|
L4CC0 := * + 2
|
|
jmp L4D38
|
|
|
|
L4CC1: stx $82
|
|
ldx #0
|
|
ldy #0
|
|
L4CC7:
|
|
L4CC8 := * + 1
|
|
lda $0601,x
|
|
sta HISCR
|
|
sta $0601,y
|
|
sta LOWSCR
|
|
L4CD4 := * + 1
|
|
lda $0602,x
|
|
sta $0601,y
|
|
inx
|
|
inx
|
|
iny
|
|
cpy $91
|
|
bcc L4CC7
|
|
beq L4CC7
|
|
ldx $82
|
|
jmp L4D38
|
|
|
|
L4CE7: ldx $94
|
|
clc
|
|
jmp L4C46
|
|
|
|
L4CED: ldx L4D6A
|
|
stx L4C47
|
|
ldx L4D6B
|
|
stx L4C48
|
|
ldx $94
|
|
L4CFB:
|
|
L4CFC := * + 1
|
|
L4CFD := * + 2
|
|
jmp L4D11
|
|
|
|
L4CFE:
|
|
txa
|
|
ror a
|
|
ror a
|
|
ror a
|
|
and #$C0
|
|
ora $86
|
|
sta $82
|
|
lda #$04
|
|
adc #$00
|
|
sta $83
|
|
jmp L4C79
|
|
|
|
L4D11: txa
|
|
ror a
|
|
ror a
|
|
ror a
|
|
and #$C0
|
|
ora $86
|
|
sta $8E
|
|
lda #$04
|
|
adc #0
|
|
sta $8F
|
|
L4D22 := * + 1
|
|
L4D23 := * + 2
|
|
jmp L4D38
|
|
|
|
L4D24: lda $84
|
|
clc
|
|
adc state_stride
|
|
sta $84
|
|
bcc L4D30
|
|
inc $85
|
|
clc
|
|
L4D30: ldy $91
|
|
jsr L4D67
|
|
jmp L4C41
|
|
|
|
L4D38: lda hires_table_hi,x
|
|
ora state_addr+1
|
|
sta $85
|
|
lda hires_table_lo,x
|
|
clc
|
|
adc $86
|
|
sta $84
|
|
ldy #1
|
|
jsr L4D54
|
|
ldy #0
|
|
jsr L4D54
|
|
jmp L4C41
|
|
|
|
L4D54: sta LOWSCR,y
|
|
lda $92,y
|
|
ora #$80
|
|
sta $88
|
|
lda $96,y
|
|
ora #$80
|
|
sta $89
|
|
ldy $91
|
|
L4D67: jmp fillmode0 ; modified with fillmode routine
|
|
|
|
L4D6A: .byte $FB
|
|
L4D6B:
|
|
L4D6C := * + 1
|
|
jmp $0000
|
|
|
|
.byte $00,$00,$00,$00,$00
|
|
L4D73: .byte $01,$03,$07,$0F,$1F,$3F,$7F
|
|
L4D7A: .byte $7F,$7F,$7F,$7F,$7F,$7F,$7F
|
|
L4D81: .byte $7F,$7E,$7C,$78,$70,$60,$40,$00
|
|
.byte $00,$00,$00,$00,$00,$00
|
|
|
|
;; Tables used for fill modes
|
|
fill_mode_table:
|
|
.addr fillmode0,fillmode1,fillmode2,fillmode3
|
|
.addr fillmode0,fillmode1,fillmode2,fillmode3
|
|
|
|
fill_mode_table_a:
|
|
.addr fillmode0a,fillmode1a,fillmode2a,fillmode3a
|
|
.addr fillmode0a,fillmode1a,fillmode2a,fillmode3a
|
|
|
|
;;; ==================================================
|
|
|
|
SET_FILL_MODE_IMPL:
|
|
lda state_fill
|
|
ldx #0
|
|
cmp #4
|
|
bcc :+
|
|
ldx #$7F
|
|
: stx fill_eor_mask
|
|
rts
|
|
|
|
;; Called from FILL_RECT, DRAW_TEXT, etc to configure
|
|
;; fill routines from mode.
|
|
set_up_fill_mode:
|
|
lda $F7
|
|
clc
|
|
adc $96
|
|
sta $96
|
|
lda $F8
|
|
adc $96+1
|
|
sta $96+1
|
|
lda $F8+1
|
|
clc
|
|
adc $98
|
|
sta $98
|
|
lda $FA
|
|
adc $98+1
|
|
sta $98+1
|
|
lda $F7
|
|
clc
|
|
adc $92
|
|
sta $92
|
|
lda $F8
|
|
adc $92+1
|
|
sta $92+1
|
|
lda $F8+1
|
|
clc
|
|
adc $94
|
|
sta $94
|
|
lda $FA
|
|
adc $94+1
|
|
sta $94+1
|
|
lsr $97
|
|
beq :+
|
|
jmp L4E79
|
|
|
|
: lda $96
|
|
ror a
|
|
tax
|
|
lda L4821,x
|
|
ldy L4921,x
|
|
L4E01: sta $82
|
|
tya
|
|
rol a
|
|
tay
|
|
lda L4D73,y
|
|
sta $97
|
|
lda L4D6C,y
|
|
sta $96
|
|
lsr $93
|
|
bne L4E68
|
|
lda $92
|
|
ror a
|
|
tax
|
|
lda L4821,x
|
|
ldy L4921,x
|
|
L4E1E: sta $86
|
|
tya
|
|
rol a
|
|
tay
|
|
sty $87
|
|
lda L4D81,y
|
|
sta $93
|
|
lda L4D7A,y
|
|
sta $92
|
|
lda $82
|
|
sec
|
|
sbc $86
|
|
L4E34: sta $91
|
|
pha
|
|
lda state_fill
|
|
asl a
|
|
tax
|
|
pla
|
|
bne L4E5B
|
|
lda $93
|
|
and $97
|
|
sta $93
|
|
sta $97
|
|
lda $92
|
|
and $96
|
|
sta $92
|
|
sta $96
|
|
lda fill_mode_table_a,x
|
|
sta L4D67+1
|
|
lda fill_mode_table_a+1,x
|
|
sta L4D67+2
|
|
rts
|
|
|
|
L4E5B: lda fill_mode_table,x
|
|
sta L4D67+1
|
|
lda fill_mode_table+1,x
|
|
sta L4D67+2
|
|
rts
|
|
|
|
L4E68: lda $92
|
|
ror a
|
|
tax
|
|
php
|
|
lda L4825,x
|
|
clc
|
|
adc #$24
|
|
plp
|
|
ldy L4925,x
|
|
bpl L4E1E
|
|
L4E79: lda $96
|
|
ror a
|
|
tax
|
|
php
|
|
lda L4825,x
|
|
clc
|
|
adc #$24
|
|
plp
|
|
ldy L4925,x
|
|
bmi L4E8D
|
|
jmp L4E01
|
|
|
|
L4E8D: lsr a
|
|
bne L4E9A
|
|
txa
|
|
ror a
|
|
tax
|
|
lda L4821,x
|
|
ldy L4921,x
|
|
rts
|
|
|
|
L4E9A: txa
|
|
ror a
|
|
tax
|
|
php
|
|
lda L4825,x
|
|
clc
|
|
adc #$24
|
|
plp
|
|
ldy L4925,x
|
|
rts
|
|
|
|
L4EA9: lda $86
|
|
ldx $94
|
|
ldy state_stride
|
|
jsr L4F6D
|
|
clc
|
|
adc state_addr
|
|
sta $84
|
|
tya
|
|
adc state_addr+1
|
|
sta $85
|
|
lda #$02
|
|
tax
|
|
tay
|
|
bit state_stride
|
|
bmi L4EE9
|
|
lda #$01
|
|
sta $8E
|
|
lda #$06
|
|
sta $8F
|
|
jsr L4F11
|
|
txa
|
|
inx
|
|
stx L5168
|
|
jsr L4E34
|
|
lda L4F31
|
|
sta L4CA1
|
|
lda L4F31+1
|
|
sta L4CA2
|
|
lda #0
|
|
ldx #0
|
|
ldy #0
|
|
L4EE9: pha
|
|
lda L4F37,x
|
|
sta L4D22
|
|
lda L4F37+1,x
|
|
sta L4D23
|
|
pla
|
|
tax
|
|
lda L4F33,x
|
|
sta L4CFC
|
|
lda L4F33+1,x
|
|
sta L4CFD
|
|
lda L4F3B,y
|
|
sta L4CBF
|
|
lda L4F3B+1,y
|
|
sta L4CC0
|
|
rts
|
|
|
|
L4F11: lda $91
|
|
asl a
|
|
tax
|
|
inx
|
|
lda $93
|
|
bne L4F25
|
|
dex
|
|
inc $8E
|
|
inc $84
|
|
bne L4F23
|
|
inc $85
|
|
L4F23: lda $92
|
|
L4F25: sta $88
|
|
lda $96
|
|
bne L4F2E
|
|
dex
|
|
lda $97
|
|
L4F2E: sta $89
|
|
rts
|
|
|
|
L4F31: .addr L4CBE
|
|
L4F33: .addr L4CFE,L4D11
|
|
L4F37: .addr L4D24,L4D38
|
|
L4F3B: .addr L4D24,L4CC1
|
|
|
|
L4F3F: ldx $8C
|
|
ldy $90
|
|
bmi L4F48
|
|
jsr L4F70
|
|
L4F48: clc
|
|
adc $8E
|
|
sta L4C5B
|
|
tya
|
|
adc $8F
|
|
sta L4C5C
|
|
ldx #$02
|
|
bit $90
|
|
bmi L4F5C
|
|
ldx #$00
|
|
L4F5C: lda L4F69,x
|
|
sta L4C47
|
|
lda L4F6A,x
|
|
sta L4C48
|
|
rts
|
|
|
|
L4F69: lsr a
|
|
L4F6A: jmp L4C67
|
|
|
|
L4F6D: bmi L4F8E
|
|
asl a
|
|
L4F70: stx $82
|
|
sty $83
|
|
ldx #$08
|
|
L4F76: lsr $83
|
|
bcc L4F7D
|
|
clc
|
|
adc $82
|
|
L4F7D: ror a
|
|
ror $84
|
|
dex
|
|
bne L4F76
|
|
sty $82
|
|
tay
|
|
lda $84
|
|
sec
|
|
sbc $82
|
|
bcs L4F8E
|
|
dey
|
|
L4F8E: rts
|
|
|
|
;;; ==================================================
|
|
|
|
SET_PATTERN_IMPL:
|
|
lda #$00
|
|
sta $8E
|
|
lda $F9
|
|
and #$07
|
|
lsr a
|
|
ror $8E
|
|
lsr a
|
|
ror $8E
|
|
adc #$04
|
|
sta $8F
|
|
ldx #$07
|
|
L4FA3: lda $F7
|
|
and #$07
|
|
tay
|
|
lda state_pattern,x
|
|
L4FAA: dey
|
|
bmi L4FB2
|
|
cmp #$80
|
|
rol a
|
|
bne L4FAA
|
|
L4FB2: ldy #$27
|
|
L4FB4: pha
|
|
lsr a
|
|
sta LOWSCR
|
|
sta ($8E),y
|
|
pla
|
|
ror a
|
|
pha
|
|
lsr a
|
|
sta HISCR
|
|
sta ($8E),y
|
|
pla
|
|
ror a
|
|
dey
|
|
bpl L4FB4
|
|
lda $8E
|
|
sec
|
|
sbc #$40
|
|
sta $8E
|
|
bcs L4FDD
|
|
ldy $8F
|
|
dey
|
|
cpy #$04
|
|
bcs L4FDB
|
|
ldy #$05
|
|
L4FDB: sty $8F
|
|
L4FDD: dex
|
|
bpl L4FA3
|
|
sta LOWSCR
|
|
rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 4 bytes of params, copied to $9F
|
|
|
|
L4FE4: .byte 0
|
|
|
|
DRAW_RECT_IMPL:
|
|
|
|
left := $9F
|
|
top := $A1
|
|
right := $A3
|
|
bottom := $A5
|
|
|
|
ldy #$03
|
|
L4FE7: ldx #$07
|
|
L4FE9: lda $9F,x
|
|
sta $92,x
|
|
dex
|
|
bpl L4FE9
|
|
ldx L5016,y
|
|
lda $9F,x
|
|
pha
|
|
lda $A0,x
|
|
ldx L501A,y
|
|
sta $93,x
|
|
pla
|
|
sta $92,x
|
|
sty L4FE4
|
|
jsr L501E
|
|
ldy L4FE4
|
|
dey
|
|
bpl L4FE7
|
|
ldx #$03
|
|
L500E: lda $9F,x
|
|
sta state_pos,x
|
|
dex
|
|
bpl L500E
|
|
L5015: rts
|
|
|
|
L5016: .byte $00,$02,$04,$06
|
|
L501A: .byte $04,$06,$00,$02
|
|
|
|
L501E: lda state_hthick ; Also: draw horizontal line $92 to $96 at $98
|
|
sec
|
|
sbc #1
|
|
cmp #$FF
|
|
beq L5015
|
|
adc $96
|
|
sta $96
|
|
bcc L502F
|
|
inc $96+1
|
|
|
|
L502F: lda state_vthick
|
|
sec
|
|
sbc #1
|
|
cmp #$FF
|
|
beq L5015
|
|
adc $98
|
|
sta $98
|
|
bcc FILL_RECT_IMPL
|
|
inc $98+1
|
|
;; Fall through...
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 4 bytes of params, copied to $92
|
|
|
|
FILL_RECT_IMPL:
|
|
jsr L514C
|
|
L5043: jsr L50A9
|
|
bcc L5015
|
|
jsr set_up_fill_mode
|
|
jsr L4EA9
|
|
jmp L4CED
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 4 bytes of params, copied to $92
|
|
|
|
.proc TEST_BOX_IMPL
|
|
|
|
left := $92
|
|
top := $94
|
|
right := $96
|
|
bottom := $98
|
|
|
|
jsr L514C
|
|
lda state_xpos
|
|
ldx state_xpos+1
|
|
cpx left+1
|
|
bmi fail
|
|
bne :+
|
|
cmp left
|
|
bcc fail
|
|
: cpx right+1
|
|
bmi :+
|
|
bne fail
|
|
cmp right
|
|
bcc :+
|
|
bne fail
|
|
: lda state_ypos
|
|
ldx state_ypos+1
|
|
cpx top+1
|
|
bmi fail
|
|
bne :+
|
|
cmp top
|
|
bcc fail
|
|
: cpx bottom+1
|
|
bmi :+
|
|
bne fail
|
|
cmp bottom
|
|
bcc :+
|
|
bne fail
|
|
: lda #$80 ; success!
|
|
jmp a2d_exit_with_a
|
|
|
|
fail: rts
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
SET_BOX_IMPL:
|
|
lda state_left
|
|
sec
|
|
sbc state_hoff
|
|
sta $F7
|
|
lda state_left+1
|
|
sbc state_hoff+1
|
|
sta $F8
|
|
lda state_top
|
|
sec
|
|
sbc state_voff
|
|
sta $F9
|
|
lda state_top+1
|
|
sbc state_voff+1
|
|
sta $FA
|
|
rts
|
|
|
|
L50A9: lda state_width+1
|
|
cmp $92+1
|
|
bmi L50B7
|
|
bne L50B9
|
|
lda state_width
|
|
cmp $92
|
|
bcs L50B9
|
|
L50B7: clc
|
|
L50B8: rts
|
|
|
|
L50B9: lda $96+1
|
|
cmp state_hoff+1
|
|
bmi L50B7
|
|
bne L50C7
|
|
lda $96
|
|
cmp state_hoff
|
|
bcc L50B8
|
|
L50C7: lda state_height+1
|
|
cmp $94+1
|
|
bmi L50B7
|
|
bne L50D5
|
|
lda state_height
|
|
cmp $94
|
|
bcc L50B8
|
|
L50D5: lda $98+1
|
|
cmp state_voff+1
|
|
bmi L50B7
|
|
bne L50E3
|
|
lda $98
|
|
cmp state_voff
|
|
bcc L50B8
|
|
L50E3: ldy #$00
|
|
lda $92
|
|
sec
|
|
sbc state_hoff
|
|
tax
|
|
lda $92+1
|
|
sbc state_hoff+1
|
|
bpl L50FE
|
|
stx $9B
|
|
sta $9C
|
|
lda state_hoff
|
|
sta $92
|
|
lda state_hoff+1
|
|
sta $92+1
|
|
iny
|
|
L50FE: lda state_width
|
|
sec
|
|
sbc $96
|
|
tax
|
|
lda state_width+1
|
|
sbc $96+1
|
|
bpl L5116
|
|
lda state_width
|
|
sta $96
|
|
lda state_width+1
|
|
sta $96+1
|
|
tya
|
|
ora #$04
|
|
tay
|
|
L5116: lda $94
|
|
sec
|
|
sbc state_voff
|
|
tax
|
|
lda $94+1
|
|
sbc state_voff+1
|
|
bpl L5130
|
|
stx $9D
|
|
sta $9E
|
|
lda state_voff
|
|
sta $94
|
|
lda state_voff+1
|
|
sta $94+1
|
|
iny
|
|
iny
|
|
L5130: lda state_height
|
|
sec
|
|
sbc $98
|
|
tax
|
|
lda state_height+1
|
|
sbc $98+1
|
|
bpl L5148
|
|
lda state_height
|
|
sta $98
|
|
lda state_height+1
|
|
sta $98+1
|
|
tya
|
|
ora #$08
|
|
tay
|
|
L5148: sty $9A
|
|
sec
|
|
rts
|
|
|
|
L514C: sec
|
|
lda $96
|
|
sbc $92
|
|
lda $96+1
|
|
sbc $92+1
|
|
bmi L5163
|
|
sec
|
|
lda $98
|
|
sbc $94
|
|
lda $98+1
|
|
sbc $94+1
|
|
bmi L5163
|
|
rts
|
|
|
|
L5163: lda #$81
|
|
jmp a2d_exit_with_a
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 16 bytes of params, copied to $8A
|
|
|
|
L5168: .byte 0
|
|
L5169: .byte 0
|
|
|
|
DRAW_BITMAP_IMPL:
|
|
|
|
dbi_left := $8A
|
|
dbi_top := $8C
|
|
dbi_bitmap := $8E
|
|
dbi_stride := $90
|
|
dbi_hoff := $92
|
|
dbi_voff := $94
|
|
dbi_width := $96
|
|
dbi_height := $98
|
|
|
|
dbi_x := $9B
|
|
dbi_y := $9D
|
|
|
|
ldx #3 ; copy left/top to $9B/$9D
|
|
: lda dbi_left,x ; and hoff/voff to $8A/$8C (overwriting left/top)
|
|
sta dbi_x,x
|
|
lda dbi_hoff,x
|
|
sta dbi_left,x
|
|
dex
|
|
bpl :-
|
|
|
|
lda dbi_width
|
|
sec
|
|
sbc dbi_hoff
|
|
sta $82
|
|
lda dbi_width+1
|
|
sbc dbi_hoff+1
|
|
sta $83
|
|
lda dbi_x
|
|
sta dbi_hoff
|
|
|
|
clc
|
|
adc $82
|
|
sta dbi_width
|
|
lda dbi_x+1
|
|
sta dbi_hoff+1
|
|
adc $83
|
|
sta dbi_width+1
|
|
|
|
lda dbi_height
|
|
sec
|
|
sbc dbi_voff
|
|
sta $82
|
|
lda dbi_height+1
|
|
sbc dbi_voff+1
|
|
sta $83
|
|
lda dbi_y
|
|
sta dbi_voff
|
|
clc
|
|
adc $82
|
|
sta dbi_height
|
|
lda dbi_y+1
|
|
sta dbi_voff+1
|
|
adc $83
|
|
sta dbi_height+1
|
|
;; fall through
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $4D IMPL
|
|
|
|
;;; 16 bytes of params, copied to $8A
|
|
|
|
L51B3: lda #0
|
|
sta $9B
|
|
sta $9C
|
|
sta $9D
|
|
lda $8F
|
|
sta $80
|
|
jsr L50A9
|
|
bcs L51C5
|
|
rts
|
|
|
|
L51C5: jsr set_up_fill_mode
|
|
lda $91
|
|
asl a
|
|
ldx $93
|
|
beq L51D1
|
|
adc #1
|
|
L51D1: ldx $96
|
|
beq L51D7
|
|
adc #1
|
|
L51D7: sta L5169
|
|
sta L5168
|
|
lda #2
|
|
sta $81
|
|
lda #0
|
|
sec
|
|
sbc $9D
|
|
clc
|
|
adc $8C
|
|
sta $8C
|
|
lda #0
|
|
sec
|
|
sbc $9B
|
|
tax
|
|
lda #0
|
|
sbc $9C
|
|
tay
|
|
txa
|
|
clc
|
|
adc $8A
|
|
tax
|
|
tya
|
|
adc $8B
|
|
jsr L4E8D
|
|
sta $8A
|
|
tya
|
|
rol a
|
|
cmp #7
|
|
ldx #1
|
|
bcc L520E
|
|
dex
|
|
sbc #7
|
|
L520E: stx L4C8A
|
|
inx
|
|
stx L4C91
|
|
sta $9B
|
|
lda $8A
|
|
rol a
|
|
jsr L4F3F
|
|
jsr L4EA9
|
|
lda #$01
|
|
sta $8E
|
|
lda #$06
|
|
sta $8F
|
|
ldx #$01
|
|
lda $87
|
|
sec
|
|
sbc #$07
|
|
bcc L5234
|
|
sta $87
|
|
dex
|
|
L5234: stx L4CC8
|
|
inx
|
|
stx L4CD4
|
|
lda $87
|
|
sec
|
|
sbc $9B
|
|
bcs L5249
|
|
adc #7
|
|
inc L5168
|
|
dec $81
|
|
L5249: tay
|
|
bne L5250
|
|
ldx #0
|
|
beq L5276
|
|
L5250: tya
|
|
asl a
|
|
tay
|
|
lda L5293,y
|
|
sta L4CAE
|
|
lda L5293+1,y
|
|
sta L4CAF
|
|
lda L5285+2,y
|
|
sta L4CB4
|
|
lda L5285+3,y
|
|
sta L4CB5
|
|
ldy $81
|
|
sty L4CB1
|
|
dey
|
|
sty L4CBA
|
|
ldx #2
|
|
L5276: lda L5285,x
|
|
sta L4CA1
|
|
lda L5285+1,x
|
|
sta L4CA2
|
|
jmp L4CE7
|
|
|
|
L5285: .addr L4CBE,L4CA3
|
|
|
|
.addr L4221,L4321,L4421,L4521,L4621
|
|
|
|
L5293: .addr L4721,L42A1,L43A1,L44A1,L45A1,L46A1,L47A1
|
|
|
|
|
|
L52A1: stx $B0
|
|
asl a
|
|
asl a
|
|
sta $B3
|
|
|
|
ldy #3 ; Copy params_addr... to $92... and $96...
|
|
: lda (params_addr),y
|
|
sta $92,y
|
|
L52AE: sta $96,y
|
|
dey
|
|
bpl :-
|
|
|
|
lda $94 ; y coord
|
|
sta $A7
|
|
lda $94+1
|
|
sta $A7+1
|
|
ldy #0
|
|
stx $AE
|
|
L52C0: stx $82
|
|
lda (params_addr),y
|
|
sta $0700,x
|
|
pha
|
|
iny
|
|
lda (params_addr),y
|
|
sta $073C,x
|
|
tax
|
|
pla
|
|
iny
|
|
cpx $92+1
|
|
bmi L52DB
|
|
bne L52E1
|
|
cmp $92
|
|
bcs L52E1
|
|
L52DB: sta $92
|
|
stx $92+1
|
|
bcc L52EF
|
|
L52E1: cpx $96+1
|
|
bmi L52EF
|
|
bne L52EB
|
|
cmp $96
|
|
bcc L52EF
|
|
L52EB: sta $96
|
|
stx $96+1
|
|
L52EF: ldx $82
|
|
lda (params_addr),y
|
|
sta $0780,x
|
|
pha
|
|
iny
|
|
lda (params_addr),y
|
|
sta $07BC,x
|
|
tax
|
|
pla
|
|
iny
|
|
cpx $94+1
|
|
bmi L530A
|
|
bne L5310
|
|
cmp $94
|
|
bcs L5310
|
|
L530A: sta $94
|
|
stx $94+1
|
|
bcc L531E
|
|
L5310: cpx $98+1
|
|
bmi L531E
|
|
bne L531A
|
|
cmp $98
|
|
bcc L531E
|
|
L531A: sta $98
|
|
stx $98+1
|
|
L531E: cpx $A8
|
|
stx $A8
|
|
bmi L5330
|
|
bne L532C
|
|
cmp $A7
|
|
bcc L5330
|
|
beq L5330
|
|
L532C: ldx $82
|
|
stx $AE
|
|
L5330: sta $A7
|
|
ldx $82
|
|
inx
|
|
cpx #$3C
|
|
beq L5398
|
|
cpy $B3
|
|
bcc L52C0
|
|
lda $94
|
|
cmp $98
|
|
bne L5349
|
|
lda $94+1
|
|
cmp $98+1
|
|
beq L5398
|
|
L5349: stx $B3
|
|
bit $BA
|
|
bpl L5351
|
|
sec
|
|
rts
|
|
|
|
L5351: jmp L50A9
|
|
|
|
L5354: lda $B4
|
|
bpl L5379
|
|
asl a
|
|
asl a
|
|
adc params_addr
|
|
sta params_addr
|
|
bcc ora_2_param_bytes
|
|
inc params_addr+1
|
|
|
|
|
|
;; ORAs together first two bytes at (params_addr) and stores
|
|
;; in $B4, then advances params_addr
|
|
ora_2_param_bytes:
|
|
ldy #0
|
|
lda (params_addr),y
|
|
iny
|
|
ora (params_addr),y
|
|
sta $B4
|
|
inc params_addr
|
|
bne :+
|
|
inc params_addr+1
|
|
: inc params_addr
|
|
bne :+
|
|
inc params_addr+1
|
|
: ldy #$80
|
|
L5379: rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $17 IMPL
|
|
|
|
L537A:
|
|
lda #$80
|
|
bne L5380
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $15 IMPL
|
|
|
|
;; also called from the end of DRAW_LINE_ABS_IMPL
|
|
|
|
L537E: lda #$00
|
|
L5380: sta $BA
|
|
ldx #0
|
|
stx $AD
|
|
jsr ora_2_param_bytes
|
|
L5389: jsr L52A1
|
|
bcs L539D
|
|
ldx $B0
|
|
L5390: jsr L5354
|
|
bmi L5389
|
|
jmp L546F
|
|
|
|
L5398: lda #$82
|
|
jmp a2d_exit_with_a
|
|
|
|
L539D: ldy #1
|
|
sty $AF
|
|
ldy $AE
|
|
cpy $B0
|
|
bne L53A9
|
|
ldy $B3
|
|
L53A9: dey
|
|
sty $AB
|
|
php
|
|
L53AD: sty $AC
|
|
iny
|
|
cpy $B3
|
|
bne L53B6
|
|
ldy $B0
|
|
L53B6: sty $AA
|
|
cpy $AE
|
|
bne L53BE
|
|
dec $AF
|
|
L53BE: lda $0780,y
|
|
ldx $07BC,y
|
|
stx $83
|
|
L53C6: sty $A9
|
|
iny
|
|
cpy $B3
|
|
bne L53CF
|
|
ldy $B0
|
|
L53CF: cmp $0780,y
|
|
bne L53DB
|
|
ldx $07BC,y
|
|
cpx $83
|
|
beq L53C6
|
|
L53DB: ldx $AB
|
|
sec
|
|
sbc $0780,x
|
|
lda $83
|
|
sbc $07BC,x
|
|
bmi L5448
|
|
lda $A9
|
|
plp
|
|
bmi L53F8
|
|
tay
|
|
sta $0680,x
|
|
lda $AA
|
|
sta $06BC,x
|
|
bpl L545D
|
|
L53F8: ldx $AD
|
|
cpx #$10
|
|
bcs L5398
|
|
sta $0468,x
|
|
lda $AA
|
|
sta $04A8,x
|
|
ldy $AB
|
|
lda $0680,y
|
|
sta $0469,x
|
|
lda $06BC,y
|
|
sta $04A9,x
|
|
lda $0780,y
|
|
sta $05E8,x
|
|
sta $05E9,x
|
|
lda $07BC,y
|
|
sta low_zp_stash_buffer,x
|
|
sta L5E02,x
|
|
lda $0700,y
|
|
sta L5E32,x
|
|
lda $073C,y
|
|
sta L5E42,x
|
|
ldy $AC
|
|
lda $0700,y
|
|
sta L5E31,x
|
|
lda $073C,y
|
|
sta L5E41,x
|
|
inx
|
|
inx
|
|
stx $AD
|
|
ldy $A9
|
|
bpl L545D
|
|
L5448: plp
|
|
bmi L5450
|
|
lda #$80
|
|
sta $0680,x
|
|
L5450: ldy $AA
|
|
txa
|
|
sta $0680,y
|
|
lda $AC
|
|
sta $06BC,y
|
|
lda #$80
|
|
L545D: php
|
|
sty $AB
|
|
ldy $A9
|
|
bit $AF
|
|
bmi L5469
|
|
jmp L53AD
|
|
|
|
L5469: plp
|
|
ldx $B3
|
|
jmp L5390
|
|
|
|
L546F: ldx #$00
|
|
stx $B1
|
|
lda #$80
|
|
sta $0428
|
|
sta $B2
|
|
L547A: inx
|
|
cpx $AD
|
|
bcc L5482
|
|
beq L54B2
|
|
rts
|
|
|
|
L5482: lda $B1
|
|
L5484: tay
|
|
lda $05E8,x
|
|
cmp $05E8,y
|
|
bcs L54A2
|
|
tya
|
|
sta $0428,x
|
|
cpy $B1
|
|
beq L549E
|
|
ldy $82
|
|
txa
|
|
sta $0428,y
|
|
jmp L547A
|
|
|
|
L549E: stx $B1
|
|
bcs L547A
|
|
L54A2: sty $82
|
|
lda $0428,y
|
|
bpl L5484
|
|
sta $0428,x
|
|
txa
|
|
sta $0428,y
|
|
bpl L547A
|
|
L54B2: ldx $B1
|
|
lda $05E8,x
|
|
sta $A9
|
|
sta $94
|
|
lda low_zp_stash_buffer,x
|
|
sta $AA
|
|
sta $95
|
|
L54C2: ldx $B1
|
|
bmi L5534
|
|
L54C6: lda $05E8,x
|
|
cmp $A9
|
|
bne L5532
|
|
lda low_zp_stash_buffer,x
|
|
cmp $AA
|
|
bne L5532
|
|
lda $0428,x
|
|
sta $82
|
|
jsr L5606
|
|
lda $B2
|
|
bmi L5517
|
|
L54E0: tay
|
|
lda L5E41,x
|
|
cmp L5E41,y
|
|
bmi L5520
|
|
bne L5507
|
|
lda L5E31,x
|
|
cmp L5E31,y
|
|
bcc L5520
|
|
bne L5507
|
|
lda L5E11,x
|
|
cmp L5E11,y
|
|
bcc L5520
|
|
bne L5507
|
|
lda L5E21,x
|
|
cmp L5E21,y
|
|
bcc L5520
|
|
L5507: sty $83
|
|
lda $0428,y
|
|
bpl L54E0
|
|
sta $0428,x
|
|
txa
|
|
sta $0428,y
|
|
bpl L552E
|
|
L5517: sta $0428,x
|
|
stx $B2
|
|
jmp L552E
|
|
|
|
L551F: rts
|
|
|
|
L5520: tya
|
|
cpy $B2
|
|
beq L5517
|
|
sta $0428,x
|
|
txa
|
|
ldy $83
|
|
sta $0428,y
|
|
L552E: ldx $82
|
|
bpl L54C6
|
|
L5532: stx $B1
|
|
L5534: lda #$00
|
|
sta $AB
|
|
lda $B2
|
|
sta $83
|
|
bmi L551F
|
|
L553E: tax
|
|
lda $A9
|
|
cmp $05E8,x
|
|
bne L5584
|
|
lda $AA
|
|
cmp low_zp_stash_buffer,x
|
|
bne L5584
|
|
ldy $0468,x
|
|
lda $0680,y
|
|
bpl L556C
|
|
cpx $B2
|
|
beq L5564
|
|
ldy $83
|
|
lda $0428,x
|
|
sta $0428,y
|
|
jmp L55F8
|
|
|
|
L5564: lda $0428,x
|
|
sta $B2
|
|
jmp L55F8
|
|
|
|
L556C: sta $0468,x
|
|
lda $0700,y
|
|
sta L5E31,x
|
|
lda $073C,y
|
|
sta L5E41,x
|
|
lda $06BC,y
|
|
sta $04A8,x
|
|
jsr L5606
|
|
L5584: stx $AC
|
|
ldy L5E41,x
|
|
lda L5E31,x
|
|
tax
|
|
lda $AB
|
|
eor #$FF
|
|
sta $AB
|
|
bpl L559B
|
|
stx $92
|
|
sty $93
|
|
bmi L55CE
|
|
L559B: stx $96
|
|
sty $97
|
|
cpy $93
|
|
bmi L55A9
|
|
bne L55B5
|
|
cpx $92
|
|
bcs L55B5
|
|
L55A9: lda $92
|
|
stx $92
|
|
sta $96
|
|
lda $93
|
|
sty $93
|
|
sta $97
|
|
L55B5: lda $A9
|
|
sta $94
|
|
sta $98
|
|
lda $AA
|
|
sta $95
|
|
sta $99
|
|
bit $BA
|
|
bpl L55CB
|
|
jsr TEST_BOX_IMPL
|
|
jmp L55CE
|
|
|
|
L55CB: jsr L5043
|
|
L55CE: ldx $AC
|
|
lda L5E21,x
|
|
clc
|
|
adc $0528,x
|
|
sta L5E21,x
|
|
lda L5E11,x
|
|
adc $04E8,x
|
|
sta L5E11,x
|
|
lda L5E31,x
|
|
adc $0568,x
|
|
sta L5E31,x
|
|
lda L5E41,x
|
|
adc $05A8,x
|
|
sta L5E41,x
|
|
lda $0428,x
|
|
L55F8: bmi L55FD
|
|
jmp L553E
|
|
|
|
L55FD: inc $A9
|
|
bne L5603
|
|
inc $AA
|
|
L5603: jmp L54C2
|
|
|
|
L5606: ldy $04A8,x
|
|
lda $0780,y
|
|
sta $05E8,x
|
|
sec
|
|
sbc $A9
|
|
sta $A3
|
|
lda $07BC,y
|
|
sta low_zp_stash_buffer,x
|
|
sbc $AA
|
|
sta $A4
|
|
lda $0700,y
|
|
sec
|
|
sbc L5E31,x
|
|
sta $A1
|
|
lda $073C,y
|
|
sbc L5E41,x
|
|
sta $A2
|
|
php
|
|
bpl L563F
|
|
lda #$00
|
|
sec
|
|
sbc $A1
|
|
sta $A1
|
|
lda #$00
|
|
sbc $A2
|
|
sta $A2
|
|
L563F: stx $84
|
|
jsr L569A
|
|
ldx $84
|
|
plp
|
|
bpl L5662
|
|
lda #$00
|
|
sec
|
|
sbc $9F
|
|
sta $9F
|
|
lda #0
|
|
sbc $A0
|
|
sta $A0
|
|
lda #0
|
|
sbc $A1
|
|
sta $A1
|
|
lda #0
|
|
sbc $A2
|
|
sta $A2
|
|
L5662: lda $A2
|
|
sta $05A8,x
|
|
cmp #$80
|
|
ror a
|
|
pha
|
|
lda $A1
|
|
sta $0568,x
|
|
ror a
|
|
pha
|
|
lda $A0
|
|
sta $04E8,x
|
|
ror a
|
|
pha
|
|
lda $9F
|
|
sta $0528,x
|
|
ror a
|
|
sta L5E21,x
|
|
pla
|
|
clc
|
|
adc #$80
|
|
sta L5E11,x
|
|
pla
|
|
adc L5E31,x
|
|
sta L5E31,x
|
|
pla
|
|
adc L5E41,x
|
|
sta L5E41,x
|
|
rts
|
|
|
|
L5698: lda $A2
|
|
L569A: ora $A1
|
|
bne L56A8
|
|
sta $9F
|
|
sta $A0
|
|
sta $A1
|
|
sta $A2
|
|
beq L56D5
|
|
L56A8: ldy #$20
|
|
lda #$00
|
|
sta $9F
|
|
sta $A0
|
|
sta $A5
|
|
sta $A6
|
|
L56B4: asl $9F
|
|
rol $A0
|
|
rol $A1
|
|
rol $A2
|
|
rol $A5
|
|
rol $A6
|
|
lda $A5
|
|
sec
|
|
sbc $A3
|
|
tax
|
|
lda $A6
|
|
sbc $A4
|
|
bcc L56D2
|
|
stx $A5
|
|
sta $A6
|
|
inc $9F
|
|
L56D2: dey
|
|
bne L56B4
|
|
L56D5: rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; DRAW_POLYGONS IMPL
|
|
|
|
.proc DRAW_POLYGONS_IMPL
|
|
lda #0
|
|
sta $BA
|
|
jsr ora_2_param_bytes
|
|
|
|
ptr := $B7
|
|
draw_line_params := $92
|
|
|
|
L56DD: lda params_addr
|
|
sta ptr
|
|
lda params_addr+1
|
|
sta ptr+1
|
|
lda $B4 ; ORAd param bytes
|
|
sta $B6
|
|
ldx #0
|
|
jsr L52A1 ; ???
|
|
bcc L572F
|
|
|
|
lda $B3
|
|
sta $B5 ; loop counter
|
|
|
|
;; Loop for drawing
|
|
ldy #0
|
|
loop: dec $B5
|
|
beq endloop
|
|
sty $B9
|
|
|
|
ldx #0
|
|
: lda (ptr),y
|
|
sta draw_line_params,x
|
|
iny
|
|
inx
|
|
cpx #8
|
|
bne :-
|
|
jsr DRAW_LINE_ABS_IMPL_L5783
|
|
|
|
lda $B9
|
|
clc
|
|
adc #4
|
|
tay
|
|
bne loop
|
|
|
|
endloop:
|
|
;; Draw from last point back to start
|
|
ldx #0
|
|
: lda (ptr),y
|
|
sta draw_line_params,x
|
|
iny
|
|
inx
|
|
cpx #4
|
|
bne :-
|
|
ldy #3
|
|
: lda (ptr),y
|
|
sta draw_line_params+4,y
|
|
sta state_pos,y
|
|
dey
|
|
bpl :-
|
|
jsr DRAW_LINE_ABS_IMPL_L5783
|
|
|
|
;; Handle multiple segments, e.g. when drawing outlines for multi icons?
|
|
|
|
L572F: ldx #1
|
|
: lda ptr,x
|
|
sta $80,x
|
|
lda $B5,x
|
|
sta $B3,x
|
|
dex
|
|
bpl :-
|
|
jsr L5354 ; ???
|
|
bmi L56DD
|
|
|
|
rts
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
;;; OFFSET_POS IMPL
|
|
|
|
;;; 4 bytes of params, copied to $A1
|
|
|
|
.proc OFFSET_POS_IMPL
|
|
xdelta := $A1
|
|
ydelta := $A3
|
|
|
|
lda xdelta
|
|
ldx xdelta+1
|
|
jsr adjust_xpos
|
|
lda ydelta
|
|
ldx ydelta+1
|
|
clc
|
|
adc state_ypos
|
|
sta state_ypos
|
|
txa
|
|
adc state_ypos+1
|
|
sta state_ypos+1
|
|
rts
|
|
.endproc
|
|
|
|
;; Adjust state_xpos by (X,A)
|
|
.proc adjust_xpos
|
|
clc
|
|
adc state_xpos
|
|
sta state_xpos
|
|
txa
|
|
adc state_xpos+1
|
|
sta state_xpos+1
|
|
rts
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 4 bytes of params, copied to $A1
|
|
|
|
.proc DRAW_LINE_IMPL
|
|
|
|
xdelta := $A1
|
|
ydelta := $A2
|
|
|
|
ldx #2 ; Convert relative x/y to absolute x/y at $92,$94
|
|
loop: lda xdelta,x
|
|
clc
|
|
adc state_xpos,x
|
|
sta $92,x
|
|
lda xdelta+1,x
|
|
adc state_xpos+1,x
|
|
sta $93,x
|
|
dex
|
|
dex
|
|
bpl loop
|
|
;; fall through
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 4 bytes of params, copied to $92
|
|
|
|
.proc DRAW_LINE_ABS_IMPL
|
|
|
|
params := $92
|
|
xend := params + 0
|
|
yend := params + 2
|
|
|
|
pt1 := $92
|
|
x1 := pt1
|
|
y1 := pt1+2
|
|
|
|
pt2 := $96
|
|
x2 := pt2
|
|
y2 := pt2+2
|
|
|
|
ldx #3
|
|
L5778: lda state_pos,x ; move pos to $96, assign params to pos
|
|
sta pt2,x
|
|
lda pt1,x
|
|
sta state_pos,x
|
|
dex
|
|
bpl L5778
|
|
|
|
;; Called from elsewhere; draw $92,$94 to $96,$98; values modified
|
|
L5783:
|
|
lda y2+1
|
|
cmp y1+1
|
|
bmi L57B0
|
|
bne L57BF
|
|
lda y2
|
|
cmp y1
|
|
bcc L57B0
|
|
bne L57BF
|
|
|
|
;; y1 == y2
|
|
lda x1
|
|
ldx x1+1
|
|
cpx x2+1
|
|
bmi L57AD
|
|
bne L57A1
|
|
cmp x2
|
|
bcc L57AD
|
|
|
|
L57A1: ldy x2 ; swap so x1 < x2
|
|
sta x2
|
|
sty x1
|
|
ldy x2+1
|
|
stx x2+1
|
|
sty x1+1
|
|
L57AD: jmp L501E
|
|
|
|
L57B0: ldx #3 ; Swap start/end
|
|
: lda $92,x
|
|
tay
|
|
lda $96,x
|
|
sta $92,x
|
|
tya
|
|
sta $96,x
|
|
dex
|
|
bpl :-
|
|
|
|
L57BF: ldx state_hthick
|
|
dex
|
|
stx $A2
|
|
lda state_vthick
|
|
sta $A4
|
|
lda #0
|
|
sta $A1
|
|
sta $A3
|
|
lda $92
|
|
ldx $93
|
|
cpx $97
|
|
bmi L57E9
|
|
bne L57E1
|
|
cmp $96
|
|
bcc L57E9
|
|
bne L57E1
|
|
jmp L501E
|
|
|
|
L57E1: lda $A1
|
|
ldx $A2
|
|
sta $A2
|
|
stx $A1
|
|
L57E9: ldy #5
|
|
L57EB: sty $82
|
|
ldx L583E,y
|
|
ldy #3
|
|
L57F2: lda $92,x
|
|
sta $83,y
|
|
dex
|
|
dey
|
|
bpl L57F2
|
|
ldy $82
|
|
ldx L5844,y
|
|
lda $A1,x
|
|
clc
|
|
adc $83
|
|
sta $83
|
|
bcc L580B
|
|
inc $84
|
|
L580B: ldx L584A,y
|
|
lda $A3,x
|
|
clc
|
|
adc $85
|
|
sta $85
|
|
bcc L5819
|
|
inc $86
|
|
L5819: tya
|
|
asl a
|
|
asl a
|
|
tay
|
|
ldx #0
|
|
L581F: lda $83,x
|
|
sta L5852,y
|
|
iny
|
|
inx
|
|
cpx #4
|
|
bne L581F
|
|
ldy $82
|
|
dey
|
|
bpl L57EB
|
|
lda L583C
|
|
sta params_addr
|
|
lda L583C+1
|
|
sta params_addr+1
|
|
jmp L537E
|
|
|
|
L583C: .addr L5850
|
|
|
|
L583E: .byte $03,$03,$07,$07,$07,$03
|
|
L5844: .byte $00,$00,$00,$01,$01,$01
|
|
L584A: .byte $00,$01,$01,$01,$00,$00
|
|
|
|
;; params for a $15 call
|
|
L5850: .byte $06,$00
|
|
L5852: .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
|
|
.endproc
|
|
DRAW_LINE_ABS_IMPL_L5783 := DRAW_LINE_ABS_IMPL::L5783
|
|
|
|
;;; ==================================================
|
|
|
|
;;; SET_FONT IMPL
|
|
|
|
.proc SET_FONT_IMPL
|
|
lda params_addr ; set font to passed address
|
|
sta state_font
|
|
lda params_addr+1
|
|
sta state_font+1
|
|
|
|
;; Compute addresses of each row of the glyphs.
|
|
prepare_font:
|
|
ldy #0 ; copy first 3 bytes of font defn ($00 ??, $7F ??, height) to $FD-$FF
|
|
: lda (state_font),y
|
|
sta $FD,y
|
|
iny
|
|
cpy #3
|
|
bne :-
|
|
|
|
cmp #17 ; if height >= 17, skip this next bit
|
|
bcs end
|
|
|
|
lda state_font
|
|
ldx state_font+1
|
|
clc
|
|
adc #3
|
|
bcc :+
|
|
inx
|
|
: sta glyph_widths ; set $FB/$FC to start of widths
|
|
stx glyph_widths+1
|
|
|
|
sec
|
|
adc glyph_last
|
|
bcc :+
|
|
inx
|
|
|
|
: ldy #0 ; loop 0... height-1
|
|
loop: sta glyph_row_lo,y
|
|
pha
|
|
txa
|
|
sta glyph_row_hi,y
|
|
pla
|
|
|
|
sec
|
|
adc glyph_last
|
|
bcc :+
|
|
inx
|
|
|
|
: bit glyph_flag ; if flag is set, double the offset (???)
|
|
bpl :+
|
|
|
|
sec
|
|
adc glyph_last
|
|
bcc :+
|
|
inx
|
|
|
|
: iny
|
|
cpy glyph_height_p
|
|
bne loop
|
|
rts
|
|
|
|
end: lda #$83
|
|
jmp a2d_exit_with_a
|
|
.endproc
|
|
|
|
glyph_row_lo:
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
glyph_row_hi:
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 3 bytes of params, copied to $A1
|
|
|
|
.proc MEASURE_TEXT_IMPL
|
|
jsr measure_text
|
|
ldy #3 ; Store result (X,A) at params+3
|
|
sta (params_addr),y
|
|
txa
|
|
iny
|
|
sta (params_addr),y
|
|
rts
|
|
.endproc
|
|
|
|
;; Call with data at ($A1), length in $A3, result in (X,A)
|
|
.proc measure_text
|
|
data := $A1
|
|
length := $A3
|
|
|
|
accum := $82
|
|
|
|
ldx #0
|
|
ldy #0
|
|
sty accum
|
|
loop: sty accum+1
|
|
lda (data),y
|
|
tay
|
|
txa
|
|
clc
|
|
adc (glyph_widths),y
|
|
bcc :+
|
|
inc accum
|
|
: tax
|
|
ldy accum+1
|
|
iny
|
|
cpy length
|
|
bne loop
|
|
txa
|
|
ldx accum
|
|
rts
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
L5907: sec
|
|
sbc #1
|
|
bcs L590D
|
|
dex
|
|
L590D: clc
|
|
adc state_xpos
|
|
sta $96
|
|
txa
|
|
adc state_xpos+1
|
|
sta $97
|
|
lda state_xpos
|
|
sta $92
|
|
lda state_xpos+1
|
|
sta $93
|
|
lda state_ypos
|
|
sta $98
|
|
ldx state_ypos+1
|
|
stx $99
|
|
clc
|
|
adc #1
|
|
bcc L592D
|
|
inx
|
|
L592D: sec
|
|
sbc $FF
|
|
bcs L5933
|
|
dex
|
|
L5933: sta $94
|
|
stx $95
|
|
rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 3 bytes of params, copied to $A1
|
|
|
|
DRAW_TEXT_IMPL:
|
|
jsr maybe_unstash_low_zp
|
|
jsr measure_text
|
|
sta $A4
|
|
stx $A5
|
|
ldy #0
|
|
sty $9F
|
|
sty $A0
|
|
sty $9B
|
|
sty $9D
|
|
jsr L5907
|
|
jsr L50A9
|
|
bcc L59B9
|
|
tya
|
|
ror a
|
|
bcc L5972
|
|
ldy #0
|
|
ldx $9C
|
|
L595C: sty $9F
|
|
lda ($A1),y
|
|
tay
|
|
lda (glyph_widths),y
|
|
clc
|
|
adc $9B
|
|
bcc L596B
|
|
inx
|
|
beq L5972
|
|
L596B: sta $9B
|
|
ldy $9F
|
|
iny
|
|
bne L595C
|
|
L5972: jsr set_up_fill_mode
|
|
jsr L4EA9
|
|
lda $87
|
|
clc
|
|
adc $9B
|
|
bpl L5985
|
|
inc $91
|
|
dec $A0
|
|
adc #$0E
|
|
L5985: sta $87
|
|
lda $91
|
|
inc $91
|
|
ldy state_stride
|
|
bpl L599F
|
|
asl a
|
|
tax
|
|
lda $87
|
|
cmp #7
|
|
bcs L5998
|
|
inx
|
|
L5998: lda $96
|
|
beq L599D
|
|
inx
|
|
L599D: stx $91
|
|
L599F: lda $87
|
|
sec
|
|
sbc #7
|
|
bcc L59A8
|
|
sta $87
|
|
L59A8: lda #0
|
|
rol a
|
|
eor #1
|
|
sta $9C
|
|
tax
|
|
sta LOWSCR,x
|
|
jsr L59C3
|
|
sta LOWSCR
|
|
L59B9: jsr maybe_stash_low_zp
|
|
lda $A4
|
|
ldx $A4+1
|
|
jmp adjust_xpos
|
|
|
|
L59C3: lda $98
|
|
sec
|
|
sbc $94
|
|
asl a
|
|
tax
|
|
lda L5D81,x
|
|
sta L5B02
|
|
lda L5D81+1,x
|
|
sta L5B03
|
|
lda L5DA1,x
|
|
sta L5A95
|
|
lda L5DA1+1,x
|
|
sta L5A96
|
|
lda L5DC1,x
|
|
sta L5C22
|
|
lda L5DC1+1,x
|
|
sta L5C23
|
|
lda L5DE1,x
|
|
sta L5CBE
|
|
lda L5DE1+1,x
|
|
sta L5CBF
|
|
txa
|
|
lsr a
|
|
tax
|
|
sec
|
|
stx $80
|
|
stx $81
|
|
lda #0
|
|
sbc $9D
|
|
sta $9D
|
|
tay
|
|
ldx #$C3
|
|
sec
|
|
L5A0C: lda glyph_row_lo,y
|
|
sta L5B04+1,x
|
|
lda glyph_row_hi,y
|
|
sta L5B04+2,x
|
|
txa
|
|
sbc #$0D
|
|
tax
|
|
iny
|
|
dec $80
|
|
bpl L5A0C
|
|
ldy $9D
|
|
ldx #$4B
|
|
sec
|
|
L5A26: lda glyph_row_lo,y
|
|
sta L5A97+1,x
|
|
lda glyph_row_hi,y
|
|
sta L5A97+2,x
|
|
txa
|
|
sbc #$05
|
|
tax
|
|
iny
|
|
dec $81
|
|
bpl L5A26
|
|
ldy $94
|
|
ldx #$00
|
|
L5A3F: bit state_stride
|
|
bmi L5A56
|
|
lda $84
|
|
clc
|
|
adc state_stride
|
|
sta $84
|
|
sta $20,x
|
|
lda $85
|
|
adc #$00
|
|
sta $85
|
|
sta $21,x
|
|
bne L5A65
|
|
L5A56: lda hires_table_lo,y
|
|
clc
|
|
adc $86
|
|
sta $20,x
|
|
lda hires_table_hi,y
|
|
ora state_addr+1
|
|
sta $21,x
|
|
L5A65: cpy $98
|
|
L5A68 := * + 1
|
|
beq L5A6E
|
|
iny
|
|
inx
|
|
inx
|
|
bne L5A3F
|
|
L5A6E: ldx #$0F
|
|
lda #$00
|
|
L5A72: sta $0000,x
|
|
dex
|
|
bpl L5A72
|
|
sta $81
|
|
sta $40
|
|
lda #$80
|
|
sta $42
|
|
ldy $9F
|
|
L5A81: lda ($A1),y
|
|
tay
|
|
bit $81
|
|
bpl L5A8B
|
|
sec
|
|
adc $FE
|
|
L5A8B: tax
|
|
lda (glyph_widths),y
|
|
beq L5AE7
|
|
ldy $87
|
|
bne L5AEA
|
|
L5A95 := * + 1
|
|
L5A96 := * + 2
|
|
jmp L5A97
|
|
|
|
L5A97: lda $FFFF,x
|
|
sta $0F
|
|
L5A9C: lda $FFFF,x
|
|
sta $0E
|
|
L5AA1: lda $FFFF,x
|
|
sta $0D
|
|
L5AA6: lda $FFFF,x
|
|
sta $0C
|
|
L5AAB: lda $FFFF,x
|
|
sta $0B
|
|
L5AB0: lda $FFFF,x
|
|
sta $0A
|
|
L5AB5: lda $FFFF,x
|
|
sta $09
|
|
L5ABA: lda $FFFF,x
|
|
sta $08
|
|
L5ABF: lda $FFFF,x
|
|
sta $07
|
|
L5AC4: lda $FFFF,x
|
|
sta $06
|
|
L5AC9: lda $FFFF,x
|
|
sta $05
|
|
L5ACE: lda $FFFF,x
|
|
sta $04
|
|
L5AD3: lda $FFFF,x
|
|
sta $03
|
|
L5AD8: lda $FFFF,x
|
|
sta $02
|
|
L5ADD: lda $FFFF,x
|
|
sta $01
|
|
L5AE2: lda $FFFF,x
|
|
sta $0000
|
|
L5AE7: jmp L5BD4
|
|
|
|
L5AEA: tya
|
|
asl a
|
|
tay
|
|
lda L5285+2,y
|
|
sta $40
|
|
lda L5285+3,y
|
|
sta $41
|
|
lda L5293,y
|
|
sta $42
|
|
lda L5293+1,y
|
|
sta $43
|
|
L5B02 := * + 1
|
|
L5B03 := * + 2
|
|
jmp L5B04
|
|
|
|
L5B04: ldy $FFFF,x ; All of these $FFFFs are modified
|
|
lda ($42),y
|
|
sta $1F
|
|
lda ($40),y
|
|
ora $0F
|
|
sta $0F
|
|
L5B11: ldy $FFFF,x
|
|
lda ($42),y
|
|
sta $1E
|
|
lda ($40),y
|
|
ora $0E
|
|
sta $0E
|
|
L5B1E: ldy $FFFF,x
|
|
lda ($42),y
|
|
sta $1D
|
|
lda ($40),y
|
|
ora $0D
|
|
sta $0D
|
|
L5B2B: ldy $FFFF,x
|
|
lda ($42),y
|
|
sta $1C
|
|
lda ($40),y
|
|
ora $0C
|
|
sta $0C
|
|
L5B38: ldy $FFFF,x
|
|
lda ($42),y
|
|
sta $1B
|
|
lda ($40),y
|
|
ora $0B
|
|
sta $0B
|
|
L5B45: ldy $FFFF,x
|
|
lda ($42),y
|
|
sta $1A
|
|
lda ($40),y
|
|
ora $0A
|
|
sta $0A
|
|
L5B52: ldy $FFFF,x
|
|
lda ($42),y
|
|
sta $19
|
|
lda ($40),y
|
|
ora $09
|
|
sta $09
|
|
L5B5F: ldy $FFFF,x
|
|
lda ($42),y
|
|
sta $18
|
|
lda ($40),y
|
|
ora $08
|
|
sta $08
|
|
L5B6C: ldy $FFFF,x
|
|
lda ($42),y
|
|
sta $17
|
|
lda ($40),y
|
|
ora $07
|
|
sta $07
|
|
L5B79: ldy $FFFF,x
|
|
lda ($42),y
|
|
sta $16
|
|
lda ($40),y
|
|
ora $06
|
|
sta $06
|
|
L5B86: ldy $FFFF,x
|
|
lda ($42),y
|
|
sta $15
|
|
lda ($40),y
|
|
ora $05
|
|
sta $05
|
|
L5B93: ldy $FFFF,x
|
|
lda ($42),y
|
|
sta $14
|
|
lda ($40),y
|
|
ora $04
|
|
sta $04
|
|
L5BA0: ldy $FFFF,x
|
|
lda ($42),y
|
|
sta $13
|
|
lda ($40),y
|
|
ora $03
|
|
sta $03
|
|
L5BAD: ldy $FFFF,x
|
|
lda ($42),y
|
|
sta $12
|
|
lda ($40),y
|
|
ora $02
|
|
sta $02
|
|
L5BBA: ldy $FFFF,x
|
|
lda ($42),y
|
|
sta $11
|
|
lda ($40),y
|
|
ora $01
|
|
sta $01
|
|
L5BC7: ldy $FFFF,x
|
|
lda ($42),y
|
|
sta $10
|
|
lda ($40),y
|
|
ora $0000
|
|
sta $0000
|
|
L5BD4: bit $81
|
|
bpl L5BE2
|
|
inc $9F
|
|
lda #$00
|
|
sta $81
|
|
lda $9A
|
|
bne L5BF6
|
|
L5BE2: txa
|
|
tay
|
|
lda (glyph_widths),y
|
|
cmp #$08
|
|
bcs L5BEE
|
|
inc $9F
|
|
bcc L5BF6
|
|
L5BEE: sbc #$07
|
|
sta $9A
|
|
ror $81
|
|
lda #$07
|
|
L5BF6: clc
|
|
adc $87
|
|
cmp #$07
|
|
bcs L5C0D
|
|
sta $87
|
|
L5BFF: ldy $9F
|
|
cpy $A3
|
|
beq L5C08
|
|
jmp L5A81
|
|
|
|
L5C08: ldy $A0
|
|
jmp L5CB5
|
|
|
|
L5C0D: sbc #$07
|
|
sta $87
|
|
ldy $A0
|
|
bne L5C18
|
|
jmp L5CA2
|
|
|
|
L5C18: bmi L5C84
|
|
dec $91
|
|
bne L5C21
|
|
jmp L5CB5
|
|
|
|
L5C21:
|
|
L5C22 := * + 1
|
|
L5C23 := * + 2
|
|
jmp L5C24
|
|
|
|
L5C24: lda $0F
|
|
eor state_tmask
|
|
sta ($3E),y
|
|
L5C2A: lda $0E
|
|
eor state_tmask
|
|
sta ($3C),y
|
|
L5C30: lda $0D
|
|
eor state_tmask
|
|
sta ($3A),y
|
|
L5C36: lda $0C
|
|
eor state_tmask
|
|
sta ($38),y
|
|
L5C3C: lda $0B
|
|
eor state_tmask
|
|
sta ($36),y
|
|
L5C42: lda $0A
|
|
eor state_tmask
|
|
sta ($34),y
|
|
L5C48: lda $09
|
|
eor state_tmask
|
|
sta ($32),y
|
|
L5C4E: lda $08
|
|
eor state_tmask
|
|
sta ($30),y
|
|
L5C54: lda $07
|
|
eor state_tmask
|
|
sta ($2E),y
|
|
L5C5A: lda $06
|
|
eor state_tmask
|
|
sta ($2C),y
|
|
L5C60: lda $05
|
|
eor state_tmask
|
|
sta ($2A),y
|
|
L5C66: lda $04
|
|
eor state_tmask
|
|
sta ($28),y
|
|
L5C6C: lda $03
|
|
eor state_tmask
|
|
sta ($26),y
|
|
L5C72: lda $02
|
|
eor state_tmask
|
|
sta ($24),y
|
|
L5C78: lda $01
|
|
eor state_tmask
|
|
sta ($22),y
|
|
L5C7E: lda $00
|
|
eor state_tmask
|
|
sta ($20),y
|
|
L5C84: bit state_stride
|
|
bpl L5C94
|
|
lda $9C
|
|
eor #$01
|
|
tax
|
|
sta $9C
|
|
sta LOWSCR,x
|
|
beq L5C96
|
|
L5C94: inc $A0
|
|
L5C96: ldx #$0F
|
|
L5C98: lda $10,x
|
|
sta $0000,x
|
|
dex
|
|
bpl L5C98
|
|
jmp L5BFF
|
|
|
|
L5CA2: ldx $9C
|
|
lda $92,x
|
|
dec $91
|
|
beq L5CB0
|
|
jsr L5CB9
|
|
jmp L5C84
|
|
|
|
L5CB0: and $96,x
|
|
bne L5CB9
|
|
rts
|
|
|
|
L5CB5: ldx $9C
|
|
lda $96,x
|
|
L5CB9: ora #$80
|
|
sta $80
|
|
L5CBE := * + 1
|
|
L5CBF := * + 2
|
|
jmp L5CC0
|
|
|
|
L5CC0: lda $0F
|
|
eor state_tmask
|
|
eor ($3E),y
|
|
and $80
|
|
eor ($3E),y
|
|
sta ($3E),y
|
|
L5CCC: lda $0E
|
|
eor state_tmask
|
|
eor ($3C),y
|
|
and $80
|
|
eor ($3C),y
|
|
sta ($3C),y
|
|
L5CD8: lda $0D
|
|
eor state_tmask
|
|
eor ($3A),y
|
|
and $80
|
|
eor ($3A),y
|
|
sta ($3A),y
|
|
L5CE4: lda $0C
|
|
eor state_tmask
|
|
eor ($38),y
|
|
and $80
|
|
eor ($38),y
|
|
sta ($38),y
|
|
L5CF0: lda $0B
|
|
eor state_tmask
|
|
eor ($36),y
|
|
and $80
|
|
eor ($36),y
|
|
sta ($36),y
|
|
L5CFC: lda $0A
|
|
eor state_tmask
|
|
eor ($34),y
|
|
and $80
|
|
eor ($34),y
|
|
sta ($34),y
|
|
L5D08: lda $09
|
|
eor state_tmask
|
|
eor ($32),y
|
|
and $80
|
|
eor ($32),y
|
|
sta ($32),y
|
|
L5D14: lda $08
|
|
eor state_tmask
|
|
eor ($30),y
|
|
and $80
|
|
eor ($30),y
|
|
sta ($30),y
|
|
L5D20: lda $07
|
|
eor state_tmask
|
|
eor ($2E),y
|
|
and $80
|
|
eor ($2E),y
|
|
sta ($2E),y
|
|
L5D2C: lda $06
|
|
eor state_tmask
|
|
eor ($2C),y
|
|
and $80
|
|
eor ($2C),y
|
|
sta ($2C),y
|
|
L5D38: lda $05
|
|
eor state_tmask
|
|
eor ($2A),y
|
|
and $80
|
|
eor ($2A),y
|
|
sta ($2A),y
|
|
L5D44: lda $04
|
|
eor state_tmask
|
|
eor ($28),y
|
|
and $80
|
|
eor ($28),y
|
|
sta ($28),y
|
|
L5D50: lda $03
|
|
eor state_tmask
|
|
eor ($26),y
|
|
and $80
|
|
eor ($26),y
|
|
sta ($26),y
|
|
L5D5C: lda $02
|
|
eor state_tmask
|
|
eor ($24),y
|
|
and $80
|
|
eor ($24),y
|
|
sta ($24),y
|
|
L5D68: lda $01
|
|
eor state_tmask
|
|
eor ($22),y
|
|
and $80
|
|
eor ($22),y
|
|
sta ($22),y
|
|
L5D74: lda $00
|
|
eor state_tmask
|
|
eor ($20),y
|
|
and $80
|
|
eor ($20),y
|
|
sta ($20),y
|
|
rts
|
|
|
|
L5D81: .addr L5BC7,L5BBA,L5BAD,L5BA0,L5B93,L5B86,L5B79,L5B6C,L5B5F,L5B52,L5B45,L5B38,L5B2B,L5B1E,L5B11,L5B04
|
|
L5DA1: .addr L5AE2,L5ADD,L5AD8,L5AD3,L5ACE,L5AC9,L5AC4,L5ABF,L5ABA,L5AB5,L5AB0,L5AAB,L5AA6,L5AA1,L5A9C,L5A97
|
|
L5DC1: .addr L5C7E,L5C78,L5C72,L5C6C,L5C66,L5C60,L5C5A,L5C54,L5C4E,L5C48,L5C42,L5C3C,L5C36,L5C30,L5C2A,L5C24
|
|
L5DE1: .addr L5D74,L5D68,L5D5C,L5D50,L5D44,L5D38,L5D2C,L5D20,L5D14,L5D08,L5CFC,L5CF0,L5CE4,L5CD8,L5CCC,L5CC0
|
|
|
|
low_zp_stash_buffer:
|
|
L5E01: .byte $00
|
|
L5E02: .byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00
|
|
|
|
L5E11: .byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
|
|
L5E21: .byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
|
|
L5E31: .byte $00
|
|
L5E32: .byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00
|
|
L5E41: .byte $00
|
|
L5E42: .byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $01 IMPL
|
|
|
|
.proc L5E51
|
|
|
|
lda #$71 ; %0001 lo nibble = HiRes, Page 1, Full, Graphics
|
|
sta $82 ; (why is high nibble 7 ???)
|
|
jsr CFG_DISPLAY_IMPL
|
|
|
|
;; Initialize state
|
|
ldx #sizeof_state-1
|
|
loop: lda screen_state,x
|
|
sta $8A,x
|
|
sta state,x
|
|
dex
|
|
bpl loop
|
|
|
|
lda saved_state_addr
|
|
ldx saved_state_addr+1
|
|
jsr assign_and_prepare_state
|
|
|
|
lda #$7F
|
|
sta fill_eor_mask
|
|
jsr FILL_RECT_IMPL
|
|
lda #$00
|
|
sta fill_eor_mask
|
|
rts
|
|
|
|
saved_state_addr:
|
|
.addr saved_state
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
;;; CFG_DISPLAY_IMPL
|
|
|
|
;;; 1 byte param, copied to $82
|
|
|
|
;;; Toggle display softswitches
|
|
;;; bit 0: LoRes if clear, HiRes if set
|
|
;;; bit 1: Page 1 if clear, Page 2 if set
|
|
;;; bit 2: Full screen if clear, split screen if set
|
|
;;; bit 3: Graphics if clear, text if set
|
|
|
|
.proc CFG_DISPLAY_IMPL
|
|
param := $82
|
|
|
|
lda DHIRESON ; enable dhr graphics
|
|
sta SET80VID
|
|
|
|
ldx #3
|
|
loop: lsr param ; shift low bit into carry
|
|
lda table,x
|
|
rol a
|
|
tay ; y = table[x] * 2 + carry
|
|
bcs store
|
|
|
|
lda $C000,y ; why load vs. store ???
|
|
bcc :+
|
|
|
|
store: sta $C000,y
|
|
|
|
: dex
|
|
bpl loop
|
|
rts
|
|
|
|
table: .byte <(TXTCLR / 2), <(MIXCLR / 2), <(LOWSCR / 2), <(LORES / 2)
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
.proc SET_STATE_IMPL
|
|
lda params_addr
|
|
ldx params_addr+1
|
|
;; fall through
|
|
.endproc
|
|
|
|
;; Call with state address in (X,A)
|
|
assign_and_prepare_state:
|
|
sta active_state
|
|
stx active_state+1
|
|
;; fall through
|
|
|
|
;; Initializes font (if needed), box, pattern, and fill mode
|
|
prepare_state:
|
|
lda state_font+1
|
|
beq :+ ; only prepare font if necessary
|
|
jsr SET_FONT_IMPL::prepare_font
|
|
: jsr SET_BOX_IMPL
|
|
jsr SET_PATTERN_IMPL
|
|
jmp SET_FILL_MODE_IMPL
|
|
|
|
;;; ==================================================
|
|
|
|
.proc GET_STATE_IMPL
|
|
jsr apply_state_to_active_state
|
|
lda active_state
|
|
ldx active_state+1
|
|
;; fall through
|
|
.endproc
|
|
|
|
;; Store result (X,A) at params
|
|
store_xa_at_params:
|
|
ldy #0
|
|
|
|
;; Store result (X,A) at params+Y
|
|
store_xa_at_params_y:
|
|
sta (params_addr),y
|
|
txa
|
|
iny
|
|
sta (params_addr),y
|
|
rts
|
|
|
|
;;; ==================================================
|
|
|
|
.proc QUERY_SCREEN_IMPL
|
|
ldy #sizeof_state-1 ; Store 36 bytes at params
|
|
loop: lda screen_state,y
|
|
sta (params_addr),y
|
|
dey
|
|
bpl loop
|
|
.endproc
|
|
rts3: rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 1 byte of params, copied to $82
|
|
|
|
.proc CONFIGURE_ZP_IMPL
|
|
param := $82
|
|
|
|
lda param
|
|
cmp preserve_zp_flag
|
|
beq rts3
|
|
sta preserve_zp_flag
|
|
bcc rts3
|
|
jmp a2d_dispatch::cleanup
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
;;; LOW_ZP_STASH IMPL
|
|
|
|
;;; 1 byte of params, copied to $82
|
|
|
|
;;; If high bit set stash ZP $00-$43 to buffer if not already stashed.
|
|
;;; If high bit clear unstash ZP $00-$43 from buffer if not already unstashed.
|
|
|
|
.proc LOW_ZP_STASH_IMPL
|
|
lda $82
|
|
cmp low_zp_stash_flag
|
|
beq rts3
|
|
sta low_zp_stash_flag
|
|
bcc unstash
|
|
|
|
maybe_stash:
|
|
bit low_zp_stash_flag
|
|
bpl end
|
|
|
|
;; Copy buffer to ZP $00-$43
|
|
stash:
|
|
ldx #$43
|
|
: lda low_zp_stash_buffer,x
|
|
sta $00,x
|
|
dex
|
|
bpl :-
|
|
|
|
end: rts
|
|
|
|
maybe_unstash:
|
|
bit low_zp_stash_flag
|
|
bpl end
|
|
|
|
;; Copy ZP $00-$43 to buffer
|
|
unstash:
|
|
ldx #$43
|
|
: lda $00,x
|
|
sta low_zp_stash_buffer,x
|
|
dex
|
|
bpl :-
|
|
rts
|
|
.endproc
|
|
maybe_stash_low_zp := LOW_ZP_STASH_IMPL::maybe_stash
|
|
maybe_unstash_low_zp := LOW_ZP_STASH_IMPL::maybe_unstash
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $1C IMPL
|
|
|
|
;;; Just copies static bytes to params???
|
|
|
|
.proc L5F0A
|
|
ldy #5 ; Store 6 bytes at params
|
|
loop: lda table,y
|
|
sta (params_addr),y
|
|
dey
|
|
bpl loop
|
|
rts
|
|
|
|
table: .byte $01,$00,$00,$46,$01,$00
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
preserve_zp_flag: ; if high bit set, ZP saved during A2D calls
|
|
.byte $80
|
|
|
|
low_zp_stash_flag:
|
|
.byte $80
|
|
|
|
stack_ptr_stash:
|
|
.byte 0
|
|
|
|
;;; ==================================================
|
|
|
|
;;; Screen State
|
|
|
|
.proc screen_state
|
|
left: .word 0
|
|
top: .word 0
|
|
addr: .addr A2D_SCREEN_ADDR
|
|
stride: .word A2D_SCREEN_STRIDE
|
|
hoff: .word 0
|
|
voff: .word 0
|
|
width: .word 560-1
|
|
height: .word 192-1
|
|
pattern:.res 8, $FF
|
|
mskand: .byte A2D_DEFAULT_MSKAND
|
|
mskor: .byte A2D_DEFAULT_MSKOR
|
|
xpos: .word 0
|
|
ypos: .word 0
|
|
hthick: .byte 1
|
|
vthick: .byte 1
|
|
mode: .byte 0
|
|
tmask: .byte 0
|
|
font: .addr 0
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
|
|
.proc saved_state
|
|
left: .word 0
|
|
top: .word 0
|
|
addr: .addr A2D_SCREEN_ADDR
|
|
stride: .word A2D_SCREEN_STRIDE
|
|
hoff: .word 0
|
|
voff: .word 0
|
|
width: .word 560-1
|
|
height: .word 192-1
|
|
pattern:.res 8, $FF
|
|
mskand: .byte A2D_DEFAULT_MSKAND
|
|
mskor: .byte A2D_DEFAULT_MSKOR
|
|
xpos: .word 0
|
|
ypos: .word 0
|
|
hthick: .byte 1
|
|
vthick: .byte 1
|
|
mode: .byte 0
|
|
tmask: .byte 0
|
|
font: .addr 0
|
|
.endproc
|
|
|
|
active_saved: ; saved copy of $F4...$FF when ZP swapped
|
|
.addr saved_state
|
|
.res 10, 0
|
|
|
|
zp_saved: ; top half of ZP for when preserve_zp_flag set
|
|
.res 128, 0
|
|
|
|
;; cursor shown/hidden flags/counts
|
|
cursor_flag: ; high bit clear if cursor drawn, set if not drawn
|
|
.byte 0
|
|
cursor_count:
|
|
.byte $FF ; decremented on hide, incremented on shown; 0 = visible
|
|
|
|
.proc set_pos_params
|
|
xcoord: .word 0
|
|
ycoord: .word 0
|
|
.endproc
|
|
|
|
mouse_state:
|
|
mouse_x: .word 0
|
|
mouse_y: .word 0
|
|
mouse_status:.byte 0
|
|
|
|
L5FFD: .byte $00
|
|
L5FFE: .byte $00
|
|
|
|
mouse_hooked_flag: ; High bit set if mouse is "hooked", and calls
|
|
.byte 0 ; bypassed; never appears to be set.
|
|
|
|
mouse_hook:
|
|
.addr 0
|
|
|
|
cursor_hotspot_x: .byte $00
|
|
cursor_hotspot_y: .byte $00
|
|
|
|
L6004: .byte $00
|
|
L6005: .byte $00
|
|
L6006: .byte $00
|
|
L6007: .byte $00
|
|
L6008: .byte $00
|
|
L6009: .byte $00
|
|
L600A: .byte $00
|
|
L600B: .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
|
|
L602F: .byte $00,$00,$00,$00,$00,$00,$02,$00
|
|
.byte $06,$00,$0E,$00,$1E,$00,$3E,$00
|
|
.byte $7E,$00,$1A,$00,$30,$00,$30,$00
|
|
.byte $60,$00,$00,$00,$03,$00,$07,$00
|
|
.byte $0F,$00,$1F,$00,$3F,$00,$7F,$00
|
|
.byte $7F,$01,$7F,$00,$78,$00,$78,$00
|
|
.byte $70,$01,$70,$01,$01,$01
|
|
L6065: .byte $33
|
|
L6066: .byte $60
|
|
L6067: lda #$FF
|
|
sta cursor_count
|
|
lda #0
|
|
sta cursor_flag
|
|
lda L6065
|
|
sta params_addr
|
|
lda L6066
|
|
sta params_addr+1
|
|
;; fall through
|
|
|
|
;;; ==================================================
|
|
|
|
cursor_height := 12
|
|
cursor_width := 2
|
|
cursor_mask_offset := cursor_width * cursor_height
|
|
cursor_hotspot_offset := 2 * cursor_width * cursor_height
|
|
|
|
SET_CURSOR_IMPL:
|
|
php
|
|
sei
|
|
lda params_addr
|
|
ldx params_addr+1
|
|
sta active_cursor
|
|
stx active_cursor+1
|
|
clc
|
|
adc #cursor_mask_offset
|
|
bcc :+
|
|
inx
|
|
: sta active_cursor_mask
|
|
stx active_cursor_mask+1
|
|
ldy #cursor_hotspot_offset
|
|
lda (params_addr),y
|
|
sta cursor_hotspot_x
|
|
iny
|
|
lda (params_addr),y
|
|
sta cursor_hotspot_y
|
|
jsr restore_cursor_background
|
|
jsr draw_cursor
|
|
plp
|
|
L60A7: rts
|
|
|
|
update_cursor:
|
|
lda cursor_count ; hidden? if so, skip
|
|
bne L60A7
|
|
bit cursor_flag
|
|
bmi L60A7
|
|
|
|
draw_cursor:
|
|
lda #$00
|
|
sta cursor_count
|
|
sta cursor_flag
|
|
lda set_pos_params::ycoord
|
|
clc
|
|
sbc cursor_hotspot_y
|
|
sta $84
|
|
clc
|
|
adc #$0C
|
|
sta $85
|
|
lda set_pos_params::xcoord
|
|
sec
|
|
sbc cursor_hotspot_x
|
|
tax
|
|
lda set_pos_params::xcoord+1
|
|
sbc #$00
|
|
bpl L60E1
|
|
txa
|
|
ror a
|
|
tax
|
|
ldy L499D,x
|
|
lda #$FF
|
|
bmi L60E4
|
|
L60E1: jsr L4E8D
|
|
L60E4: sta $82
|
|
tya
|
|
rol a
|
|
cmp #$07
|
|
bcc L60EE
|
|
sbc #$07
|
|
L60EE: tay
|
|
lda #$2A
|
|
rol a
|
|
eor #$01
|
|
sta $83
|
|
sty L6004
|
|
tya
|
|
asl a
|
|
tay
|
|
lda L5293,y
|
|
sta L6164
|
|
lda L5293+1,y
|
|
sta L6165
|
|
lda L5285+2,y
|
|
sta L616A
|
|
lda L5285+3,y
|
|
sta L616B
|
|
ldx #$03
|
|
L6116: lda $82,x
|
|
sta L602F,x
|
|
dex
|
|
bpl L6116
|
|
ldx #$17
|
|
stx $86
|
|
ldx #$23
|
|
ldy $85
|
|
L6126: cpy #$C0
|
|
bcc L612D
|
|
jmp L61B9
|
|
|
|
L612D: lda hires_table_lo,y
|
|
sta $88
|
|
lda hires_table_hi,y
|
|
ora #$20
|
|
sta $89
|
|
sty $85
|
|
stx $87
|
|
ldy $86
|
|
ldx #$01
|
|
L6141:
|
|
active_cursor := * + 1
|
|
lda $FFFF,y
|
|
sta L6005,x
|
|
active_cursor_mask := * + 1
|
|
lda $FFFF,y
|
|
sta L6008,x
|
|
dey
|
|
dex
|
|
bpl L6141
|
|
lda #$00
|
|
sta L6007
|
|
sta L600A
|
|
ldy L6004
|
|
beq L6172
|
|
ldy #$05
|
|
L6160: ldx L6004,y
|
|
L6164 := * + 1
|
|
L6165 := * + 2
|
|
ora $FF80,x
|
|
sta L6005,y
|
|
L616A := * + 1
|
|
L616B := * + 2
|
|
lda $FF00,x
|
|
dey
|
|
bne L6160
|
|
sta L6005
|
|
L6172: ldx $87
|
|
ldy $82
|
|
lda $83
|
|
jsr L622A
|
|
bcs L618D
|
|
lda ($88),y
|
|
sta L600B,x
|
|
lda L6008
|
|
ora ($88),y
|
|
eor L6005
|
|
sta ($88),y
|
|
dex
|
|
L618D: jsr L6220
|
|
bcs L61A2
|
|
lda ($88),y
|
|
sta L600B,x
|
|
lda L6009
|
|
ora ($88),y
|
|
eor L6006
|
|
sta ($88),y
|
|
dex
|
|
L61A2: jsr L6220
|
|
bcs L61B7
|
|
lda ($88),y
|
|
sta L600B,x
|
|
lda L600A
|
|
ora ($88),y
|
|
eor L6007
|
|
sta ($88),y
|
|
dex
|
|
L61B7: ldy $85
|
|
L61B9: dec $86
|
|
dec $86
|
|
dey
|
|
cpy $84
|
|
beq L621C
|
|
jmp L6126
|
|
|
|
L61C5: rts
|
|
|
|
restore_cursor_background:
|
|
lda cursor_count ; already hidden?
|
|
bne L61C5
|
|
bit cursor_flag
|
|
bmi L61C5
|
|
|
|
ldx #$03
|
|
L61D2: lda L602F,x
|
|
sta $82,x
|
|
dex
|
|
bpl L61D2
|
|
ldx #$23
|
|
ldy $85
|
|
L61DE: cpy #$C0
|
|
bcs L6217
|
|
lda hires_table_lo,y
|
|
sta $88
|
|
lda hires_table_hi,y
|
|
ora #$20
|
|
sta $89
|
|
sty $85
|
|
L61F1 := * + 1
|
|
ldy $82
|
|
lda $83
|
|
jsr L622A
|
|
bcs L61FF
|
|
lda L600B,x
|
|
sta ($88),y
|
|
dex
|
|
L61FF: jsr L6220
|
|
bcs L620A
|
|
lda L600B,x
|
|
sta ($88),y
|
|
dex
|
|
L620A: jsr L6220
|
|
bcs L6215
|
|
lda L600B,x
|
|
sta ($88),y
|
|
dex
|
|
L6215: ldy $85
|
|
L6217: dey
|
|
cpy $84
|
|
bne L61DE
|
|
L621C: sta LOWSCR
|
|
rts
|
|
|
|
L6220: lda L622E
|
|
eor #$01
|
|
cmp #$54
|
|
beq L622A
|
|
iny
|
|
L622A: sta L622E
|
|
|
|
L622E := *+1
|
|
sta $C0FF
|
|
cpy #$28
|
|
rts
|
|
|
|
;;; ==================================================
|
|
|
|
.proc SHOW_CURSOR_IMPL
|
|
php
|
|
sei
|
|
lda cursor_count
|
|
beq done
|
|
inc cursor_count
|
|
bmi done
|
|
beq :+
|
|
dec cursor_count
|
|
: bit cursor_flag
|
|
bmi done
|
|
jsr draw_cursor
|
|
done: plp
|
|
rts
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
;;; ERASE_CURSOR IMPL
|
|
|
|
.proc ERASE_CURSOR_IMPL
|
|
php
|
|
sei
|
|
jsr restore_cursor_background
|
|
lda #$80
|
|
sta cursor_flag
|
|
plp
|
|
rts
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
HIDE_CURSOR_IMPL:
|
|
php
|
|
sei
|
|
jsr restore_cursor_background
|
|
dec cursor_count
|
|
plp
|
|
L6263: rts
|
|
|
|
;;; ==================================================
|
|
|
|
L6264: .byte 0
|
|
L6265: bit L6339
|
|
bpl L627C
|
|
lda L7D74
|
|
bne L627C
|
|
dec L6264
|
|
lda L6264
|
|
bpl L6263
|
|
lda #$02
|
|
sta L6264
|
|
L627C: ldx #2
|
|
L627E: lda mouse_x,x
|
|
cmp set_pos_params,x
|
|
bne L628B
|
|
dex
|
|
bpl L627E
|
|
bmi L629F
|
|
L628B: jsr restore_cursor_background
|
|
ldx #2
|
|
stx cursor_flag
|
|
L6293: lda mouse_x,x
|
|
sta set_pos_params,x
|
|
dex
|
|
bpl L6293
|
|
jsr update_cursor
|
|
L629F: bit no_mouse_flag
|
|
bmi L62A7
|
|
jsr L62BA
|
|
L62A7: bit no_mouse_flag
|
|
bpl L62B1
|
|
lda #$00
|
|
sta mouse_status
|
|
L62B1: lda L7D74
|
|
beq rts4
|
|
jsr L7EF5
|
|
rts4: rts
|
|
|
|
L62BA: ldy #READMOUSE
|
|
jsr call_mouse
|
|
bit mouse_hooked_flag
|
|
bmi L62D9
|
|
ldx mouse_firmware_hi
|
|
lda MOUSE_X_LO,x
|
|
sta mouse_x
|
|
lda MOUSE_X_HI,x
|
|
sta mouse_x+1
|
|
lda MOUSE_Y_LO,x
|
|
sta mouse_y
|
|
L62D9: ldy L5FFD
|
|
beq L62EF
|
|
L62DE: lda mouse_x
|
|
asl a
|
|
sta mouse_x
|
|
lda mouse_x+1
|
|
rol a
|
|
sta mouse_x+1
|
|
dey
|
|
bne L62DE
|
|
L62EF: ldy L5FFE
|
|
beq L62FE
|
|
lda mouse_y
|
|
L62F7: asl a
|
|
dey
|
|
bne L62F7
|
|
sta mouse_y
|
|
L62FE: bit mouse_hooked_flag
|
|
bmi L6309
|
|
lda MOUSE_STATUS,x
|
|
sta mouse_status
|
|
L6309: rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; GET_CURSOR IMPL
|
|
|
|
.proc GET_CURSOR_IMPL
|
|
lda active_cursor
|
|
ldx active_cursor+1
|
|
jmp store_xa_at_params
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
;; Call mouse firmware, operation in Y, param in A
|
|
.proc call_mouse
|
|
bit no_mouse_flag
|
|
bmi rts4
|
|
|
|
bit mouse_hooked_flag
|
|
bmi hooked
|
|
pha
|
|
ldx mouse_firmware_hi
|
|
stx $89
|
|
lda #$00
|
|
sta $88
|
|
lda ($88),y
|
|
sta $88
|
|
pla
|
|
ldy mouse_operand
|
|
jmp ($88)
|
|
|
|
hooked: jmp (mouse_hook)
|
|
.endproc
|
|
|
|
L6335: .byte $00
|
|
L6336: .byte $00
|
|
L6337: .byte $00
|
|
L6338: .byte $00
|
|
L6339: .byte $00
|
|
L633A: .byte $00
|
|
L633B: .byte $00
|
|
L633C: .byte $00
|
|
L633D: .byte $00
|
|
L633E: .byte $00
|
|
|
|
hide_cursor_flag:
|
|
.byte 0
|
|
|
|
L6340: .byte $00
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $1D IMPL
|
|
|
|
;;; 12 bytes of params, copied to $82
|
|
|
|
INIT_SCREEN_AND_MOUSE_IMPL:
|
|
php
|
|
pla
|
|
sta L6340
|
|
ldx #$04
|
|
L6348: lda $82,x
|
|
sta L6335,x
|
|
dex
|
|
bpl L6348
|
|
lda #$7F
|
|
sta screen_state::tmask
|
|
lda $87
|
|
sta screen_state::font
|
|
lda $88
|
|
sta screen_state::font+1
|
|
lda $89
|
|
sta L6835
|
|
lda $8A
|
|
sta L6836
|
|
lda $8B
|
|
sta L633B
|
|
lda $8C
|
|
sta L633C
|
|
jsr L646F
|
|
jsr L6491
|
|
ldy #$02
|
|
lda ($87),y
|
|
tax
|
|
stx L6822
|
|
dex
|
|
stx L78CB
|
|
inx
|
|
inx
|
|
inx
|
|
stx fill_rect_params2_height
|
|
inx
|
|
stx L78CD
|
|
stx test_box_params_bottom
|
|
stx test_box_params2_top
|
|
stx fill_rect_params4_top
|
|
inx
|
|
stx set_box_params_top
|
|
stx L78CF
|
|
stx L6594
|
|
stx fill_rect_params_top
|
|
dex
|
|
stx menu_item_y_table
|
|
clc
|
|
ldy #$00
|
|
L63AC: txa
|
|
adc menu_item_y_table,y
|
|
iny
|
|
sta menu_item_y_table,y
|
|
cpy #$0E
|
|
bcc L63AC
|
|
lda #$01
|
|
sta L5FFD
|
|
lda #$00
|
|
sta L5FFE
|
|
bit L6336
|
|
bvs L63D1
|
|
lda #$02
|
|
sta L5FFD
|
|
lda #$01
|
|
sta L5FFE
|
|
L63D1: ldx L6338
|
|
jsr find_mouse
|
|
bit L6338
|
|
bpl L63F6
|
|
cpx #$00
|
|
bne L63E5
|
|
lda #$92
|
|
jmp a2d_exit_with_a
|
|
|
|
L63E5: lda L6338
|
|
and #$7F
|
|
beq L63F6
|
|
cpx L6338
|
|
beq L63F6
|
|
lda #$91
|
|
jmp a2d_exit_with_a
|
|
|
|
L63F6: stx L6338
|
|
lda #$80
|
|
sta hide_cursor_flag
|
|
lda L6338
|
|
bne L640D
|
|
bit L6339
|
|
bpl L640D
|
|
lda #$00
|
|
sta L6339
|
|
L640D: ldy #$03
|
|
lda L6338
|
|
sta (params_addr),y
|
|
iny
|
|
lda L6339
|
|
sta (params_addr),y
|
|
bit L6339
|
|
bpl L642A
|
|
bit L6337
|
|
bpl L642A
|
|
MLI_CALL ALLOC_INTERRUPT, alloc_interrupt_params
|
|
L642A: lda $FBB3
|
|
pha
|
|
lda #$06
|
|
sta $FBB3
|
|
ldy #SETMOUSE
|
|
lda #$01
|
|
bit L6339
|
|
bpl L643F
|
|
cli
|
|
ora #$08
|
|
L643F: jsr call_mouse
|
|
pla
|
|
sta $FBB3
|
|
jsr L5E51
|
|
jsr L6067
|
|
jsr CALL_2B_IMPL
|
|
lda #$00
|
|
sta L700C
|
|
L6454: jsr L653F
|
|
jsr L6588
|
|
;; Fills the desktop background on startup (menu left black)
|
|
A2D_CALL A2D_SET_PATTERN, checkerboard_pattern
|
|
A2D_CALL A2D_FILL_RECT, fill_rect_params
|
|
jmp L6556
|
|
|
|
.proc alloc_interrupt_params
|
|
count: .byte 2
|
|
int_num:.byte 0
|
|
code: .addr interrupt_handler
|
|
.endproc
|
|
|
|
.proc dealloc_interrupt_params
|
|
count: .byte 1
|
|
int_num:.byte 0
|
|
.endproc
|
|
|
|
L646F:
|
|
lda #$00
|
|
sta L633A
|
|
lda L6339
|
|
beq L648B
|
|
cmp #$01
|
|
beq L6486
|
|
cmp #$03
|
|
bne L648C
|
|
lda #$80
|
|
sta L633A
|
|
L6486: lda #$80
|
|
sta L6339
|
|
L648B: rts
|
|
|
|
L648C: lda #$93
|
|
jmp a2d_exit_with_a
|
|
|
|
L6491:
|
|
lda L6337
|
|
beq L649F
|
|
cmp #$01
|
|
beq L64A4
|
|
lda #$90
|
|
jmp a2d_exit_with_a
|
|
|
|
L649F: lda #$80
|
|
sta L6337
|
|
L64A4: rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; DISABLE_MOUSE IMPL
|
|
|
|
.proc DISABLE_MOUSE_IMPL
|
|
ldy #SETMOUSE
|
|
lda #MOUSE_MODE_OFF
|
|
jsr call_mouse
|
|
ldy #SERVEMOUSE
|
|
jsr call_mouse
|
|
bit L6339
|
|
bpl :+
|
|
bit L6337
|
|
bpl :+
|
|
lda alloc_interrupt_params::int_num
|
|
sta dealloc_interrupt_params::int_num
|
|
MLI_CALL DEALLOC_INTERRUPT, dealloc_interrupt_params
|
|
: lda L6340
|
|
pha
|
|
plp
|
|
lda #$00
|
|
sta hide_cursor_flag
|
|
rts
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $1F IMPL
|
|
|
|
;;; 3 bytes of params, copied to $82
|
|
|
|
L64D2:
|
|
lda $82
|
|
cmp #$01
|
|
bne L64E5
|
|
lda $84
|
|
bne L64F6
|
|
sta L6522
|
|
lda $83
|
|
sta L6521
|
|
rts
|
|
|
|
L64E5: cmp #$02
|
|
bne L6508
|
|
lda $84
|
|
bne L64FF
|
|
sta L6538
|
|
lda $83
|
|
sta L6537
|
|
rts
|
|
|
|
L64F6: lda #$00
|
|
sta L6521
|
|
sta L6522
|
|
rts
|
|
|
|
L64FF: lda #$00
|
|
sta L6537
|
|
sta L6538
|
|
rts
|
|
|
|
L6508: lda #$94
|
|
jmp a2d_exit_with_a
|
|
|
|
L650D: lda L6522
|
|
beq L651D
|
|
jsr L653F
|
|
jsr L651E
|
|
php
|
|
jsr L6556
|
|
plp
|
|
L651D: rts
|
|
|
|
L651E: jmp (L6521)
|
|
|
|
L6521: .byte 0
|
|
L6522: .byte 0
|
|
L6523: lda L6538
|
|
beq L6533
|
|
jsr L653F
|
|
jsr L6534
|
|
php
|
|
jsr L6556
|
|
plp
|
|
L6533: rts
|
|
|
|
L6534: jmp (L6537)
|
|
|
|
L6537: .byte $00
|
|
L6538: .byte $00
|
|
L6539: .byte $00
|
|
L653A: .byte $00
|
|
L653B: .byte $00
|
|
|
|
L653C: jsr HIDE_CURSOR_IMPL
|
|
L653F: lda params_addr
|
|
sta L6539
|
|
lda params_addr+1
|
|
sta L653A
|
|
lda stack_ptr_stash
|
|
sta L653B
|
|
lsr preserve_zp_flag
|
|
rts
|
|
|
|
L6553: jsr SHOW_CURSOR_IMPL
|
|
L6556: asl preserve_zp_flag
|
|
lda L6539
|
|
sta params_addr
|
|
lda L653A
|
|
sta params_addr+1
|
|
lda active_state
|
|
L6566 := * + 1
|
|
ldx active_state+1
|
|
L6567: sta $82
|
|
stx $83
|
|
lda L653B
|
|
sta stack_ptr_stash
|
|
ldy #sizeof_state-1
|
|
L6573: lda ($82),y
|
|
sta state,y
|
|
dey
|
|
bpl L6573
|
|
jmp prepare_state
|
|
|
|
L657E: lda L6586
|
|
ldx L6587
|
|
bne L6567
|
|
L6586:
|
|
L6587 := * + 1
|
|
L6588 := * + 2
|
|
asl $205F,x
|
|
ror $2065,x
|
|
.byte 0
|
|
rti
|
|
|
|
.byte $06
|
|
.addr L6592
|
|
rts
|
|
|
|
L6592: .byte $00,$00
|
|
L6594: .byte $0D,$00,$00,$20,$80,$00
|
|
|
|
.proc fill_rect_params
|
|
left: .word 0
|
|
top: .word 0
|
|
right: .word 559
|
|
bottom: .word 191
|
|
.endproc
|
|
fill_rect_params_top := fill_rect_params::top
|
|
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
|
|
checkerboard_pattern:
|
|
.byte %01010101
|
|
.byte %10101010
|
|
.byte %01010101
|
|
.byte %10101010
|
|
.byte %01010101
|
|
.byte %10101010
|
|
.byte %01010101
|
|
.byte %10101010
|
|
.byte $00
|
|
|
|
;;; ==================================================
|
|
|
|
;;; HOOK_MOUSE IMPL
|
|
|
|
;;; 2 bytes of params, copied to $82
|
|
|
|
.proc HOOK_MOUSE_IMPL
|
|
params := $82
|
|
|
|
bit hide_cursor_flag
|
|
bmi fail
|
|
|
|
lda params
|
|
sta mouse_hook
|
|
lda params+1
|
|
sta mouse_hook+1
|
|
|
|
lda mouse_state_addr
|
|
ldx mouse_state_addr+1
|
|
ldy #2
|
|
jmp store_xa_at_params_y
|
|
|
|
fail: lda #$95
|
|
jmp a2d_exit_with_a
|
|
|
|
mouse_state_addr:
|
|
.addr mouse_state
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $2C Impl
|
|
|
|
L65D4:
|
|
clc
|
|
bcc L65D8
|
|
|
|
;;; ==================================================
|
|
|
|
GET_INPUT_IMPL:
|
|
sec
|
|
L65D8: php
|
|
bit L6339
|
|
bpl L65E1
|
|
sei
|
|
bmi L65E4
|
|
L65E1: jsr L6663
|
|
L65E4: jsr L67FE
|
|
L65E7: bcs L6604
|
|
plp
|
|
php
|
|
bcc L65F0
|
|
sta L6752
|
|
L65F0: tax
|
|
ldy #0 ; Store 5 bytes at params
|
|
L65F3: lda L6754,x
|
|
sta (params_addr),y
|
|
inx
|
|
iny
|
|
cpy #4
|
|
bne L65F3
|
|
lda #$00
|
|
sta (params_addr),y
|
|
beq L6607
|
|
L6604: jsr L6645
|
|
L6607: plp
|
|
bit L6339
|
|
bpl L660E
|
|
cli
|
|
L660E: rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 5 bytes of params, copied to $82
|
|
|
|
SET_INPUT_IMPL:
|
|
php
|
|
sei
|
|
lda $82
|
|
bmi L6626
|
|
cmp #$06
|
|
bcs L663B
|
|
cmp #$03
|
|
beq L6626
|
|
ldx $83
|
|
ldy $84
|
|
lda $85
|
|
jsr L7E19
|
|
L6626: jsr L67E4
|
|
bcs L663F
|
|
tax
|
|
ldy #$00
|
|
L662E: lda (params_addr),y
|
|
sta L6754,x
|
|
inx
|
|
iny
|
|
cpy #$04
|
|
bne L662E
|
|
plp
|
|
rts
|
|
|
|
L663B: lda #$98
|
|
bmi L6641
|
|
L663F: lda #$99
|
|
L6641: plp
|
|
jmp a2d_exit_with_a
|
|
|
|
L6645: lda #0
|
|
bit mouse_status
|
|
bpl L664E
|
|
lda #4
|
|
L664E: ldy #0
|
|
sta (params_addr),y ; Store 5 bytes at params
|
|
iny
|
|
L6653: lda cursor_count,y
|
|
sta (params_addr),y
|
|
iny
|
|
cpy #$05
|
|
bne L6653
|
|
rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $29 IMPL
|
|
|
|
|
|
.proc input
|
|
state: .byte 0
|
|
|
|
key := *
|
|
kmods := * + 1
|
|
|
|
xpos := *
|
|
ypos := * + 2
|
|
modifiers := * + 3
|
|
|
|
.res 4, 0
|
|
.endproc
|
|
|
|
.proc L6663
|
|
bit L6339
|
|
bpl L666D
|
|
lda #$97
|
|
jmp a2d_exit_with_a
|
|
|
|
L666D:
|
|
sec ; called from interrupt handler
|
|
jsr L650D
|
|
bcc end
|
|
|
|
lda BUTN1 ; Look at buttons (apple keys), compute modifiers
|
|
asl a
|
|
lda BUTN0
|
|
and #$80
|
|
rol a
|
|
rol a
|
|
sta input::modifiers
|
|
|
|
jsr L7F66
|
|
jsr L6265
|
|
lda mouse_status ; bit 7 = is down, bit 6 = was down, still down
|
|
asl a
|
|
eor mouse_status
|
|
bmi L66B9 ; minus = (is down & !was down)
|
|
|
|
bit mouse_status
|
|
bmi end ; minus = is down
|
|
bit check_kbd_flag
|
|
bpl L66B9
|
|
lda L7D74
|
|
bne L66B9
|
|
|
|
lda KBD
|
|
bpl end ; no key
|
|
and #$7F
|
|
sta input::key
|
|
bit KBDSTRB ; clear strobe
|
|
|
|
lda input::modifiers
|
|
sta input::kmods
|
|
lda #A2D_INPUT_KEY
|
|
sta input::state
|
|
bne L66D8
|
|
|
|
L66B9: bcc up
|
|
lda input::modifiers
|
|
beq :+
|
|
lda #A2D_INPUT_DOWN_MOD
|
|
bne set_state
|
|
|
|
: lda #A2D_INPUT_DOWN
|
|
bne set_state
|
|
|
|
up: lda #A2D_INPUT_UP
|
|
|
|
set_state:
|
|
sta input::state
|
|
|
|
ldx #2
|
|
: lda set_pos_params,x
|
|
sta input::key,x
|
|
dex
|
|
bpl :-
|
|
|
|
L66D8: jsr L67E4
|
|
tax
|
|
ldy #$00
|
|
L66DE: lda input,y
|
|
sta L6754,x
|
|
inx
|
|
iny
|
|
cpy #$04
|
|
bne L66DE
|
|
|
|
end: jmp L6523
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
;;; Interrupt Handler
|
|
|
|
int_stash_zp:
|
|
.res 9, 0
|
|
int_stash_rdpage2:
|
|
.byte 0
|
|
int_stash_rd80store:
|
|
.byte 0
|
|
|
|
.proc interrupt_handler
|
|
cld ; required for interrupt handlers
|
|
|
|
body: ; returned by A2D_GET_INT_HANDLER
|
|
|
|
lda RDPAGE2 ; record softswitch state
|
|
sta int_stash_rdpage2
|
|
lda RD80STORE
|
|
sta int_stash_rd80store
|
|
lda LOWSCR
|
|
sta SET80COL
|
|
|
|
ldx #8 ; preserve 9 bytes of ZP
|
|
sloop: lda $82,x
|
|
sta int_stash_zp,x
|
|
dex
|
|
bpl sloop
|
|
|
|
ldy #SERVEMOUSE
|
|
jsr call_mouse
|
|
bcs :+
|
|
jsr L6663::L666D
|
|
clc
|
|
: bit L633A
|
|
bpl :+
|
|
clc ; carry clear if interrupt handled
|
|
|
|
: ldx #8 ; restore ZP
|
|
rloop: lda int_stash_zp,x
|
|
sta $82,x
|
|
dex
|
|
bpl rloop
|
|
|
|
lda LOWSCR ; restore soft switches
|
|
sta CLR80COL
|
|
lda int_stash_rdpage2
|
|
bpl :+
|
|
lda HISCR
|
|
: lda int_stash_rd80store
|
|
bpl :+
|
|
sta SET80COL
|
|
|
|
: rts
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
;;; GET_INT_HANDLER IMPL
|
|
|
|
.proc GET_INT_HANDLER_IMPL
|
|
lda L6750
|
|
ldx L6750+1
|
|
jmp store_xa_at_params
|
|
|
|
L6750: .addr interrupt_handler::body
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $2B IMPL
|
|
|
|
;;; This is called during init by the DAs, just before
|
|
;;; entering the input loop.
|
|
|
|
L6752: .byte 0
|
|
L6753: .byte 0
|
|
|
|
L6754: .byte $00
|
|
L6755: .res 128, 0
|
|
.byte $00,$00,$00
|
|
|
|
.proc CALL_2B_IMPL
|
|
php
|
|
sei
|
|
lda #0
|
|
sta L6752
|
|
sta L6753
|
|
plp
|
|
rts
|
|
.endproc
|
|
;; called during SET_INPUT and a few other places
|
|
.proc L67E4
|
|
lda L6753
|
|
cmp #$80 ; if L675E is not $80, add $4
|
|
bne :+
|
|
lda #$00 ; otherwise reset to 0
|
|
bcs compare
|
|
: clc
|
|
adc #$04
|
|
|
|
compare:
|
|
cmp L6752 ; did L6753 catch up with L6752?
|
|
beq rts_with_carry_set
|
|
sta L6753 ; nope, maybe next time
|
|
clc
|
|
rts
|
|
.endproc
|
|
|
|
rts_with_carry_set:
|
|
sec
|
|
rts
|
|
|
|
;; called during GET_INPUT
|
|
L67FE: lda L6752 ; equal?
|
|
cmp L6753
|
|
beq rts_with_carry_set
|
|
cmp #$80
|
|
bne L680E
|
|
lda #0
|
|
bcs L6811
|
|
L680E: clc
|
|
adc #$04
|
|
L6811: clc
|
|
rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $2E IMPL
|
|
|
|
;;; 1 byte of params, copied to $82
|
|
|
|
check_kbd_flag: .byte $80
|
|
|
|
.proc SET_KBD_FLAG_IMPL
|
|
params := $82
|
|
|
|
asl check_kbd_flag
|
|
ror params
|
|
ror check_kbd_flag
|
|
rts
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
|
|
L681D: .byte $02
|
|
L681E: .byte $09
|
|
L681F: .byte $10
|
|
L6820: .byte $09
|
|
L6821: .byte $1E
|
|
L6822: .byte $00
|
|
|
|
active_menu:
|
|
.addr 0
|
|
|
|
|
|
.proc test_box_params
|
|
left: .word $ffff
|
|
top: .word $ffff
|
|
right: .word $230
|
|
bottom: .word $C
|
|
.endproc
|
|
test_box_params_top := test_box_params::top
|
|
test_box_params_bottom := test_box_params::bottom
|
|
|
|
.proc fill_rect_params2
|
|
left: .word 0
|
|
top: .word 0
|
|
width: .word 0
|
|
height: .word 11
|
|
.endproc
|
|
fill_rect_params2_height := fill_rect_params2::height
|
|
|
|
L6835: .byte $00
|
|
L6836: .byte $00
|
|
|
|
.proc test_box_params2
|
|
left: .word 0
|
|
top: .word 12
|
|
right: .word 0
|
|
bottom: .word 0
|
|
.endproc
|
|
test_box_params2_top := test_box_params2::top
|
|
|
|
.proc fill_rect_params4
|
|
left: .word 0
|
|
top: .word 12
|
|
right: .word 0
|
|
bottom: .word 0
|
|
.endproc
|
|
fill_rect_params4_top := fill_rect_params4::top
|
|
|
|
menu_item_y_table:
|
|
.repeat 15, i
|
|
.byte 12 + 12 * i
|
|
.endrepeat
|
|
|
|
L6856: .byte $1E
|
|
L6857: .byte $1F
|
|
L6858: .byte $1D
|
|
L6859: .byte $01,$02
|
|
L685B: .byte $1E
|
|
L685C: .byte $FF,$01
|
|
L685E: .byte $1D
|
|
L685F: .byte $25
|
|
L6860: .byte $68
|
|
L6861: .byte $37
|
|
L6862: .byte $68
|
|
L6863: .byte $5D
|
|
L6864: .byte $68
|
|
L6865: .byte $5A
|
|
L6866: .byte $68
|
|
|
|
get_menu_count:
|
|
lda active_menu
|
|
sta $82
|
|
lda active_menu+1
|
|
sta $83
|
|
ldy #0
|
|
lda ($82),y
|
|
sta $A8
|
|
rts
|
|
|
|
L6878: stx $A7
|
|
lda #$02
|
|
clc
|
|
L687D: dex
|
|
bmi L6884
|
|
adc #$0C
|
|
bne L687D
|
|
L6884: adc active_menu
|
|
sta $AB
|
|
lda active_menu+1
|
|
adc #$00
|
|
sta $AC
|
|
ldy #$0B
|
|
L6892: lda ($AB),y
|
|
sta $AF,y
|
|
dey
|
|
bpl L6892
|
|
ldy #$05
|
|
L689C: lda ($B3),y
|
|
sta $BA,y
|
|
dey
|
|
bne L689C
|
|
lda ($B3),y
|
|
sta $AA
|
|
rts
|
|
|
|
L68A9: ldy #$0B
|
|
L68AB: lda $AF,y
|
|
sta ($AB),y
|
|
dey
|
|
bpl L68AB
|
|
ldy #$05
|
|
L68B5: lda $BA,y
|
|
sta ($B3),y
|
|
dey
|
|
bne L68B5
|
|
rts
|
|
|
|
L68BE: stx $A9
|
|
lda #$06
|
|
clc
|
|
L68C3: dex
|
|
bmi L68CA
|
|
adc #$06
|
|
bne L68C3
|
|
L68CA: adc $B3
|
|
sta $AD
|
|
lda $B4
|
|
adc #$00
|
|
sta $AE
|
|
ldy #$05
|
|
L68D6: lda ($AD),y
|
|
sta $BF,y
|
|
dey
|
|
bpl L68D6
|
|
rts
|
|
|
|
L68DF: ldy #$05
|
|
L68E1: lda $BF,y
|
|
sta ($AD),y
|
|
dey
|
|
bpl L68E1
|
|
rts
|
|
|
|
L68EA: sty state_ypos
|
|
ldy #0
|
|
sty state_ypos+1
|
|
L68F0: sta state_xpos
|
|
stx state_xpos+1
|
|
rts
|
|
|
|
;; Set fill mode to A
|
|
set_fill_mode:
|
|
sta state_fill
|
|
jmp SET_FILL_MODE_IMPL
|
|
|
|
do_measure_text:
|
|
jsr prepare_text_params
|
|
jmp measure_text
|
|
|
|
draw_text:
|
|
jsr prepare_text_params
|
|
jmp DRAW_TEXT_IMPL
|
|
|
|
;; Prepare $A1,$A2 as params for MEASURE_TEXT/DRAW_TEXT call
|
|
;; ($A3 is length)
|
|
prepare_text_params:
|
|
sta $82
|
|
stx $83
|
|
clc
|
|
adc #1
|
|
bcc L6910
|
|
inx
|
|
L6910: sta $A1
|
|
stx $A2
|
|
ldy #0
|
|
lda ($82),y
|
|
sta $A3
|
|
rts
|
|
|
|
L691B: A2D_CALL A2D_GET_INPUT, $82
|
|
lda $82
|
|
rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; SET_MENU IMPL
|
|
|
|
L6924: .byte 0
|
|
L6925: .byte 0
|
|
|
|
SET_MENU_IMPL:
|
|
lda #$00
|
|
sta L633D
|
|
sta L633E
|
|
lda params_addr
|
|
sta active_menu
|
|
lda params_addr+1
|
|
sta active_menu+1
|
|
|
|
jsr get_menu_count ; into $A8
|
|
jsr L653C
|
|
jsr L657E
|
|
lda L685F
|
|
ldx L6860
|
|
jsr fill_and_frame_rect
|
|
|
|
lda #$0C
|
|
ldx #$00
|
|
ldy L6822
|
|
iny
|
|
jsr L68EA
|
|
ldx #$00
|
|
L6957: jsr L6878
|
|
lda state_xpos
|
|
ldx state_xpos+1
|
|
sta $B5
|
|
stx $B6
|
|
sec
|
|
sbc #$08
|
|
bcs L6968
|
|
dex
|
|
L6968: sta $B7
|
|
stx $B8
|
|
sta $BB
|
|
stx $BC
|
|
ldx #$00
|
|
stx $C5
|
|
stx $C6
|
|
L6976: jsr L68BE
|
|
bit $BF
|
|
bvs L69B4
|
|
lda $C3
|
|
ldx $C3+1
|
|
jsr do_measure_text
|
|
sta $82
|
|
stx $83
|
|
lda $BF
|
|
and #$03
|
|
bne L6997
|
|
lda $C1
|
|
bne L6997
|
|
lda L6820
|
|
bne L699A
|
|
L6997: lda L6821
|
|
L699A: clc
|
|
adc $82
|
|
sta $82
|
|
bcc L69A3
|
|
inc $83
|
|
L69A3: sec
|
|
sbc $C5
|
|
lda $83
|
|
sbc $C6
|
|
bmi L69B4
|
|
lda $82
|
|
sta $C5
|
|
lda $83
|
|
sta $C6
|
|
L69B4: ldx $A9
|
|
inx
|
|
cpx $AA
|
|
bne L6976
|
|
lda $AA
|
|
tax
|
|
ldy L6822
|
|
iny
|
|
iny
|
|
iny
|
|
jsr L4F70
|
|
pha
|
|
lda $C5
|
|
sta $A1
|
|
lda $C6
|
|
sta $A2
|
|
lda #$07
|
|
sta $A3
|
|
lda #$00
|
|
sta $A4
|
|
jsr L5698
|
|
ldy $A1
|
|
iny
|
|
iny
|
|
pla
|
|
tax
|
|
jsr L4F70
|
|
sta L6924
|
|
sty L6925
|
|
sec
|
|
sbc L633D
|
|
tya
|
|
sbc L633E
|
|
bmi L6A00
|
|
lda L6924
|
|
sta L633D
|
|
lda L6925
|
|
sta L633E
|
|
L6A00: lda $BB
|
|
clc
|
|
adc $C5
|
|
sta $BD
|
|
lda $BC
|
|
adc #$00
|
|
sta $BE
|
|
jsr L68A9
|
|
lda $B1
|
|
ldx $B1+1
|
|
jsr draw_text
|
|
jsr L6A5C
|
|
lda state_xpos
|
|
ldx state_xpos+1
|
|
clc
|
|
adc #$08
|
|
bcc L6A24
|
|
inx
|
|
L6A24: sta $B9
|
|
stx $BA
|
|
jsr L68A9
|
|
lda #<12
|
|
ldx #>12
|
|
jsr adjust_xpos
|
|
ldx $A7
|
|
inx
|
|
cpx $A8
|
|
beq L6A3C
|
|
jmp L6957
|
|
|
|
L6A3C: lda #$00
|
|
sta L7D7A
|
|
sta L7D7B
|
|
jsr L6553
|
|
sec
|
|
lda L633B
|
|
sbc L633D
|
|
lda L633C
|
|
sbc L633E
|
|
bpl L6A5B
|
|
lda #$9C
|
|
jmp a2d_exit_with_a
|
|
|
|
L6A5B: rts
|
|
|
|
L6A5C: ldx $A7
|
|
jsr L6878
|
|
ldx $A9
|
|
jmp L68BE
|
|
|
|
;; Fills rect (params at X,A) then inverts border
|
|
.proc fill_and_frame_rect
|
|
sta fill_params
|
|
stx fill_params+1
|
|
sta draw_params
|
|
stx draw_params+1
|
|
lda #0
|
|
jsr set_fill_mode
|
|
A2D_CALL A2D_FILL_RECT, 0, fill_params
|
|
lda #4
|
|
jsr set_fill_mode
|
|
A2D_CALL A2D_DRAW_RECT, 0, draw_params
|
|
rts
|
|
.endproc
|
|
|
|
L6A89: jsr L6A94
|
|
bne L6A93
|
|
lda #$9A
|
|
jmp a2d_exit_with_a
|
|
|
|
L6A93: rts
|
|
|
|
L6A94: lda #$00
|
|
L6A96: sta $C6
|
|
jsr get_menu_count
|
|
ldx #$00
|
|
L6A9D: jsr L6878
|
|
bit $C6
|
|
bvs L6ACA
|
|
bmi L6AAE
|
|
lda $AF
|
|
cmp $C7
|
|
bne L6ACF
|
|
beq L6AD9
|
|
L6AAE: lda set_pos_params::xcoord
|
|
ldx set_pos_params::xcoord+1
|
|
cpx $B8
|
|
bcc L6ACF
|
|
bne L6ABE
|
|
cmp $B7
|
|
bcc L6ACF
|
|
L6ABE: cpx $BA
|
|
bcc L6AD9
|
|
bne L6ACF
|
|
cmp $B9
|
|
bcc L6AD9
|
|
bcs L6ACF
|
|
L6ACA: jsr L6ADC
|
|
bne L6AD9
|
|
L6ACF: ldx $A7
|
|
inx
|
|
cpx $A8
|
|
bne L6A9D
|
|
lda #$00
|
|
rts
|
|
|
|
L6AD9: lda $AF
|
|
rts
|
|
|
|
L6ADC: ldx #$00
|
|
L6ADE: jsr L68BE
|
|
ldx $A9
|
|
inx
|
|
bit $C6
|
|
bvs L6AFA
|
|
bmi L6AF0
|
|
cpx $C8
|
|
bne L6B16
|
|
beq L6B1C
|
|
L6AF0: lda menu_item_y_table,x
|
|
cmp set_pos_params::ycoord
|
|
bcs L6B1C
|
|
bcc L6B16
|
|
L6AFA: lda $C9
|
|
and #$7F
|
|
cmp $C1
|
|
beq L6B06
|
|
cmp $C2
|
|
bne L6B16
|
|
L6B06: cmp #$20
|
|
bcc L6B1C
|
|
lda $BF
|
|
and #$C0
|
|
bne L6B16
|
|
lda $BF
|
|
and $CA
|
|
bne L6B1C
|
|
L6B16: .byte $E4
|
|
L6B17: tax
|
|
bne L6ADE
|
|
ldx #$00
|
|
L6B1C: rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $33 IMPL
|
|
|
|
;;; 2 bytes of params, copied to $C7
|
|
|
|
L6B1D: lda $C7
|
|
bne L6B26
|
|
lda L6BD9
|
|
sta $C7
|
|
L6B26: jsr L6A89
|
|
L6B29: jsr L653C
|
|
jsr L657E
|
|
jsr L6B35
|
|
jmp L6553
|
|
|
|
;; Highlight/Unhighlight top level menu item
|
|
.proc L6B35
|
|
ldx #$01
|
|
loop: lda $B7,x
|
|
sta fill_rect_params2::left,x
|
|
lda $B9,x
|
|
sta fill_rect_params2::width,x
|
|
lda $BB,x
|
|
sta test_box_params2::left,x
|
|
sta fill_rect_params4::left,x
|
|
lda $BD,x
|
|
sta test_box_params2::right,x
|
|
sta fill_rect_params4::right,x
|
|
dex
|
|
bpl loop
|
|
lda #$02
|
|
jsr set_fill_mode
|
|
A2D_CALL A2D_FILL_RECT, fill_rect_params2
|
|
rts
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $32 IMPL
|
|
|
|
;;; 4 bytes of params, copied to $C7
|
|
|
|
L6B60:
|
|
lda $C9
|
|
cmp #$1B ; Menu height?
|
|
bne L6B70
|
|
lda $CA
|
|
bne L6B70
|
|
jsr L7D61
|
|
jmp MENU_CLICK_IMPL
|
|
|
|
L6B70: lda #$C0
|
|
jsr L6A96
|
|
beq L6B88
|
|
lda $B0
|
|
bmi L6B88
|
|
lda $BF
|
|
and #$C0
|
|
bne L6B88
|
|
lda $AF
|
|
sta L6BD9
|
|
bne L6B8B
|
|
L6B88: lda #$00
|
|
tax
|
|
L6B8B: ldy #$00
|
|
sta (params_addr),y
|
|
iny
|
|
txa
|
|
sta (params_addr),y
|
|
bne L6B29
|
|
rts
|
|
|
|
L6B96: jsr L6A89
|
|
jsr L6ADC
|
|
cpx #$00
|
|
L6B9E: rts
|
|
|
|
L6B9F: jsr L6B96
|
|
bne L6B9E
|
|
lda #$9B
|
|
jmp a2d_exit_with_a
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $35 IMPL
|
|
|
|
;;; 3 bytes of params, copied to $C7
|
|
|
|
L6BA9:
|
|
jsr L6B9F
|
|
asl $BF
|
|
ror $C9
|
|
ror $BF
|
|
jmp L68DF
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $36 IMPL
|
|
|
|
;;; 3 bytes of params, copied to $C7
|
|
|
|
L6BB5:
|
|
jsr L6B9F
|
|
lda $C9
|
|
beq L6BC2
|
|
lda #$20
|
|
ora $BF
|
|
bne L6BC6
|
|
L6BC2: lda #$DF
|
|
and $BF
|
|
L6BC6: sta $BF
|
|
jmp L68DF
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $34 IMPL
|
|
|
|
;;; 2 bytes of params, copied to $C7
|
|
|
|
L6BCB:
|
|
jsr L6A89
|
|
asl $B0
|
|
ror $C8
|
|
ror $B0
|
|
ldx $A7
|
|
jmp L68A9
|
|
|
|
;;; ==================================================
|
|
|
|
;;; MENU_CLICK IMPL
|
|
|
|
L6BD9: .byte 0
|
|
L6BDA: .byte 0
|
|
|
|
MENU_CLICK_IMPL:
|
|
jsr L7ECD
|
|
jsr get_menu_count
|
|
jsr L653F
|
|
jsr L657E
|
|
bit L7D74
|
|
bpl L6BF2
|
|
jsr L7FE1
|
|
jmp L6C23
|
|
|
|
L6BF2: lda #0
|
|
sta L6BD9
|
|
sta L6BDA
|
|
jsr L691B
|
|
L6BFD: bit L7D81
|
|
bpl L6C05
|
|
jmp L8149
|
|
|
|
L6C05: A2D_CALL A2D_SET_POS, $83
|
|
A2D_CALL A2D_TEST_BOX, test_box_params
|
|
bne L6C58
|
|
lda L6BD9
|
|
beq L6C23
|
|
A2D_CALL A2D_TEST_BOX, test_box_params2
|
|
bne L6C73
|
|
jsr L6EA1
|
|
L6C23: jsr L691B
|
|
beq L6C2C
|
|
cmp #$02
|
|
bne L6BFD
|
|
L6C2C: lda L6BDA
|
|
bne L6C37
|
|
jsr L6D23
|
|
jmp L6C40
|
|
|
|
L6C37: jsr HIDE_CURSOR_IMPL
|
|
jsr L657E
|
|
jsr L6CF4
|
|
L6C40: jsr L6556
|
|
lda #$00
|
|
ldx L6BDA
|
|
beq L6C55
|
|
lda L6BD9
|
|
ldy $A7
|
|
sty L7D7A
|
|
stx L7D7B
|
|
L6C55: jmp store_xa_at_params
|
|
|
|
L6C58: jsr L6EA1
|
|
lda #$80
|
|
jsr L6A96
|
|
cmp L6BD9
|
|
beq L6C23
|
|
pha
|
|
jsr L6D23
|
|
pla
|
|
sta L6BD9
|
|
jsr L6D26
|
|
jmp L6C23
|
|
|
|
L6C73: lda #$80
|
|
sta $C6
|
|
jsr L6ADC
|
|
cpx L6BDA
|
|
beq L6C23
|
|
lda $B0
|
|
ora $BF
|
|
and #$C0
|
|
beq L6C89
|
|
ldx #$00
|
|
L6C89: txa
|
|
pha
|
|
jsr L6EAA
|
|
pla
|
|
sta L6BDA
|
|
jsr L6EAA
|
|
jmp L6C23
|
|
|
|
L6C98: lda $BC
|
|
lsr a
|
|
lda $BB
|
|
ror a
|
|
tax
|
|
lda L4821,x
|
|
sta $82
|
|
lda $BE
|
|
lsr a
|
|
lda $BD
|
|
ror a
|
|
tax
|
|
lda L4821,x
|
|
sec
|
|
sbc $82
|
|
sta $90
|
|
lda L6835
|
|
sta $8E
|
|
lda L6836
|
|
sta $8F
|
|
ldy $AA
|
|
ldx menu_item_y_table,y ; ???
|
|
inx
|
|
stx $83
|
|
stx fill_rect_params4::bottom
|
|
stx test_box_params2::bottom
|
|
ldx L6822
|
|
inx
|
|
inx
|
|
inx
|
|
stx fill_rect_params4::top
|
|
stx test_box_params2::top
|
|
rts
|
|
|
|
L6CD8: lda hires_table_lo,x
|
|
clc
|
|
adc $82
|
|
sta $84
|
|
lda hires_table_hi,x
|
|
ora #$20
|
|
sta $85
|
|
rts
|
|
|
|
L6CE8: lda $8E
|
|
sec
|
|
adc $90
|
|
sta $8E
|
|
bcc L6CF3
|
|
inc $8F
|
|
L6CF3: rts
|
|
|
|
L6CF4: jsr L6C98
|
|
L6CF7: jsr L6CD8
|
|
sta HISCR
|
|
ldy $90
|
|
L6CFF: lda ($8E),y
|
|
sta ($84),y
|
|
dey
|
|
bpl L6CFF
|
|
jsr L6CE8
|
|
sta LOWSCR
|
|
ldy $90
|
|
L6D0E: lda ($8E),y
|
|
sta ($84),y
|
|
dey
|
|
bpl L6D0E
|
|
jsr L6CE8
|
|
inx
|
|
cpx $83
|
|
bcc L6CF7
|
|
beq L6CF7
|
|
jmp SHOW_CURSOR_IMPL
|
|
|
|
L6D22: rts
|
|
|
|
L6D23: clc
|
|
bcc L6D27
|
|
L6D26: sec
|
|
L6D27: lda L6BD9
|
|
beq L6D22
|
|
php
|
|
sta $C7
|
|
jsr L6A94
|
|
jsr HIDE_CURSOR_IMPL
|
|
jsr L6B35
|
|
plp
|
|
bcc L6CF4
|
|
jsr L6C98
|
|
L6D3E: jsr L6CD8
|
|
sta HISCR
|
|
ldy $90
|
|
L6D46: lda ($84),y
|
|
sta ($8E),y
|
|
dey
|
|
bpl L6D46
|
|
jsr L6CE8
|
|
sta LOWSCR
|
|
ldy $90
|
|
L6D55: lda ($84),y
|
|
sta ($8E),y
|
|
dey
|
|
bpl L6D55
|
|
jsr L6CE8
|
|
inx
|
|
cpx $83
|
|
bcc L6D3E
|
|
beq L6D3E
|
|
jsr L657E
|
|
lda L6861
|
|
ldx L6862
|
|
jsr fill_and_frame_rect
|
|
inc fill_rect_params4::left
|
|
bne L6D7A
|
|
inc fill_rect_params4::left+1
|
|
L6D7A: lda fill_rect_params4::right
|
|
bne L6D82
|
|
dec fill_rect_params4::right+1
|
|
L6D82: dec fill_rect_params4::right
|
|
jsr L6A5C
|
|
ldx #$00
|
|
L6D8A: jsr L68BE
|
|
bit $BF
|
|
bvc L6D94
|
|
jmp L6E18
|
|
|
|
L6D94: lda $BF
|
|
and #$20
|
|
beq L6DBD
|
|
lda L681D
|
|
jsr L6E25
|
|
lda L6858
|
|
sta L685E
|
|
lda $BF
|
|
and #$04
|
|
beq L6DB1
|
|
lda $C0
|
|
sta L685E
|
|
L6DB1: lda L6863
|
|
ldx L6863+1
|
|
jsr draw_text
|
|
jsr L6A5C
|
|
L6DBD: lda L681E
|
|
jsr L6E25
|
|
lda $C3
|
|
ldx $C3+1
|
|
jsr draw_text
|
|
jsr L6A5C
|
|
lda $BF
|
|
and #$03
|
|
bne L6DE0
|
|
lda $C1
|
|
beq L6E0A
|
|
lda L6859
|
|
sta L685B
|
|
jmp L6E0A
|
|
|
|
L6DE0: cmp #$01
|
|
bne L6DED
|
|
lda L6857
|
|
sta L685B
|
|
jmp L6DF3
|
|
|
|
L6DED: lda L6856
|
|
sta L685B
|
|
L6DF3: lda $C1
|
|
sta L685C
|
|
lda L681F
|
|
jsr L6E92
|
|
lda L6865
|
|
ldx L6865+1
|
|
jsr draw_text
|
|
jsr L6A5C
|
|
L6E0A: bit $B0
|
|
bmi L6E12
|
|
bit $BF
|
|
bpl L6E18
|
|
L6E12: jsr L6E36
|
|
jmp L6E18
|
|
|
|
L6E18: ldx $A9
|
|
inx
|
|
cpx $AA
|
|
beq L6E22
|
|
jmp L6D8A
|
|
|
|
L6E22: jmp SHOW_CURSOR_IMPL
|
|
|
|
L6E25: ldx $A9
|
|
ldy menu_item_y_table+1,x ; ???
|
|
dey
|
|
ldx $BC
|
|
clc
|
|
adc $BB
|
|
bcc L6E33
|
|
inx
|
|
L6E33: jmp L68EA
|
|
|
|
L6E36: ldx $A9
|
|
lda menu_item_y_table,x
|
|
sta fill_rect_params3_top
|
|
inc fill_rect_params3_top
|
|
lda menu_item_y_table+1,x
|
|
sta fill_rect_params3_bottom
|
|
clc
|
|
lda $BB
|
|
adc #$05
|
|
sta fill_rect_params3_left
|
|
lda $BC
|
|
adc #$00
|
|
sta fill_rect_params3_left+1
|
|
sec
|
|
lda $BD
|
|
sbc #$05
|
|
sta fill_rect_params3_right
|
|
lda $BE
|
|
sbc #$00
|
|
sta fill_rect_params3_right+1
|
|
A2D_CALL A2D_SET_PATTERN, light_speckle_pattern
|
|
lda #$01
|
|
jsr set_fill_mode
|
|
A2D_CALL A2D_FILL_RECT, fill_rect_params3
|
|
A2D_CALL A2D_SET_PATTERN, screen_state::pattern
|
|
lda #$02
|
|
jsr set_fill_mode
|
|
rts
|
|
|
|
light_speckle_pattern:
|
|
.byte %10001000
|
|
.byte %01010101
|
|
.byte %10001000
|
|
.byte %01010101
|
|
.byte %10001000
|
|
.byte %01010101
|
|
.byte %10001000
|
|
.byte %01010101
|
|
|
|
.proc fill_rect_params3
|
|
left: .word 0
|
|
top: .word 0
|
|
right: .word 0
|
|
bottom: .word 0
|
|
.endproc
|
|
fill_rect_params3_left := fill_rect_params3::left
|
|
fill_rect_params3_top := fill_rect_params3::top
|
|
fill_rect_params3_right := fill_rect_params3::right
|
|
fill_rect_params3_bottom := fill_rect_params3::bottom
|
|
|
|
L6E92: sta $82
|
|
lda $BD
|
|
ldx $BE
|
|
sec
|
|
sbc $82
|
|
bcs L6E9E
|
|
dex
|
|
L6E9E: jmp L68F0
|
|
|
|
L6EA1: jsr L6EAA
|
|
lda #$00
|
|
sta L6BDA
|
|
L6EA9: rts
|
|
|
|
L6EAA: ldx L6BDA
|
|
beq L6EA9
|
|
ldy fill_rect_params4::bottom+1,x ; ???
|
|
iny
|
|
sty fill_rect_params4::top
|
|
ldy menu_item_y_table,x
|
|
sty fill_rect_params4::bottom
|
|
jsr HIDE_CURSOR_IMPL
|
|
lda #$02
|
|
jsr set_fill_mode
|
|
A2D_CALL A2D_FILL_RECT, fill_rect_params4
|
|
jmp SHOW_CURSOR_IMPL
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $2F IMPL
|
|
|
|
;;; 4 bytes of params, copied to $82
|
|
|
|
.proc L6ECD
|
|
params := $82
|
|
|
|
ldx #3
|
|
loop: lda params,x
|
|
sta L6856,x
|
|
dex
|
|
bpl loop
|
|
|
|
lda screen_state::font
|
|
sta params
|
|
lda screen_state::font+1
|
|
sta params+1
|
|
ldy #0
|
|
lda ($82),y
|
|
bmi :+
|
|
|
|
lda #$02
|
|
sta L681D
|
|
lda #$09
|
|
sta L681E
|
|
lda #$10
|
|
sta L681F
|
|
lda #$09
|
|
sta L6820
|
|
lda #$1E
|
|
sta L6821
|
|
bne end
|
|
|
|
: lda #$02
|
|
sta L681D
|
|
lda #$10
|
|
sta L681E
|
|
lda #$1E
|
|
sta L681F
|
|
lda #$10
|
|
sta L6820
|
|
lda #$33
|
|
sta L6821
|
|
end: rts
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $37 IMPL
|
|
|
|
;;; 4 bytes of params, copied to $C7
|
|
|
|
L6F1C:
|
|
jsr L6B9F
|
|
lda $C9
|
|
beq L6F30
|
|
lda #$04
|
|
ora $BF
|
|
sta $BF
|
|
lda $CA
|
|
sta $C0
|
|
jmp L68DF
|
|
|
|
L6F30: lda #$FB
|
|
and $BF
|
|
sta $BF
|
|
jmp L68DF
|
|
|
|
.proc up_scroll_params
|
|
.byte $00,$00
|
|
incr: .byte $00,$00
|
|
.byte $13,$0A
|
|
.addr up_scroll_bitmap
|
|
.endproc
|
|
|
|
.proc down_scroll_params
|
|
.byte $00,$00
|
|
unk1: .byte $00
|
|
unk2: .byte $00
|
|
.byte $13,$0A
|
|
.addr down_scroll_bitmap
|
|
.endproc
|
|
|
|
.proc left_scroll_params
|
|
.byte $00,$00,$00,$00
|
|
.byte $14,$09
|
|
.addr left_scroll_bitmap
|
|
.endproc
|
|
|
|
.proc right_scroll_params
|
|
.byte $00
|
|
.byte $00,$00,$00
|
|
.byte $12,$09
|
|
.addr right_scroll_bitmap
|
|
.endproc
|
|
|
|
.proc resize_box_params
|
|
.byte $00,$00,$00,$00
|
|
.byte $14,$0A
|
|
.addr resize_box_bitmap
|
|
.endproc
|
|
|
|
;; Up Scroll
|
|
up_scroll_bitmap:
|
|
.byte px(%0000000),px(%0000000),px(%0000000)
|
|
.byte px(%0000000),px(%0001100),px(%0000000)
|
|
.byte px(%0000000),px(%0110011),px(%0000000)
|
|
.byte px(%0000001),px(%1000000),px(%1100000)
|
|
.byte px(%0000110),px(%0000000),px(%0011000)
|
|
.byte px(%0011111),px(%1000000),px(%1111110)
|
|
.byte px(%0000001),px(%1000000),px(%1100000)
|
|
.byte px(%0000001),px(%1000000),px(%1100000)
|
|
.byte px(%0000001),px(%1111111),px(%1100000)
|
|
.byte px(%0000000),px(%0000000),px(%0000000)
|
|
.byte px(%0111111),px(%1111111),px(%1111111)
|
|
|
|
;; Down Scroll
|
|
down_scroll_bitmap:
|
|
.byte px(%0111111),px(%1111111),px(%1111111)
|
|
.byte px(%0000000),px(%0000000),px(%0000000)
|
|
.byte px(%0000001),px(%1111111),px(%1100000)
|
|
.byte px(%0000001),px(%1000000),px(%1100000)
|
|
.byte px(%0000001),px(%1000000),px(%1100000)
|
|
.byte px(%0011111),px(%1000000),px(%1111110)
|
|
.byte px(%0000110),px(%0000000),px(%0011000)
|
|
.byte px(%0000001),px(%1000000),px(%1100000)
|
|
.byte px(%0000000),px(%0110011),px(%0000000)
|
|
.byte px(%0000000),px(%0001100),px(%0000000)
|
|
.byte px(%0000000),px(%0000000),px(%0000000)
|
|
|
|
;; Left Scroll
|
|
left_scroll_bitmap:
|
|
.byte px(%0000000),px(%0000000),px(%0000000)
|
|
.byte px(%0000000),px(%0001100),px(%0000001)
|
|
.byte px(%0000000),px(%0111100),px(%0000001)
|
|
.byte px(%0000001),px(%1001111),px(%1111001)
|
|
.byte px(%0000110),px(%0000000),px(%0011001)
|
|
.byte px(%0011000),px(%0000000),px(%0011001)
|
|
.byte px(%0000110),px(%0000000),px(%0011001)
|
|
.byte px(%0000001),px(%1001111),px(%1111001)
|
|
.byte px(%0000000),px(%0111100),px(%0000001)
|
|
.byte px(%0000000),px(%0001100),px(%0000001)
|
|
|
|
;; Right Scroll
|
|
right_scroll_bitmap:
|
|
.byte px(%0000000),px(%0000000),px(%0000000)
|
|
.byte px(%1000000),px(%0011000),px(%0000000)
|
|
.byte px(%1000000),px(%0011110),px(%0000000)
|
|
.byte px(%1001111),px(%1111001),px(%1000000)
|
|
.byte px(%1001100),px(%0000000),px(%0110000)
|
|
.byte px(%1001100),px(%0000000),px(%0001100)
|
|
.byte px(%1001100),px(%0000000),px(%0110000)
|
|
.byte px(%1001111),px(%1111001),px(%1000000)
|
|
.byte px(%1000000),px(%0011110),px(%0000000)
|
|
.byte px(%1000000),px(%0011000),px(%0000000)
|
|
|
|
L6FDF: .byte 0
|
|
|
|
;; Resize Box
|
|
resize_box_bitmap:
|
|
.byte px(%1111111),px(%1111111),px(%1111111)
|
|
.byte px(%1000000),px(%0000000),px(%0000001)
|
|
.byte px(%1001111),px(%1111110),px(%0000001)
|
|
.byte px(%1001100),px(%0000111),px(%1111001)
|
|
.byte px(%1001100),px(%0000110),px(%0011001)
|
|
.byte px(%1001100),px(%0000110),px(%0011001)
|
|
.byte px(%1001111),px(%1111110),px(%0011001)
|
|
.byte px(%1000011),px(%0000000),px(%0011001)
|
|
.byte px(%1000011),px(%1111111),px(%1111001)
|
|
.byte px(%1000000),px(%0000000),px(%0000001)
|
|
.byte px(%1111111),px(%1111111),px(%1111111)
|
|
|
|
up_scroll_params_addr:
|
|
.addr up_scroll_params
|
|
|
|
down_scroll_params_addr:
|
|
.addr down_scroll_params
|
|
|
|
left_scroll_params_addr:
|
|
.addr left_scroll_params
|
|
|
|
right_scroll_params_addr:
|
|
.addr right_scroll_params
|
|
|
|
resize_box_params_addr:
|
|
.addr resize_box_params
|
|
|
|
L700B: .byte $00
|
|
L700C: .byte $00
|
|
L700D: .byte $00
|
|
L700E: .byte $00
|
|
L700F: .byte $00
|
|
L7010: .byte $00
|
|
|
|
L7011: .addr $6FD3
|
|
|
|
;; Start window enumeration at top ???
|
|
.proc top_window
|
|
lda L7011
|
|
sta $A7
|
|
lda L7011+1
|
|
sta $A7+1
|
|
lda L700B
|
|
ldx L700B+1
|
|
bne next_window_L7038
|
|
end: rts
|
|
.endproc
|
|
|
|
;; Look up next window in chain. $A9/$AA will point at
|
|
;; window params block (also returned in X,A).
|
|
.proc next_window
|
|
lda $A9
|
|
sta $A7
|
|
lda $A9+1
|
|
sta $A7+1
|
|
ldy #next_offset_in_window_params+1
|
|
lda ($A9),y
|
|
beq top_window::end ; if high byte is 0, end of chain
|
|
tax
|
|
dey
|
|
lda ($A9),y
|
|
L7038: sta L700E
|
|
stx L700E+1
|
|
L703E: lda L700E
|
|
ldx L700E+1
|
|
L7044: sta $A9
|
|
stx $A9+1
|
|
ldy #$0B ; copy first 12 bytes of window defintion to
|
|
L704A: lda ($A9),y ; to $AB
|
|
sta $AB,y
|
|
dey
|
|
bpl L704A
|
|
ldy #sizeof_state-1
|
|
L7054: lda ($A9),y
|
|
sta $A3,y
|
|
dey
|
|
cpy #$13
|
|
bne L7054
|
|
L705E: lda $A9
|
|
ldx $A9+1
|
|
rts
|
|
.endproc
|
|
next_window_L7038 := next_window::L7038
|
|
|
|
;; Look up window state by id (in $82); $A9/$AA will point at
|
|
;; window params (also X,A).
|
|
.proc window_by_id
|
|
jsr top_window
|
|
beq end
|
|
loop: lda $AB
|
|
cmp $82
|
|
beq next_window::L705E
|
|
jsr next_window
|
|
bne loop
|
|
end: rts
|
|
.endproc
|
|
|
|
;; Look up window state by id (in $82); $A9/$AA will point at
|
|
;; window params (also X,A).
|
|
;; This will exit the A2D call directly (restoring stack, etc)
|
|
;; if the window is not found.
|
|
.proc window_by_id_or_exit
|
|
jsr window_by_id
|
|
beq nope
|
|
rts
|
|
nope: lda #$9F
|
|
jmp a2d_exit_with_a
|
|
.endproc
|
|
|
|
L707F: A2D_CALL A2D_DRAW_RECT, $C7
|
|
rts
|
|
|
|
L7086: A2D_CALL A2D_TEST_BOX, $C7
|
|
rts
|
|
|
|
L708D: ldx #$03
|
|
L708F: lda $B7,x
|
|
sta $C7,x
|
|
dex
|
|
bpl L708F
|
|
ldx #$02
|
|
L7098: lda $C3,x
|
|
sec
|
|
sbc $BF,x
|
|
tay
|
|
lda $C4,x
|
|
sbc $C0,x
|
|
pha
|
|
tya
|
|
clc
|
|
adc $C7,x
|
|
sta $CB,x
|
|
pla
|
|
adc $C8,x
|
|
sta $CC,x
|
|
dex
|
|
dex
|
|
bpl L7098
|
|
L70B2: lda #$C7
|
|
ldx #$00
|
|
rts
|
|
|
|
L70B7: jsr L708D
|
|
lda $C7
|
|
bne L70C0
|
|
dec $C8
|
|
L70C0: dec $C7
|
|
bit $B0
|
|
bmi L70D0
|
|
lda $AC
|
|
and #$04
|
|
bne L70D0
|
|
lda #$01
|
|
bne L70D2
|
|
L70D0: lda #$15
|
|
L70D2: clc
|
|
adc $CB
|
|
sta $CB
|
|
bcc L70DB
|
|
inc $CC
|
|
L70DB: lda #$01
|
|
bit $AF
|
|
bpl L70E3
|
|
lda #$0B
|
|
L70E3: clc
|
|
adc $CD
|
|
sta $CD
|
|
bcc L70EC
|
|
inc $CE
|
|
L70EC: lda #$01
|
|
and $AC
|
|
bne L70F5
|
|
lda L78CF
|
|
L70F5: sta $82
|
|
lda $C9
|
|
sec
|
|
sbc $82
|
|
sta $C9
|
|
bcs L70B2
|
|
dec $CA
|
|
bcc L70B2
|
|
L7104: jsr L70B7
|
|
lda $CB
|
|
ldx $CC
|
|
sec
|
|
sbc #$14
|
|
bcs L7111
|
|
dex
|
|
L7111: sta $C7
|
|
stx $C8
|
|
lda $AC
|
|
and #$01
|
|
bne L70B2
|
|
lda $C9
|
|
clc
|
|
adc L78CD
|
|
sta $C9
|
|
bcc L70B2
|
|
inc $CA
|
|
bcs L70B2
|
|
L7129: jsr L70B7
|
|
L712C: lda $CD
|
|
ldx $CE
|
|
sec
|
|
sbc #$0A
|
|
bcs L7136
|
|
dex
|
|
L7136: sta $C9
|
|
stx $CA
|
|
jmp L70B2
|
|
|
|
L713D: jsr L7104
|
|
jmp L712C
|
|
|
|
L7143: jsr L70B7
|
|
lda $C9
|
|
clc
|
|
adc L78CD
|
|
sta $CD
|
|
lda $CA
|
|
adc #$00
|
|
sta $CE
|
|
jmp L70B2
|
|
|
|
L7157: jsr L7143
|
|
lda $C7
|
|
ldx $C8
|
|
clc
|
|
adc #$0C
|
|
bcc L7164
|
|
inx
|
|
L7164: sta $C7
|
|
stx $C8
|
|
clc
|
|
adc #$0E
|
|
bcc L716E
|
|
inx
|
|
L716E: sta $CB
|
|
stx $CC
|
|
lda $C9
|
|
ldx $CA
|
|
clc
|
|
adc #$02
|
|
bcc L717C
|
|
inx
|
|
L717C: sta $C9
|
|
stx $CA
|
|
clc
|
|
adc L78CB
|
|
bcc L7187
|
|
inx
|
|
L7187: sta $CD
|
|
stx $CE
|
|
jmp L70B2
|
|
|
|
L718E: jsr L70B7
|
|
jsr fill_and_frame_rect
|
|
lda $AC
|
|
and #$01
|
|
bne L71AA
|
|
jsr L7143
|
|
jsr fill_and_frame_rect
|
|
jsr L73BF
|
|
lda $AD
|
|
ldx $AD+1
|
|
jsr draw_text
|
|
L71AA: jsr next_window::L703E
|
|
bit $B0
|
|
bpl L71B7
|
|
jsr L7104
|
|
jsr L707F
|
|
L71B7: bit $AF
|
|
bpl L71C1
|
|
jsr L7129
|
|
jsr L707F
|
|
L71C1: lda $AC
|
|
and #$04
|
|
beq L71D3
|
|
jsr L713D
|
|
jsr L707F
|
|
jsr L7104
|
|
jsr L707F
|
|
L71D3: jsr next_window::L703E
|
|
lda $AB
|
|
cmp L700D
|
|
bne L71E3
|
|
jsr L6588
|
|
jmp L720B
|
|
|
|
L71E3: rts
|
|
|
|
;; Drawing title bar, maybe?
|
|
L71E4: .byte $01
|
|
stripes_pattern:
|
|
stripes_pattern_alt := *+1
|
|
.byte %11111111
|
|
.byte %00000000
|
|
.byte %11111111
|
|
.byte %00000000
|
|
.byte %11111111
|
|
.byte %00000000
|
|
.byte %11111111
|
|
.byte %00000000
|
|
.byte %11111111
|
|
|
|
L71EE: jsr L7157
|
|
lda $C9
|
|
and #$01
|
|
beq L71FE
|
|
A2D_CALL A2D_SET_PATTERN, stripes_pattern
|
|
rts
|
|
|
|
L71FE: A2D_CALL A2D_SET_PATTERN, stripes_pattern_alt
|
|
rts
|
|
|
|
L7205: lda #$01
|
|
ldx #$00
|
|
beq L720F
|
|
L720B: lda #$03
|
|
ldx #$01
|
|
L720F: stx L71E4
|
|
jsr set_fill_mode
|
|
lda $AC
|
|
and #$02
|
|
beq L7255
|
|
lda $AC
|
|
and #$01
|
|
bne L7255
|
|
jsr L7157
|
|
jsr L707F
|
|
jsr L71EE
|
|
lda $C7
|
|
ldx $C8
|
|
sec
|
|
sbc #$09
|
|
bcs L7234
|
|
dex
|
|
L7234: sta $92
|
|
stx $93
|
|
clc
|
|
adc #$06
|
|
bcc L723E
|
|
inx
|
|
L723E: sta $96
|
|
stx $97
|
|
lda $C9
|
|
sta $94
|
|
lda $CA
|
|
sta $95
|
|
lda $CD
|
|
sta $98
|
|
lda $CE
|
|
sta $99
|
|
jsr FILL_RECT_IMPL ; draws title bar stripes to left of close box
|
|
L7255: lda $AC
|
|
and #$01
|
|
bne L72C9
|
|
jsr L7143
|
|
jsr L73BF
|
|
jsr L5907
|
|
jsr L71EE
|
|
lda $CB
|
|
ldx $CC
|
|
clc
|
|
adc #$03
|
|
bcc L7271
|
|
inx
|
|
L7271: tay
|
|
lda $AC
|
|
and #$02
|
|
bne L7280
|
|
tya
|
|
sec
|
|
sbc #$1A
|
|
bcs L727F
|
|
dex
|
|
L727F: tay
|
|
L7280: tya
|
|
ldy $96
|
|
sty $CB
|
|
ldy $97
|
|
sty $CC
|
|
ldy $92
|
|
sty $96
|
|
ldy $93
|
|
sty $97
|
|
sta $92
|
|
stx $93
|
|
lda $96
|
|
sec
|
|
sbc #$0A
|
|
sta $96
|
|
bcs L72A0
|
|
dec $97
|
|
L72A0: jsr FILL_RECT_IMPL ; Draw title bar stripes between close box and title
|
|
lda $CB
|
|
clc
|
|
adc #$0A
|
|
sta $92
|
|
lda $CC
|
|
adc #$00
|
|
sta $93
|
|
jsr L7143
|
|
lda $CB
|
|
sec
|
|
sbc #$03
|
|
sta $96
|
|
lda $CC
|
|
sbc #$00
|
|
sta $97
|
|
jsr FILL_RECT_IMPL ; Draw title bar stripes to right of title
|
|
A2D_CALL A2D_SET_PATTERN, screen_state::pattern
|
|
L72C9: jsr next_window::L703E
|
|
bit $B0
|
|
bpl L7319
|
|
jsr L7104
|
|
ldx #$03
|
|
L72D5: lda $C7,x
|
|
sta up_scroll_params,x
|
|
sta down_scroll_params,x
|
|
dex
|
|
bpl L72D5
|
|
inc up_scroll_params::incr
|
|
lda $CD
|
|
ldx $CE
|
|
sec
|
|
sbc #$0A
|
|
bcs L72ED
|
|
dex
|
|
L72ED: pha
|
|
lda $AC
|
|
and #$04
|
|
bne L72F8
|
|
bit $AF
|
|
bpl L7300
|
|
L72F8: pla
|
|
sec
|
|
sbc #$0B
|
|
bcs L72FF
|
|
dex
|
|
L72FF: pha
|
|
L7300: pla
|
|
sta down_scroll_params::unk1
|
|
stx down_scroll_params::unk2
|
|
lda down_scroll_params_addr
|
|
ldx down_scroll_params_addr+1
|
|
jsr L791C
|
|
lda up_scroll_params_addr
|
|
ldx up_scroll_params_addr+1
|
|
jsr L791C
|
|
L7319: bit $AF
|
|
bpl L7363
|
|
jsr L7129
|
|
ldx #$03
|
|
L7322: lda $C7,x
|
|
sta left_scroll_params,x
|
|
sta right_scroll_params,x
|
|
dex
|
|
bpl L7322
|
|
lda $CB
|
|
ldx $CC
|
|
sec
|
|
sbc #$14
|
|
bcs L7337
|
|
dex
|
|
L7337: pha
|
|
lda $AC
|
|
and #$04
|
|
bne L7342
|
|
bit $B0
|
|
bpl L734A
|
|
L7342: pla
|
|
sec
|
|
sbc #$15
|
|
bcs L7349
|
|
dex
|
|
L7349: pha
|
|
L734A: pla
|
|
sta right_scroll_params
|
|
stx right_scroll_params+1
|
|
lda right_scroll_params_addr
|
|
ldx right_scroll_params_addr+1
|
|
jsr L791C
|
|
lda left_scroll_params_addr
|
|
ldx left_scroll_params_addr+1
|
|
jsr L791C
|
|
L7363: lda #$00
|
|
jsr set_fill_mode
|
|
lda $B0
|
|
and #$01
|
|
beq L737B
|
|
lda #$80
|
|
sta $8C
|
|
lda L71E4
|
|
jsr L79A0
|
|
jsr next_window::L703E
|
|
L737B: lda $AF
|
|
and #$01
|
|
beq L738E
|
|
lda #$00
|
|
sta $8C
|
|
lda L71E4
|
|
jsr L79A0
|
|
jsr next_window::L703E
|
|
L738E: lda $AC
|
|
and #$04
|
|
beq L73BE
|
|
jsr L713D
|
|
lda L71E4
|
|
bne L73A6
|
|
lda #$C7
|
|
ldx #$00
|
|
jsr fill_and_frame_rect
|
|
jmp L73BE
|
|
|
|
;; Draw resize box
|
|
L73A6: ldx #$03
|
|
L73A8: lda $C7,x
|
|
sta resize_box_params,x
|
|
dex
|
|
bpl L73A8
|
|
lda #$04
|
|
jsr set_fill_mode
|
|
lda resize_box_params_addr
|
|
ldx resize_box_params_addr+1
|
|
jsr L791C
|
|
L73BE: rts
|
|
|
|
L73BF: lda $AD
|
|
ldx $AD+1
|
|
jsr do_measure_text
|
|
sta $82
|
|
stx $83
|
|
lda $C7
|
|
clc
|
|
adc $CB
|
|
tay
|
|
lda $C8
|
|
adc $CC
|
|
tax
|
|
tya
|
|
sec
|
|
sbc $82
|
|
tay
|
|
txa
|
|
sbc $83
|
|
cmp #$80
|
|
ror a
|
|
sta state_xpos+1
|
|
tya
|
|
ror a
|
|
sta state_xpos
|
|
lda $CD
|
|
ldx $CE
|
|
sec
|
|
sbc #$02
|
|
bcs L73F0
|
|
dex
|
|
L73F0: sta state_ypos
|
|
stx state_ypos+1
|
|
lda $82
|
|
ldx $83
|
|
rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 4 bytes of params, copied to state_pos
|
|
|
|
QUERY_TARGET_IMPL:
|
|
jsr L653F
|
|
A2D_CALL A2D_TEST_BOX, test_box_params
|
|
beq L7416
|
|
lda #$01
|
|
L7406: ldx #$00
|
|
L7408: pha
|
|
txa
|
|
pha
|
|
jsr L6556
|
|
pla
|
|
tax
|
|
pla
|
|
ldy #$04
|
|
jmp store_xa_at_params_y
|
|
|
|
L7416: lda #$00
|
|
sta L747A
|
|
jsr top_window
|
|
beq L7430
|
|
L7420: jsr L70B7
|
|
jsr L7086
|
|
bne L7434
|
|
jsr next_window
|
|
stx L747A
|
|
bne L7420
|
|
L7430: lda #$00
|
|
beq L7406
|
|
L7434: lda $AC
|
|
and #$01
|
|
bne L745D
|
|
jsr L7143
|
|
jsr L7086
|
|
beq L745D
|
|
lda L747A
|
|
bne L7459
|
|
lda $AC
|
|
and #$02
|
|
beq L7459
|
|
jsr L7157
|
|
jsr L7086
|
|
beq L7459
|
|
lda #$05
|
|
bne L7472
|
|
L7459: lda #$03
|
|
bne L7472
|
|
L745D: lda L747A
|
|
bne L7476
|
|
lda $AC
|
|
and #$04
|
|
beq L7476
|
|
jsr L713D
|
|
jsr L7086
|
|
beq L7476
|
|
lda #$04
|
|
L7472: ldx $AB
|
|
bne L7408
|
|
L7476: lda #$02
|
|
bne L7472
|
|
|
|
;;; ==================================================
|
|
|
|
L747A: .byte 0
|
|
CREATE_WINDOW_IMPL:
|
|
lda params_addr
|
|
sta $A9
|
|
lda params_addr+1
|
|
sta $AA
|
|
ldy #$00
|
|
lda ($A9),y
|
|
bne L748E
|
|
lda #$9E
|
|
jmp a2d_exit_with_a
|
|
|
|
L748E: sta $82
|
|
jsr window_by_id
|
|
beq L749A
|
|
lda #$9D
|
|
jmp a2d_exit_with_a
|
|
|
|
L749A: lda params_addr
|
|
sta $A9
|
|
lda params_addr+1
|
|
sta $AA
|
|
ldy #$0A
|
|
lda ($A9),y
|
|
ora #$80
|
|
sta ($A9),y
|
|
bmi L74BD
|
|
|
|
;;; ==================================================
|
|
|
|
;;; RAISE_WINDOW IMPL
|
|
|
|
;;; 1 byte of params, copied to $82
|
|
|
|
RAISE_WINDOW_IMPL:
|
|
jsr window_by_id_or_exit
|
|
cmp L700B
|
|
bne L74BA
|
|
cpx L700C
|
|
bne L74BA
|
|
rts
|
|
|
|
L74BA: jsr L74F4
|
|
L74BD: ldy #next_offset_in_window_params ; Called from elsewhere
|
|
lda L700B
|
|
sta ($A9),y
|
|
iny
|
|
lda L700C
|
|
sta ($A9),y
|
|
lda $A9
|
|
pha
|
|
lda $AA
|
|
pha
|
|
jsr L653C
|
|
jsr L6588
|
|
jsr top_window
|
|
beq L74DE
|
|
jsr L7205
|
|
L74DE: pla
|
|
sta L700C
|
|
pla
|
|
sta L700B
|
|
jsr top_window
|
|
lda $AB
|
|
sta L700D
|
|
jsr L718E
|
|
jmp L6553
|
|
|
|
L74F4: ldy #next_offset_in_window_params ; Called from elsewhere
|
|
lda ($A9),y
|
|
sta ($A7),y
|
|
iny
|
|
lda ($A9),y
|
|
sta ($A7),y
|
|
rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; QUERY_WINDOW IMPL
|
|
|
|
;;; 1 byte of params, copied to $C7
|
|
|
|
.proc QUERY_WINDOW_IMPL
|
|
ptr := $A9
|
|
jsr window_by_id_or_exit
|
|
lda ptr
|
|
ldx ptr+1
|
|
ldy #1
|
|
jmp store_xa_at_params_y
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
;;; REDRAW_WINDOW_IMPL
|
|
|
|
;;; 1 byte of params, copied to $82
|
|
|
|
L750C: .res 38,0
|
|
|
|
.proc REDRAW_WINDOW_IMPL
|
|
jsr window_by_id_or_exit
|
|
lda $AB
|
|
cmp L7010
|
|
bne :+
|
|
inc L7871
|
|
|
|
: jsr L653C
|
|
jsr L6588
|
|
lda L7871
|
|
bne :+
|
|
A2D_CALL A2D_SET_BOX, set_box_params
|
|
: jsr L718E
|
|
jsr L6588
|
|
lda L7871
|
|
bne :+
|
|
A2D_CALL A2D_SET_BOX, set_box_params
|
|
: jsr next_window::L703E
|
|
lda active_state
|
|
sta L750C
|
|
lda active_state+1
|
|
sta L750C+1
|
|
jsr L75C6
|
|
php
|
|
lda L758A
|
|
ldx L758A+1
|
|
jsr assign_and_prepare_state
|
|
asl preserve_zp_flag
|
|
plp
|
|
bcc :+
|
|
rts
|
|
: jsr L758C
|
|
;; fall through
|
|
.endproc
|
|
|
|
L7585: lda #$A3
|
|
jmp a2d_exit_with_a
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $3F IMPL
|
|
|
|
;;; 1 byte of params, copied to $82
|
|
|
|
L758A: .addr L750C + 2
|
|
|
|
L758C: jsr SHOW_CURSOR_IMPL
|
|
lda L750C
|
|
ldx L750C+1
|
|
sta active_state
|
|
stx active_state+1
|
|
jmp L6567
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 3 bytes of params, copied to $82
|
|
|
|
QUERY_STATE_IMPL:
|
|
jsr apply_state_to_active_state
|
|
jsr window_by_id_or_exit
|
|
lda $83
|
|
sta params_addr
|
|
lda $84
|
|
sta params_addr+1
|
|
ldx #$07
|
|
L75AC: lda fill_rect_params,x
|
|
sta $D8,x
|
|
dex
|
|
bpl L75AC
|
|
jsr L75C6
|
|
bcc L7585
|
|
ldy #sizeof_state-1
|
|
L75BB: lda state,y
|
|
sta (params_addr),y
|
|
dey
|
|
bpl L75BB
|
|
jmp apply_active_state_to_state
|
|
|
|
L75C6: jsr L708D
|
|
ldx #$07
|
|
L75CB: lda #$00
|
|
sta $9B,x
|
|
lda $C7,x
|
|
sta $92,x
|
|
dex
|
|
bpl L75CB
|
|
jsr L50A9
|
|
bcs L75DC
|
|
rts
|
|
|
|
L75DC: ldy #$14
|
|
L75DE: lda ($A9),y
|
|
sta $BC,y
|
|
iny
|
|
cpy #$38
|
|
bne L75DE
|
|
ldx #$02
|
|
L75EA: lda $92,x
|
|
sta $D0,x
|
|
lda $93,x
|
|
sta $D1,x
|
|
lda $96,x
|
|
sec
|
|
sbc $92,x
|
|
sta $82,x
|
|
lda $97,x
|
|
sbc $93,x
|
|
sta $83,x
|
|
lda $D8,x
|
|
sec
|
|
sbc $9B,x
|
|
sta $D8,x
|
|
lda $D9,x
|
|
sbc $9C,x
|
|
sta $D9,x
|
|
lda $D8,x
|
|
clc
|
|
adc $82,x
|
|
sta $DC,x
|
|
lda $D9,x
|
|
adc $83,x
|
|
sta $DD,x
|
|
dex
|
|
dex
|
|
bpl L75EA
|
|
sec
|
|
rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; UPDATE_STATE IMPL
|
|
|
|
;;; 2 bytes of params, copied to $82
|
|
|
|
;; This updates current state from params ???
|
|
;; The math is weird; $82 is the window id so
|
|
;; how does ($82),y do anything useful - is
|
|
;; this buggy ???
|
|
|
|
;; It seems like it's trying to update a fraction
|
|
;; of the drawing state (from |pattern| to |font|)
|
|
|
|
.proc UPDATE_STATE_IMPL
|
|
ptr := $A9
|
|
|
|
jsr window_by_id_or_exit
|
|
lda ptr
|
|
clc
|
|
adc #state_offset_in_window_params
|
|
sta ptr
|
|
bcc :+
|
|
inc ptr+1
|
|
: ldy #sizeof_state-1
|
|
loop: lda ($82),y
|
|
sta ($A9),y
|
|
dey
|
|
cpy #$10
|
|
bcs loop
|
|
rts
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
;;; QUERY_TOP IMPL
|
|
|
|
.proc QUERY_TOP_IMPL
|
|
jsr top_window
|
|
beq nope
|
|
lda $AB
|
|
bne :+
|
|
nope: lda #0
|
|
: ldy #0
|
|
sta (params_addr),y
|
|
rts
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
in_close_box: .byte 0
|
|
|
|
.proc CLOSE_CLICK_IMPL
|
|
jsr top_window
|
|
beq end
|
|
jsr L7157
|
|
jsr L653F
|
|
jsr L6588
|
|
lda #$80
|
|
toggle: sta in_close_box
|
|
lda #$02
|
|
jsr set_fill_mode
|
|
jsr HIDE_CURSOR_IMPL
|
|
A2D_CALL A2D_FILL_RECT, $C7
|
|
jsr SHOW_CURSOR_IMPL
|
|
loop: jsr L691B
|
|
cmp #$02
|
|
beq L768B
|
|
A2D_CALL A2D_SET_POS, set_pos_params
|
|
jsr L7086
|
|
eor in_close_box
|
|
bpl loop
|
|
lda in_close_box
|
|
eor #$80
|
|
jmp toggle
|
|
|
|
L768B: jsr L6556
|
|
ldy #$00
|
|
lda in_close_box
|
|
beq end
|
|
lda #$01
|
|
end: sta (params_addr),y
|
|
rts
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
.byte $00
|
|
L769B: .byte $00
|
|
L769C: .byte $00
|
|
L769D: .byte $00
|
|
L769E: .byte $00
|
|
L769F: .byte $00
|
|
L76A0: .byte $00,$00,$00
|
|
L76A3: .byte $00
|
|
L76A4: .byte $00,$00,$00
|
|
|
|
;; High bit set if window is being resized, clear if moved.
|
|
drag_resize_flag:
|
|
.byte 0
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 5 bytes of params, copied to $82
|
|
|
|
DRAG_RESIZE_IMPL:
|
|
lda #$80
|
|
bmi L76AE
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 5 bytes of params, copied to $82
|
|
|
|
DRAG_WINDOW_IMPL:
|
|
lda #$00
|
|
|
|
L76AE: sta drag_resize_flag
|
|
jsr L7ECD
|
|
ldx #$03
|
|
L76B6: lda $83,x
|
|
sta L769B,x
|
|
sta L769F,x
|
|
lda #$00
|
|
sta L76A3,x
|
|
dex
|
|
bpl L76B6
|
|
jsr window_by_id_or_exit
|
|
bit L7D74
|
|
bpl L76D1
|
|
jsr L817C
|
|
L76D1: jsr L653C
|
|
jsr L784C
|
|
lda #$02
|
|
jsr set_fill_mode
|
|
A2D_CALL A2D_SET_PATTERN, checkerboard_pattern
|
|
L76E2: jsr next_window::L703E
|
|
jsr L7749
|
|
jsr L70B7
|
|
jsr L707F
|
|
jsr SHOW_CURSOR_IMPL
|
|
L76F1: jsr L691B
|
|
cmp #$02
|
|
bne L773B
|
|
jsr L707F
|
|
bit L7D81
|
|
bmi L770A
|
|
ldx #$03
|
|
L7702: lda L76A3,x
|
|
bne L7714
|
|
dex
|
|
bpl L7702
|
|
L770A: jsr L6553
|
|
lda #$00
|
|
L770F: ldy #$05
|
|
sta (params_addr),y
|
|
rts
|
|
|
|
L7714: ldy #$14
|
|
L7716: lda $A3,y
|
|
sta ($A9),y
|
|
iny
|
|
cpy #$24
|
|
bne L7716
|
|
jsr HIDE_CURSOR_IMPL
|
|
lda $AB
|
|
jsr L7872
|
|
jsr L653C
|
|
bit L7D81
|
|
bvc L7733
|
|
jsr L8347
|
|
L7733: jsr L6553
|
|
lda #$80
|
|
jmp L770F
|
|
|
|
L773B: jsr L77E0
|
|
beq L76F1
|
|
jsr HIDE_CURSOR_IMPL
|
|
jsr L707F
|
|
jmp L76E2
|
|
|
|
L7749: ldy #$13
|
|
L774B: lda ($A9),y
|
|
sta $BB,y
|
|
dey
|
|
cpy #$0B
|
|
bne L774B
|
|
ldx #$00
|
|
stx set_input_params_unk
|
|
bit drag_resize_flag
|
|
bmi L777D
|
|
L775F: lda $B7,x
|
|
clc
|
|
adc L76A3,x
|
|
sta $B7,x
|
|
lda $B8,x
|
|
adc L76A4,x
|
|
sta $B8,x
|
|
inx
|
|
inx
|
|
cpx #$04
|
|
bne L775F
|
|
lda #$12
|
|
cmp $B9
|
|
bcc L777C
|
|
sta $B9
|
|
L777C: rts
|
|
|
|
L777D: lda #$00
|
|
sta L83F5
|
|
L7782: clc
|
|
lda $C3,x
|
|
adc L76A3,x
|
|
sta $C3,x
|
|
lda $C4,x
|
|
adc L76A4,x
|
|
sta $C4,x
|
|
sec
|
|
lda $C3,x
|
|
sbc $BF,x
|
|
sta $82
|
|
lda $C4,x
|
|
sbc $C0,x
|
|
sta $83
|
|
sec
|
|
lda $82
|
|
sbc $C7,x
|
|
lda $83
|
|
sbc $C8,x
|
|
bpl L77BC
|
|
clc
|
|
lda $C7,x
|
|
adc $BF,x
|
|
sta $C3,x
|
|
lda $C8,x
|
|
adc $C0,x
|
|
sta $C4,x
|
|
jsr L83F6
|
|
jmp L77D7
|
|
|
|
L77BC: sec
|
|
lda $CB,x
|
|
sbc $82
|
|
lda $CC,x
|
|
sbc $83
|
|
bpl L77D7
|
|
clc
|
|
lda $CB,x
|
|
adc $BF,x
|
|
sta $C3,x
|
|
lda $CC,x
|
|
adc $C0,x
|
|
sta $C4,x
|
|
jsr L83F6
|
|
L77D7: inx
|
|
inx
|
|
cpx #$04
|
|
bne L7782
|
|
jmp L83FC
|
|
|
|
L77E0: ldx #$02
|
|
ldy #$00
|
|
L77E4: lda $84,x
|
|
cmp L76A0,x
|
|
bne L77EC
|
|
iny
|
|
L77EC: lda $83,x
|
|
cmp L769F,x
|
|
bne L77F4
|
|
iny
|
|
L77F4: sta L769F,x
|
|
sec
|
|
sbc L769B,x
|
|
sta L76A3,x
|
|
lda $84,x
|
|
sta L76A0,x
|
|
sbc L769C,x
|
|
sta L76A4,x
|
|
dex
|
|
dex
|
|
bpl L77E4
|
|
cpy #$04
|
|
bne L7814
|
|
lda set_input_params_unk
|
|
L7814: rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 1 byte of params, copied to $82
|
|
|
|
.proc DESTROY_WINDOW_IMPL
|
|
jsr window_by_id_or_exit
|
|
jsr L653C
|
|
jsr L784C
|
|
jsr L74F4
|
|
ldy #$0A
|
|
lda ($A9),y
|
|
and #$7F
|
|
sta ($A9),y
|
|
jsr top_window
|
|
lda $AB
|
|
sta L700D
|
|
lda #$00
|
|
jmp L7872
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $3A IMPL
|
|
|
|
L7836: jsr top_window
|
|
beq L7849
|
|
ldy #$0A
|
|
lda ($A9),y
|
|
and #$7F
|
|
sta ($A9),y
|
|
jsr L74F4
|
|
jmp L7836
|
|
|
|
L7849: jmp L6454
|
|
|
|
L784C: jsr L6588
|
|
jsr L70B7
|
|
ldx #$07
|
|
L7854: lda $C7,x
|
|
sta $92,x
|
|
dex
|
|
bpl L7854
|
|
jsr L50A9
|
|
ldx #$03
|
|
L7860: lda $92,x
|
|
sta set_box_params_box,x
|
|
sta set_box_params,x
|
|
lda $96,x
|
|
sta set_box_params_size,x
|
|
dex
|
|
bpl L7860
|
|
rts
|
|
|
|
;; Erases window after destruction
|
|
L7871: .byte 0
|
|
L7872: sta L7010
|
|
lda #$00
|
|
sta L7871
|
|
A2D_CALL A2D_SET_BOX, set_box_params
|
|
lda #$00
|
|
jsr set_fill_mode
|
|
A2D_CALL A2D_SET_PATTERN, checkerboard_pattern
|
|
A2D_CALL A2D_FILL_RECT, set_box_params_box
|
|
jsr L6553
|
|
jsr top_window
|
|
beq L78CA
|
|
php
|
|
sei
|
|
jsr CALL_2B_IMPL
|
|
L789E: jsr next_window
|
|
bne L789E
|
|
L78A3: jsr L67E4
|
|
bcs L78C9
|
|
tax
|
|
lda #$06
|
|
sta L6754,x
|
|
lda $AB
|
|
sta L6755,x
|
|
lda $AB
|
|
cmp L700D
|
|
beq L78C9
|
|
sta $82
|
|
jsr window_by_id
|
|
lda $A7
|
|
ldx $A8
|
|
jsr next_window::L7044
|
|
jmp L78A3
|
|
|
|
L78C9: plp
|
|
L78CA: rts
|
|
|
|
L78CB: .byte $08,$00
|
|
L78CD: .byte $0C,$00
|
|
L78CF: .byte $0D,$00
|
|
|
|
.proc set_box_params
|
|
left: .word 0
|
|
top: .word $D
|
|
addr: .addr A2D_SCREEN_ADDR
|
|
stride: .word A2D_SCREEN_STRIDE
|
|
hoffset:.word 0
|
|
voffset:.word 0
|
|
width: .word 0
|
|
height: .word 0
|
|
.endproc
|
|
set_box_params_top := set_box_params::top
|
|
set_box_params_size := set_box_params::width
|
|
set_box_params_box := set_box_params::hoffset ; Re-used since h/voff are 0
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $47 IMPL
|
|
|
|
;; $83/$84 += $B7/$B8
|
|
;; $85/$86 += $B9/$BA
|
|
|
|
.proc L78E1
|
|
jsr window_by_id_or_exit
|
|
ldx #2
|
|
loop: lda $83,x
|
|
clc
|
|
adc $B7,x
|
|
sta $83,x
|
|
lda $84,x
|
|
adc $B8,x
|
|
sta $84,x
|
|
dex
|
|
dex
|
|
bpl loop
|
|
bmi L790F
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 5 bytes of params, copied to $82
|
|
|
|
MAP_COORDS_IMPL:
|
|
jsr window_by_id_or_exit
|
|
ldx #$02
|
|
L78FE: lda $83,x
|
|
sec
|
|
sbc $B7,x
|
|
sta $83,x
|
|
lda $84,x
|
|
sbc $B8,x
|
|
sta $84,x
|
|
dex
|
|
dex
|
|
bpl L78FE
|
|
L790F: ldy #$05
|
|
L7911: lda $7E,y
|
|
sta (params_addr),y
|
|
iny
|
|
cpy #$09
|
|
bne L7911
|
|
rts
|
|
|
|
;; Used to draw scrollbar arrows
|
|
L791C: sta $82
|
|
stx $83
|
|
ldy #$03
|
|
L7922: lda #$00
|
|
sta $8A,y
|
|
lda ($82),y
|
|
sta $92,y
|
|
dey
|
|
bpl L7922
|
|
iny
|
|
sty $91
|
|
ldy #$04
|
|
lda ($82),y
|
|
tax
|
|
lda L4828,x
|
|
sta $90
|
|
txa
|
|
ldx $93
|
|
clc
|
|
adc $92
|
|
bcc L7945
|
|
inx
|
|
L7945: sta $96
|
|
stx $97
|
|
iny
|
|
lda ($82),y
|
|
ldx $95
|
|
clc
|
|
adc $94
|
|
bcc L7954
|
|
inx
|
|
L7954: sta $98
|
|
stx $99
|
|
iny
|
|
lda ($82),y
|
|
sta $8E
|
|
iny
|
|
lda ($82),y
|
|
sta $8F
|
|
jmp L51B3
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $4C IMPL
|
|
|
|
;;; 2 bytes of params, copied to $8C
|
|
|
|
L7965:
|
|
lda $8C
|
|
cmp #$01
|
|
bne L7971
|
|
lda #$80
|
|
sta $8C
|
|
bne L797C
|
|
L7971: cmp #$02
|
|
bne L797B
|
|
lda #$00
|
|
sta $8C
|
|
beq L797C
|
|
L797B: rts
|
|
|
|
L797C: jsr L653C
|
|
jsr top_window
|
|
bit $8C
|
|
bpl L798C
|
|
lda $B0
|
|
ldy #$05
|
|
bne L7990
|
|
L798C: lda $AF
|
|
ldy #$04
|
|
L7990: eor $8D
|
|
and #$01
|
|
eor ($A9),y
|
|
sta ($A9),y
|
|
lda $8D
|
|
jsr L79A0
|
|
jmp L6553
|
|
|
|
L79A0: bne L79AF
|
|
jsr L79F1
|
|
jsr L657E
|
|
A2D_CALL A2D_FILL_RECT, $C7
|
|
rts
|
|
|
|
L79AF: bit $8C
|
|
bmi L79B8
|
|
bit $AF
|
|
bmi L79BC
|
|
L79B7: rts
|
|
|
|
L79B8: bit $B0
|
|
bpl L79B7
|
|
L79BC: jsr L657E
|
|
jsr L79F1
|
|
A2D_CALL A2D_SET_PATTERN, light_speckles_pattern
|
|
A2D_CALL A2D_FILL_RECT, $C7
|
|
A2D_CALL A2D_SET_PATTERN, screen_state::pattern
|
|
bit $8C
|
|
bmi L79DD
|
|
bit $AF
|
|
bvs L79E1
|
|
L79DC: rts
|
|
|
|
L79DD: bit $B0
|
|
bvc L79DC
|
|
L79E1: jsr L7A73
|
|
jmp fill_and_frame_rect
|
|
|
|
light_speckles_pattern:
|
|
.byte %11011101
|
|
.byte %01110111
|
|
.byte %11011101
|
|
.byte %01110111
|
|
.byte %11011101
|
|
.byte %01110111
|
|
.byte %11011101
|
|
.byte %01110111
|
|
|
|
.byte $00,$00
|
|
|
|
L79F1: bit $8C
|
|
bpl L7A34
|
|
jsr L7104
|
|
lda $C9
|
|
clc
|
|
adc #$0C
|
|
sta $C9
|
|
bcc L7A03
|
|
inc $CA
|
|
L7A03: lda $CD
|
|
sec
|
|
sbc #$0B
|
|
sta $CD
|
|
bcs L7A0E
|
|
dec $CE
|
|
L7A0E: lda $AC
|
|
and #$04
|
|
bne L7A18
|
|
bit $AF
|
|
bpl L7A23
|
|
L7A18: lda $CD
|
|
sec
|
|
sbc #$0B
|
|
sta $CD
|
|
bcs L7A23
|
|
dec $CE
|
|
L7A23: inc $C7
|
|
bne L7A29
|
|
inc $C8
|
|
L7A29: lda $CB
|
|
bne L7A2F
|
|
dec $CC
|
|
L7A2F: dec $CB
|
|
jmp L7A70
|
|
|
|
L7A34: jsr L7129
|
|
lda $C7
|
|
clc
|
|
adc #$15
|
|
sta $C7
|
|
bcc L7A42
|
|
inc $C8
|
|
L7A42: lda $CB
|
|
sec
|
|
sbc #$15
|
|
sta $CB
|
|
bcs L7A4D
|
|
dec $CC
|
|
L7A4D: lda $AC
|
|
and #$04
|
|
bne L7A57
|
|
bit $B0
|
|
bpl L7A62
|
|
L7A57: lda $CB
|
|
sec
|
|
sbc #$15
|
|
sta $CB
|
|
bcs L7A62
|
|
dec $CC
|
|
L7A62: inc $C9
|
|
bne L7A68
|
|
inc $CA
|
|
L7A68: lda $CD
|
|
bne L7A6E
|
|
dec $CE
|
|
L7A6E: dec $CD
|
|
L7A70: jmp L70B2
|
|
|
|
L7A73: jsr L79F1
|
|
jsr L7CE3
|
|
jsr L5698
|
|
lda $A1
|
|
pha
|
|
jsr L7CFB
|
|
jsr L7CBA
|
|
pla
|
|
tax
|
|
lda $A3
|
|
ldy $A4
|
|
cpx #$01
|
|
beq L7A94
|
|
ldx $A0
|
|
jsr L7C93
|
|
L7A94: sta $82
|
|
sty $83
|
|
ldx #$00
|
|
lda #$14
|
|
bit $8C
|
|
bpl L7AA4
|
|
ldx #$02
|
|
lda #$0C
|
|
L7AA4: pha
|
|
lda $C7,x
|
|
clc
|
|
adc $82
|
|
sta $C7,x
|
|
lda $C8,x
|
|
adc $83
|
|
sta $C8,x
|
|
pla
|
|
clc
|
|
adc $C7,x
|
|
sta $CB,x
|
|
lda $C8,x
|
|
adc #$00
|
|
sta $CC,x
|
|
jmp L70B2
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 4 bytes of params, copied to state_pos
|
|
|
|
QUERY_CLIENT_IMPL:
|
|
jsr L653F
|
|
jsr top_window
|
|
bne L7ACE
|
|
lda #$A0
|
|
jmp a2d_exit_with_a
|
|
|
|
L7ACE: bit $B0
|
|
bpl L7B15
|
|
jsr L7104
|
|
jsr L7086
|
|
beq L7B15
|
|
ldx #$00
|
|
lda $B0
|
|
and #$01
|
|
beq L7B11
|
|
lda #$80
|
|
sta $8C
|
|
jsr L79F1
|
|
jsr L7086
|
|
beq L7AFE
|
|
bit $B0
|
|
bcs L7B70
|
|
jsr L7A73
|
|
jsr L7086
|
|
beq L7B02
|
|
ldx #$05
|
|
bne L7B11
|
|
L7AFE: lda #$01
|
|
bne L7B04
|
|
L7B02: lda #$03
|
|
L7B04: pha
|
|
jsr L7A73
|
|
pla
|
|
tax
|
|
lda state_ypos
|
|
cmp $C9
|
|
bcc L7B11
|
|
inx
|
|
L7B11: lda #$01
|
|
bne L7B72
|
|
L7B15: bit $AF
|
|
bpl L7B64
|
|
jsr L7129
|
|
jsr L7086
|
|
beq L7B64
|
|
ldx #$00
|
|
lda $AF
|
|
and #$01
|
|
beq L7B60
|
|
lda #$00
|
|
sta $8C
|
|
jsr L79F1
|
|
jsr L7086
|
|
beq L7B45
|
|
bit $AF
|
|
bvc L7B70
|
|
jsr L7A73
|
|
jsr L7086
|
|
beq L7B49
|
|
ldx #$05
|
|
bne L7B60
|
|
L7B45: lda #$01
|
|
bne L7B4B
|
|
L7B49: lda #$03
|
|
L7B4B: pha
|
|
jsr L7A73
|
|
pla
|
|
tax
|
|
lda state_xpos+1
|
|
cmp $C8
|
|
bcc L7B60
|
|
bne L7B5F
|
|
lda state_xpos
|
|
cmp $C7
|
|
bcc L7B60
|
|
L7B5F: inx
|
|
L7B60: lda #$02
|
|
bne L7B72
|
|
L7B64: jsr L708D
|
|
jsr L7086
|
|
beq L7B70
|
|
lda #$00
|
|
beq L7B72
|
|
L7B70: lda #$03
|
|
L7B72: jmp L7408
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 3 bytes of params, copied to $82
|
|
|
|
RESIZE_WINDOW_IMPL:
|
|
lda $82
|
|
cmp #$01
|
|
bne L7B81
|
|
lda #$80
|
|
sta $82
|
|
bne L7B90
|
|
L7B81: cmp #$02
|
|
bne L7B8B
|
|
lda #$00
|
|
sta $82
|
|
beq L7B90
|
|
L7B8B: lda #$A4
|
|
jmp a2d_exit_with_a
|
|
|
|
L7B90: jsr top_window
|
|
bne L7B9A
|
|
lda #$A0
|
|
jmp a2d_exit_with_a
|
|
|
|
L7B9A: ldy #$06
|
|
bit $82
|
|
bpl L7BA2
|
|
ldy #$08
|
|
L7BA2: lda $83
|
|
sta ($A9),y
|
|
sta $AB,y
|
|
rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 5 bytes of params, copied to $82
|
|
|
|
DRAG_SCROLL_IMPL:
|
|
lda $82
|
|
cmp #$01
|
|
bne L7BB6
|
|
lda #$80
|
|
sta $82
|
|
bne L7BC5
|
|
L7BB6: cmp #$02
|
|
bne L7BC0
|
|
lda #$00
|
|
sta $82
|
|
beq L7BC5
|
|
L7BC0: lda #$A4
|
|
jmp a2d_exit_with_a
|
|
|
|
L7BC5: lda $82
|
|
sta $8C
|
|
ldx #$03
|
|
L7BCB: lda $83,x
|
|
sta L769B,x
|
|
sta L769F,x
|
|
dex
|
|
bpl L7BCB
|
|
jsr top_window
|
|
bne L7BE0
|
|
lda #$A0
|
|
jmp a2d_exit_with_a
|
|
|
|
L7BE0: jsr L7A73
|
|
jsr L653F
|
|
jsr L6588
|
|
lda #$02
|
|
jsr set_fill_mode
|
|
A2D_CALL A2D_SET_PATTERN, light_speckles_pattern
|
|
jsr HIDE_CURSOR_IMPL
|
|
L7BF7: jsr L707F
|
|
jsr SHOW_CURSOR_IMPL
|
|
L7BFD: jsr L691B
|
|
cmp #$02
|
|
beq L7C66
|
|
jsr L77E0
|
|
beq L7BFD
|
|
jsr HIDE_CURSOR_IMPL
|
|
jsr L707F
|
|
jsr top_window
|
|
jsr L7A73
|
|
ldx #$00
|
|
lda #$14
|
|
bit $8C
|
|
bpl L7C21
|
|
ldx #$02
|
|
lda #$0C
|
|
L7C21: sta $82
|
|
lda $C7,x
|
|
clc
|
|
adc L76A3,x
|
|
tay
|
|
lda $C8,x
|
|
adc L76A4,x
|
|
cmp L7CB9
|
|
bcc L7C3B
|
|
bne L7C41
|
|
cpy L7CB8
|
|
bcs L7C41
|
|
L7C3B: lda L7CB9
|
|
ldy L7CB8
|
|
L7C41: cmp L7CB7
|
|
bcc L7C53
|
|
bne L7C4D
|
|
cpy L7CB6
|
|
bcc L7C53
|
|
L7C4D: lda L7CB7
|
|
ldy L7CB6
|
|
L7C53: sta $C8,x
|
|
tya
|
|
sta $C7,x
|
|
clc
|
|
adc $82
|
|
sta $CB,x
|
|
lda $C8,x
|
|
adc #$00
|
|
sta $CC,x
|
|
jmp L7BF7
|
|
|
|
L7C66: jsr HIDE_CURSOR_IMPL
|
|
jsr L707F
|
|
jsr L6553
|
|
jsr L7CBA
|
|
jsr L5698
|
|
ldx $A1
|
|
jsr L7CE3
|
|
lda $A3
|
|
ldy #$00
|
|
cpx #$01
|
|
bcs L7C87
|
|
ldx $A0
|
|
jsr L7C93
|
|
L7C87: ldx #$01
|
|
cmp $A1
|
|
bne L7C8E
|
|
dex
|
|
L7C8E: ldy #$05
|
|
jmp store_xa_at_params_y
|
|
|
|
L7C93: sta $82
|
|
sty $83
|
|
lda #$80
|
|
sta $84
|
|
ldy #$00
|
|
sty $85
|
|
txa
|
|
beq L7CB5
|
|
L7CA2: lda $82
|
|
clc
|
|
adc $84
|
|
sta $84
|
|
lda $83
|
|
adc $85
|
|
sta $85
|
|
bcc L7CB2
|
|
iny
|
|
L7CB2: dex
|
|
bne L7CA2
|
|
L7CB5: rts
|
|
|
|
L7CB6: .byte 0
|
|
L7CB7: .byte 0
|
|
L7CB8: .byte 0
|
|
L7CB9: .byte 0
|
|
|
|
L7CBA: lda L7CB6
|
|
sec
|
|
sbc L7CB8
|
|
sta $A3
|
|
lda L7CB7
|
|
sbc L7CB9
|
|
sta $A4
|
|
ldx #$00
|
|
bit $8C
|
|
bpl L7CD3
|
|
ldx #$02
|
|
L7CD3: lda $C7,x
|
|
sec
|
|
sbc L7CB8
|
|
sta $A1
|
|
lda $C8,x
|
|
sbc L7CB9
|
|
sta $A2
|
|
rts
|
|
|
|
L7CE3: ldy #$06
|
|
bit $8C
|
|
bpl L7CEB
|
|
ldy #$08
|
|
L7CEB: lda ($A9),y
|
|
sta $A3
|
|
iny
|
|
lda ($A9),y
|
|
sta $A1
|
|
lda #$00
|
|
sta $A2
|
|
sta $A4
|
|
rts
|
|
|
|
L7CFB: ldx #$00
|
|
lda #$14
|
|
bit $8C
|
|
bpl L7D07
|
|
ldx #$02
|
|
lda #$0C
|
|
L7D07: sta $82
|
|
lda $C7,x
|
|
ldy $C8,x
|
|
sta L7CB8
|
|
sty L7CB9
|
|
lda $CB,x
|
|
ldy $CC,x
|
|
sec
|
|
sbc $82
|
|
bcs L7D1D
|
|
dey
|
|
L7D1D: sta L7CB6
|
|
sty L7CB7
|
|
rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; 3 bytes of params, copied to $8C
|
|
|
|
UPDATE_SCROLL_IMPL:
|
|
lda $8C
|
|
cmp #$01
|
|
bne L7D30
|
|
lda #$80
|
|
sta $8C
|
|
bne L7D3F
|
|
L7D30: cmp #$02
|
|
bne L7D3A
|
|
lda #$00
|
|
sta $8C
|
|
beq L7D3F
|
|
L7D3A: lda #$A4
|
|
jmp a2d_exit_with_a
|
|
|
|
L7D3F: jsr top_window
|
|
bne L7D49
|
|
lda #$A0
|
|
jmp a2d_exit_with_a
|
|
|
|
L7D49: ldy #$07
|
|
bit $8C
|
|
bpl L7D51
|
|
ldy #$09
|
|
L7D51: lda $8D
|
|
sta ($A9),y
|
|
jsr L653C
|
|
jsr L657E
|
|
jsr L79A0
|
|
jmp L6553
|
|
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $22 IMPL
|
|
|
|
;;; 1 byte of params, copied to $82
|
|
|
|
L7D61: lda #$80
|
|
sta L7D74
|
|
jmp CALL_2B_IMPL
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $4E IMPL
|
|
|
|
;;; 2 bytes of params, copied to $82
|
|
|
|
L7D69:
|
|
lda $82
|
|
sta L7D7A
|
|
lda $83
|
|
sta L7D7B
|
|
rts
|
|
|
|
L7D74: .byte $00
|
|
L7D75: .byte $00
|
|
L7D76: .byte $00
|
|
L7D77: .byte $00,$00
|
|
L7D79: .byte $00
|
|
L7D7A: .byte $00
|
|
L7D7B: .byte $00
|
|
L7D7C: .byte $00
|
|
L7D7D: .byte $00
|
|
L7D7E: .byte $00
|
|
L7D7F: .byte $00
|
|
L7D80: .byte $00
|
|
L7D81: .byte $00
|
|
L7D82: .byte $00
|
|
L7D83: ldx #$7F
|
|
L7D85: lda $80,x
|
|
sta L7D99,x
|
|
dex
|
|
bpl L7D85
|
|
rts
|
|
|
|
L7D8E: ldx #$7F
|
|
L7D90: lda L7D99,x
|
|
sta $80,x
|
|
dex
|
|
bpl L7D90
|
|
rts
|
|
|
|
L7D99: .res 128, 0
|
|
|
|
L7E19: bit mouse_hooked_flag
|
|
bmi L7E49
|
|
bit no_mouse_flag
|
|
bmi L7E49
|
|
pha
|
|
txa
|
|
sec
|
|
jsr L7E75
|
|
ldx mouse_firmware_hi
|
|
sta MOUSE_X_LO,x
|
|
tya
|
|
sta MOUSE_X_HI,x
|
|
pla
|
|
ldy #$00
|
|
clc
|
|
jsr L7E75
|
|
ldx mouse_firmware_hi
|
|
sta MOUSE_Y_LO,x
|
|
tya
|
|
sta MOUSE_Y_HI,x
|
|
ldy #POSMOUSE
|
|
jmp call_mouse
|
|
|
|
L7E49: stx mouse_x
|
|
sty mouse_x+1
|
|
sta mouse_y
|
|
bit mouse_hooked_flag
|
|
bpl L7E5C
|
|
ldy #POSMOUSE
|
|
jmp call_mouse
|
|
|
|
L7E5C: rts
|
|
|
|
L7E5D: ldx L7D7C
|
|
ldy L7D7D
|
|
lda L7D7E
|
|
jmp L7E19
|
|
|
|
L7E69: ldx L7D75
|
|
ldy L7D76
|
|
lda L7D77
|
|
jmp L7E19
|
|
|
|
L7E75: bcc L7E7D
|
|
ldx L5FFD
|
|
bne L7E82
|
|
L7E7C: rts
|
|
|
|
L7E7D: ldx L5FFE
|
|
beq L7E7C
|
|
L7E82: pha
|
|
tya
|
|
lsr a
|
|
tay
|
|
pla
|
|
ror a
|
|
dex
|
|
bne L7E82
|
|
rts
|
|
|
|
L7E8C: ldx #$02
|
|
L7E8E: lda L7D75,x
|
|
sta mouse_x,x
|
|
dex
|
|
bpl L7E8E
|
|
rts
|
|
|
|
L7E98: jsr L7E8C
|
|
jmp L7E69
|
|
|
|
L7E9E: jsr L62BA
|
|
ldx #$02
|
|
L7EA3: lda mouse_x,x
|
|
sta L7D7C,x
|
|
dex
|
|
bpl L7EA3
|
|
rts
|
|
|
|
L7EAD: jsr stash_params_addr
|
|
lda L7F2E
|
|
sta params_addr
|
|
lda L7F2F
|
|
sta params_addr+1
|
|
jsr SET_CURSOR_IMPL
|
|
jsr restore_params_addr
|
|
lda #$00
|
|
sta L7D74
|
|
lda #$40
|
|
sta mouse_status
|
|
jmp L7E5D
|
|
|
|
L7ECD: lda #$00
|
|
sta L7D81
|
|
sta set_input_params_unk
|
|
rts
|
|
|
|
;; Look at buttons (apple keys), compute modifiers in A
|
|
;; (bit = button 0 / open apple, bit 1 = button 1 / closed apple)
|
|
.proc compute_modifiers
|
|
lda BUTN1
|
|
asl a
|
|
lda BUTN0
|
|
and #$80
|
|
rol a
|
|
rol a
|
|
rts
|
|
.endproc
|
|
|
|
L7EE2: jsr compute_modifiers
|
|
sta set_input_params_modifiers
|
|
L7EE8: clc
|
|
lda KBD
|
|
bpl L7EF4
|
|
stx KBDSTRB
|
|
and #$7F
|
|
sec
|
|
L7EF4: rts
|
|
|
|
L7EF5: lda L7D74
|
|
bne L7EFB
|
|
rts
|
|
|
|
L7EFB: cmp #$04
|
|
beq L7F48
|
|
jsr L7FB4
|
|
lda L7D74
|
|
cmp #$01
|
|
bne L7F0C
|
|
jmp L804D
|
|
|
|
L7F0C: jmp L825F
|
|
|
|
L7F0F: jsr stash_params_addr
|
|
lda active_cursor
|
|
sta L7F2E
|
|
lda active_cursor+1
|
|
sta L7F2F
|
|
lda L6065
|
|
sta params_addr
|
|
lda L6066
|
|
sta params_addr+1
|
|
jsr SET_CURSOR_IMPL
|
|
jmp restore_params_addr
|
|
|
|
L7F2E: .byte 0
|
|
L7F2F: .byte 0
|
|
|
|
stash_params_addr:
|
|
lda params_addr
|
|
sta stashed_params_addr
|
|
lda params_addr+1
|
|
sta stashed_params_addr+1
|
|
rts
|
|
|
|
restore_params_addr:
|
|
lda stashed_params_addr
|
|
sta params_addr
|
|
lda stashed_params_addr+1
|
|
sta params_addr+1
|
|
rts
|
|
|
|
stashed_params_addr: .addr 0
|
|
|
|
L7F48: jsr compute_modifiers
|
|
ror a
|
|
ror a
|
|
ror L7D82
|
|
lda L7D82
|
|
sta mouse_status
|
|
lda #0
|
|
sta input::modifiers
|
|
jsr L7EE8
|
|
bcc L7F63
|
|
jmp L8292
|
|
|
|
L7F63: jmp L7E98
|
|
|
|
L7F66: pha
|
|
lda L7D74
|
|
bne L7FA3
|
|
pla
|
|
cmp #$03
|
|
bne L7FA2
|
|
bit mouse_status
|
|
bmi L7FA2
|
|
lda #$04
|
|
sta L7D74
|
|
ldx #$0A
|
|
L7F7D: lda SPKR ; Beep?
|
|
ldy #$00
|
|
L7F82: dey
|
|
bne L7F82
|
|
dex
|
|
bpl L7F7D
|
|
L7F88: jsr compute_modifiers
|
|
cmp #3
|
|
beq L7F88
|
|
sta input::modifiers
|
|
lda #$00
|
|
sta L7D82
|
|
ldx #$02
|
|
L7F99: lda set_pos_params,x
|
|
sta L7D75,x
|
|
dex
|
|
bpl L7F99
|
|
L7FA2: rts
|
|
|
|
L7FA3: cmp #$04
|
|
bne L7FB2
|
|
pla
|
|
and #$01
|
|
bne L7FB1
|
|
lda #$00
|
|
sta L7D74
|
|
L7FB1: rts
|
|
|
|
L7FB2: pla
|
|
rts
|
|
|
|
L7FB4: bit mouse_status
|
|
bpl L7FC1
|
|
lda #$00
|
|
sta L7D74
|
|
jmp L7E69
|
|
|
|
L7FC1: lda mouse_status
|
|
pha
|
|
lda #$C0
|
|
sta mouse_status
|
|
pla
|
|
and #$20
|
|
beq L7FDE
|
|
ldx #$02
|
|
L7FD1: lda mouse_x,x
|
|
sta L7D75,x
|
|
dex
|
|
bpl L7FD1
|
|
stx L7D79
|
|
rts
|
|
|
|
L7FDE: jmp L7E8C
|
|
|
|
L7FE1: php
|
|
sei
|
|
jsr L7E9E
|
|
lda #$01
|
|
sta L7D74
|
|
jsr L800F
|
|
lda #$80
|
|
sta mouse_status
|
|
jsr L7F0F
|
|
ldx L7D7A
|
|
jsr L6878
|
|
lda $AF
|
|
sta L6BD9
|
|
jsr L6D26
|
|
lda L7D7B
|
|
sta L6BDA
|
|
jsr L6EAA
|
|
plp
|
|
rts
|
|
|
|
L800F: ldx L7D7A
|
|
jsr L6878
|
|
clc
|
|
lda $B7
|
|
adc #$05
|
|
sta L7D75
|
|
lda $B8
|
|
adc #$00
|
|
sta L7D76
|
|
ldy L7D7B
|
|
lda menu_item_y_table,y
|
|
sta L7D77
|
|
lda #$C0
|
|
sta mouse_status
|
|
jmp L7E98
|
|
|
|
L8035: bit L7D79
|
|
bpl L804C
|
|
lda L6BDA
|
|
sta L7D7B
|
|
ldx L6BD9
|
|
dex
|
|
stx L7D7A
|
|
lda #$00
|
|
sta L7D79
|
|
L804C: rts
|
|
|
|
L804D: jsr L7D83
|
|
jsr L8056
|
|
jmp L7D8E
|
|
|
|
L8056: jsr L7EE2
|
|
bcs handle_menu_key
|
|
rts
|
|
|
|
|
|
;; Keyboard navigation of menu
|
|
.proc handle_menu_key
|
|
pha
|
|
jsr L8035
|
|
pla
|
|
cmp #KEY_ESCAPE
|
|
bne try_return
|
|
lda #0
|
|
sta L7D80
|
|
sta L7D7F
|
|
lda #$80
|
|
sta L7D81
|
|
rts
|
|
|
|
try_return:
|
|
cmp #KEY_RETURN
|
|
bne try_up
|
|
jsr L7E8C
|
|
jmp L7EAD
|
|
|
|
try_up:
|
|
cmp #KEY_UP
|
|
bne try_down
|
|
L8081: dec L7D7B
|
|
bpl L8091
|
|
ldx L7D7A
|
|
jsr L6878
|
|
ldx $AA
|
|
stx L7D7B
|
|
L8091: ldx L7D7B
|
|
beq L80A0
|
|
dex
|
|
jsr L68BE
|
|
lda $BF
|
|
and #$C0
|
|
bne L8081
|
|
L80A0: jmp L800F
|
|
|
|
try_down:
|
|
cmp #KEY_DOWN
|
|
bne try_right
|
|
L80A7: inc L7D7B
|
|
ldx L7D7A
|
|
jsr L6878
|
|
lda L7D7B
|
|
cmp $AA
|
|
bcc L80BE
|
|
beq L80BE
|
|
lda #0
|
|
sta L7D7B
|
|
L80BE: ldx L7D7B
|
|
beq L80CD
|
|
dex
|
|
jsr L68BE
|
|
lda $BF
|
|
and #$C0
|
|
bne L80A7
|
|
L80CD: jmp L800F
|
|
|
|
try_right:
|
|
cmp #KEY_RIGHT
|
|
bne try_left
|
|
lda #0
|
|
sta L7D7B
|
|
inc L7D7A
|
|
lda L7D7A
|
|
cmp $A8
|
|
bcc L80E8
|
|
lda #$00
|
|
sta L7D7A
|
|
L80E8: jmp L800F
|
|
|
|
try_left:
|
|
cmp #KEY_LEFT
|
|
bne nope
|
|
lda #0
|
|
sta L7D7B
|
|
dec L7D7A
|
|
bmi L80FC
|
|
jmp L800F
|
|
|
|
L80FC: ldx $A8
|
|
dex
|
|
stx L7D7A
|
|
jmp L800F
|
|
|
|
nope: jsr L8110
|
|
bcc L810F
|
|
lda #$80
|
|
sta L7D81
|
|
L810F: rts
|
|
.endproc
|
|
|
|
L8110: sta $C9
|
|
lda set_input_params_modifiers
|
|
and #$03
|
|
sta $CA
|
|
lda L6BD9
|
|
pha
|
|
lda L6BDA
|
|
pha
|
|
lda #$C0
|
|
jsr L6A96
|
|
beq L813D
|
|
stx L7D80
|
|
lda $B0
|
|
bmi L813D
|
|
lda $BF
|
|
and #$C0
|
|
bne L813D
|
|
lda $AF
|
|
sta L7D7F
|
|
sec
|
|
bcs L813E
|
|
L813D: clc
|
|
L813E: pla
|
|
sta L6BDA
|
|
pla
|
|
sta L6BD9
|
|
sta $C7
|
|
rts
|
|
|
|
L8149: php
|
|
sei
|
|
jsr L6D23
|
|
jsr L7EAD
|
|
lda L7D7F
|
|
sta $C7
|
|
sta L6BD9
|
|
lda L7D80
|
|
sta $C8
|
|
sta L6BDA
|
|
jsr L6556
|
|
lda L7D7F
|
|
beq L816F
|
|
jsr L6B1D
|
|
lda L7D7F
|
|
L816F: sta L6BD9
|
|
ldx L7D80
|
|
stx L6BDA
|
|
plp
|
|
jmp store_xa_at_params
|
|
|
|
L817C: php
|
|
sei
|
|
jsr L7E9E
|
|
lda #$80
|
|
sta mouse_status
|
|
jsr L70B7
|
|
bit drag_resize_flag
|
|
bpl L81E4
|
|
lda $AC
|
|
and #$04
|
|
beq L81D9
|
|
ldx #$00
|
|
L8196: sec
|
|
lda $CB,x
|
|
sbc #$04
|
|
sta L7D75,x
|
|
sta L769B,x
|
|
sta L769F,x
|
|
lda $CC,x
|
|
sbc #$00
|
|
sta L7D76,x
|
|
sta L769C,x
|
|
sta L76A0,x
|
|
inx
|
|
inx
|
|
cpx #$04
|
|
bcc L8196
|
|
sec
|
|
lda #<(560-1)
|
|
sbc L769B
|
|
lda #>(560-1)
|
|
sbc L769B+1
|
|
bmi L81D9
|
|
sec
|
|
lda #<(192-1)
|
|
sbc L769D
|
|
lda #>(192-1)
|
|
sbc L769D+1
|
|
bmi L81D9
|
|
jsr L7E98
|
|
jsr L7F0F
|
|
plp
|
|
rts
|
|
|
|
L81D9: lda #$00
|
|
sta L7D74
|
|
lda #$A2
|
|
plp
|
|
jmp a2d_exit_with_a
|
|
|
|
L81E4: lda $AC
|
|
and #$01
|
|
beq L81F4
|
|
lda #$00
|
|
sta L7D74
|
|
lda #$A1
|
|
jmp a2d_exit_with_a
|
|
|
|
L81F4: ldx #$00
|
|
L81F6: clc
|
|
lda $C7,x
|
|
cpx #$02
|
|
beq L8202
|
|
adc #$23
|
|
jmp L8204
|
|
|
|
L8202: adc #$05
|
|
L8204: sta L7D75,x
|
|
sta L769B,x
|
|
sta L769F,x
|
|
lda $C8,x
|
|
adc #$00
|
|
sta L7D76,x
|
|
sta L769C,x
|
|
sta L76A0,x
|
|
inx
|
|
inx
|
|
cpx #$04
|
|
bcc L81F6
|
|
bit L7D76
|
|
bpl L8235
|
|
ldx #$01
|
|
lda #$00
|
|
L8229: sta L7D75,x
|
|
sta L769B,x
|
|
sta L769F,x
|
|
dex
|
|
bpl L8229
|
|
L8235: jsr L7E98
|
|
jsr L7F0F
|
|
plp
|
|
rts
|
|
|
|
L823D: php
|
|
clc
|
|
adc L7D77
|
|
sta L7D77
|
|
plp
|
|
bpl L8254
|
|
cmp #$C0
|
|
bcc L8251
|
|
lda #$00
|
|
sta L7D77
|
|
L8251: jmp L7E98
|
|
|
|
L8254: cmp #$C0
|
|
bcc L8251
|
|
lda #$BF
|
|
sta L7D77
|
|
bne L8251
|
|
L825F: jsr L7D83
|
|
jsr L8268
|
|
jmp L7D8E
|
|
|
|
L8268: jsr L7EE2
|
|
bcs L826E
|
|
rts
|
|
|
|
L826E: cmp #$1B
|
|
bne L827A
|
|
lda #$80
|
|
sta L7D81
|
|
jmp L7EAD
|
|
|
|
L827A: cmp #$0D
|
|
bne L8281
|
|
jmp L7EAD
|
|
|
|
L8281: pha
|
|
lda set_input_params_modifiers
|
|
beq L828C
|
|
ora #$80
|
|
sta set_input_params_modifiers
|
|
L828C: pla
|
|
ldx #$C0
|
|
stx mouse_status
|
|
L8292: cmp #$0B
|
|
bne L82A2
|
|
lda #$F8
|
|
bit set_input_params_modifiers
|
|
bpl L829F
|
|
lda #$D0
|
|
L829F: jmp L823D
|
|
|
|
L82A2: cmp #$0A
|
|
bne L82B2
|
|
lda #$08
|
|
bit set_input_params_modifiers
|
|
bpl L82AF
|
|
lda #$30
|
|
L82AF: jmp L823D
|
|
|
|
L82B2: cmp #$15
|
|
bne L82ED
|
|
jsr L839A
|
|
bcc L82EA
|
|
clc
|
|
lda #$08
|
|
bit set_input_params_modifiers
|
|
bpl L82C5
|
|
lda #$40
|
|
L82C5: adc L7D75
|
|
sta L7D75
|
|
lda L7D76
|
|
adc #$00
|
|
sta L7D76
|
|
sec
|
|
lda L7D75
|
|
sbc #$2F
|
|
lda L7D76
|
|
sbc #$02
|
|
bmi L82EA
|
|
lda #$02
|
|
sta L7D76
|
|
lda #$2F
|
|
sta L7D75
|
|
L82EA: jmp L7E98
|
|
|
|
L82ED: cmp #$08
|
|
bne L831D
|
|
jsr L8352
|
|
bcc L831A
|
|
lda L7D75
|
|
bit set_input_params_modifiers
|
|
bpl L8303
|
|
sbc #$40
|
|
jmp L8305
|
|
|
|
L8303: sbc #$08
|
|
L8305: sta L7D75
|
|
lda L7D76
|
|
sbc #$00
|
|
sta L7D76
|
|
bpl L831A
|
|
lda #$00
|
|
sta L7D75
|
|
sta L7D76
|
|
L831A: jmp L7E98
|
|
|
|
L831D: sta set_input_params_key
|
|
ldx #sizeof_state-1
|
|
L8322: lda $A7,x
|
|
sta $0600,x
|
|
dex
|
|
bpl L8322
|
|
lda set_input_params_key
|
|
jsr L8110
|
|
php
|
|
ldx #sizeof_state-1
|
|
L8333: lda $0600,x
|
|
sta $A7,x
|
|
dex
|
|
bpl L8333
|
|
plp
|
|
bcc L8346
|
|
lda #$40
|
|
sta L7D81
|
|
jmp L7EAD
|
|
|
|
L8346: rts
|
|
|
|
L8347: A2D_CALL A2D_SET_INPUT, set_input_params
|
|
rts
|
|
|
|
.proc set_input_params ; 1 byte shorter than normal, since KEY
|
|
state: .byte A2D_INPUT_KEY
|
|
key: .byte 0
|
|
modifiers:
|
|
.byte 0
|
|
unk: .byte 0
|
|
.endproc
|
|
set_input_params_key := set_input_params::key
|
|
set_input_params_modifiers := set_input_params::modifiers
|
|
set_input_params_unk := set_input_params::unk
|
|
|
|
L8352: lda L7D74
|
|
cmp #$04
|
|
beq L8368
|
|
lda L7D75
|
|
bne L8368
|
|
lda L7D76
|
|
bne L8368
|
|
bit drag_resize_flag
|
|
bpl L836A
|
|
L8368: sec
|
|
rts
|
|
|
|
L836A: jsr L70B7
|
|
lda $CC
|
|
bne L8380
|
|
lda #$09
|
|
bit set_input_params::modifiers
|
|
bpl L837A
|
|
lda #$41
|
|
L837A: cmp $CB
|
|
bcc L8380
|
|
clc
|
|
rts
|
|
|
|
L8380: inc set_input_params::unk
|
|
clc
|
|
lda #$08
|
|
bit set_input_params::modifiers
|
|
bpl L838D
|
|
lda #$40
|
|
L838D: adc L769B
|
|
sta L769B
|
|
bcc L8398
|
|
inc L769C
|
|
L8398: clc
|
|
rts
|
|
|
|
L839A: lda L7D74
|
|
cmp #$04
|
|
beq L83B3
|
|
bit drag_resize_flag
|
|
.byte $30
|
|
L83A5: ora $75AD
|
|
adc $2FE9,x
|
|
lda L7D76
|
|
sbc #$02
|
|
beq L83B5
|
|
sec
|
|
L83B3: sec
|
|
rts
|
|
|
|
L83B5: jsr L70B7
|
|
sec
|
|
lda #$2F
|
|
sbc $C7
|
|
tax
|
|
lda #$02
|
|
sbc $C8
|
|
beq L83C6
|
|
ldx #$FF
|
|
L83C6: bit set_input_params_modifiers
|
|
bpl L83D1
|
|
cpx #$64
|
|
bcc L83D7
|
|
bcs L83D9
|
|
L83D1: cpx #$2C
|
|
bcc L83D7
|
|
bcs L83E2
|
|
L83D7: clc
|
|
rts
|
|
|
|
L83D9: sec
|
|
lda L769B
|
|
sbc #$40
|
|
jmp L83E8
|
|
|
|
L83E2: sec
|
|
lda L769B
|
|
sbc #$08
|
|
L83E8: sta L769B
|
|
bcs L83F0
|
|
dec L769C
|
|
L83F0: inc set_input_params_unk
|
|
clc
|
|
rts
|
|
|
|
L83F5: .byte 0
|
|
L83F6: lda #$80
|
|
sta L83F5
|
|
L83FB: rts
|
|
|
|
L83FC: bit L7D74
|
|
bpl L83FB
|
|
bit L83F5
|
|
bpl L83FB
|
|
jsr L70B7
|
|
php
|
|
sei
|
|
ldx #$00
|
|
L840D: sec
|
|
lda $CB,x
|
|
sbc #$04
|
|
sta L7D75,x
|
|
lda $CC,x
|
|
sbc #$00
|
|
sta L7D76,x
|
|
inx
|
|
inx
|
|
cpx #$04
|
|
bcc L840D
|
|
jsr L7E98
|
|
plp
|
|
rts
|
|
|
|
;;; ==================================================
|
|
|
|
;;; $21 IMPL
|
|
|
|
;;; Sets up mouse clamping
|
|
|
|
;;; 2 bytes of params, copied to $82
|
|
;;; byte 1 controls x clamp, 2 controls y clamp
|
|
;;; clamp is to fractions of screen (0 = full, 1 = 1/2, 2 = 1/4, 3 = 1/8) (why???)
|
|
|
|
.proc L8427
|
|
lda $82
|
|
sta L5FFD
|
|
lda $83
|
|
sta L5FFE
|
|
|
|
L8431: bit no_mouse_flag ; called after INITMOUSE
|
|
bmi end
|
|
|
|
lda L5FFD
|
|
asl a
|
|
tay
|
|
lda #0
|
|
sta mouse_x
|
|
sta mouse_x+1
|
|
bit mouse_hooked_flag
|
|
bmi :+
|
|
|
|
sta CLAMP_MIN_LO
|
|
sta CLAMP_MIN_HI
|
|
|
|
: lda clamp_x_table,y
|
|
sta mouse_y
|
|
bit mouse_hooked_flag
|
|
bmi :+
|
|
|
|
sta CLAMP_MAX_LO
|
|
|
|
: lda clamp_x_table+1,y
|
|
sta mouse_y+1
|
|
bit mouse_hooked_flag
|
|
bmi :+
|
|
sta CLAMP_MAX_HI
|
|
: lda #CLAMP_X
|
|
ldy #CLAMPMOUSE
|
|
jsr call_mouse
|
|
|
|
lda L5FFE
|
|
asl a
|
|
tay
|
|
lda #0
|
|
sta mouse_x
|
|
sta mouse_x+1
|
|
bit mouse_hooked_flag
|
|
bmi :+
|
|
sta CLAMP_MIN_LO
|
|
sta CLAMP_MIN_HI
|
|
: lda clamp_y_table,y
|
|
sta mouse_y
|
|
bit mouse_hooked_flag
|
|
bmi :+
|
|
sta CLAMP_MAX_LO
|
|
: lda clamp_y_table+1,y
|
|
sta mouse_y+1
|
|
bit mouse_hooked_flag
|
|
bmi :+
|
|
sta CLAMP_MAX_HI
|
|
: lda #CLAMP_Y
|
|
ldy #CLAMPMOUSE
|
|
jsr call_mouse
|
|
end: rts
|
|
|
|
clamp_x_table: .word 560-1, 560/2-1, 560/4-1, 560/8-1
|
|
clamp_y_table: .word 192-1, 192/2-1, 192/4-1, 192/8-1
|
|
|
|
.endproc
|
|
|
|
;;; ==================================================
|
|
;;; Locate Mouse Slot
|
|
|
|
|
|
;; If X's high bit is set, only slot in low bits is tested.
|
|
;; Otherwise all slots are scanned.
|
|
|
|
.proc find_mouse
|
|
txa
|
|
and #$7F
|
|
beq scan
|
|
jsr check_mouse_in_a
|
|
sta no_mouse_flag
|
|
beq found
|
|
ldx #0
|
|
rts
|
|
|
|
;; Scan for mouse starting at slot 7
|
|
scan: ldx #7
|
|
loop: txa
|
|
jsr check_mouse_in_a
|
|
sta no_mouse_flag
|
|
beq found
|
|
dex
|
|
bpl loop
|
|
ldx #0 ; no mouse found
|
|
rts
|
|
|
|
found: ldy #INITMOUSE
|
|
jsr call_mouse
|
|
jsr L8427::L8431
|
|
ldy #HOMEMOUSE
|
|
jsr call_mouse
|
|
lda mouse_firmware_hi
|
|
and #$0F
|
|
tax ; return with mouse slot in X
|
|
rts
|
|
|
|
;; Check for mouse in slot A
|
|
.proc check_mouse_in_a
|
|
ptr := $88
|
|
|
|
ora #>$C000
|
|
sta ptr+1
|
|
lda #<$0000
|
|
sta ptr
|
|
|
|
ldy #$0C ; $Cn0C = $20
|
|
lda (ptr),y
|
|
cmp #$20
|
|
bne nope
|
|
|
|
ldy #$FB ; $CnFB = $D6
|
|
lda (ptr),y
|
|
cmp #$D6
|
|
bne nope
|
|
|
|
lda ptr+1 ; yay, found it!
|
|
sta mouse_firmware_hi
|
|
asl a
|
|
asl a
|
|
asl a
|
|
asl a
|
|
sta mouse_operand
|
|
lda #$00
|
|
rts
|
|
|
|
nope: lda #$80
|
|
rts
|
|
.endproc
|
|
.endproc
|
|
|
|
no_mouse_flag: ; high bit set if no mouse present
|
|
.byte 0
|
|
mouse_firmware_hi: ; e.g. if mouse is in slot 4, this is $C4
|
|
.byte 0
|
|
mouse_operand: ; e.g. if mouse is in slot 4, this is $40
|
|
.byte 0
|
|
|
|
.endproc ; a2d
|