Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-12-01 20:50:06 +00:00
Code Issues Projects Releases Wiki Activity
48042e0cb8
a2d/desktop/mgtk.s

8641 lines
194 KiB
ArmAsm
Raw Normal View History

DeskTop: Ensure all disassembled code is 6502 (no C)
2018-01-08 01:19:52 +00:00
.setcpu "6502"
snapshot
2017-09-17 18:18:47 +00:00
DeskTop: Seg 1 strings
2017-09-30 02:51:11 +00:00
.include "apple2.inc"
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
.include "../inc/apple2.inc"
DeskTop: A2D macros
2017-09-30 22:32:38 +00:00
.include "../inc/prodos.inc"
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
.include "../mgtk.inc"
Split up include files for GUI library vs. DeskTop app
2017-10-12 03:45:58 +00:00
.include "../desktop.inc"
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
.include "../macros.inc"
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
Tighten up MGTK name
2018-02-21 16:06:38 +00:00
;;; MouseGraphics ToolKit
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop: Wrap GUI library and DeskTop in procs
2017-10-10 02:42:59 +00:00
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
.proc mgtk
DeskTop: Combine 3 aux segments into one file
2017-10-10 02:15:17 +00:00
.org $4000
DeskTop: Seg 1 strings
2017-09-30 02:51:11 +00:00
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
screen_width := 560
screen_height := 192
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
;;; ZP Usage
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
params_addr := $80
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
;; $8A initialized same way as current port (see $01 IMPL)
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
Segment work
2017-12-16 05:36:09 +00:00
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
;; $A8 - Menu count
Identify several window-related calls
2017-10-15 04:15:35 +00:00
;; $A9-$AA - Address of current window
;; $AB-... - Copy of current window params (first 12 bytes)
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
;; $D0-$F3 - Current GrafPort
;; $D0-$DF - portmap
;; $D0-D3 - viewloc (x/y words)
;; $D4-D5 - mapbits - screen address = $2000
;; $D6-D7 - mapwidth - screen stride = $80
;; $D8-DF - maprect (x1/y1/x2/y2)
;; $E0-$E7 - penpattern
;; $E8-$E9 - colormasks (AND, OR)
;; $EA-$ED - penloc (x/y words)
;; $EE-$EF - penwidth/penheight
;; $F0 - penmode
;; $F1 - textback
;; $F2-$F3 - textfont
;; $F4-$F5 - Active port (???)
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
;; $F6-$FA - ???
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
;; $FB-$FC - glyph widths
;; $FD - glyph flag (if set, stride is 2x???)
;; $FE - last glyph index (count is this + 1)
;; $FF - glyph height
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
current_grafport := $D0
current_portmap := $D0
current_viewloc_x := $D0
current_viewloc_y := $D2
current_mapbits := $D4
current_mapwidth := $D6
current_maprect_x1 := $D8
current_maprect_y1 := $DA
current_maprect_x2 := $DC
current_maprect_y2 := $DE
current_penpattern := $E0
current_colormasks := $E8
current_colormask_and := $E8
current_colormasks_or := $E9
current_penloc := $EA
current_penloc_x := $EA
current_penloc_y := $EC
current_pensize := $EE
current_penwidth := $EE
current_penheight := $EF
current_penmode := $F0
current_textback := $F1
current_textfont := $F2
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
Identify several window-related calls
2017-10-15 04:15:35 +00:00
sizeof_window_params := $3A
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sizeof_grafport := 36
port_offset_in_window_params := $14
Identify several window-related calls
2017-10-15 04:15:35 +00:00
next_offset_in_window_params := $38
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
active := $F4
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
active_port := $F4 ; address of live port block
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
fill_eor_mask := $F6
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
glyph_widths := $FB ; address
glyph_flag := $FD ;
glyph_last := $FE ; last glyph index
glyph_height_p := $FF ; glyph height
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
;;; MGTK
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc dispatch
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
.assert * = MGTK::MLI, error, "Entry point must be at $4000"
DeskTop Seg 1: Param blocks, direct calls to desktop entry point
2017-10-05 15:19:44 +00:00
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
lda LOWSCR
sta SET80COL
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
bit preserve_zp_flag ; save ZP?
bpl adjust_stack
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
;; Save $80...$FF, swap in what MGTK needs at $F4...$FF
snapshot
2017-09-17 18:18:47 +00:00
ldx #$7F
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
: lda $80,x
sta zp_saved,x
snapshot
2017-09-17 18:18:47 +00:00
dex
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
bpl :-
snapshot
2017-09-17 18:18:47 +00:00
ldx #$0B
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
: lda active_saved,x
sta active,x
snapshot
2017-09-17 18:18:47 +00:00
dex
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
bpl :-
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
jsr apply_active_port_to_port
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
adjust_stack: ; Adjust stack to account for params
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
pla ; and stash address at params_addr.
sta params_addr
snapshot
2017-09-17 18:18:47 +00:00
clc
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
adc #<3
snapshot
2017-09-17 18:18:47 +00:00
tax
pla
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta params_addr+1
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
adc #>3
snapshot
2017-09-17 18:18:47 +00:00
pha
txa
pha
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
snapshot
2017-09-17 18:18:47 +00:00
tsx
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
stx stack_ptr_stash
ldy #1 ; Command index
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
asl a
tax
MGTK internal renames
2018-01-29 08:57:55 +00:00
lda jump_table,x
DeskTop Seg 1: Jump table labels
2017-10-03 03:19:43 +00:00
sta jump+1
MGTK internal renames
2018-01-29 08:57:55 +00:00
lda jump_table+1,x
DeskTop Seg 1: Jump table labels
2017-10-03 03:19:43 +00:00
sta jump+2
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
iny ; Point params_addr at params
lda (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
pha
iny
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda (params_addr),y
sta params_addr+1
snapshot
2017-09-17 18:18:47 +00:00
pla
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta params_addr
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
;; 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
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
ldy param_lengths+1,x ; Check param length...
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
bpl done_hiding
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
txa ; if high bit was set, stash
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
pha ; registers and params_addr and then
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
tya ; optionally hide cursor
snapshot
2017-09-17 18:18:47 +00:00
pha
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda params_addr
snapshot
2017-09-17 18:18:47 +00:00
pha
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda params_addr+1
snapshot
2017-09-17 18:18:47 +00:00
pha
params and docs
2018-02-18 19:33:21 +00:00
bit desktop_initialized_flag
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
bpl :+
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
jsr hide_cursor
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
: pla
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta params_addr+1
snapshot
2017-09-17 18:18:47 +00:00
pla
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta params_addr
snapshot
2017-09-17 18:18:47 +00:00
pla
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
and #$7F ; clear high bit in length count
snapshot
2017-09-17 18:18:47 +00:00
tay
pla
tax
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
done_hiding:
lda param_lengths,x ; ZP offset for params
beq jump ; nothing to copy
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
sta store+1
snapshot
2017-09-17 18:18:47 +00:00
dey
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
: lda (params_addr),y
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
store: sta $FF,y ; self modified
Identify REDRAW_ALL entry point
2017-09-18 15:10:19 +00:00
dey
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
bpl :-
jump: jsr $FFFF ; the actual call
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
;; Exposed for routines to call directly
cleanup:
params and docs
2018-02-18 19:33:21 +00:00
bit desktop_initialized_flag
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
bpl :+
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
jsr show_cursor
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
: bit preserve_zp_flag
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
bpl exit_with_0
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
jsr apply_port_to_active_port
snapshot
2017-09-17 18:18:47 +00:00
ldx #$0B
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
: lda active,x
sta active_saved,x
snapshot
2017-09-17 18:18:47 +00:00
dex
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
bpl :-
snapshot
2017-09-17 18:18:47 +00:00
ldx #$7F
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
: lda zp_saved,x
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta $80,x
snapshot
2017-09-17 18:18:47 +00:00
dex
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
bpl :-
;; default is to return with A=0
exit_with_0:
lda #0
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
rts1: rts
.endproc
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
;;; Routines can jmp here to exit with A set
MGTK internal renames
2018-01-29 08:57:55 +00:00
exit_with_a:
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
pha
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr dispatch::cleanup
snapshot
2017-09-17 18:18:47 +00:00
pla
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
ldx stack_ptr_stash
snapshot
2017-09-17 18:18:47 +00:00
txs
ldy #$FF
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
rts2: rts
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
;; TODO: Macro for exit_with_a
.macro exit_call arg
lda #arg
jmp exit_with_a
.endmacro
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
;;; Copy port params (36 bytes) to/from active port addr
snapshot
2017-09-17 18:18:47 +00:00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
.proc apply_active_port_to_port
ldy #sizeof_grafport-1
: lda (active_port),y
sta current_grafport,y
snapshot
2017-09-17 18:18:47 +00:00
dey
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
bpl :-
snapshot
2017-09-17 18:18:47 +00:00
rts
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
.proc apply_port_to_active_port
ldy #sizeof_grafport-1
: lda current_grafport,y
sta (active_port),y
snapshot
2017-09-17 18:18:47 +00:00
dey
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
bpl :-
snapshot
2017-09-17 18:18:47 +00:00
rts
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
.endproc
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
;;; Drawing calls show/hide cursor before/after
;;; A recursion count is kept to allow rentrancy.
hide_cursor_count:
.byte 0
snapshot
2017-09-17 18:18:47 +00:00
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
.proc hide_cursor
dec hide_cursor_count
MGTK internal renames
2018-01-29 08:57:55 +00:00
jmp HideCursorImpl
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
.proc show_cursor
bit hide_cursor_count
bpl rts2
inc hide_cursor_count
MGTK internal renames
2018-01-29 08:57:55 +00:00
jmp ShowCursorImpl
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
.endproc
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
;;; Jump table for MGTK entry point calls
snapshot
2017-09-17 18:18:47 +00:00
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
;; jt_rts can be used if the only thing the
;; routine needs to do is copy params into
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
;; the zero page (port)
MGTK internal renames
2018-01-29 08:57:55 +00:00
jt_rts := dispatch::rts1
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
jump_table:
.addr jt_rts ; $00 NoOp
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
;; ----------------------------------------
;; Graphics Primitives
;; Initialization Commands
MGTK internal renames
2018-01-29 08:57:55 +00:00
.addr InitGrafImpl ; $01 InitGraf
.addr SetSwitchesImpl ; $02 SetSwitches
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
;; GrafPort Commands
MGTK internal renames
2018-01-29 08:57:55 +00:00
.addr InitPortImpl ; $03 InitPort
.addr SetPortImpl ; $04 SetPort
.addr GetPortImpl ; $05 GetPort
.addr SetPortBitsImpl ; $06 SetPortBits
.addr SetPenModeImpl ; $07 SetPenMode
.addr SetPatternImpl ; $08 SetPattern
.addr jt_rts ; $09 SetColorMasks
.addr jt_rts ; $0A SetPenSize
.addr SetFontImpl ; $0B SetFont
.addr jt_rts ; $0C SetTextBG
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
;; Drawing Commands
MGTK internal renames
2018-01-29 08:57:55 +00:00
.addr MoveImpl ; $0D Move
.addr jt_rts ; $0E MoveTo
.addr LineImpl ; $0F Line
.addr LineToImpl ; $10 LineTo
.addr PaintRectImpl ; $11 PaintRect
.addr FrameRectImpl ; $12 FrameRect
.addr InRectImpl ; $13 InRect
.addr PaintBitsImpl ; $14 PaintBits
.addr PaintPolyImpl ; $15 PaintPoly
.addr FramePolyImpl ; $16 FramePoly
.addr InPolyImpl ; $17 InPoly
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
;; Text Commands
MGTK internal renames
2018-01-29 08:57:55 +00:00
.addr TextWidthImpl ; $18 TextWidth
.addr DrawTextImpl ; $19 DrawText
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
;; Utility Commands
MGTK internal renames
2018-01-29 08:57:55 +00:00
.addr SetZP1Impl ; $1A SetZP1
.addr SetZP2Impl ; $1B SetZP2
.addr VersionImpl ; $1C Version
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
;; ----------------------------------------
Tighten up MGTK name
2018-02-21 16:06:38 +00:00
;; MouseGraphics ToolKit
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
;; Initialization Calls
MGTK internal renames
2018-01-29 08:57:55 +00:00
.addr StartDeskTopImpl ; $1D StartDeskTop
.addr StopDeskTopImpl ; $1E StopDeskTop
params and docs
2018-02-18 19:33:21 +00:00
.addr SetUserHookImpl ; $1F SetUserHook
.addr AttachDriverImpl ; $20 AttachDriver
MGTK internal renames
2018-01-29 08:57:55 +00:00
.addr ScaleMouseImpl ; $21 ScaleMouseImpl
.addr KeyboardMouse ; $22 KeyboardMouse
.addr GetIntHandlerImpl ; $23 GetIntHandler
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
;; Cursor Manager Calls
MGTK internal renames
2018-01-29 08:57:55 +00:00
.addr SetCursorImpl ; $24 SetCursor
.addr ShowCursorImpl ; $25 ShowCursor
.addr HideCursorImpl ; $26 HideCursor
.addr ObscureCursorImpl ; $27 ObscureCursor
.addr GetCursorAddrImpl ; $28 GetCursorAddr
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
;; Event Manager Calls
MGTK internal renames
2018-01-29 08:57:55 +00:00
.addr CheckEventsImpl ; $29 CheckEvents
.addr GetEventImpl ; $2A GetEvent
.addr FlushEventsImpl ; $2B FlushEvents
.addr PeekEventImpl ; $2C PeekEvent
.addr PostEventImpl ; $2D PostEvent
.addr SetKeyEventImpl ; $2E SetKeyEvent
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
;; Menu Manager Calls
MGTK internal renames
2018-01-29 08:57:55 +00:00
.addr InitMenuImpl ; $2F InitMenu
.addr SetMenuImpl ; $30 SetMenu
.addr MenuSelectImpl ; $31 MenuSelect
.addr MenuKeyImpl ; $32 MenuKey
.addr HiliteMenuImpl ; $33 HiliteMenu
.addr DisableMenuImpl ; $34 DisableMenu
.addr DisableItemImpl ; $35 DisableItem
.addr CheckItemImpl ; $36 CheckItem
.addr SetMarkImpl ; $37 SetMark
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
;; Window Manager Calls
MGTK internal renames
2018-01-29 08:57:55 +00:00
.addr OpenWindowImpl ; $38 OpenWindow
.addr CloseWindowImpl ; $39 CloseWindow
.addr CloseAllImpl ; $3A CloseAll
.addr GetWinPtrImpl ; $3B GetWinPtr
.addr GetWinPortImpl ; $3C GetWinPort
.addr SetWinPortImpl ; $3D SetWinPort
.addr BeginUpdateImpl ; $3E BeginUpdate
.addr EndUpdateImpl ; $3F EndUpdate
.addr FindWindowImpl ; $40 FindWindow
.addr FrontWindowImpl ; $41 FrontWindow
.addr SelectWindowImpl ; $42 SelectWindow
.addr TrackGoAwayImpl ; $43 TrackGoAway
.addr DragWindowImpl ; $44 DragWindow
.addr GrowWindowImpl ; $45 GrowWindow
.addr ScreenToWindowImpl ; $46 ScreenToWindow
.addr WindowToScreenImpl ; $47 WindowToScreenImpl
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
;; Control Manager Calls
MGTK internal renames
2018-01-29 08:57:55 +00:00
.addr FindControlImpl ; $48 FindControl
.addr SetCtlMaxImpl ; $49 SetCtlMax
.addr TrackThumbImpl ; $4A TrackThumb
.addr UpdateThumbImpl ; $4B UpdateThumb
.addr ActivateCtlImpl ; $4C ActivateCtl
.addr L51B3 ; $4D ???
.addr L7D69 ; $4E ???
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
;; Entry point param lengths
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
;; (length, ZP destination, hide cursor flag)
DeskTop Seg 1: Jump table labels
2017-10-03 03:19:43 +00:00
param_lengths:
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
.macro PARAM_DEFN length, zp, cursor
DeskTop: Alert dialog call/params
2017-10-12 15:55:14 +00:00
.byte zp, ((length) | ((cursor) << 7))
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
.endmacro
docs
2018-02-18 20:18:42 +00:00
;; ----------------------------------------
;; Graphics Primitives
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
PARAM_DEFN 0, $00, 0 ; $00 NoOp
docs
2018-02-18 20:18:42 +00:00
;; Initialization
PARAM_DEFN 0, $00, 0 ; $01 InitGraf
PARAM_DEFN 1, $82, 0 ; $02 SetSwitches
;; GrafPort
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
PARAM_DEFN 0, $00, 0 ; $03 InitPort
PARAM_DEFN 36, current_grafport, 0 ; $04 SetPort
PARAM_DEFN 0, $00, 0 ; $05 GetPort
PARAM_DEFN 16, current_portmap, 0 ; $06 SetPortBits
PARAM_DEFN 1, current_penmode, 0 ; $07 SetPenMode
PARAM_DEFN 8, current_penpattern, 0 ; $08 SetPattern
PARAM_DEFN 2, current_colormasks, 0 ; $09 SetColorMasks
PARAM_DEFN 2, current_pensize, 0 ; $0A SetPenSize
PARAM_DEFN 0, $00, 0 ; $0B SetFont
PARAM_DEFN 1, current_textback, 0 ; $0C SetTextBG
docs
2018-02-18 20:18:42 +00:00
;; Drawing
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
PARAM_DEFN 4, $A1, 0 ; $0D Move
PARAM_DEFN 4, current_penloc, 0 ; $0E MoveTo
PARAM_DEFN 4, $A1, 1 ; $0F Line
PARAM_DEFN 4, $92, 1 ; $10 LineTo
PARAM_DEFN 8, $92, 1 ; $11 PaintRect
PARAM_DEFN 8, $9F, 1 ; $12 FrameRect
PARAM_DEFN 8, $92, 0 ; $13 InRect
PARAM_DEFN 16, $8A, 0 ; $14 PaintBits
PARAM_DEFN 0, $00, 1 ; $15 PaintPoly
PARAM_DEFN 0, $00, 1 ; $16 FramePoly
PARAM_DEFN 0, $00, 0 ; $17 InPoly
docs
2018-02-18 20:18:42 +00:00
;; Text
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
PARAM_DEFN 3, $A1, 0 ; $18 TextWidth
PARAM_DEFN 3, $A1, 1 ; $19 DrawText
docs
2018-02-18 20:18:42 +00:00
;; Utility
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
PARAM_DEFN 1, $82, 0 ; $1A SetZP1
PARAM_DEFN 1, $82, 0 ; $1B SetZP2
PARAM_DEFN 0, $00, 0 ; $1C Version
docs
2018-02-18 20:18:42 +00:00
;; ----------------------------------------
Tighten up MGTK name
2018-02-21 16:06:38 +00:00
;; MouseGraphics ToolKit Calls
docs
2018-02-18 20:18:42 +00:00
;; Initialization
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
PARAM_DEFN 12, $82, 0 ; $1D StartDeskTop
PARAM_DEFN 0, $00, 0 ; $1E StopDeskTop
docs
2018-02-18 20:18:42 +00:00
PARAM_DEFN 3, $82, 0 ; $1F SetUserHook
params and docs
2018-02-18 19:33:21 +00:00
PARAM_DEFN 2, $82, 0 ; $20 AttachDriver
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
PARAM_DEFN 2, $82, 0 ; $21 ScaleMouse
PARAM_DEFN 1, $82, 0 ; $22 KeyboardMouse
PARAM_DEFN 0, $00, 0 ; $23 GetIntHandler
docs
2018-02-18 20:18:42 +00:00
;; Cursor Manager
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
PARAM_DEFN 0, $00, 0 ; $24 SetCursor
PARAM_DEFN 0, $00, 0 ; $25 ShowCursor
PARAM_DEFN 0, $00, 0 ; $26 HideCursor
PARAM_DEFN 0, $00, 0 ; $27 ObscureCursor
PARAM_DEFN 0, $00, 0 ; $28 GetCursorAddr
docs
2018-02-18 20:18:42 +00:00
;; Event Manager
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
PARAM_DEFN 0, $00, 0 ; $29 CheckEvents
PARAM_DEFN 0, $00, 0 ; $2A GetEvent
PARAM_DEFN 0, $00, 0 ; $2B FlushEvents
PARAM_DEFN 0, $00, 0 ; $2C PeekEvent
PARAM_DEFN 5, $82, 0 ; $2D PostEvent
PARAM_DEFN 1, $82, 0 ; $2E SetKeyEvent
docs
2018-02-18 20:18:42 +00:00
;; Menu Manager
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
PARAM_DEFN 4, $82, 0 ; $2F InitMenu
PARAM_DEFN 0, $00, 0 ; $30 SetMenu
PARAM_DEFN 0, $00, 0 ; $31 MenuSelect
PARAM_DEFN 4, $C7, 0 ; $32 MenuKey
PARAM_DEFN 1, $C7, 0 ; $33 HiliteMenu
PARAM_DEFN 2, $C7, 0 ; $34 DisableMenu
PARAM_DEFN 3, $C7, 0 ; $35 DisableItem
PARAM_DEFN 3, $C7, 0 ; $36 CheckItem
PARAM_DEFN 4, $C7, 0 ; $37 SetMark
docs
2018-02-18 20:18:42 +00:00
;; Window Manager
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
PARAM_DEFN 0, $00, 0 ; $38 OpenWindow
PARAM_DEFN 1, $82, 0 ; $39 CloseWindow
PARAM_DEFN 0, $00, 0 ; $3A CloseAll
PARAM_DEFN 1, $82, 0 ; $3B GetWinPtr
PARAM_DEFN 3, $82, 0 ; $3C GetWinPort
PARAM_DEFN 2, $82, 0 ; $3D SetWinPort
PARAM_DEFN 1, $82, 0 ; $3E BeginUpdate
PARAM_DEFN 1, $82, 0 ; $3F EndUpdate
PARAM_DEFN 4, current_penloc, 0 ; $40 FindWindow
PARAM_DEFN 0, $00, 0 ; $41 FrontWindow
PARAM_DEFN 1, $82, 0 ; $42 SelectWindow
PARAM_DEFN 0, $00, 0 ; $43 TrackGoAway
PARAM_DEFN 5, $82, 0 ; $44 DragWindow
PARAM_DEFN 5, $82, 0 ; $45 GrowWindow
PARAM_DEFN 5, $82, 0 ; $46 ScreenToWindow
PARAM_DEFN 5, $82, 0 ; $47 WindowToScreen
docs
2018-02-18 20:18:42 +00:00
;; Control Manager
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
PARAM_DEFN 4, current_penloc, 0 ; $48 FindControl
PARAM_DEFN 3, $82, 0 ; $49 SetCtlMax
PARAM_DEFN 5, $82, 0 ; $4A TrackThumb
PARAM_DEFN 3, $8C, 0 ; $4B UpdateThumb
PARAM_DEFN 2, $8C, 0 ; $4C ActivateCtl
PARAM_DEFN 16, $8A, 0 ; $4D
PARAM_DEFN 2, $82, 0 ; $4E
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
;;; Pre-Shift Tables
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
shift_1_aux:
.byte $00,$02,$04,$06,$08,$0A,$0C,$0E
Identify REDRAW_ALL entry point
2017-09-18 15:10:19 +00:00
.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
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
shift_1_main:
.byte $00,$00,$00,$00,$00,$00,$00,$00
Identify REDRAW_ALL entry point
2017-09-18 15:10:19 +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
starting in on aux seg1
2017-09-30 02:14:47 +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
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
shift_2_aux:
.byte $00,$04,$08,$0C,$10,$14,$18,$1C
starting in on aux seg1
2017-09-30 02:14:47 +00:00
.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
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
shift_2_main:
.byte $00,$00,$00,$00,$00,$00,$00,$00
starting in on aux seg1
2017-09-30 02:14:47 +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
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
shift_3_aux:
.byte $00,$08,$10,$18,$20,$28,$30,$38
starting in on aux seg1
2017-09-30 02:14:47 +00:00
.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
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
shift_3_main:
.byte $00,$00,$00,$00,$00,$00,$00,$00
starting in on aux seg1
2017-09-30 02:14:47 +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
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
shift_4_aux:
.byte $00,$10,$20,$30,$40,$50,$60,$70
starting in on aux seg1
2017-09-30 02:14:47 +00:00
.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
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
shift_4_main:
.byte $00,$00,$00,$00,$00,$00,$00,$00
starting in on aux seg1
2017-09-30 02:14:47 +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
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
shift_5_aux:
.byte $00,$20,$40,$60,$00,$20,$40,$60
starting in on aux seg1
2017-09-30 02:14:47 +00:00
.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
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
shift_5_main:
.byte $00,$00,$00,$00,$01,$01,$01,$01
starting in on aux seg1
2017-09-30 02:14:47 +00:00
.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
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
shift_6_aux:
.byte $00,$40,$00,$40,$00,$40,$00,$40
starting in on aux seg1
2017-09-30 02:14:47 +00:00
.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
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
shift_6_main:
.byte $00,$00,$01,$01,$02,$02,$03,$03
starting in on aux seg1
2017-09-30 02:14:47 +00:00
.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
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
div7_table:
.byte $00,$00,$00,$00,$00,$00,$00
.byte $01,$01,$01,$01,$01,$01,$01,$02
Identify REDRAW_ALL entry point
2017-09-18 15:10:19 +00:00
.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
starting in on aux seg1
2017-09-30 02:14:47 +00:00
.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
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
mod7_table:
.byte $00,$01,$02,$03
.byte $04,$05,$06,$00,$01,$02,$03,$04
Identify REDRAW_ALL entry point
2017-09-18 15:10:19 +00:00
.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
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
.byte $05,$06,$00,$01,$02,$03,$04,$05
Identify REDRAW_ALL entry point
2017-09-18 15:10:19 +00:00
.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
starting in on aux seg1
2017-09-30 02:14:47 +00:00
.byte $00,$01,$02,$03
DeskTop: A2D macros
2017-09-30 22:32:38 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
DeskTop: A2D macros
2017-09-30 22:32:38 +00:00
hires_table_lo:
.byte $00,$00,$00,$00,$00,$00,$00,$00
Identify REDRAW_ALL entry point
2017-09-18 15:10:19 +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
DeskTop: A2D macros
2017-09-30 22:32:38 +00:00
hires_table_hi:
.byte $00,$04,$08,$0C,$10,$14,$18,$1C
Identify REDRAW_ALL entry point
2017-09-18 15:10:19 +00:00
.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
starting in on aux seg1
2017-09-30 02:14:47 +00:00
.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
DeskTop: A2D macros
2017-09-30 22:32:38 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; Routines called during PaintRect etc based on
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
;;; current_penmode
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
.proc fillmode0
lda ($84),y
Bytes to code
2017-10-03 03:25:53 +00:00
eor ($8E),y
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
eor fill_eor_mask
Bytes to code
2017-10-03 03:25:53 +00:00
and $89
eor ($84),y
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
bcc :+
loop: lda ($8E),y
eor fill_eor_mask
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
: and current_colormask_and
ora current_colormasks_or
Bytes to code
2017-10-03 03:25:53 +00:00
sta ($84),y
dey
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
bne loop
.endproc
.proc fillmode0a
Bytes to code
2017-10-03 03:25:53 +00:00
lda ($84),y
eor ($8E),y
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
eor fill_eor_mask
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
and $88
Bytes to code
2017-10-03 03:25:53 +00:00
eor ($84),y
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
and current_colormask_and
ora current_colormasks_or
Bytes to code
2017-10-03 03:25:53 +00:00
sta ($84),y
rts
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
.endproc
Bytes to code
2017-10-03 03:25:53 +00:00
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
.proc fillmode1
Bytes to code
2017-10-03 03:25:53 +00:00
lda ($8E),y
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
eor fill_eor_mask
Bytes to code
2017-10-03 03:25:53 +00:00
and $89
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
bcc :+
loop: lda ($8E),y
eor fill_eor_mask
: ora ($84),y
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
and current_colormask_and
ora current_colormasks_or
Bytes to code
2017-10-03 03:25:53 +00:00
sta ($84),y
dey
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
bne loop
.endproc
.proc fillmode1a
Bytes to code
2017-10-03 03:25:53 +00:00
lda ($8E),y
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
eor fill_eor_mask
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
and $88
Bytes to code
2017-10-03 03:25:53 +00:00
ora ($84),y
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
and current_colormask_and
ora current_colormasks_or
Bytes to code
2017-10-03 03:25:53 +00:00
sta ($84),y
rts
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
.endproc
Bytes to code
2017-10-03 03:25:53 +00:00
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
.proc fillmode2
Bytes to code
2017-10-03 03:25:53 +00:00
lda ($8E),y
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
eor fill_eor_mask
Bytes to code
2017-10-03 03:25:53 +00:00
and $89
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
bcc :+
loop: lda ($8E),y
eor fill_eor_mask
: eor ($84),y
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
and current_colormask_and
ora current_colormasks_or
Bytes to code
2017-10-03 03:25:53 +00:00
sta ($84),y
dey
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
bne loop
.endproc
.proc fillmode2a
Bytes to code
2017-10-03 03:25:53 +00:00
lda ($8E),y
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
eor fill_eor_mask
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
and $88
Bytes to code
2017-10-03 03:25:53 +00:00
eor ($84),y
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
and current_colormask_and
ora current_colormasks_or
Bytes to code
2017-10-03 03:25:53 +00:00
sta ($84),y
rts
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
.endproc
Bytes to code
2017-10-03 03:25:53 +00:00
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
.proc fillmode3
Bytes to code
2017-10-03 03:25:53 +00:00
lda ($8E),y
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
eor fill_eor_mask
Bytes to code
2017-10-03 03:25:53 +00:00
and $89
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
bcc :+
loop: lda ($8E),y
eor fill_eor_mask
: eor #$FF
Bytes to code
2017-10-03 03:25:53 +00:00
and ($84),y
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
and current_colormask_and
ora current_colormasks_or
Bytes to code
2017-10-03 03:25:53 +00:00
sta ($84),y
dey
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
bne loop
.endproc
.proc fillmode3a
lda ($8E),y
eor fill_eor_mask
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
and $88
Bytes to code
2017-10-03 03:25:53 +00:00
eor #$FF
and ($84),y
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
and current_colormask_and
ora current_colormasks_or
Bytes to code
2017-10-03 03:25:53 +00:00
sta ($84),y
rts
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
.endproc
Bytes to code
2017-10-03 03:25:53 +00:00
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
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $83
Bytes to code
2017-10-03 03:25:53 +00:00
lda hires_table_lo,y
adc $8A
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $82
Bytes to code
2017-10-03 03:25:53 +00:00
L4C79: stx $81
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
ldy #0
ldx #0
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
L4C7F: sta HISCR
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda ($82),y
Bytes to code
2017-10-03 03:25:53 +00:00
and #$7F
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
sta LOWSCR
Bytes to code
2017-10-03 03:25:53 +00:00
L4C8A := * + 1
sta $0601,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda ($82),y
Bytes to code
2017-10-03 03:25:53 +00:00
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
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
L4CA3: stx $82
Bytes to code
2017-10-03 03:25:53 +00:00
ldy L5168
lda #$00
L4CAA: ldx $0601,y
L4CAE := * + 1
L4CAF := * + 2
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
ora shift_1_main,x
Bytes to code
2017-10-03 03:25:53 +00:00
L4CB1 := * + 1
sta $0602,y
L4CB4 := * + 1
L4CB5 := * + 2
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda shift_1_aux,x
Bytes to code
2017-10-03 03:25:53 +00:00
dey
bpl L4CAA
L4CBA := * + 1
sta $0601
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
ldx $82
Bytes to code
2017-10-03 03:25:53 +00:00
L4CBE:
L4CBF := * + 1
L4CC0 := * + 2
jmp L4D38
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L4CC1: stx $82
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
ldx #0
ldy #0
Bytes to code
2017-10-03 03:25:53 +00:00
L4CC7:
L4CC8 := * + 1
lda $0601,x
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
sta HISCR
Bytes to code
2017-10-03 03:25:53 +00:00
sta $0601,y
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
sta LOWSCR
Bytes to code
2017-10-03 03:25:53 +00:00
L4CD4 := * + 1
lda $0602,x
sta $0601,y
inx
inx
iny
cpy $91
bcc L4CC7
beq L4CC7
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
ldx $82
Bytes to code
2017-10-03 03:25:53 +00:00
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
DeskTop Seg 1: params
2017-10-03 04:00:31 +00:00
L4CFE:
Bytes to code
2017-10-03 03:25:53 +00:00
txa
ror a
ror a
ror a
and #$C0
ora $86
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $82
Bytes to code
2017-10-03 03:25:53 +00:00
lda #$04
adc #$00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $83
Bytes to code
2017-10-03 03:25:53 +00:00
jmp L4C79
L4D11: txa
ror a
ror a
ror a
and #$C0
ora $86
sta $8E
lda #$04
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
adc #0
Bytes to code
2017-10-03 03:25:53 +00:00
sta $8F
L4D22 := * + 1
L4D23 := * + 2
jmp L4D38
L4D24: lda $84
clc
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
adc current_mapwidth
Bytes to code
2017-10-03 03:25:53 +00:00
sta $84
bcc L4D30
inc $85
clc
L4D30: ldy $91
jsr L4D67
jmp L4C41
L4D38: lda hires_table_hi,x
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
ora current_mapbits+1
Bytes to code
2017-10-03 03:25:53 +00:00
sta $85
lda hires_table_lo,x
clc
adc $86
sta $84
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
ldy #1
Bytes to code
2017-10-03 03:25:53 +00:00
jsr L4D54
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
ldy #0
Bytes to code
2017-10-03 03:25:53 +00:00
jsr L4D54
jmp L4C41
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
L4D54: sta LOWSCR,y
Bytes to code
2017-10-03 03:25:53 +00:00
lda $92,y
ora #$80
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $88
Bytes to code
2017-10-03 03:25:53 +00:00
lda $96,y
ora #$80
sta $89
ldy $91
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
L4D67: jmp fillmode0 ; modified with fillmode routine
Bytes to code
2017-10-03 03:25:53 +00:00
L4D6A: .byte $FB
L4D6B:
L4D6C := * + 1
DeskTop: Combine 3 aux segments into one file
2017-10-10 02:15:17 +00:00
jmp $0000
Bytes to code
2017-10-03 03:25:53 +00:00
DeskTop Seg 1: Jump table labels
2017-10-03 03:19:43 +00:00
.byte $00,$00,$00,$00,$00
Identify REDRAW_ALL entry point
2017-09-18 15:10:19 +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
Standardize state label names a bit
2017-10-08 03:22:39 +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
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; SetPenMode
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
SetPenModeImpl:
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_penmode
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
ldx #0
cmp #4
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
bcc :+
snapshot
2017-09-17 18:18:47 +00:00
ldx #$7F
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
: stx fill_eor_mask
snapshot
2017-09-17 18:18:47 +00:00
rts
MGTK internal renames
2018-01-29 08:57:55 +00:00
;; Called from PaintRect, DrawText, etc to configure
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
;; fill routines from mode.
set_up_fill_mode:
lda $F7
snapshot
2017-09-17 18:18:47 +00:00
clc
adc $96
sta $96
lda $F8
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
adc $96+1
sta $96+1
lda $F8+1
snapshot
2017-09-17 18:18:47 +00:00
clc
adc $98
sta $98
lda $FA
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
adc $98+1
sta $98+1
snapshot
2017-09-17 18:18:47 +00:00
lda $F7
clc
adc $92
sta $92
lda $F8
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
adc $92+1
sta $92+1
lda $F8+1
snapshot
2017-09-17 18:18:47 +00:00
clc
adc $94
sta $94
lda $FA
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
adc $94+1
sta $94+1
snapshot
2017-09-17 18:18:47 +00:00
lsr $97
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
beq :+
snapshot
2017-09-17 18:18:47 +00:00
jmp L4E79
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
: lda $96
Identify REDRAW_ALL entry point
2017-09-18 15:10:19 +00:00
ror a
snapshot
2017-09-17 18:18:47 +00:00
tax
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda div7_table,x
ldy mod7_table,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L4E01: sta $82
snapshot
2017-09-17 18:18:47 +00:00
tya
rol a
tay
lda L4D73,y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta $97
lda L4D6C,y
sta $96
lsr $93
snapshot
2017-09-17 18:18:47 +00:00
bne L4E68
lda $92
ror a
tax
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda div7_table,x
ldy mod7_table,x
snapshot
2017-09-17 18:18:47 +00:00
L4E1E: sta $86
starting in on aux seg1
2017-09-30 02:14:47 +00:00
tya
snapshot
2017-09-17 18:18:47 +00:00
rol a
tay
sty $87
lda L4D81,y
sta $93
lda L4D7A,y
sta $92
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $82
snapshot
2017-09-17 18:18:47 +00:00
sec
sbc $86
L4E34: sta $91
pha
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_penmode
snapshot
2017-09-17 18:18:47 +00:00
asl a
tax
pla
bne L4E5B
lda $93
and $97
sta $93
sta $97
lda $92
and $96
sta $92
sta $96
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
lda fill_mode_table_a,x
sta L4D67+1
lda fill_mode_table_a+1,x
sta L4D67+2
snapshot
2017-09-17 18:18:47 +00:00
rts
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
L4E5B: lda fill_mode_table,x
sta L4D67+1
lda fill_mode_table+1,x
sta L4D67+2
snapshot
2017-09-17 18:18:47 +00:00
rts
L4E68: lda $92
ror a
tax
php
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda div7_table+4,x
snapshot
2017-09-17 18:18:47 +00:00
clc
adc #$24
plp
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
ldy mod7_table+4,x
snapshot
2017-09-17 18:18:47 +00:00
bpl L4E1E
L4E79: lda $96
ror a
tax
php
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda div7_table+4,x
snapshot
2017-09-17 18:18:47 +00:00
clc
adc #$24
plp
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
ldy mod7_table+4,x
snapshot
2017-09-17 18:18:47 +00:00
bmi L4E8D
jmp L4E01
L4E8D: lsr a
bne L4E9A
txa
ror a
tax
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda div7_table,x
ldy mod7_table,x
snapshot
2017-09-17 18:18:47 +00:00
rts
L4E9A: txa
ror a
tax
php
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda div7_table+4,x
snapshot
2017-09-17 18:18:47 +00:00
clc
adc #$24
plp
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
ldy mod7_table+4,x
snapshot
2017-09-17 18:18:47 +00:00
rts
L4EA9: lda $86
ldx $94
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
ldy current_mapwidth
snapshot
2017-09-17 18:18:47 +00:00
jsr L4F6D
clc
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
adc current_mapbits
snapshot
2017-09-17 18:18:47 +00:00
sta $84
tya
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
adc current_mapbits+1
snapshot
2017-09-17 18:18:47 +00:00
sta $85
lda #$02
tax
tay
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
bit current_mapwidth
snapshot
2017-09-17 18:18:47 +00:00
bmi L4EE9
lda #$01
sta $8E
lda #$06
sta $8F
jsr L4F11
txa
inx
stx L5168
jsr L4E34
lda L4F31
sta L4CA1
DeskTop Seg 1: params
2017-10-03 04:00:31 +00:00
lda L4F31+1
snapshot
2017-09-17 18:18:47 +00:00
sta L4CA2
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda #0
ldx #0
ldy #0
snapshot
2017-09-17 18:18:47 +00:00
L4EE9: pha
lda L4F37,x
sta L4D22
DeskTop Seg 1: params
2017-10-03 04:00:31 +00:00
lda L4F37+1,x
snapshot
2017-09-17 18:18:47 +00:00
sta L4D23
pla
tax
lda L4F33,x
sta L4CFC
DeskTop Seg 1: params
2017-10-03 04:00:31 +00:00
lda L4F33+1,x
snapshot
2017-09-17 18:18:47 +00:00
sta L4CFD
lda L4F3B,y
sta L4CBF
DeskTop Seg 1: params
2017-10-03 04:00:31 +00:00
lda L4F3B+1,y
snapshot
2017-09-17 18:18:47 +00:00
sta L4CC0
rts
L4F11: lda $91
asl a
tax
inx
lda $93
bne L4F25
dex
inc $8E
inc16 macro and refactors
2018-02-26 00:06:17 +00:00
inc16 $84
lda $92
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L4F25: sta $88
snapshot
2017-09-17 18:18:47 +00:00
lda $96
bne L4F2E
dex
lda $97
L4F2E: sta $89
rts
DeskTop Seg 1: params
2017-10-03 04:00:31 +00:00
L4F31: .addr L4CBE
L4F33: .addr L4CFE,L4D11
L4F37: .addr L4D24,L4D38
L4F3B: .addr L4D24,L4CC1
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L4F70: stx $82
sty $83
snapshot
2017-09-17 18:18:47 +00:00
ldx #$08
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L4F76: lsr $83
snapshot
2017-09-17 18:18:47 +00:00
bcc L4F7D
clc
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
adc $82
snapshot
2017-09-17 18:18:47 +00:00
L4F7D: ror a
ror $84
dex
bne L4F76
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sty $82
snapshot
2017-09-17 18:18:47 +00:00
tay
lda $84
sec
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sbc $82
snapshot
2017-09-17 18:18:47 +00:00
bcs L4F8E
dey
L4F8E: rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; SetPattern
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
SetPatternImpl:
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
lda #$00
snapshot
2017-09-17 18:18:47 +00: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
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_penpattern,x
snapshot
2017-09-17 18:18:47 +00:00
L4FAA: dey
bmi L4FB2
cmp #$80
rol a
bne L4FAA
L4FB2: ldy #$27
L4FB4: pha
lsr a
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
sta LOWSCR
snapshot
2017-09-17 18:18:47 +00:00
sta ($8E),y
pla
ror a
pha
lsr a
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
sta HISCR
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
sta LOWSCR
snapshot
2017-09-17 18:18:47 +00:00
rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; FrameRect
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 4 bytes of params, copied to $9F
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
L4FE4: .byte 0
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
FrameRectImpl:
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
left := $9F
top := $A1
right := $A3
bottom := $A5
snapshot
2017-09-17 18:18:47 +00:00
ldy #$03
L4FE7: ldx #$07
L4FE9: lda $9F,x
sta $92,x
dex
bpl L4FE9
ldx L5016,y
lda $9F,x
pha
starting in on aux seg1
2017-09-30 02:14:47 +00:00
lda $A0,x
snapshot
2017-09-17 18:18:47 +00:00
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
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sta current_penloc,x
snapshot
2017-09-17 18:18:47 +00:00
dex
bpl L500E
L5015: rts
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L5016: .byte $00,$02,$04,$06
L501A: .byte $04,$06,$00,$02
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
L501E: lda current_penwidth ; Also: draw horizontal line $92 to $96 at $98
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sec
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
sbc #1
starting in on aux seg1
2017-09-30 02:14:47 +00:00
cmp #$FF
snapshot
2017-09-17 18:18:47 +00:00
beq L5015
adc $96
sta $96
bcc L502F
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
inc $96+1
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
L502F: lda current_penheight
snapshot
2017-09-17 18:18:47 +00:00
sec
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
sbc #1
snapshot
2017-09-17 18:18:47 +00:00
cmp #$FF
beq L5015
adc $98
sta $98
MGTK internal renames
2018-01-29 08:57:55 +00:00
bcc PaintRectImpl
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
inc $98+1
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
;; Fall through...
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; PaintRect
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 4 bytes of params, copied to $92
MGTK internal renames
2018-01-29 08:57:55 +00:00
PaintRectImpl:
DeskTop Seg 1: params
2017-10-03 04:00:31 +00:00
jsr L514C
snapshot
2017-09-17 18:18:47 +00:00
L5043: jsr L50A9
bcc L5015
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
jsr set_up_fill_mode
snapshot
2017-09-17 18:18:47 +00:00
jsr L4EA9
Identify REDRAW_ALL entry point
2017-09-18 15:10:19 +00:00
jmp L4CED
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; InRect
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 4 bytes of params, copied to $92
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc InRectImpl
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
left := $92
top := $94
right := $96
bottom := $98
DeskTop Seg 1: params
2017-10-03 04:00:31 +00:00
jsr L514C
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax current_penloc_x
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
cpx left+1
DeskTop Seg 1: params
2017-10-03 04:00:31 +00:00
bmi fail
bne :+
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
cmp left
DeskTop Seg 1: params
2017-10-03 04:00:31 +00:00
bcc fail
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
: cpx right+1
DeskTop Seg 1: params
2017-10-03 04:00:31 +00:00
bmi :+
bne fail
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
cmp right
DeskTop Seg 1: params
2017-10-03 04:00:31 +00:00
bcc :+
bne fail
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
: ldax current_penloc_y
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
cpx top+1
DeskTop Seg 1: params
2017-10-03 04:00:31 +00:00
bmi fail
bne :+
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
cmp top
DeskTop Seg 1: params
2017-10-03 04:00:31 +00:00
bcc fail
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
: cpx bottom+1
DeskTop Seg 1: params
2017-10-03 04:00:31 +00:00
bmi :+
bne fail
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
cmp bottom
DeskTop Seg 1: params
2017-10-03 04:00:31 +00:00
bcc :+
bne fail
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
: exit_call $80 ; success!
snapshot
2017-09-17 18:18:47 +00:00
DeskTop Seg 1: params
2017-10-03 04:00:31 +00:00
fail: rts
.endproc
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; SetPortBits
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
SetPortBitsImpl:
more macros in mgtk
2018-02-12 00:13:20 +00:00
sub16 current_viewloc_x, current_maprect_x1, $F7
sub16 current_viewloc_y, current_maprect_y1, $F9
snapshot
2017-09-17 18:18:47 +00:00
rts
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
L50A9: lda current_maprect_x2+1
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
cmp $92+1
snapshot
2017-09-17 18:18:47 +00:00
bmi L50B7
bne L50B9
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_maprect_x2
snapshot
2017-09-17 18:18:47 +00:00
cmp $92
bcs L50B9
L50B7: clc
L50B8: rts
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
L50B9: lda $96+1
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
cmp current_maprect_x1+1
snapshot
2017-09-17 18:18:47 +00:00
bmi L50B7
bne L50C7
lda $96
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
cmp current_maprect_x1
snapshot
2017-09-17 18:18:47 +00:00
bcc L50B8
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
L50C7: lda current_maprect_y2+1
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
cmp $94+1
snapshot
2017-09-17 18:18:47 +00:00
bmi L50B7
bne L50D5
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_maprect_y2
snapshot
2017-09-17 18:18:47 +00:00
cmp $94
bcc L50B8
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
L50D5: lda $98+1
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
cmp current_maprect_y1+1
snapshot
2017-09-17 18:18:47 +00:00
bmi L50B7
bne L50E3
lda $98
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
cmp current_maprect_y1
snapshot
2017-09-17 18:18:47 +00:00
bcc L50B8
L50E3: ldy #$00
lda $92
sec
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sbc current_maprect_x1
snapshot
2017-09-17 18:18:47 +00:00
tax
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda $92+1
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sbc current_maprect_x1+1
snapshot
2017-09-17 18:18:47 +00:00
bpl L50FE
stx $9B
sta $9C
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_maprect_x1
snapshot
2017-09-17 18:18:47 +00:00
sta $92
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_maprect_x1+1
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
sta $92+1
snapshot
2017-09-17 18:18:47 +00:00
iny
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
L50FE: lda current_maprect_x2
snapshot
2017-09-17 18:18:47 +00:00
sec
sbc $96
tax
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_maprect_x2+1
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
sbc $96+1
snapshot
2017-09-17 18:18:47 +00:00
bpl L5116
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_maprect_x2
snapshot
2017-09-17 18:18:47 +00:00
sta $96
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_maprect_x2+1
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
sta $96+1
snapshot
2017-09-17 18:18:47 +00:00
tya
ora #$04
tay
L5116: lda $94
sec
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sbc current_maprect_y1
snapshot
2017-09-17 18:18:47 +00:00
tax
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda $94+1
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sbc current_maprect_y1+1
snapshot
2017-09-17 18:18:47 +00:00
bpl L5130
stx $9D
sta $9E
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_maprect_y1
snapshot
2017-09-17 18:18:47 +00:00
sta $94
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_maprect_y1+1
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
sta $94+1
snapshot
2017-09-17 18:18:47 +00:00
iny
iny
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
L5130: lda current_maprect_y2
snapshot
2017-09-17 18:18:47 +00:00
sec
sbc $98
tax
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_maprect_y2+1
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
sbc $98+1
snapshot
2017-09-17 18:18:47 +00:00
bpl L5148
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_maprect_y2
snapshot
2017-09-17 18:18:47 +00:00
sta $98
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_maprect_y2+1
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
sta $98+1
snapshot
2017-09-17 18:18:47 +00:00
tya
ora #$08
tay
L5148: sty $9A
sec
rts
L514C: sec
lda $96
sbc $92
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda $96+1
sbc $92+1
snapshot
2017-09-17 18:18:47 +00:00
bmi L5163
sec
lda $98
sbc $94
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda $98+1
sbc $94+1
snapshot
2017-09-17 18:18:47 +00:00
bmi L5163
rts
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
L5163: exit_call $81
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 16 bytes of params, copied to $8A
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
L5168: .byte 0
L5169: .byte 0
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
PaintBitsImpl:
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
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
snapshot
2017-09-17 18:18:47 +00:00
dex
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
bpl :-
more macros in mgtk
2018-02-12 00:13:20 +00:00
sub16 dbi_width, dbi_hoff, $82
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
lda dbi_x
sta dbi_hoff
snapshot
2017-09-17 18:18:47 +00:00
clc
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
adc $82
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
sta dbi_width
lda dbi_x+1
sta dbi_hoff+1
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
adc $83
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
sta dbi_width+1
more macros in mgtk
2018-02-12 00:13:20 +00:00
sub16 dbi_height, dbi_voff, $82
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
lda dbi_y
sta dbi_voff
snapshot
2017-09-17 18:18:47 +00:00
clc
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
adc $82
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
sta dbi_height
lda dbi_y+1
sta dbi_voff+1
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
adc $83
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
sta dbi_height+1
;; fall through
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
;;; $4D IMPL
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 16 bytes of params, copied to $8A
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
L51B3: lda #0
snapshot
2017-09-17 18:18:47 +00:00
sta $9B
sta $9C
sta $9D
lda $8F
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta $80
snapshot
2017-09-17 18:18:47 +00:00
jsr L50A9
bcs L51C5
rts
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
L51C5: jsr set_up_fill_mode
snapshot
2017-09-17 18:18:47 +00:00
lda $91
asl a
ldx $93
beq L51D1
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
adc #1
snapshot
2017-09-17 18:18:47 +00:00
L51D1: ldx $96
beq L51D7
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
adc #1
snapshot
2017-09-17 18:18:47 +00:00
L51D7: sta L5169
sta L5168
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda #2
snapshot
2017-09-17 18:18:47 +00:00
sta $81
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda #0
snapshot
2017-09-17 18:18:47 +00:00
sec
sbc $9D
clc
adc $8C
sta $8C
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda #0
snapshot
2017-09-17 18:18:47 +00:00
sec
sbc $9B
tax
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda #0
snapshot
2017-09-17 18:18:47 +00:00
sbc $9C
tay
txa
clc
adc $8A
tax
tya
adc $8B
jsr L4E8D
sta $8A
tya
rol a
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
cmp #7
ldx #1
snapshot
2017-09-17 18:18:47 +00:00
bcc L520E
dex
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
sbc #7
snapshot
2017-09-17 18:18:47 +00:00
L520E: stx L4C8A
inx
stx L4C91
sta $9B
lda $8A
rol a
jsr L4F3F
jsr L4EA9
starting in on aux seg1
2017-09-30 02:14:47 +00:00
lda #$01
snapshot
2017-09-17 18:18:47 +00:00
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
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
adc #7
snapshot
2017-09-17 18:18:47 +00:00
inc L5168
dec $81
L5249: tay
bne L5250
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
ldx #0
snapshot
2017-09-17 18:18:47 +00:00
beq L5276
L5250: tya
asl a
tay
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda shift_table_main,y
snapshot
2017-09-17 18:18:47 +00:00
sta L4CAE
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda shift_table_main+1,y
snapshot
2017-09-17 18:18:47 +00:00
sta L4CAF
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda shift_table_aux,y
snapshot
2017-09-17 18:18:47 +00:00
sta L4CB4
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda shift_table_aux+1,y
snapshot
2017-09-17 18:18:47 +00:00
sta L4CB5
ldy $81
sty L4CB1
dey
sty L4CBA
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
ldx #2
snapshot
2017-09-17 18:18:47 +00:00
L5276: lda L5285,x
sta L4CA1
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
lda L5285+1,x
snapshot
2017-09-17 18:18:47 +00:00
sta L4CA2
jmp L4CE7
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
L5285: .addr L4CBE,L4CA3
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
shift_table_aux := *-2
.addr shift_1_aux,shift_2_aux,shift_3_aux
.addr shift_4_aux,shift_5_aux,shift_6_aux
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
shift_table_main := *-2
.addr shift_1_main,shift_2_main,shift_3_main
.addr shift_4_main,shift_5_main,shift_6_main
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
snapshot
2017-09-17 18:18:47 +00:00
L52A1: stx $B0
asl a
asl a
sta $B3
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
ldy #3 ; Copy params_addr... to $92... and $96...
: lda (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
sta $92,y
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
sta $96,y
snapshot
2017-09-17 18:18:47 +00:00
dey
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
bpl :-
lda $94 ; y coord
snapshot
2017-09-17 18:18:47 +00:00
sta $A7
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda $94+1
sta $A7+1
ldy #0
snapshot
2017-09-17 18:18:47 +00:00
stx $AE
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L52C0: stx $82
lda (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
sta $0700,x
pha
iny
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
sta $073C,x
tax
pla
iny
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
cpx $92+1
snapshot
2017-09-17 18:18:47 +00:00
bmi L52DB
bne L52E1
cmp $92
bcs L52E1
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L52DB: stax $92
snapshot
2017-09-17 18:18:47 +00:00
bcc L52EF
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
L52E1: cpx $96+1
snapshot
2017-09-17 18:18:47 +00:00
bmi L52EF
bne L52EB
cmp $96
bcc L52EF
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L52EB: stax $96
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L52EF: ldx $82
lda (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
sta $0780,x
pha
iny
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
sta $07BC,x
tax
pla
iny
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
cpx $94+1
snapshot
2017-09-17 18:18:47 +00:00
bmi L530A
bne L5310
starting in on aux seg1
2017-09-30 02:14:47 +00:00
cmp $94
bcs L5310
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L530A: stax $94
snapshot
2017-09-17 18:18:47 +00:00
bcc L531E
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
L5310: cpx $98+1
snapshot
2017-09-17 18:18:47 +00:00
bmi L531E
bne L531A
cmp $98
bcc L531E
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L531A: stax $98
snapshot
2017-09-17 18:18:47 +00:00
L531E: cpx $A8
starting in on aux seg1
2017-09-30 02:14:47 +00:00
stx $A8
snapshot
2017-09-17 18:18:47 +00:00
bmi L5330
bne L532C
cmp $A7
bcc L5330
beq L5330
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L532C: ldx $82
snapshot
2017-09-17 18:18:47 +00:00
stx $AE
L5330: sta $A7
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
ldx $82
snapshot
2017-09-17 18:18:47 +00:00
inx
starting in on aux seg1
2017-09-30 02:14:47 +00:00
cpx #$3C
snapshot
2017-09-17 18:18:47 +00:00
beq L5398
cpy $B3
bcc L52C0
lda $94
cmp $98
bne L5349
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda $94+1
cmp $98+1
snapshot
2017-09-17 18:18:47 +00:00
beq L5398
L5349: stx $B3
bit $BA
bpl L5351
sec
rts
L5351: jmp L50A9
L5354: lda $B4
bpl L5379
asl a
asl a
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
adc params_addr
sta params_addr
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
bcc ora_2_param_bytes
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
inc params_addr+1
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
;; ORAs together first two bytes at (params_addr) and stores
;; in $B4, then advances params_addr
ora_2_param_bytes:
ldy #0
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
iny
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
ora (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
sta $B4
inc16 macro and refactors
2018-02-26 00:06:17 +00:00
inc16 params_addr
inc16 params_addr
ldy #$80
snapshot
2017-09-17 18:18:47 +00:00
L5379: rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; InPoly
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
InPolyImpl:
snapshot
2017-09-17 18:18:47 +00:00
lda #$80
bne L5380
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; PaintPoly
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
;; also called from the end of LineToImpl
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
PaintPolyImpl: lda #$00
snapshot
2017-09-17 18:18:47 +00:00
L5380: sta $BA
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
ldx #0
snapshot
2017-09-17 18:18:47 +00:00
stx $AD
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
jsr ora_2_param_bytes
snapshot
2017-09-17 18:18:47 +00:00
L5389: jsr L52A1
bcs L539D
ldx $B0
L5390: jsr L5354
bmi L5389
jmp L546F
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
L5398: exit_call $82
snapshot
2017-09-17 18:18:47 +00:00
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
L539D: ldy #1
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
stx $83
snapshot
2017-09-17 18:18:47 +00:00
L53C6: sty $A9
iny
cpy $B3
bne L53CF
ldy $B0
L53CF: cmp $0780,y
bne L53DB
ldx $07BC,y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
cpx $83
snapshot
2017-09-17 18:18:47 +00:00
beq L53C6
L53DB: ldx $AB
sec
sbc $0780,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $83
snapshot
2017-09-17 18:18:47 +00:00
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
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta $04A8,x
ldy $AB
snapshot
2017-09-17 18:18:47 +00:00
lda $0680,y
sta $0469,x
lda $06BC,y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta $04A9,x
lda $0780,y
sta $05E8,x
sta $05E9,x
snapshot
2017-09-17 18:18:47 +00:00
lda $07BC,y
Segment work
2017-12-16 05:36:09 +00:00
sta low_zp_stash_buffer,x
snapshot
2017-09-17 18:18:47 +00:00
sta L5E02,x
lda $0700,y
sta L5E32,x
lda $073C,y
sta L5E42,x
starting in on aux seg1
2017-09-30 02:14:47 +00:00
ldy $AC
lda $0700,y
sta L5E31,x
snapshot
2017-09-17 18:18:47 +00:00
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
starting in on aux seg1
2017-09-30 02:14:47 +00:00
beq L549E
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
ldy $82
snapshot
2017-09-17 18:18:47 +00:00
txa
sta $0428,y
jmp L547A
L549E: stx $B1
bcs L547A
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L54A2: sty $82
snapshot
2017-09-17 18:18:47 +00:00
lda $0428,y
bpl L5484
sta $0428,x
txa
sta $0428,y
bpl L547A
L54B2: ldx $B1
lda $05E8,x
sta $A9
sta $94
Segment work
2017-12-16 05:36:09 +00:00
lda low_zp_stash_buffer,x
snapshot
2017-09-17 18:18:47 +00:00
sta $AA
sta $95
L54C2: ldx $B1
bmi L5534
L54C6: lda $05E8,x
cmp $A9
bne L5532
Segment work
2017-12-16 05:36:09 +00:00
lda low_zp_stash_buffer,x
snapshot
2017-09-17 18:18:47 +00:00
cmp $AA
bne L5532
lda $0428,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $82
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5507: sty $83
starting in on aux seg1
2017-09-30 02:14:47 +00:00
lda $0428,y
bpl L54E0
sta $0428,x
txa
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
ldy $83
snapshot
2017-09-17 18:18:47 +00:00
sta $0428,y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L552E: ldx $82
snapshot
2017-09-17 18:18:47 +00:00
bpl L54C6
L5532: stx $B1
L5534: lda #$00
sta $AB
lda $B2
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $83
snapshot
2017-09-17 18:18:47 +00:00
bmi L551F
L553E: tax
lda $A9
cmp $05E8,x
bne L5584
lda $AA
Segment work
2017-12-16 05:36:09 +00:00
cmp low_zp_stash_buffer,x
snapshot
2017-09-17 18:18:47 +00:00
bne L5584
ldy $0468,x
lda $0680,y
bpl L556C
cpx $B2
beq L5564
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
ldy $83
snapshot
2017-09-17 18:18:47 +00:00
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
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr InRectImpl
snapshot
2017-09-17 18:18:47 +00:00
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
inc16 macro and refactors
2018-02-26 00:06:17 +00:00
L55FD: inc16 $A9
jmp L54C2
snapshot
2017-09-17 18:18:47 +00:00
L5606: ldy $04A8,x
lda $0780,y
sta $05E8,x
sec
sbc $A9
sta $A3
lda $07BC,y
Segment work
2017-12-16 05:36:09 +00:00
sta low_zp_stash_buffer,x
snapshot
2017-09-17 18:18:47 +00:00
sbc $AA
sta $A4
lda $0700,y
sec
sbc L5E31,x
sta $A1
lda $073C,y
sbc L5E41,x
sta $A2
php
bpl L563F
more macros in mgtk
2018-02-12 00:13:20 +00:00
sub16 #0, $A1, $A1
snapshot
2017-09-17 18:18:47 +00:00
L563F: stx $84
jsr L569A
ldx $84
plp
bpl L5662
lda #$00
sec
sbc $9F
sta $9F
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda #0
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sbc $A0
sta $A0
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda #0
snapshot
2017-09-17 18:18:47 +00:00
sbc $A1
sta $A1
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda #0
snapshot
2017-09-17 18:18:47 +00:00
sbc $A2
sta $A2
L5662: lda $A2
sta $05A8,x
cmp #$80
ror a
pha
lda $A1
sta $0568,x
ror a
pha
starting in on aux seg1
2017-09-30 02:14:47 +00:00
lda $A0
snapshot
2017-09-17 18:18:47 +00:00
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
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta $A0
snapshot
2017-09-17 18:18:47 +00:00
sta $A1
sta $A2
beq L56D5
L56A8: ldy #$20
lda #$00
sta $9F
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta $A0
snapshot
2017-09-17 18:18:47 +00:00
sta $A5
sta $A6
L56B4: asl $9F
starting in on aux seg1
2017-09-30 02:14:47 +00:00
rol $A0
snapshot
2017-09-17 18:18:47 +00:00
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
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; FramePoly
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc FramePolyImpl
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda #0
snapshot
2017-09-17 18:18:47 +00:00
sta $BA
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
jsr ora_2_param_bytes
ptr := $B7
draw_line_params := $92
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L56DD: lda params_addr
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
sta ptr
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda params_addr+1
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
sta ptr+1
lda $B4 ; ORAd param bytes
snapshot
2017-09-17 18:18:47 +00:00
sta $B6
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
ldx #0
jsr L52A1 ; ???
snapshot
2017-09-17 18:18:47 +00:00
bcc L572F
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
snapshot
2017-09-17 18:18:47 +00:00
lda $B3
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
sta $B5 ; loop counter
;; Loop for drawing
ldy #0
loop: dec $B5
beq endloop
snapshot
2017-09-17 18:18:47 +00:00
sty $B9
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
ldx #0
: lda (ptr),y
sta draw_line_params,x
snapshot
2017-09-17 18:18:47 +00:00
iny
inx
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
cpx #8
bne :-
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
jsr DRAW_LINE_ABS_IMPL_L5783
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
snapshot
2017-09-17 18:18:47 +00:00
lda $B9
clc
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
adc #4
snapshot
2017-09-17 18:18:47 +00:00
tay
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
bne loop
endloop:
;; Draw from last point back to start
ldx #0
: lda (ptr),y
sta draw_line_params,x
snapshot
2017-09-17 18:18:47 +00:00
iny
inx
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
cpx #4
bne :-
ldy #3
: lda (ptr),y
sta draw_line_params+4,y
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sta current_penloc,y
snapshot
2017-09-17 18:18:47 +00:00
dey
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
bpl :-
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
jsr DRAW_LINE_ABS_IMPL_L5783
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
;; Handle multiple segments, e.g. when drawing outlines for multi icons?
L572F: ldx #1
: lda ptr,x
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta $80,x
snapshot
2017-09-17 18:18:47 +00:00
lda $B5,x
sta $B3,x
dex
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
bpl :-
jsr L5354 ; ???
snapshot
2017-09-17 18:18:47 +00:00
bmi L56DD
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
snapshot
2017-09-17 18:18:47 +00:00
rts
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; Move
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 4 bytes of params, copied to $A1
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc MoveImpl
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
xdelta := $A1
ydelta := $A3
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax xdelta
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
jsr adjust_xpos
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax ydelta
snapshot
2017-09-17 18:18:47 +00:00
clc
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
adc current_penloc_y
sta current_penloc_y
snapshot
2017-09-17 18:18:47 +00:00
txa
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
adc current_penloc_y+1
sta current_penloc_y+1
snapshot
2017-09-17 18:18:47 +00:00
rts
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
;; Adjust current_penloc_x by (X,A)
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
.proc adjust_xpos
clc
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
adc current_penloc_x
sta current_penloc_x
snapshot
2017-09-17 18:18:47 +00:00
txa
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
adc current_penloc_x+1
sta current_penloc_x+1
snapshot
2017-09-17 18:18:47 +00:00
rts
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; LineImpl
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 4 bytes of params, copied to $A1
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc LineImpl
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
xdelta := $A1
ydelta := $A2
ldx #2 ; Convert relative x/y to absolute x/y at $92,$94
loop: lda xdelta,x
snapshot
2017-09-17 18:18:47 +00:00
clc
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
adc current_penloc_x,x
snapshot
2017-09-17 18:18:47 +00:00
sta $92,x
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
lda xdelta+1,x
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
adc current_penloc_x+1,x
snapshot
2017-09-17 18:18:47 +00:00
sta $93,x
dex
dex
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
bpl loop
;; fall through
.endproc
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; LineTo
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 4 bytes of params, copied to $92
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc LineToImpl
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
params := $92
xend := params + 0
yend := params + 2
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
pt1 := $92
x1 := pt1
y1 := pt1+2
pt2 := $96
x2 := pt2
y2 := pt2+2
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
ldx #3
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
L5778: lda current_penloc,x ; move pos to $96, assign params to pos
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
sta pt2,x
lda pt1,x
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sta current_penloc,x
snapshot
2017-09-17 18:18:47 +00:00
dex
bpl L5778
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
;; Called from elsewhere; draw $92,$94 to $96,$98; values modified
L5783:
lda y2+1
cmp y1+1
snapshot
2017-09-17 18:18:47 +00:00
bmi L57B0
bne L57BF
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda y2
cmp y1
snapshot
2017-09-17 18:18:47 +00:00
bcc L57B0
bne L57BF
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
;; y1 == y2
lda x1
ldx x1+1
cpx x2+1
snapshot
2017-09-17 18:18:47 +00:00
bmi L57AD
bne L57A1
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
cmp x2
snapshot
2017-09-17 18:18:47 +00:00
bcc L57AD
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
L57A1: ldy x2 ; swap so x1 < x2
sta x2
sty x1
ldy x2+1
stx x2+1
sty x1+1
snapshot
2017-09-17 18:18:47 +00:00
L57AD: jmp L501E
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
L57B0: ldx #3 ; Swap start/end
: lda $92,x
snapshot
2017-09-17 18:18:47 +00:00
tay
lda $96,x
sta $92,x
tya
sta $96,x
dex
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
bpl :-
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
L57BF: ldx current_penwidth
snapshot
2017-09-17 18:18:47 +00:00
dex
stx $A2
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_penheight
snapshot
2017-09-17 18:18:47 +00:00
sta $A4
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda #0
snapshot
2017-09-17 18:18:47 +00:00
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
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
L57E9: ldy #5
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L57EB: sty $82
snapshot
2017-09-17 18:18:47 +00:00
ldx L583E,y
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
ldy #3
snapshot
2017-09-17 18:18:47 +00:00
L57F2: lda $92,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $83,y
snapshot
2017-09-17 18:18:47 +00:00
dex
dey
bpl L57F2
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
ldy $82
snapshot
2017-09-17 18:18:47 +00:00
ldx L5844,y
lda $A1,x
clc
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
adc $83
sta $83
snapshot
2017-09-17 18:18:47 +00:00
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
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
ldx #0
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L581F: lda $83,x
snapshot
2017-09-17 18:18:47 +00:00
sta L5852,y
iny
inx
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
cpx #4
snapshot
2017-09-17 18:18:47 +00:00
bne L581F
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
ldy $82
snapshot
2017-09-17 18:18:47 +00:00
dey
bpl L57EB
lda L583C
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta params_addr
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
lda L583C+1
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta params_addr+1
MGTK internal renames
2018-01-29 08:57:55 +00:00
jmp PaintPolyImpl
starting in on aux seg1
2017-09-30 02:14:47 +00:00
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
L583C: .addr L5850
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L583E: .byte $03,$03,$07,$07,$07,$03
L5844: .byte $00,$00,$00,$01,$01,$01
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
L584A: .byte $00,$01,$01,$01,$00,$00
;; params for a $15 call
L5850: .byte $06,$00
starting in on aux seg1
2017-09-30 02:14:47 +00: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
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
.endproc
MGTK internal renames
2018-01-29 08:57:55 +00:00
DRAW_LINE_ABS_IMPL_L5783 := LineToImpl::L5783
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; SetFont
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc SetFontImpl
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
lda params_addr ; set font to passed address
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sta current_textfont
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda params_addr+1
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sta current_textfont+1
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
;; 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
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
: lda (current_textfont),y
snapshot
2017-09-17 18:18:47 +00:00
sta $FD,y
iny
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
cpy #3
bne :-
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
cmp #17 ; if height >= 17, skip this next bit
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
bcs end
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax current_textfont
snapshot
2017-09-17 18:18:47 +00:00
clc
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
adc #3
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
bcc :+
snapshot
2017-09-17 18:18:47 +00:00
inx
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
: stax glyph_widths ; set $FB/$FC to start of widths
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
snapshot
2017-09-17 18:18:47 +00:00
sec
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
adc glyph_last
bcc :+
snapshot
2017-09-17 18:18:47 +00:00
inx
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
: ldy #0 ; loop 0... height-1
loop: sta glyph_row_lo,y
snapshot
2017-09-17 18:18:47 +00:00
pha
txa
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
sta glyph_row_hi,y
snapshot
2017-09-17 18:18:47 +00:00
pla
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
snapshot
2017-09-17 18:18:47 +00:00
sec
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
adc glyph_last
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
bcc :+
snapshot
2017-09-17 18:18:47 +00:00
inx
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
: bit glyph_flag ; if flag is set, double the offset (???)
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
bpl :+
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
snapshot
2017-09-17 18:18:47 +00:00
sec
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
adc glyph_last
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
bcc :+
snapshot
2017-09-17 18:18:47 +00:00
inx
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
: iny
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
cpy glyph_height_p
bne loop
snapshot
2017-09-17 18:18:47 +00:00
rts
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
end: exit_call $83
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
glyph_row_lo:
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
glyph_row_hi:
starting in on aux seg1
2017-09-30 02:14:47 +00:00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; TextWidth
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 3 bytes of params, copied to $A1
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc TextWidthImpl
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
jsr measure_text
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
ldy #3 ; Store result (X,A) at params+3
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
txa
iny
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
rts
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
;; 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
snapshot
2017-09-17 18:18:47 +00:00
tay
txa
clc
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
adc (glyph_widths),y
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
bcc :+
inc accum
: tax
ldy accum+1
snapshot
2017-09-17 18:18:47 +00:00
iny
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
cpy length
bne loop
snapshot
2017-09-17 18:18:47 +00:00
txa
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
ldx accum
snapshot
2017-09-17 18:18:47 +00:00
rts
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
.endproc
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
snapshot
2017-09-17 18:18:47 +00:00
L5907: sec
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
sbc #1
snapshot
2017-09-17 18:18:47 +00:00
bcs L590D
dex
L590D: clc
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
adc current_penloc_x
snapshot
2017-09-17 18:18:47 +00:00
sta $96
txa
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
adc current_penloc_x+1
snapshot
2017-09-17 18:18:47 +00:00
sta $97
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
copy16 current_penloc_x, $92
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_penloc_y
snapshot
2017-09-17 18:18:47 +00:00
sta $98
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
ldx current_penloc_y+1
snapshot
2017-09-17 18:18:47 +00:00
stx $99
clc
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
adc #1
snapshot
2017-09-17 18:18:47 +00:00
bcc L592D
inx
L592D: sec
sbc $FF
bcs L5933
dex
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L5933: stax $94
snapshot
2017-09-17 18:18:47 +00:00
rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 3 bytes of params, copied to $A1
MGTK internal renames
2018-01-29 08:57:55 +00:00
DrawTextImpl:
Segment work
2017-12-16 05:36:09 +00:00
jsr maybe_unstash_low_zp
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
jsr measure_text
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
stax $A4
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
ldy #0
snapshot
2017-09-17 18:18:47 +00:00
sty $9F
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sty $A0
snapshot
2017-09-17 18:18:47 +00:00
sty $9B
sty $9D
jsr L5907
jsr L50A9
starting in on aux seg1
2017-09-30 02:14:47 +00:00
bcc L59B9
tya
snapshot
2017-09-17 18:18:47 +00:00
ror a
bcc L5972
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
ldy #0
snapshot
2017-09-17 18:18:47 +00:00
ldx $9C
L595C: sty $9F
lda ($A1),y
tay
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
lda (glyph_widths),y
snapshot
2017-09-17 18:18:47 +00:00
clc
adc $9B
bcc L596B
inx
beq L5972
L596B: sta $9B
ldy $9F
iny
bne L595C
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
L5972: jsr set_up_fill_mode
snapshot
2017-09-17 18:18:47 +00:00
jsr L4EA9
lda $87
clc
adc $9B
bpl L5985
inc $91
starting in on aux seg1
2017-09-30 02:14:47 +00:00
dec $A0
snapshot
2017-09-17 18:18:47 +00:00
adc #$0E
L5985: sta $87
lda $91
inc $91
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
ldy current_mapwidth
snapshot
2017-09-17 18:18:47 +00:00
bpl L599F
asl a
tax
lda $87
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
cmp #7
snapshot
2017-09-17 18:18:47 +00:00
bcs L5998
inx
L5998: lda $96
beq L599D
inx
L599D: stx $91
L599F: lda $87
sec
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
sbc #7
snapshot
2017-09-17 18:18:47 +00:00
bcc L59A8
sta $87
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
L59A8: lda #0
snapshot
2017-09-17 18:18:47 +00:00
rol a
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
eor #1
snapshot
2017-09-17 18:18:47 +00:00
sta $9C
tax
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
sta LOWSCR,x
snapshot
2017-09-17 18:18:47 +00:00
jsr L59C3
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
sta LOWSCR
Segment work
2017-12-16 05:36:09 +00:00
L59B9: jsr maybe_stash_low_zp
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax $A4
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
jmp adjust_xpos
snapshot
2017-09-17 18:18:47 +00:00
L59C3: lda $98
sec
sbc $94
asl a
tax
lda L5D81,x
sta L5B02
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda L5D81+1,x
snapshot
2017-09-17 18:18:47 +00:00
sta L5B03
lda L5DA1,x
sta L5A95
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda L5DA1+1,x
snapshot
2017-09-17 18:18:47 +00:00
sta L5A96
lda L5DC1,x
sta L5C22
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda L5DC1+1,x
snapshot
2017-09-17 18:18:47 +00:00
sta L5C23
lda L5DE1,x
sta L5CBE
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda L5DE1+1,x
snapshot
2017-09-17 18:18:47 +00:00
sta L5CBF
txa
lsr a
tax
sec
starting in on aux seg1
2017-09-30 02:14:47 +00:00
stx $80
snapshot
2017-09-17 18:18:47 +00:00
stx $81
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
lda #0
snapshot
2017-09-17 18:18:47 +00:00
sbc $9D
sta $9D
tay
ldx #$C3
sec
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
L5A0C: lda glyph_row_lo,y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta L5B04+1,x
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
lda glyph_row_hi,y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta L5B04+2,x
snapshot
2017-09-17 18:18:47 +00:00
txa
sbc #$0D
tax
iny
starting in on aux seg1
2017-09-30 02:14:47 +00:00
dec $80
snapshot
2017-09-17 18:18:47 +00:00
bpl L5A0C
ldy $9D
ldx #$4B
sec
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
L5A26: lda glyph_row_lo,y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta L5A97+1,x
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
lda glyph_row_hi,y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta L5A97+2,x
snapshot
2017-09-17 18:18:47 +00:00
txa
sbc #$05
tax
iny
dec $81
bpl L5A26
ldy $94
ldx #$00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
L5A3F: bit current_mapwidth
snapshot
2017-09-17 18:18:47 +00:00
bmi L5A56
lda $84
clc
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
adc current_mapwidth
snapshot
2017-09-17 18:18:47 +00:00
sta $84
sta $20,x
lda $85
adc #$00
sta $85
sta $21,x
bne L5A65
DeskTop: A2D macros
2017-09-30 22:32:38 +00:00
L5A56: lda hires_table_lo,y
snapshot
2017-09-17 18:18:47 +00:00
clc
adc $86
sta $20,x
DeskTop: A2D macros
2017-09-30 22:32:38 +00:00
lda hires_table_hi,y
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
ora current_mapbits+1
snapshot
2017-09-17 18:18:47 +00:00
sta $21,x
L5A65: cpy $98
starting in on aux seg1
2017-09-30 02:14:47 +00:00
beq L5A6E
iny
snapshot
2017-09-17 18:18:47 +00:00
inx
inx
bne L5A3F
L5A6E: ldx #$0F
lda #$00
DeskTop: Combine 3 aux segments into one file
2017-10-10 02:15:17 +00:00
L5A72: sta $0000,x
snapshot
2017-09-17 18:18:47 +00:00
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
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
lda (glyph_widths),y
snapshot
2017-09-17 18:18:47 +00:00
beq L5AE7
ldy $87
bne L5AEA
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L5A95 := * + 1
L5A96 := * + 2
jmp L5A97
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5A97: lda $FFFF,x
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta $0F
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5A9C: lda $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
sta $0E
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5AA1: lda $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
sta $0D
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5AA6: lda $FFFF,x
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta $0C
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5AAB: lda $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
sta $0B
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5AB0: lda $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
sta $0A
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5AB5: lda $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
sta $09
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5ABA: lda $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
sta $08
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5ABF: lda $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
sta $07
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5AC4: lda $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
sta $06
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5AC9: lda $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
sta $05
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5ACE: lda $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
sta $04
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5AD3: lda $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
sta $03
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5AD8: lda $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
sta $02
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5ADD: lda $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
sta $01
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5AE2: lda $FFFF,x
DeskTop: Combine 3 aux segments into one file
2017-10-10 02:15:17 +00:00
sta $0000
snapshot
2017-09-17 18:18:47 +00:00
L5AE7: jmp L5BD4
L5AEA: tya
asl a
tay
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda shift_table_aux,y
snapshot
2017-09-17 18:18:47 +00:00
sta $40
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda shift_table_aux+1,y
sta $40+1
lda shift_table_main,y
snapshot
2017-09-17 18:18:47 +00:00
sta $42
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda shift_table_main+1,y
sta $42+1
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L5B02 := * + 1
L5B03 := * + 2
jmp L5B04
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5B04: ldy $FFFF,x ; All of these $FFFFs are modified
starting in on aux seg1
2017-09-30 02:14:47 +00:00
lda ($42),y
snapshot
2017-09-17 18:18:47 +00:00
sta $1F
lda ($40),y
ora $0F
sta $0F
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5B11: ldy $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
lda ($42),y
sta $1E
lda ($40),y
ora $0E
sta $0E
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5B1E: ldy $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
lda ($42),y
sta $1D
lda ($40),y
ora $0D
sta $0D
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5B2B: ldy $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
lda ($42),y
sta $1C
lda ($40),y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
ora $0C
sta $0C
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5B38: ldy $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
lda ($42),y
sta $1B
lda ($40),y
ora $0B
sta $0B
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5B45: ldy $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
lda ($42),y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta $1A
snapshot
2017-09-17 18:18:47 +00:00
lda ($40),y
ora $0A
sta $0A
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5B52: ldy $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
lda ($42),y
sta $19
lda ($40),y
ora $09
sta $09
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5B5F: ldy $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
lda ($42),y
sta $18
lda ($40),y
ora $08
sta $08
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5B6C: ldy $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
lda ($42),y
sta $17
lda ($40),y
ora $07
sta $07
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5B79: ldy $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
lda ($42),y
sta $16
lda ($40),y
ora $06
sta $06
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5B86: ldy $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
lda ($42),y
sta $15
lda ($40),y
ora $05
sta $05
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5B93: ldy $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
lda ($42),y
sta $14
lda ($40),y
ora $04
sta $04
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5BA0: ldy $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
lda ($42),y
sta $13
lda ($40),y
ora $03
sta $03
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5BAD: ldy $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
lda ($42),y
sta $12
lda ($40),y
ora $02
sta $02
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5BBA: ldy $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
lda ($42),y
sta $11
lda ($40),y
ora $01
sta $01
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5BC7: ldy $FFFF,x
snapshot
2017-09-17 18:18:47 +00:00
lda ($42),y
sta $10
lda ($40),y
DeskTop: Combine 3 aux segments into one file
2017-10-10 02:15:17 +00:00
ora $0000
sta $0000
snapshot
2017-09-17 18:18:47 +00:00
L5BD4: bit $81
bpl L5BE2
inc $9F
lda #$00
sta $81
lda $9A
bne L5BF6
L5BE2: txa
tay
Identify SET_FONT and tease out font details
2017-10-08 18:06:40 +00:00
lda (glyph_widths),y
snapshot
2017-09-17 18:18:47 +00:00
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
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L5BFF: ldy $9F
cpy $A3
snapshot
2017-09-17 18:18:47 +00:00
beq L5C08
jmp L5A81
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L5C08: ldy $A0
snapshot
2017-09-17 18:18:47 +00:00
jmp L5CB5
L5C0D: sbc #$07
sta $87
starting in on aux seg1
2017-09-30 02:14:47 +00:00
ldy $A0
snapshot
2017-09-17 18:18:47 +00:00
bne L5C18
jmp L5CA2
L5C18: bmi L5C84
dec $91
bne L5C21
jmp L5CB5
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L5C21:
L5C22 := * + 1
L5C23 := * + 2
jmp L5C24
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
;;; Per JB: "looks like the quickdraw fast-path draw unclipped pattern slab"
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L5C24: lda $0F
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
sta ($3E),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5C2A: lda $0E
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
sta ($3C),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5C30: lda $0D
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
sta ($3A),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5C36: lda $0C
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
sta ($38),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5C3C: lda $0B
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
sta ($36),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5C42: lda $0A
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
sta ($34),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5C48: lda $09
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
sta ($32),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5C4E: lda $08
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta ($30),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5C54: lda $07
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
sta ($2E),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5C5A: lda $06
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
sta ($2C),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5C60: lda $05
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
sta ($2A),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5C66: lda $04
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
sta ($28),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5C6C: lda $03
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
sta ($26),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5C72: lda $02
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
sta ($24),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5C78: lda $01
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
sta ($22),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5C7E: lda $00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
sta ($20),y
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
L5C84: bit current_mapwidth
snapshot
2017-09-17 18:18:47 +00:00
bpl L5C94
lda $9C
eor #$01
tax
sta $9C
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
sta LOWSCR,x
snapshot
2017-09-17 18:18:47 +00:00
beq L5C96
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L5C94: inc $A0
snapshot
2017-09-17 18:18:47 +00:00
L5C96: ldx #$0F
L5C98: lda $10,x
DeskTop: Combine 3 aux segments into one file
2017-10-10 02:15:17 +00:00
sta $0000,x
snapshot
2017-09-17 18:18:47 +00:00
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
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta $80
L5CBE := * + 1
L5CBF := * + 2
jmp L5CC0
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
;;; Per JB: "looks like the quickdraw slow-path draw clipped pattern slab"
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L5CC0: lda $0F
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
eor ($3E),y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
and $80
snapshot
2017-09-17 18:18:47 +00:00
eor ($3E),y
sta ($3E),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5CCC: lda $0E
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
eor ($3C),y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
and $80
snapshot
2017-09-17 18:18:47 +00:00
eor ($3C),y
sta ($3C),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5CD8: lda $0D
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
eor ($3A),y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
and $80
snapshot
2017-09-17 18:18:47 +00:00
eor ($3A),y
sta ($3A),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5CE4: lda $0C
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
eor ($38),y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
and $80
snapshot
2017-09-17 18:18:47 +00:00
eor ($38),y
sta ($38),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5CF0: lda $0B
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
eor ($36),y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
and $80
snapshot
2017-09-17 18:18:47 +00:00
eor ($36),y
sta ($36),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5CFC: lda $0A
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
eor ($34),y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
and $80
snapshot
2017-09-17 18:18:47 +00:00
eor ($34),y
sta ($34),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5D08: lda $09
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
eor ($32),y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
and $80
snapshot
2017-09-17 18:18:47 +00:00
eor ($32),y
sta ($32),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5D14: lda $08
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
starting in on aux seg1
2017-09-30 02:14:47 +00:00
eor ($30),y
and $80
eor ($30),y
sta ($30),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5D20: lda $07
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
eor ($2E),y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
and $80
snapshot
2017-09-17 18:18:47 +00:00
eor ($2E),y
sta ($2E),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5D2C: lda $06
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
eor ($2C),y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
and $80
snapshot
2017-09-17 18:18:47 +00:00
eor ($2C),y
sta ($2C),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5D38: lda $05
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
eor ($2A),y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
and $80
snapshot
2017-09-17 18:18:47 +00:00
eor ($2A),y
sta ($2A),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5D44: lda $04
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
eor ($28),y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
and $80
snapshot
2017-09-17 18:18:47 +00:00
eor ($28),y
sta ($28),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5D50: lda $03
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
eor ($26),y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
and $80
snapshot
2017-09-17 18:18:47 +00:00
eor ($26),y
sta ($26),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5D5C: lda $02
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
eor ($24),y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
and $80
snapshot
2017-09-17 18:18:47 +00:00
eor ($24),y
sta ($24),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5D68: lda $01
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
starting in on aux seg1
2017-09-30 02:14:47 +00:00
eor ($22),y
and $80
snapshot
2017-09-17 18:18:47 +00:00
eor ($22),y
sta ($22),y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L5D74: lda $00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
eor current_textback
snapshot
2017-09-17 18:18:47 +00:00
eor ($20),y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
and $80
snapshot
2017-09-17 18:18:47 +00:00
eor ($20),y
sta ($20),y
rts
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
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
Segment work
2017-12-16 05:36:09 +00:00
low_zp_stash_buffer:
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
.byte $00
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L5E02: .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L5E11: .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L5E21: .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
starting in on aux seg1
2017-09-30 02:14:47 +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
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; InitGraf
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc InitGrafImpl
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
lda #$71 ; %0001 lo nibble = HiRes, Page 1, Full, Graphics
sta $82 ; (why is high nibble 7 ???)
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr SetSwitchesImpl
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
;; Initialize port
ldx #sizeof_grafport-1
loop: lda standard_port,x
snapshot
2017-09-17 18:18:47 +00:00
sta $8A,x
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sta current_grafport,x
snapshot
2017-09-17 18:18:47 +00:00
dex
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
bpl loop
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax saved_port_addr
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
jsr assign_and_prepare_port
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
snapshot
2017-09-17 18:18:47 +00:00
lda #$7F
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
sta fill_eor_mask
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr PaintRectImpl
snapshot
2017-09-17 18:18:47 +00:00
lda #$00
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
sta fill_eor_mask
snapshot
2017-09-17 18:18:47 +00:00
rts
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
saved_port_addr:
.addr saved_port
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
.endproc
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; SetSwitches
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 1 byte param, copied to $82
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
;;; 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
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc SetSwitchesImpl
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
param := $82
lda DHIRESON ; enable dhr graphics
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
sta SET80VID
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
ldx #3
loop: lsr param ; shift low bit into carry
lda table,x
snapshot
2017-09-17 18:18:47 +00:00
rol a
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
tay ; y = table[x] * 2 + carry
bcs store
lda $C000,y ; why load vs. store ???
bcc :+
store: sta $C000,y
: dex
bpl loop
snapshot
2017-09-17 18:18:47 +00:00
rts
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
table: .byte <(TXTCLR / 2), <(MIXCLR / 2), <(LOWSCR / 2), <(LORES / 2)
.endproc
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; SetPort
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc SetPortImpl
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax params_addr
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
;; fall through
.endproc
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
;; Call with port address in (X,A)
assign_and_prepare_port:
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
stax active_port
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
;; fall through
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
;; Initializes font (if needed), port, pattern, and fill mode
prepare_port:
lda current_textfont+1
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
beq :+ ; only prepare font if necessary
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr SetFontImpl::prepare_font
: jsr SetPortBitsImpl
jsr SetPatternImpl
jmp SetPenModeImpl
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; GetPort
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc GetPortImpl
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
jsr apply_port_to_active_port
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax active_port
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
;; fall through
Identify GET_STATE
2017-10-12 15:04:27 +00:00
.endproc
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
;; Store result (X,A) at params
store_xa_at_params:
ldy #0
;; Store result (X,A) at params+Y
simplify param names
2018-02-28 02:38:18 +00:00
store_xa_at_y:
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
sta (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
txa
iny
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; InitPort
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc InitPortImpl
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
ldy #sizeof_grafport-1 ; Store 36 bytes at params
loop: lda standard_port,y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
dey
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
bpl loop
.endproc
rts3: rts
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; SetZP1
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 1 byte of params, copied to $82
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc SetZP1Impl
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
param := $82
lda param
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
cmp preserve_zp_flag
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
beq rts3
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
sta preserve_zp_flag
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
bcc rts3
MGTK internal renames
2018-01-29 08:57:55 +00:00
jmp dispatch::cleanup
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; SetZP2
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 1 byte of params, copied to $82
DeskTop: comments
2017-12-31 05:22:06 +00:00
;;; If high bit set stash ZP $00-$43 to buffer if not already stashed.
Segment work
2017-12-16 05:36:09 +00:00
;;; If high bit clear unstash ZP $00-$43 from buffer if not already unstashed.
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc SetZP2Impl
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $82
Segment work
2017-12-16 05:36:09 +00:00
cmp low_zp_stash_flag
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
beq rts3
Segment work
2017-12-16 05:36:09 +00:00
sta low_zp_stash_flag
bcc unstash
maybe_stash:
bit low_zp_stash_flag
bpl end
;; Copy buffer to ZP $00-$43
stash:
snapshot
2017-09-17 18:18:47 +00:00
ldx #$43
Segment work
2017-12-16 05:36:09 +00:00
: lda low_zp_stash_buffer,x
DeskTop: Combine 3 aux segments into one file
2017-10-10 02:15:17 +00:00
sta $00,x
snapshot
2017-09-17 18:18:47 +00:00
dex
Segment work
2017-12-16 05:36:09 +00:00
bpl :-
snapshot
2017-09-17 18:18:47 +00:00
Segment work
2017-12-16 05:36:09 +00:00
end: rts
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
Segment work
2017-12-16 05:36:09 +00:00
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
snapshot
2017-09-17 18:18:47 +00:00
dex
Segment work
2017-12-16 05:36:09 +00:00
bpl :-
snapshot
2017-09-17 18:18:47 +00:00
rts
Segment work
2017-12-16 05:36:09 +00:00
.endproc
MGTK internal renames
2018-01-29 08:57:55 +00:00
maybe_stash_low_zp := SetZP2Impl::maybe_stash
maybe_unstash_low_zp := SetZP2Impl::maybe_unstash
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; Version
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc VersionImpl
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
ldy #5 ; Store 6 bytes at params
MGTK internal renames
2018-01-29 08:57:55 +00:00
loop: lda version,y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta (params_addr),y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
dey
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
bpl loop
snapshot
2017-09-17 18:18:47 +00:00
rts
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc version
major: .byte 1 ; 1.0.0
minor: .byte 0
patch: .byte 0
DAs: rename structs
2018-01-30 04:14:34 +00:00
status: .byte 'F' ; Final???
MGTK internal renames
2018-01-29 08:57:55 +00:00
release:.byte 1 ; ???
.byte 0 ; ???
.endproc
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
.endproc
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
preserve_zp_flag: ; if high bit set, ZP saved during MGTK calls
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
.byte $80
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
Segment work
2017-12-16 05:36:09 +00:00
low_zp_stash_flag:
.byte $80
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
stack_ptr_stash:
.byte 0
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
;;; Standard GrafPort
.proc standard_port
viewloc: .word 0, 0
mapbits: .addr MGTK::screen_mapbits
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
mapwidth: .word MGTK::screen_mapwidth
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
maprect: .word 0, 0, screen_width-1, screen_height-1
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
penpattern: .res 8, $FF
colormasks: .byte MGTK::colormask_and, MGTK::colormask_or
penloc: .word 0, 0
penwidth: .byte 1
penheight: .byte 1
mode: .byte 0
textback: .byte 0
textfont: .addr 0
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
.endproc
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
.proc saved_port
viewloc: .word 0, 0
mapbits: .addr MGTK::screen_mapbits
mapwidth: .word MGTK::screen_mapwidth
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
maprect: .word 0, 0, screen_width-1, screen_height-1
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
penpattern: .res 8, $FF
colormasks: .byte MGTK::colormask_and, MGTK::colormask_or
penloc: .word 0, 0
penwidth: .byte 1
penheight: .byte 1
mode: .byte 0
textback: .byte 0
textfont: .addr 0
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
.endproc
active_saved: ; saved copy of $F4...$FF when ZP swapped
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
.addr saved_port
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
.res 10, 0
zp_saved: ; top half of ZP for when preserve_zp_flag set
.res 128, 0
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
;; 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
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
.proc set_pos_params
xcoord: .word 0
ycoord: .word 0
.endproc
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
mouse_state:
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
mouse_x: .word 0
mouse_y: .word 0
mouse_status: .byte 0
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L5FFD: .byte $00
L5FFE: .byte $00
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00: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
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
cursor_hotspot_x: .byte $00
cursor_hotspot_y: .byte $00
starting in on aux seg1
2017-09-30 02:14:47 +00: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
snapshot
2017-09-17 18:18:47 +00:00
L6065: .byte $33
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L6066: .byte $60
snapshot
2017-09-17 18:18:47 +00:00
L6067: lda #$FF
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
sta cursor_count
lda #0
sta cursor_flag
starting in on aux seg1
2017-09-30 02:14:47 +00:00
lda L6065
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta params_addr
snapshot
2017-09-17 18:18:47 +00:00
lda L6066
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta params_addr+1
;; fall through
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; SetCursor
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
cursor_height := 12
cursor_width := 2
cursor_mask_offset := cursor_width * cursor_height
cursor_hotspot_offset := 2 * cursor_width * cursor_height
MGTK internal renames
2018-01-29 08:57:55 +00:00
SetCursorImpl:
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
php
snapshot
2017-09-17 18:18:47 +00:00
sei
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax params_addr
stax active_cursor
snapshot
2017-09-17 18:18:47 +00:00
clc
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
adc #cursor_mask_offset
bcc :+
snapshot
2017-09-17 18:18:47 +00:00
inx
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
: stax active_cursor_mask
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
ldy #cursor_hotspot_offset
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda (params_addr),y
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
sta cursor_hotspot_x
snapshot
2017-09-17 18:18:47 +00:00
iny
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda (params_addr),y
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
sta cursor_hotspot_y
jsr restore_cursor_background
jsr draw_cursor
snapshot
2017-09-17 18:18:47 +00:00
plp
L60A7: rts
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
update_cursor:
lda cursor_count ; hidden? if so, skip
snapshot
2017-09-17 18:18:47 +00:00
bne L60A7
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
bit cursor_flag
snapshot
2017-09-17 18:18:47 +00:00
bmi L60A7
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
draw_cursor:
lda #$00
sta cursor_count
sta cursor_flag
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
lda set_pos_params::ycoord
snapshot
2017-09-17 18:18:47 +00:00
clc
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
sbc cursor_hotspot_y
snapshot
2017-09-17 18:18:47 +00:00
sta $84
clc
adc #$0C
sta $85
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
lda set_pos_params::xcoord
snapshot
2017-09-17 18:18:47 +00:00
sec
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
sbc cursor_hotspot_x
snapshot
2017-09-17 18:18:47 +00:00
tax
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
lda set_pos_params::xcoord+1
snapshot
2017-09-17 18:18:47 +00:00
sbc #$00
starting in on aux seg1
2017-09-30 02:14:47 +00:00
bpl L60E1
snapshot
2017-09-17 18:18:47 +00:00
txa
ror a
starting in on aux seg1
2017-09-30 02:14:47 +00:00
tax
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
ldy mod7_table+124,x ; ???
snapshot
2017-09-17 18:18:47 +00:00
lda #$FF
bmi L60E4
L60E1: jsr L4E8D
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L60E4: sta $82
snapshot
2017-09-17 18:18:47 +00:00
tya
rol a
cmp #$07
bcc L60EE
sbc #$07
L60EE: tay
lda #$2A
rol a
eor #$01
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $83
snapshot
2017-09-17 18:18:47 +00:00
sty L6004
tya
asl a
tay
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda shift_table_main,y
snapshot
2017-09-17 18:18:47 +00:00
sta L6164
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda shift_table_main+1,y
snapshot
2017-09-17 18:18:47 +00:00
sta L6165
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
lda L5285+2,y
snapshot
2017-09-17 18:18:47 +00:00
sta L616A
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
lda L5285+3,y
snapshot
2017-09-17 18:18:47 +00:00
sta L616B
ldx #$03
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L6116: lda $82,x
snapshot
2017-09-17 18:18:47 +00:00
sta L602F,x
dex
bpl L6116
ldx #$17
starting in on aux seg1
2017-09-30 02:14:47 +00:00
stx $86
snapshot
2017-09-17 18:18:47 +00:00
ldx #$23
ldy $85
L6126: cpy #$C0
bcc L612D
jmp L61B9
DeskTop: A2D macros
2017-09-30 22:32:38 +00:00
L612D: lda hires_table_lo,y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $88
DeskTop: A2D macros
2017-09-30 22:32:38 +00:00
lda hires_table_hi,y
snapshot
2017-09-17 18:18:47 +00:00
ora #$20
sta $89
sty $85
stx $87
ldy $86
ldx #$01
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L6141:
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
active_cursor := * + 1
DeskTop: Seg 1 strings
2017-09-30 02:51:11 +00:00
lda $FFFF,y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta L6005,x
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
active_cursor_mask := * + 1
DeskTop: Seg 1 strings
2017-09-30 02:51:11 +00:00
lda $FFFF,y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta L6008,x
snapshot
2017-09-17 18:18:47 +00:00
dey
dex
bpl L6141
lda #$00
sta L6007
sta L600A
ldy L6004
beq L6172
ldy #$05
L6160: ldx L6004,y
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L6164 := * + 1
L6165 := * + 2
ora $FF80,x
sta L6005,y
L616A := * + 1
L616B := * + 2
lda $FF00,x
snapshot
2017-09-17 18:18:47 +00:00
dey
starting in on aux seg1
2017-09-30 02:14:47 +00:00
bne L6160
sta L6005
L6172: ldx $87
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
ldy $82
lda $83
snapshot
2017-09-17 18:18:47 +00:00
jsr L622A
bcs L618D
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda ($88),y
snapshot
2017-09-17 18:18:47 +00:00
sta L600B,x
lda L6008
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
ora ($88),y
snapshot
2017-09-17 18:18:47 +00:00
eor L6005
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta ($88),y
snapshot
2017-09-17 18:18:47 +00:00
dex
L618D: jsr L6220
bcs L61A2
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda ($88),y
snapshot
2017-09-17 18:18:47 +00:00
sta L600B,x
lda L6009
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
ora ($88),y
snapshot
2017-09-17 18:18:47 +00:00
eor L6006
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta ($88),y
snapshot
2017-09-17 18:18:47 +00:00
dex
L61A2: jsr L6220
bcs L61B7
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda ($88),y
snapshot
2017-09-17 18:18:47 +00:00
sta L600B,x
lda L600A
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
ora ($88),y
snapshot
2017-09-17 18:18:47 +00:00
eor L6007
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta ($88),y
snapshot
2017-09-17 18:18:47 +00:00
dex
L61B7: ldy $85
L61B9: dec $86
dec $86
dey
cpy $84
beq L621C
jmp L6126
L61C5: rts
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
restore_cursor_background:
lda cursor_count ; already hidden?
snapshot
2017-09-17 18:18:47 +00:00
bne L61C5
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
bit cursor_flag
snapshot
2017-09-17 18:18:47 +00:00
bmi L61C5
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
snapshot
2017-09-17 18:18:47 +00:00
ldx #$03
L61D2: lda L602F,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $82,x
snapshot
2017-09-17 18:18:47 +00:00
dex
bpl L61D2
ldx #$23
ldy $85
L61DE: cpy #$C0
bcs L6217
DeskTop: A2D macros
2017-09-30 22:32:38 +00:00
lda hires_table_lo,y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $88
DeskTop: A2D macros
2017-09-30 22:32:38 +00:00
lda hires_table_hi,y
snapshot
2017-09-17 18:18:47 +00:00
ora #$20
sta $89
sty $85
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
ldy $82
lda $83
snapshot
2017-09-17 18:18:47 +00:00
jsr L622A
bcs L61FF
lda L600B,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta ($88),y
snapshot
2017-09-17 18:18:47 +00:00
dex
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L61FF: jsr L6220
snapshot
2017-09-17 18:18:47 +00:00
bcs L620A
lda L600B,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta ($88),y
snapshot
2017-09-17 18:18:47 +00:00
dex
L620A: jsr L6220
bcs L6215
lda L600B,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta ($88),y
snapshot
2017-09-17 18:18:47 +00:00
dex
L6215: ldy $85
L6217: dey
cpy $84
bne L61DE
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
L621C: sta LOWSCR
starting in on aux seg1
2017-09-30 02:14:47 +00:00
rts
snapshot
2017-09-17 18:18:47 +00:00
L6220: lda L622E
eor #$01
cmp #$54
beq L622A
iny
L622A: sta L622E
DeskTop: Ensure all disassembled code is 6502 (no C)
2018-01-08 01:19:52 +00:00
L622E := *+1
sta $C0FF
cpy #$28
snapshot
2017-09-17 18:18:47 +00:00
rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; ShowCursor
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc ShowCursorImpl
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
php
snapshot
2017-09-17 18:18:47 +00:00
sei
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
lda cursor_count
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
beq done
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
inc cursor_count
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
bmi done
beq :+
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
dec cursor_count
: bit cursor_flag
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
bmi done
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
jsr draw_cursor
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
done: plp
snapshot
2017-09-17 18:18:47 +00:00
rts
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; ObscureCursor
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc ObscureCursorImpl
snapshot
2017-09-17 18:18:47 +00:00
php
sei
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
jsr restore_cursor_background
snapshot
2017-09-17 18:18:47 +00:00
lda #$80
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
sta cursor_flag
snapshot
2017-09-17 18:18:47 +00:00
plp
rts
Identify ERASE_CURSOR
2017-10-14 19:56:59 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; HideCursor
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
HideCursorImpl:
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
php
snapshot
2017-09-17 18:18:47 +00:00
sei
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
jsr restore_cursor_background
dec cursor_count
snapshot
2017-09-17 18:18:47 +00:00
plp
L6263: rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
L6264: .byte 0
snapshot
2017-09-17 18:18:47 +00:00
L6265: bit L6339
bpl L627C
lda L7D74
bne L627C
dec L6264
lda L6264
bpl L6263
lda #$02
sta L6264
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
L627C: ldx #2
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
L627E: lda mouse_x,x
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
cmp set_pos_params,x
snapshot
2017-09-17 18:18:47 +00:00
bne L628B
dex
bpl L627E
bmi L629F
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
L628B: jsr restore_cursor_background
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
ldx #2
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
stx cursor_flag
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
L6293: lda mouse_x,x
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
sta set_pos_params,x
snapshot
2017-09-17 18:18:47 +00:00
dex
bpl L6293
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
jsr update_cursor
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
L629F: bit no_mouse_flag
snapshot
2017-09-17 18:18:47 +00:00
bmi L62A7
jsr L62BA
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
L62A7: bit no_mouse_flag
snapshot
2017-09-17 18:18:47 +00:00
bpl L62B1
lda #$00
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
sta mouse_status
snapshot
2017-09-17 18:18:47 +00:00
L62B1: lda L7D74
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
beq rts4
snapshot
2017-09-17 18:18:47 +00:00
jsr L7EF5
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
rts4: rts
snapshot
2017-09-17 18:18:47 +00:00
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
L62BA: ldy #READMOUSE
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
jsr call_mouse
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
bit mouse_hooked_flag
snapshot
2017-09-17 18:18:47 +00:00
bmi L62D9
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
ldx mouse_firmware_hi
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
lda MOUSE_X_LO,x
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
sta mouse_x
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
lda MOUSE_X_HI,x
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
sta mouse_x+1
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
lda MOUSE_Y_LO,x
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
sta mouse_y
snapshot
2017-09-17 18:18:47 +00:00
L62D9: ldy L5FFD
beq L62EF
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
L62DE: lda mouse_x
snapshot
2017-09-17 18:18:47 +00:00
asl a
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
sta mouse_x
lda mouse_x+1
snapshot
2017-09-17 18:18:47 +00:00
rol a
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
sta mouse_x+1
snapshot
2017-09-17 18:18:47 +00:00
dey
bne L62DE
L62EF: ldy L5FFE
beq L62FE
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
lda mouse_y
snapshot
2017-09-17 18:18:47 +00:00
L62F7: asl a
dey
bne L62F7
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
sta mouse_y
L62FE: bit mouse_hooked_flag
snapshot
2017-09-17 18:18:47 +00:00
bmi L6309
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
lda MOUSE_STATUS,x
sta mouse_status
snapshot
2017-09-17 18:18:47 +00:00
L6309: rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; GetCursorAddr
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc GetCursorAddrImpl
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax active_cursor
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
jmp store_xa_at_params
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
.endproc
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
snapshot
2017-09-17 18:18:47 +00:00
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
;; Call mouse firmware, operation in Y, param in A
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
.proc call_mouse
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
bit no_mouse_flag
bmi rts4
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
bit mouse_hooked_flag
bmi hooked
snapshot
2017-09-17 18:18:47 +00:00
pha
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
ldx mouse_firmware_hi
starting in on aux seg1
2017-09-30 02:14:47 +00:00
stx $89
lda #$00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $88
lda ($88),y
sta $88
snapshot
2017-09-17 18:18:47 +00:00
pla
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
ldy mouse_operand
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
jmp ($88)
snapshot
2017-09-17 18:18:47 +00:00
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
hooked: jmp (mouse_hook)
.endproc
snapshot
2017-09-17 18:18:47 +00:00
Bytes to code
2017-10-03 03:46:01 +00:00
L6335: .byte $00
L6336: .byte $00
L6337: .byte $00
L6338: .byte $00
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L6339: .byte $00
L633A: .byte $00
L633B: .byte $00
L633C: .byte $00
L633D: .byte $00
L633E: .byte $00
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
params and docs
2018-02-18 19:33:21 +00:00
desktop_initialized_flag:
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
.byte 0
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
L6340: .byte $00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; StartDeskTop
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 12 bytes of params, copied to $82
MGTK internal renames
2018-01-29 08:57:55 +00:00
StartDeskTopImpl:
Bytes to code
2017-10-03 03:46:01 +00:00
php
pla
sta L6340
ldx #$04
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L6348: lda $82,x
Bytes to code
2017-10-03 03:46:01 +00:00
sta L6335,x
dex
bpl L6348
lda #$7F
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sta standard_port::textback
Bytes to code
2017-10-03 03:46:01 +00:00
lda $87
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sta standard_port::textfont
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $88
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sta standard_port::textfont+1
Bytes to code
2017-10-03 03:46:01 +00:00
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
simplify param names
2018-02-28 02:38:18 +00:00
stx test_rect_bottom
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
stx test_rect_params2_top
Bytes to code
2017-10-03 03:46:01 +00:00
stx fill_rect_params4_top
inx
simplify param names
2018-02-28 02:38:18 +00:00
stx set_port_top
Bytes to code
2017-10-03 03:46:01 +00:00
stx L78CF
stx L6594
simplify param names
2018-02-28 02:38:18 +00:00
stx fill_rect_top
Bytes to code
2017-10-03 03:46:01 +00:00
dex
Segment work
2017-12-16 05:36:09 +00:00
stx menu_item_y_table
Bytes to code
2017-10-03 03:46:01 +00:00
clc
ldy #$00
L63AC: txa
Segment work
2017-12-16 05:36:09 +00:00
adc menu_item_y_table,y
Bytes to code
2017-10-03 03:46:01 +00:00
iny
Segment work
2017-12-16 05:36:09 +00:00
sta menu_item_y_table,y
Bytes to code
2017-10-03 03:46:01 +00:00
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
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
jsr find_mouse
Bytes to code
2017-10-03 03:46:01 +00:00
bit L6338
bpl L63F6
cpx #$00
bne L63E5
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
exit_call $92
DeskTop seg 1: WIP tidying param blocks
2017-10-02 08:02:33 +00:00
Bytes to code
2017-10-03 03:46:01 +00:00
L63E5: lda L6338
and #$7F
beq L63F6
cpx L6338
beq L63F6
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
exit_call $91
Bytes to code
2017-10-03 03:46:01 +00:00
L63F6: stx L6338
lda #$80
params and docs
2018-02-18 19:33:21 +00:00
sta desktop_initialized_flag
Bytes to code
2017-10-03 03:46:01 +00:00
lda L6338
bne L640D
bit L6339
bpl L640D
lda #$00
sta L6339
L640D: ldy #$03
lda L6338
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta (params_addr),y
Bytes to code
2017-10-03 03:46:01 +00:00
iny
lda L6339
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta (params_addr),y
Bytes to code
2017-10-03 03:46:01 +00:00
bit L6339
bpl L642A
bit L6337
bpl L642A
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
MLI_CALL ALLOC_INTERRUPT, alloc_interrupt_params
Bytes to code
2017-10-03 03:46:01 +00:00
L642A: lda $FBB3
snapshot
2017-09-17 18:18:47 +00:00
pha
lda #$06
sta $FBB3
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
ldy #SETMOUSE
snapshot
2017-09-17 18:18:47 +00:00
lda #$01
bit L6339
bpl L643F
cli
ora #$08
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
L643F: jsr call_mouse
snapshot
2017-09-17 18:18:47 +00:00
pla
sta $FBB3
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr InitGrafImpl
snapshot
2017-09-17 18:18:47 +00:00
jsr L6067
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr FlushEventsImpl
snapshot
2017-09-17 18:18:47 +00:00
lda #$00
sta L700C
L6454: jsr L653F
jsr L6588
Identify INIT/DISABLE_MOUSE
2017-10-15 05:09:00 +00:00
;; Fills the desktop background on startup (menu left black)
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::SetPattern, checkerboard_pattern
MGTK_CALL MGTK::PaintRect, fill_rect_params
snapshot
2017-09-17 18:18:47 +00:00
jmp L6556
macros for ProDOS MLI params
2018-02-26 04:28:23 +00:00
DEFINE_ALLOC_INTERRUPT_PARAMS alloc_interrupt_params, interrupt_handler
DEFINE_DEALLOC_INTERRUPT_PARAMS dealloc_interrupt_params
DeskTop seg 1: WIP tidying param blocks
2017-10-02 08:02:33 +00:00
Bytes to code
2017-10-03 03:46:01 +00:00
L646F:
starting in on aux seg1
2017-09-30 02:14:47 +00:00
lda #$00
snapshot
2017-09-17 18:18:47 +00: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
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
L648C: exit_call $93
snapshot
2017-09-17 18:18:47 +00:00
Bytes to code
2017-10-03 03:46:01 +00:00
L6491:
starting in on aux seg1
2017-09-30 02:14:47 +00:00
lda L6337
snapshot
2017-09-17 18:18:47 +00:00
beq L649F
cmp #$01
beq L64A4
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
exit_call $90
snapshot
2017-09-17 18:18:47 +00:00
L649F: lda #$80
sta L6337
L64A4: rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; StopDeskTop
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc StopDeskTopImpl
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
ldy #SETMOUSE
lda #MOUSE_MODE_OFF
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
jsr call_mouse
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
ldy #SERVEMOUSE
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
jsr call_mouse
snapshot
2017-09-17 18:18:47 +00:00
bit L6339
Identify INIT/DISABLE_MOUSE
2017-10-15 05:09:00 +00:00
bpl :+
snapshot
2017-09-17 18:18:47 +00:00
bit L6337
Identify INIT/DISABLE_MOUSE
2017-10-15 05:09:00 +00:00
bpl :+
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
lda alloc_interrupt_params::int_num
DeskTop seg 1: WIP tidying param blocks
2017-10-02 08:02:33 +00:00
sta dealloc_interrupt_params::int_num
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
MLI_CALL DEALLOC_INTERRUPT, dealloc_interrupt_params
Identify INIT/DISABLE_MOUSE
2017-10-15 05:09:00 +00:00
: lda L6340
snapshot
2017-09-17 18:18:47 +00:00
pha
plp
lda #$00
params and docs
2018-02-18 19:33:21 +00:00
sta desktop_initialized_flag
snapshot
2017-09-17 18:18:47 +00:00
rts
Identify INIT/DISABLE_MOUSE
2017-10-15 05:09:00 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
params and docs
2018-02-18 19:33:21 +00:00
;;; SetUserHook
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 3 bytes of params, copied to $82
params and docs
2018-02-18 19:33:21 +00:00
SetUserHookImpl:
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $82
snapshot
2017-09-17 18:18:47 +00:00
cmp #$01
bne L64E5
lda $84
bne L64F6
sta L6522
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $83
snapshot
2017-09-17 18:18:47 +00:00
sta L6521
rts
L64E5: cmp #$02
bne L6508
lda $84
bne L64FF
sta L6538
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $83
snapshot
2017-09-17 18:18:47 +00:00
sta L6537
rts
L64F6: lda #$00
sta L6521
sta L6522
rts
L64FF: lda #$00
sta L6537
sta L6538
rts
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
L6508: exit_call $94
snapshot
2017-09-17 18:18:47 +00:00
L650D: lda L6522
beq L651D
jsr L653F
jsr L651E
php
jsr L6556
plp
L651D: rts
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L651E: jmp (L6521)
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
L6521: .byte 0
L6522: .byte 0
snapshot
2017-09-17 18:18:47 +00:00
L6523: lda L6538
beq L6533
jsr L653F
jsr L6534
php
jsr L6556
plp
L6533: rts
L6534: jmp (L6537)
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L6537: .byte $00
L6538: .byte $00
L6539: .byte $00
L653A: .byte $00
L653B: .byte $00
DeskTop seg 1: WIP tidying param blocks
2017-10-02 08:02:33 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
L653C: jsr HideCursorImpl
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L653F: lda params_addr
snapshot
2017-09-17 18:18:47 +00:00
sta L6539
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda params_addr+1
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta L653A
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
lda stack_ptr_stash
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta L653B
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
lsr preserve_zp_flag
starting in on aux seg1
2017-09-30 02:14:47 +00:00
rts
snapshot
2017-09-17 18:18:47 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
L6553: jsr ShowCursorImpl
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
L6556: asl preserve_zp_flag
snapshot
2017-09-17 18:18:47 +00:00
lda L6539
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta params_addr
starting in on aux seg1
2017-09-30 02:14:47 +00:00
lda L653A
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta params_addr+1
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax active_port
L6567: stax $82
starting in on aux seg1
2017-09-30 02:14:47 +00:00
lda L653B
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
sta stack_ptr_stash
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
ldy #sizeof_grafport-1
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L6573: lda ($82),y
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sta current_grafport,y
snapshot
2017-09-17 18:18:47 +00:00
dey
bpl L6573
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
jmp prepare_port
snapshot
2017-09-17 18:18:47 +00:00
L657E: lda L6586
ldx L6587
bne L6567
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L6586:
L6587 := * + 1
L6588 := * + 2
asl $205F,x
ror $2065,x
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
.byte 0
starting in on aux seg1
2017-09-30 02:14:47 +00:00
rti
snapshot
2017-09-17 18:18:47 +00:00
.byte $06
.addr L6592
rts
Bytes to code
2017-10-03 03:46:01 +00:00
L6592: .byte $00,$00
L6594: .byte $0D,$00,$00,$20,$80,$00
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
.proc fill_rect_params
left: .word 0
top: .word 0
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
right: .word screen_width-1
bottom: .word screen_height-1
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
.endproc
simplify param names
2018-02-28 02:38:18 +00:00
fill_rect_top := fill_rect_params::top
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
starting in on aux seg1
2017-09-30 02:14:47 +00:00
.byte $00,$00,$00,$00,$00,$00,$00,$00
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
checkerboard_pattern:
DeskTop Seg 1: tease out another A2D calling style
2017-10-08 03:51:11 +00:00
.byte %01010101
.byte %10101010
.byte %01010101
.byte %10101010
.byte %01010101
.byte %10101010
.byte %01010101
.byte %10101010
DeskTop seg 1: WIP tidying param blocks
2017-10-02 15:51:00 +00:00
.byte $00
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
params and docs
2018-02-18 19:33:21 +00:00
;;; AttachDriver
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 2 bytes of params, copied to $82
params and docs
2018-02-18 19:33:21 +00:00
.proc AttachDriverImpl
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
params := $82
params and docs
2018-02-18 19:33:21 +00:00
bit desktop_initialized_flag
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
bmi fail
lda params
sta mouse_hook
lda params+1
sta mouse_hook+1
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax mouse_state_addr
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
ldy #2
simplify param names
2018-02-28 02:38:18 +00:00
jmp store_xa_at_y
snapshot
2017-09-17 18:18:47 +00:00
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
fail: exit_call $95
snapshot
2017-09-17 18:18:47 +00:00
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
mouse_state_addr:
.addr mouse_state
.endproc
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; PeekEvent
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
PeekEventImpl:
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
clc
bcc L65D8
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; GetEvent
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
GetEventImpl:
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
sec
L65D8: php
snapshot
2017-09-17 18:18:47 +00:00
bit L6339
bpl L65E1
sei
bmi L65E4
MGTK internal renames
2018-01-29 08:57:55 +00:00
L65E1: jsr CheckEventsImpl
snapshot
2017-09-17 18:18:47 +00:00
L65E4: jsr L67FE
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
bcs L6604
snapshot
2017-09-17 18:18:47 +00:00
plp
php
bcc L65F0
sta L6752
L65F0: tax
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
ldy #0 ; Store 5 bytes at params
snapshot
2017-09-17 18:18:47 +00:00
L65F3: lda L6754,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
inx
iny
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
cpy #4
snapshot
2017-09-17 18:18:47 +00:00
bne L65F3
lda #$00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
beq L6607
L6604: jsr L6645
L6607: plp
bit L6339
bpl L660E
cli
L660E: rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 5 bytes of params, copied to $82
MGTK internal renames
2018-01-29 08:57:55 +00:00
PostEventImpl:
snapshot
2017-09-17 18:18:47 +00:00
php
sei
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $82
snapshot
2017-09-17 18:18:47 +00:00
bmi L6626
cmp #$06
bcs L663B
cmp #$03
beq L6626
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
ldx $83
starting in on aux seg1
2017-09-30 02:14:47 +00:00
ldy $84
lda $85
jsr L7E19
snapshot
2017-09-17 18:18:47 +00:00
L6626: jsr L67E4
bcs L663F
tax
ldy #$00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L662E: lda (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
sta L6754,x
inx
iny
cpy #$04
bne L662E
plp
rts
L663B: lda #$98
bmi L6641
L663F: lda #$99
L6641: plp
MGTK internal renames
2018-01-29 08:57:55 +00:00
jmp exit_with_a
snapshot
2017-09-17 18:18:47 +00:00
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
L6645: lda #0
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
bit mouse_status
snapshot
2017-09-17 18:18:47 +00:00
bpl L664E
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
lda #4
DeskTop Seg 1: A2D dispatch and params
2017-10-06 16:09:43 +00:00
L664E: ldy #0
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
sta (params_addr),y ; Store 5 bytes at params
snapshot
2017-09-17 18:18:47 +00:00
iny
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
L6653: lda cursor_count,y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
iny
cpy #$05
starting in on aux seg1
2017-09-30 02:14:47 +00:00
bne L6653
rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; CheckEvents
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
.proc input
state: .byte 0
key := *
kmods := * + 1
xpos := *
ypos := * + 2
modifiers := * + 3
.res 4, 0
.endproc
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc CheckEventsImpl
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
bit L6339
snapshot
2017-09-17 18:18:47 +00:00
bpl L666D
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
exit_call $97
snapshot
2017-09-17 18:18:47 +00:00
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
L666D:
sec ; called from interrupt handler
starting in on aux seg1
2017-09-30 02:14:47 +00:00
jsr L650D
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
bcc end
lda BUTN1 ; Look at buttons (apple keys), compute modifiers
starting in on aux seg1
2017-09-30 02:14:47 +00:00
asl a
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
lda BUTN0
snapshot
2017-09-17 18:18:47 +00:00
and #$80
rol a
rol a
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
sta input::modifiers
snapshot
2017-09-17 18:18:47 +00:00
jsr L7F66
jsr L6265
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
lda mouse_status ; bit 7 = is down, bit 6 = was down, still down
snapshot
2017-09-17 18:18:47 +00:00
asl a
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
eor mouse_status
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
bmi L66B9 ; minus = (is down & !was down)
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
bit mouse_status
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
bmi end ; minus = is down
Identify SET_KBD_FLAG
2017-10-16 03:28:50 +00:00
bit check_kbd_flag
snapshot
2017-09-17 18:18:47 +00:00
bpl L66B9
lda L7D74
bne L66B9
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
lda KBD
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
bpl end ; no key
snapshot
2017-09-17 18:18:47 +00:00
and #$7F
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
sta input::key
bit KBDSTRB ; clear strobe
lda input::modifiers
sta input::kmods
prefix event kind
2018-02-03 04:10:19 +00:00
lda #MGTK::event_kind_key_down
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
sta input::state
snapshot
2017-09-17 18:18:47 +00:00
bne L66D8
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
L66B9: bcc up
lda input::modifiers
beq :+
prefix event kind
2018-02-03 04:10:19 +00:00
lda #MGTK::event_kind_apple_key
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
bne set_state
prefix event kind
2018-02-03 04:10:19 +00:00
: lda #MGTK::event_kind_button_down
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
bne set_state
prefix event kind
2018-02-03 04:10:19 +00:00
up: lda #MGTK::event_kind_button_up
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
set_state:
sta input::state
ldx #2
: lda set_pos_params,x
sta input::key,x
snapshot
2017-09-17 18:18:47 +00:00
dex
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
bpl :-
snapshot
2017-09-17 18:18:47 +00:00
L66D8: jsr L67E4
tax
ldy #$00
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
L66DE: lda input,y
snapshot
2017-09-17 18:18:47 +00:00
sta L6754,x
inx
iny
cpy #$04
bne L66DE
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
end: jmp L6523
.endproc
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
;;; Interrupt Handler
int_stash_zp:
.res 9, 0
int_stash_rdpage2:
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
.byte 0
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
int_stash_rd80store:
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
.byte 0
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
.proc interrupt_handler
cld ; required for interrupt handlers
MGTK internal renames
2018-01-29 08:57:55 +00:00
body: ; returned by GetIntHandler
Identify GET_INT_HANDLER
2017-10-16 03:20:54 +00:00
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
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
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sloop: lda $82,x
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
sta int_stash_zp,x
snapshot
2017-09-17 18:18:47 +00:00
dex
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
bpl sloop
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
ldy #SERVEMOUSE
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
jsr call_mouse
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
bcs :+
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr CheckEventsImpl::L666D
snapshot
2017-09-17 18:18:47 +00:00
clc
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
: bit L633A
bpl :+
clc ; carry clear if interrupt handled
: ldx #8 ; restore ZP
rloop: lda int_stash_zp,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $82,x
snapshot
2017-09-17 18:18:47 +00:00
dex
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
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
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; GetIntHandler
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc GetIntHandlerImpl
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax L6750
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
jmp store_xa_at_params
snapshot
2017-09-17 18:18:47 +00:00
Identify GET_INT_HANDLER
2017-10-16 03:20:54 +00:00
L6750: .addr interrupt_handler::body
.endproc
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; FlushEvents
DeskTop Seg 1: ZP usage vs. state param breakthrough
2017-10-07 04:10:34 +00:00
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
;;; This is called during init by the DAs, just before
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
;;; entering the input loop.
L6752: .byte 0
L6753: .byte 0
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L6754: .byte $00
DeskTop: seg1 - Identify A2D calls
2017-10-01 05:54:52 +00:00
L6755: .res 128, 0
starting in on aux seg1
2017-09-30 02:14:47 +00:00
.byte $00,$00,$00
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc FlushEventsImpl
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
php
snapshot
2017-09-17 18:18:47 +00:00
sei
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
lda #0
snapshot
2017-09-17 18:18:47 +00:00
sta L6752
sta L6753
plp
rts
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
.endproc
MGTK internal renames
2018-01-29 08:57:55 +00:00
;; called during PostEvent and a few other places
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
.proc L67E4
lda L6753
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
cmp #$80 ; if L6753 is not $80, add $4
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
bne :+
lda #$00 ; otherwise reset to 0
bcs compare
: clc
starting in on aux seg1
2017-09-30 02:14:47 +00:00
adc #$04
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
compare:
cmp L6752 ; did L6753 catch up with L6752?
beq rts_with_carry_set
sta L6753 ; nope, maybe next time
snapshot
2017-09-17 18:18:47 +00:00
clc
rts
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
rts_with_carry_set:
sec
snapshot
2017-09-17 18:18:47 +00:00
rts
MGTK internal renames
2018-01-29 08:57:55 +00:00
;; called during GetEvent
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
L67FE: lda L6752 ; equal?
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
cmp L6753
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
beq rts_with_carry_set
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
cmp #$80
bne L680E
lda #0
snapshot
2017-09-17 18:18:47 +00:00
bcs L6811
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
L680E: clc
snapshot
2017-09-17 18:18:47 +00:00
adc #$04
L6811: clc
rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; SetKeyEvent
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 1 byte of params, copied to $82
Identify SET_KBD_FLAG
2017-10-16 03:28:50 +00:00
check_kbd_flag: .byte $80
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc SetKeyEventImpl
Identify SET_KBD_FLAG
2017-10-16 03:28:50 +00:00
params := $82
asl check_kbd_flag
ror params
ror check_kbd_flag
snapshot
2017-09-17 18:18:47 +00:00
rts
Identify SET_KBD_FLAG
2017-10-16 03:28:50 +00:00
.endproc
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
Identify SET_KBD_FLAG
2017-10-16 03:28:50 +00:00
snapshot
2017-09-17 18:18:47 +00:00
L681D: .byte $02
L681E: .byte $09
L681F: .byte $10
L6820: .byte $09
L6821: .byte $1E
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L6822: .byte $00
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
active_menu:
.addr 0
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
.proc test_rect_params
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
left: .word $ffff
top: .word $ffff
right: .word $230
bottom: .word $C
.endproc
simplify param names
2018-02-28 02:38:18 +00:00
test_rect_top := test_rect_params::top
test_rect_bottom := test_rect_params::bottom
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
.proc fill_rect_params2
left: .word 0
top: .word 0
width: .word 0
height: .word 11
.endproc
Bytes to code
2017-10-03 03:46:01 +00:00
fill_rect_params2_height := fill_rect_params2::height
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L6835: .byte $00
L6836: .byte $00
DeskTop seg 1: WIP tidying param blocks
2017-10-02 15:51:00 +00:00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
.proc test_rect_params2
DeskTop seg 1: WIP tidying param blocks
2017-10-02 15:51:00 +00:00
left: .word 0
top: .word 12
right: .word 0
bottom: .word 0
.endproc
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
test_rect_params2_top := test_rect_params2::top
DeskTop seg 1: WIP tidying param blocks
2017-10-02 15:51:00 +00:00
.proc fill_rect_params4
left: .word 0
top: .word 12
right: .word 0
bottom: .word 0
.endproc
Bytes to code
2017-10-03 03:46:01 +00:00
fill_rect_params4_top := fill_rect_params4::top
DeskTop seg 1: WIP tidying param blocks
2017-10-02 15:51:00 +00:00
Segment work
2017-12-16 05:36:09 +00:00
menu_item_y_table:
.repeat 15, i
.byte 12 + 12 * i
.endrepeat
misc
2017-10-16 03:38:58 +00:00
snapshot
2017-09-17 18:18:47 +00:00
L6856: .byte $1E
L6857: .byte $1F
L6858: .byte $1D
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L6859: .byte $01,$02
snapshot
2017-09-17 18:18:47 +00:00
L685B: .byte $1E
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L685C: .byte $FF,$01
snapshot
2017-09-17 18:18:47 +00:00
L685E: .byte $1D
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L685F: .addr $6825
L6861: .addr $6837
L6863: .addr $685D
L6865: .addr $685A
DeskTop Seg 1: ZP usage vs. state param breakthrough
2017-10-07 04:10:34 +00:00
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
get_menu_count:
lda active_menu
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $82
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
lda active_menu+1
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $83
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
ldy #0
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda ($82),y
snapshot
2017-09-17 18:18:47 +00:00
sta $A8
rts
L6878: stx $A7
lda #$02
clc
L687D: dex
bmi L6884
adc #$0C
bne L687D
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
L6884: adc active_menu
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta $AB
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
lda active_menu+1
snapshot
2017-09-17 18:18:47 +00:00
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
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
L68EA: sty current_penloc_y
DeskTop Seg 1: ZP usage vs. state param breakthrough
2017-10-07 04:10:34 +00:00
ldy #0
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sty current_penloc_y+1
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L68F0: stax current_penloc_x
snapshot
2017-09-17 18:18:47 +00:00
rts
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
;; Set fill mode to A
set_fill_mode:
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sta current_penmode
MGTK internal renames
2018-01-29 08:57:55 +00:00
jmp SetPenModeImpl
snapshot
2017-09-17 18:18:47 +00:00
Split up include files for GUI library vs. DeskTop app
2017-10-12 03:45:58 +00:00
do_measure_text:
jsr prepare_text_params
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
jmp measure_text
snapshot
2017-09-17 18:18:47 +00:00
Split up include files for GUI library vs. DeskTop app
2017-10-12 03:45:58 +00:00
draw_text:
jsr prepare_text_params
MGTK internal renames
2018-01-29 08:57:55 +00:00
jmp DrawTextImpl
snapshot
2017-09-17 18:18:47 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
;; Prepare $A1,$A2 as params for TextWidth/DrawText call
Split up include files for GUI library vs. DeskTop app
2017-10-12 03:45:58 +00:00
;; ($A3 is length)
prepare_text_params:
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
stax $82
snapshot
2017-09-17 18:18:47 +00:00
clc
DeskTop Seg 1: ZP usage vs. state param breakthrough
2017-10-07 04:10:34 +00:00
adc #1
snapshot
2017-09-17 18:18:47 +00:00
bcc L6910
inx
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L6910: stax $A1
DeskTop Seg 1: ZP usage vs. state param breakthrough
2017-10-07 04:10:34 +00:00
ldy #0
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda ($82),y
snapshot
2017-09-17 18:18:47 +00:00
sta $A3
rts
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
L691B: MGTK_CALL MGTK::GetEvent, $82
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $82
snapshot
2017-09-17 18:18:47 +00:00
rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; SetMenu
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
L6924: .byte 0
L6925: .byte 0
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
SetMenuImpl:
snapshot
2017-09-17 18:18:47 +00:00
lda #$00
sta L633D
sta L633E
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda params_addr
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
sta active_menu
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda params_addr+1
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
sta active_menu+1
jsr get_menu_count ; into $A8
snapshot
2017-09-17 18:18:47 +00:00
jsr L653C
jsr L657E
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax L685F
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr fill_and_frame_rect
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax #$0C
snapshot
2017-09-17 18:18:47 +00:00
ldy L6822
iny
starting in on aux seg1
2017-09-30 02:14:47 +00:00
jsr L68EA
snapshot
2017-09-17 18:18:47 +00:00
ldx #$00
L6957: jsr L6878
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax current_penloc_x
stax $B5
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sec
sbc #$08
bcs L6968
dex
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L6968: stax $B7
stax $BB
snapshot
2017-09-17 18:18:47 +00:00
ldx #$00
stx $C5
starting in on aux seg1
2017-09-30 02:14:47 +00:00
stx $C6
L6976: jsr L68BE
bit $BF
bvs L69B4
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax $C3
Split up include files for GUI library vs. DeskTop app
2017-10-12 03:45:58 +00:00
jsr do_measure_text
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
stax $82
snapshot
2017-09-17 18:18:47 +00:00
lda $BF
and #$03
bne L6997
lda $C1
bne L6997
lda L6820
bne L699A
L6997: lda L6821
L699A: clc
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
adc $82
sta $82
snapshot
2017-09-17 18:18:47 +00:00
bcc L69A3
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
inc $83
snapshot
2017-09-17 18:18:47 +00:00
L69A3: sec
sbc $C5
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $83
snapshot
2017-09-17 18:18:47 +00:00
sbc $C6
bmi L69B4
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $82
snapshot
2017-09-17 18:18:47 +00:00
sta $C5
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $83
snapshot
2017-09-17 18:18:47 +00:00
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
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax $B1
Split up include files for GUI library vs. DeskTop app
2017-10-12 03:45:58 +00:00
jsr draw_text
snapshot
2017-09-17 18:18:47 +00:00
jsr L6A5C
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax current_penloc_x
snapshot
2017-09-17 18:18:47 +00:00
clc
adc #$08
bcc L6A24
inx
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L6A24: stax $B9
snapshot
2017-09-17 18:18:47 +00:00
jsr L68A9
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax #12
DeskTop Seg 1: impl details
2017-10-08 15:42:27 +00:00
jsr adjust_xpos
snapshot
2017-09-17 18:18:47 +00:00
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
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
exit_call $9C
snapshot
2017-09-17 18:18:47 +00:00
L6A5B: rts
L6A5C: ldx $A7
jsr L6878
ldx $A9
jmp L68BE
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
;; Fills rect (params at X,A) then inverts border
.proc fill_and_frame_rect
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
stax fill_params
stax draw_params
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
lda #0
jsr set_fill_mode
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::PaintRect, 0, fill_params
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
lda #4
jsr set_fill_mode
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::FrameRect, 0, draw_params
snapshot
2017-09-17 18:18:47 +00:00
rts
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
L6A89: jsr L6A94
bne L6A93
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
exit_call $9A
snapshot
2017-09-17 18:18:47 +00:00
L6A93: rts
L6A94: lda #$00
L6A96: sta $C6
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr get_menu_count
snapshot
2017-09-17 18:18:47 +00:00
ldx #$00
L6A9D: jsr L6878
bit $C6
bvs L6ACA
bmi L6AAE
lda $AF
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
cmp $C7
snapshot
2017-09-17 18:18:47 +00:00
bne L6ACF
beq L6AD9
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L6AAE: ldax set_pos_params::xcoord
snapshot
2017-09-17 18:18:47 +00:00
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
Segment work
2017-12-16 05:36:09 +00:00
L6AF0: lda menu_item_y_table,x
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
cmp set_pos_params::ycoord
snapshot
2017-09-17 18:18:47 +00:00
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
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L6B16: cpx $AA
snapshot
2017-09-17 18:18:47 +00:00
bne L6ADE
ldx #$00
L6B1C: rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; HiliteMenu
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 2 bytes of params, copied to $C7
MGTK internal renames
2018-01-29 08:57:55 +00:00
HiliteMenuImpl:
lda $C7
snapshot
2017-09-17 18:18:47 +00:00
bne L6B26
lda L6BD9
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $C7
snapshot
2017-09-17 18:18:47 +00:00
L6B26: jsr L6A89
L6B29: jsr L653C
jsr L657E
jsr L6B35
jmp L6553
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
;; Highlight/Unhighlight top level menu item
.proc L6B35
ldx #$01
loop: lda $B7,x
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
sta fill_rect_params2::left,x
snapshot
2017-09-17 18:18:47 +00:00
lda $B9,x
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
sta fill_rect_params2::width,x
snapshot
2017-09-17 18:18:47 +00:00
lda $BB,x
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sta test_rect_params2::left,x
DeskTop seg 1: WIP tidying param blocks
2017-10-02 15:51:00 +00:00
sta fill_rect_params4::left,x
snapshot
2017-09-17 18:18:47 +00:00
lda $BD,x
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sta test_rect_params2::right,x
DeskTop seg 1: WIP tidying param blocks
2017-10-02 15:51:00 +00:00
sta fill_rect_params4::right,x
snapshot
2017-09-17 18:18:47 +00:00
dex
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
bpl loop
snapshot
2017-09-17 18:18:47 +00:00
lda #$02
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr set_fill_mode
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::PaintRect, fill_rect_params2
snapshot
2017-09-17 18:18:47 +00:00
rts
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; MenuKey
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 4 bytes of params, copied to $C7
MGTK internal renames
2018-01-29 08:57:55 +00:00
MenuKeyImpl:
snapshot
2017-09-17 18:18:47 +00:00
lda $C9
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
cmp #$1B ; Menu height?
snapshot
2017-09-17 18:18:47 +00:00
bne L6B70
lda $CA
bne L6B70
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr KeyboardMouse
jmp MenuSelectImpl
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
iny
txa
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
bne L6B29
rts
L6B96: jsr L6A89
jsr L6ADC
cpx #$00
L6B9E: rts
L6B9F: jsr L6B96
bne L6B9E
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
exit_call $9B
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; DisableItem
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 3 bytes of params, copied to $C7
MGTK internal renames
2018-01-29 08:57:55 +00:00
DisableItemImpl:
snapshot
2017-09-17 18:18:47 +00:00
jsr L6B9F
asl $BF
ror $C9
ror $BF
jmp L68DF
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; CheckItem
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 3 bytes of params, copied to $C7
MGTK internal renames
2018-01-29 08:57:55 +00:00
CheckItemImpl:
snapshot
2017-09-17 18:18:47 +00:00
jsr L6B9F
lda $C9
beq L6BC2
lda #$20
ora $BF
bne L6BC6
L6BC2: lda #$DF
and $BF
L6BC6: sta $BF
jmp L68DF
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; DisableMenu
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 2 bytes of params, copied to $C7
MGTK internal renames
2018-01-29 08:57:55 +00:00
DisableMenuImpl:
snapshot
2017-09-17 18:18:47 +00:00
jsr L6A89
asl $B0
ror $C8
ror $B0
ldx $A7
jmp L68A9
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; MenuSelect
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
L6BD9: .byte 0
L6BDA: .byte 0
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
MenuSelectImpl:
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr L7ECD
jsr get_menu_count
snapshot
2017-09-17 18:18:47 +00:00
jsr L653F
jsr L657E
bit L7D74
bpl L6BF2
jsr L7FE1
jmp L6C23
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
L6BF2: lda #0
snapshot
2017-09-17 18:18:47 +00:00
sta L6BD9
sta L6BDA
jsr L691B
L6BFD: bit L7D81
starting in on aux seg1
2017-09-30 02:14:47 +00:00
bpl L6C05
snapshot
2017-09-17 18:18:47 +00:00
jmp L8149
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
L6C05: MGTK_CALL MGTK::MoveTo, $83
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
MGTK_CALL MGTK::InRect, test_rect_params
snapshot
2017-09-17 18:18:47 +00:00
bne L6C58
lda L6BD9
beq L6C23
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
MGTK_CALL MGTK::InRect, test_rect_params2
snapshot
2017-09-17 18:18:47 +00:00
bne L6C73
jsr L6EA1
L6C23: jsr L691B
beq L6C2C
cmp #$02
bne L6BFD
L6C2C: lda L6BDA
bne L6C37
jsr L6D23
jmp L6C40
MGTK internal renames
2018-01-29 08:57:55 +00:00
L6C37: jsr HideCursorImpl
snapshot
2017-09-17 18:18:47 +00:00
jsr L657E
jsr L6CF4
L6C40: jsr L6556
lda #$00
ldx L6BDA
beq L6C55
lda L6BD9
ldy $A7
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sty L7D7A
stx L7D7B
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
L6C55: jmp store_xa_at_params
snapshot
2017-09-17 18:18:47 +00:00
L6C58: jsr L6EA1
starting in on aux seg1
2017-09-30 02:14:47 +00:00
lda #$80
snapshot
2017-09-17 18:18:47 +00:00
jsr L6A96
cmp L6BD9
starting in on aux seg1
2017-09-30 02:14:47 +00:00
beq L6C23
snapshot
2017-09-17 18:18:47 +00:00
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
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda div7_table,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $82
snapshot
2017-09-17 18:18:47 +00:00
lda $BE
lsr a
lda $BD
ror a
tax
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda div7_table,x
snapshot
2017-09-17 18:18:47 +00:00
sec
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sbc $82
snapshot
2017-09-17 18:18:47 +00:00
sta $90
lda L6835
sta $8E
lda L6836
sta $8F
ldy $AA
Segment work
2017-12-16 05:36:09 +00:00
ldx menu_item_y_table,y ; ???
snapshot
2017-09-17 18:18:47 +00:00
inx
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
stx $83
DeskTop seg 1: WIP tidying param blocks
2017-10-02 15:51:00 +00:00
stx fill_rect_params4::bottom
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
stx test_rect_params2::bottom
snapshot
2017-09-17 18:18:47 +00:00
ldx L6822
inx
inx
inx
DeskTop seg 1: WIP tidying param blocks
2017-10-02 15:51:00 +00:00
stx fill_rect_params4::top
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
stx test_rect_params2::top
snapshot
2017-09-17 18:18:47 +00:00
rts
DeskTop: A2D macros
2017-09-30 22:32:38 +00:00
L6CD8: lda hires_table_lo,x
snapshot
2017-09-17 18:18:47 +00:00
clc
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
adc $82
snapshot
2017-09-17 18:18:47 +00:00
sta $84
DeskTop: A2D macros
2017-09-30 22:32:38 +00:00
lda hires_table_hi,x
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
sta HISCR
snapshot
2017-09-17 18:18:47 +00:00
ldy $90
L6CFF: lda ($8E),y
sta ($84),y
dey
bpl L6CFF
jsr L6CE8
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
sta LOWSCR
snapshot
2017-09-17 18:18:47 +00:00
ldy $90
L6D0E: lda ($8E),y
sta ($84),y
dey
bpl L6D0E
jsr L6CE8
inx
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
cpx $83
snapshot
2017-09-17 18:18:47 +00:00
bcc L6CF7
beq L6CF7
MGTK internal renames
2018-01-29 08:57:55 +00:00
jmp ShowCursorImpl
snapshot
2017-09-17 18:18:47 +00:00
L6D22: rts
L6D23: clc
bcc L6D27
L6D26: sec
L6D27: lda L6BD9
beq L6D22
php
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $C7
snapshot
2017-09-17 18:18:47 +00:00
jsr L6A94
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr HideCursorImpl
snapshot
2017-09-17 18:18:47 +00:00
jsr L6B35
plp
bcc L6CF4
jsr L6C98
L6D3E: jsr L6CD8
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
sta HISCR
snapshot
2017-09-17 18:18:47 +00:00
ldy $90
L6D46: lda ($84),y
sta ($8E),y
dey
bpl L6D46
jsr L6CE8
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
sta LOWSCR
snapshot
2017-09-17 18:18:47 +00:00
ldy $90
L6D55: lda ($84),y
sta ($8E),y
dey
bpl L6D55
jsr L6CE8
inx
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
cpx $83
snapshot
2017-09-17 18:18:47 +00:00
bcc L6D3E
beq L6D3E
jsr L657E
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax L6861
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr fill_and_frame_rect
inc16 macro and refactors
2018-02-26 00:06:17 +00:00
inc16 fill_rect_params4::left
lda fill_rect_params4::right
snapshot
2017-09-17 18:18:47 +00:00
bne L6D82
DeskTop seg 1: WIP tidying param blocks
2017-10-02 15:51:00 +00:00
dec fill_rect_params4::right+1
L6D82: dec fill_rect_params4::right
snapshot
2017-09-17 18:18:47 +00:00
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
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L6DB1: ldax L6863
Split up include files for GUI library vs. DeskTop app
2017-10-12 03:45:58 +00:00
jsr draw_text
snapshot
2017-09-17 18:18:47 +00:00
jsr L6A5C
L6DBD: lda L681E
jsr L6E25
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax $C3
Split up include files for GUI library vs. DeskTop app
2017-10-12 03:45:58 +00:00
jsr draw_text
snapshot
2017-09-17 18:18:47 +00:00
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
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax L6865
Split up include files for GUI library vs. DeskTop app
2017-10-12 03:45:58 +00:00
jsr draw_text
snapshot
2017-09-17 18:18:47 +00:00
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
MGTK internal renames
2018-01-29 08:57:55 +00:00
L6E22: jmp ShowCursorImpl
snapshot
2017-09-17 18:18:47 +00:00
L6E25: ldx $A9
Segment work
2017-12-16 05:36:09 +00:00
ldy menu_item_y_table+1,x ; ???
snapshot
2017-09-17 18:18:47 +00:00
dey
ldx $BC
clc
adc $BB
bcc L6E33
inx
L6E33: jmp L68EA
L6E36: ldx $A9
Segment work
2017-12-16 05:36:09 +00:00
lda menu_item_y_table,x
DeskTop Seg 1: Param blocks, direct calls to desktop entry point
2017-10-05 15:19:44 +00:00
sta fill_rect_params3_top
inc fill_rect_params3_top
Segment work
2017-12-16 05:36:09 +00:00
lda menu_item_y_table+1,x
DeskTop Seg 1: Param blocks, direct calls to desktop entry point
2017-10-05 15:19:44 +00:00
sta fill_rect_params3_bottom
snapshot
2017-09-17 18:18:47 +00:00
clc
starting in on aux seg1
2017-09-30 02:14:47 +00:00
lda $BB
snapshot
2017-09-17 18:18:47 +00:00
adc #$05
DeskTop Seg 1: Param blocks, direct calls to desktop entry point
2017-10-05 15:19:44 +00:00
sta fill_rect_params3_left
snapshot
2017-09-17 18:18:47 +00:00
lda $BC
adc #$00
DeskTop Seg 1: Param blocks, direct calls to desktop entry point
2017-10-05 15:19:44 +00:00
sta fill_rect_params3_left+1
snapshot
2017-09-17 18:18:47 +00:00
sec
lda $BD
sbc #$05
DeskTop Seg 1: Param blocks, direct calls to desktop entry point
2017-10-05 15:19:44 +00:00
sta fill_rect_params3_right
snapshot
2017-09-17 18:18:47 +00:00
lda $BE
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sbc #$00
DeskTop Seg 1: Param blocks, direct calls to desktop entry point
2017-10-05 15:19:44 +00:00
sta fill_rect_params3_right+1
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::SetPattern, light_speckle_pattern
snapshot
2017-09-17 18:18:47 +00:00
lda #$01
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr set_fill_mode
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::PaintRect, fill_rect_params3
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
MGTK_CALL MGTK::SetPattern, standard_port::penpattern
snapshot
2017-09-17 18:18:47 +00:00
lda #$02
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr set_fill_mode
snapshot
2017-09-17 18:18:47 +00:00
rts
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
light_speckle_pattern:
.byte %10001000
.byte %01010101
.byte %10001000
.byte %01010101
.byte %10001000
.byte %01010101
.byte %10001000
.byte %01010101
DeskTop Seg 1: Param blocks, direct calls to desktop entry point
2017-10-05 15:19:44 +00:00
.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
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L6E92: sta $82
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax $BD
snapshot
2017-09-17 18:18:47 +00:00
sec
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sbc $82
snapshot
2017-09-17 18:18:47 +00:00
bcs L6E9E
dex
L6E9E: jmp L68F0
L6EA1: jsr L6EAA
lda #$00
sta L6BDA
L6EA9: rts
L6EAA: ldx L6BDA
beq L6EA9
DeskTop seg 1: WIP tidying param blocks
2017-10-02 15:51:00 +00:00
ldy fill_rect_params4::bottom+1,x ; ???
snapshot
2017-09-17 18:18:47 +00:00
iny
DeskTop seg 1: WIP tidying param blocks
2017-10-02 15:51:00 +00:00
sty fill_rect_params4::top
Segment work
2017-12-16 05:36:09 +00:00
ldy menu_item_y_table,x
DeskTop seg 1: WIP tidying param blocks
2017-10-02 15:51:00 +00:00
sty fill_rect_params4::bottom
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr HideCursorImpl
snapshot
2017-09-17 18:18:47 +00:00
lda #$02
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr set_fill_mode
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::PaintRect, fill_rect_params4
MGTK internal renames
2018-01-29 08:57:55 +00:00
jmp ShowCursorImpl
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; InitMenu
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 4 bytes of params, copied to $82
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc InitMenuImpl
misc
2017-10-16 03:38:58 +00:00
params := $82
ldx #3
loop: lda params,x
snapshot
2017-09-17 18:18:47 +00:00
sta L6856,x
dex
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
bpl loop
misc
2017-10-16 03:38:58 +00:00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda standard_port::textfont
misc
2017-10-16 03:38:58 +00:00
sta params
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda standard_port::textfont+1
misc
2017-10-16 03:38:58 +00:00
sta params+1
ldy #0
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda ($82),y
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
bmi :+
snapshot
2017-09-17 18:18:47 +00:00
lda #$02
sta L681D
lda #$09
sta L681E
lda #$10
sta L681F
lda #$09
sta L6820
lda #$1E
sta L6821
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
bne end
: lda #$02
snapshot
2017-09-17 18:18:47 +00:00
sta L681D
lda #$10
sta L681E
lda #$1E
sta L681F
lda #$10
sta L6820
lda #$33
sta L6821
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
end: rts
.endproc
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; SetMark
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 4 bytes of params, copied to $C7
MGTK internal renames
2018-01-29 08:57:55 +00:00
SetMarkImpl:
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
.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
DeskTop Seg 1: Identify resize/scroll arrow bitmaps
2017-10-05 01:27:01 +00:00
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
.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
DeskTop Seg 1: Identify resize/scroll arrow bitmaps
2017-10-05 01:27:01 +00:00
;; Up Scroll
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
up_scroll_bitmap:
DeskTop Seg 1: Identify resize/scroll arrow bitmaps
2017-10-05 01:27:01 +00:00
.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
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
down_scroll_bitmap:
DeskTop Seg 1: Identify resize/scroll arrow bitmaps
2017-10-05 01:27:01 +00:00
.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
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
left_scroll_bitmap:
DeskTop Seg 1: Identify resize/scroll arrow bitmaps
2017-10-05 01:27:01 +00:00
.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
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
right_scroll_bitmap:
DeskTop Seg 1: Identify resize/scroll arrow bitmaps
2017-10-05 01:27:01 +00:00
.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)
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
L6FDF: .byte 0
DeskTop Seg 1: Identify resize/scroll arrow bitmaps
2017-10-05 01:27:01 +00:00
;; Resize Box
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
resize_box_bitmap:
DeskTop Seg 1: Identify resize/scroll arrow bitmaps
2017-10-05 01:27:01 +00:00
.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)
simplify param names
2018-02-28 02:38:18 +00:00
up_scroll_addr:
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
.addr up_scroll_params
simplify param names
2018-02-28 02:38:18 +00:00
down_scroll_addr:
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
.addr down_scroll_params
simplify param names
2018-02-28 02:38:18 +00:00
left_scroll_addr:
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
.addr left_scroll_params
simplify param names
2018-02-28 02:38:18 +00:00
right_scroll_addr:
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
.addr right_scroll_params
simplify param names
2018-02-28 02:38:18 +00:00
resize_box_addr:
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
.addr resize_box_params
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L700B: .byte $00
L700C: .byte $00
L700D: .byte $00
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L700E: .word 0
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L7010: .byte $00
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
L7011: .addr $6FD3
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
Identify several window-related calls
2017-10-15 04:15:35 +00:00
;; Start window enumeration at top ???
.proc top_window
lda L7011
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta $A7
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
lda L7011+1
Identify QUERY_WINDOW
2017-10-12 04:33:23 +00:00
sta $A7+1
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax L700B
Identify several window-related calls
2017-10-15 04:15:35 +00:00
bne next_window_L7038
end: rts
.endproc
snapshot
2017-09-17 18:18:47 +00:00
Identify several window-related calls
2017-10-15 04:15:35 +00:00
;; Look up next window in chain. $A9/$AA will point at
;; window params block (also returned in X,A).
.proc next_window
lda $A9
snapshot
2017-09-17 18:18:47 +00:00
sta $A7
Split up include files for GUI library vs. DeskTop app
2017-10-12 03:45:58 +00:00
lda $A9+1
sta $A7+1
Identify several window-related calls
2017-10-15 04:15:35 +00:00
ldy #next_offset_in_window_params+1
snapshot
2017-09-17 18:18:47 +00:00
lda ($A9),y
Identify several window-related calls
2017-10-15 04:15:35 +00:00
beq top_window::end ; if high byte is 0, end of chain
snapshot
2017-09-17 18:18:47 +00:00
tax
dey
lda ($A9),y
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L7038: stax L700E
L703E: ldax L700E
L7044: stax $A9
Identify several window-related calls
2017-10-15 04:15:35 +00:00
ldy #$0B ; copy first 12 bytes of window defintion to
L704A: lda ($A9),y ; to $AB
snapshot
2017-09-17 18:18:47 +00:00
sta $AB,y
dey
bpl L704A
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
ldy #sizeof_grafport-1
snapshot
2017-09-17 18:18:47 +00:00
L7054: lda ($A9),y
sta $A3,y
dey
cpy #$13
bne L7054
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L705E: ldax $A9
starting in on aux seg1
2017-09-30 02:14:47 +00:00
rts
Identify several window-related calls
2017-10-15 04:15:35 +00:00
.endproc
next_window_L7038 := next_window::L7038
snapshot
2017-09-17 18:18:47 +00:00
Identify several window-related calls
2017-10-15 04:15:35 +00:00
;; 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
Identify QUERY_WINDOW
2017-10-12 04:33:23 +00:00
beq end
loop: lda $AB
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
cmp $82
Identify several window-related calls
2017-10-15 04:15:35 +00:00
beq next_window::L705E
jsr next_window
Identify QUERY_WINDOW
2017-10-12 04:33:23 +00:00
bne loop
end: rts
.endproc
snapshot
2017-09-17 18:18:47 +00:00
Identify several window-related calls
2017-10-15 04:15:35 +00:00
;; Look up window state by id (in $82); $A9/$AA will point at
;; window params (also X,A).
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
;; This will exit the MGTK call directly (restoring stack, etc)
Identify QUERY_WINDOW
2017-10-12 04:33:23 +00:00
;; if the window is not found.
Identify several window-related calls
2017-10-15 04:15:35 +00:00
.proc window_by_id_or_exit
jsr window_by_id
Identify QUERY_WINDOW
2017-10-12 04:33:23 +00:00
beq nope
starting in on aux seg1
2017-09-30 02:14:47 +00:00
rts
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
nope: exit_call $9F
Identify QUERY_WINDOW
2017-10-12 04:33:23 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
L707F: MGTK_CALL MGTK::FrameRect, $C7
snapshot
2017-09-17 18:18:47 +00:00
rts
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
L7086: MGTK_CALL MGTK::InRect, $C7
snapshot
2017-09-17 18:18:47 +00:00
rts
L708D: ldx #$03
L708F: lda $B7,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $C7,x
snapshot
2017-09-17 18:18:47 +00:00
dex
bpl L708F
ldx #$02
L7098: lda $C3,x
sec
sbc $BF,x
tay
lda $C4,x
sbc $C0,x
pha
tya
clc
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
adc $C7,x
snapshot
2017-09-17 18:18:47 +00:00
sta $CB,x
pla
adc $C8,x
sta $CC,x
dex
dex
bpl L7098
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L70B2: ldax #$C7
snapshot
2017-09-17 18:18:47 +00:00
rts
L70B7: jsr L708D
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $C7
snapshot
2017-09-17 18:18:47 +00:00
bne L70C0
dec $C8
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L70C0: dec $C7
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L70F5: sta $82
snapshot
2017-09-17 18:18:47 +00:00
lda $C9
sec
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sbc $82
snapshot
2017-09-17 18:18:47 +00:00
sta $C9
bcs L70B2
dec $CA
bcc L70B2
L7104: jsr L70B7
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax $CB
snapshot
2017-09-17 18:18:47 +00:00
sec
sbc #$14
bcs L7111
dex
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L7111: stax $C7
snapshot
2017-09-17 18:18:47 +00:00
lda $AC
and #$01
bne L70B2
lda $C9
clc
adc L78CD
sta $C9
bcc L70B2
inc $CA
bcs L70B2
L7129: jsr L70B7
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L712C: ldax $CD
snapshot
2017-09-17 18:18:47 +00:00
sec
sbc #$0A
bcs L7136
dex
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L7136: stax $C9
snapshot
2017-09-17 18:18:47 +00:00
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
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax $C7
snapshot
2017-09-17 18:18:47 +00:00
clc
adc #$0C
bcc L7164
inx
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L7164: stax $C7
snapshot
2017-09-17 18:18:47 +00:00
clc
adc #$0E
bcc L716E
inx
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L716E: stax $CB
ldax $C9
snapshot
2017-09-17 18:18:47 +00:00
clc
adc #$02
bcc L717C
inx
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L717C: stax $C9
snapshot
2017-09-17 18:18:47 +00:00
clc
adc L78CB
bcc L7187
inx
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L7187: stax $CD
snapshot
2017-09-17 18:18:47 +00:00
jmp L70B2
L718E: jsr L70B7
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr fill_and_frame_rect
snapshot
2017-09-17 18:18:47 +00:00
lda $AC
and #$01
bne L71AA
jsr L7143
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr fill_and_frame_rect
snapshot
2017-09-17 18:18:47 +00:00
jsr L73BF
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax $AD
Split up include files for GUI library vs. DeskTop app
2017-10-12 03:45:58 +00:00
jsr draw_text
Identify several window-related calls
2017-10-15 04:15:35 +00:00
L71AA: jsr next_window::L703E
snapshot
2017-09-17 18:18:47 +00:00
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
Identify several window-related calls
2017-10-15 04:15:35 +00:00
L71D3: jsr next_window::L703E
snapshot
2017-09-17 18:18:47 +00:00
lda $AB
cmp L700D
bne L71E3
jsr L6588
jmp L720B
L71E3: rts
DeskTop: seg1 - Identify A2D calls
2017-10-01 05:54:52 +00:00
;; Drawing title bar, maybe?
snapshot
2017-09-17 18:18:47 +00:00
L71E4: .byte $01
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
stripes_pattern:
stripes_pattern_alt := *+1
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
.byte %11111111
.byte %00000000
.byte %11111111
.byte %00000000
.byte %11111111
.byte %00000000
.byte %11111111
.byte %00000000
.byte %11111111
snapshot
2017-09-17 18:18:47 +00:00
L71EE: jsr L7157
lda $C9
and #$01
beq L71FE
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::SetPattern, stripes_pattern
snapshot
2017-09-17 18:18:47 +00:00
rts
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
L71FE: MGTK_CALL MGTK::SetPattern, stripes_pattern_alt
snapshot
2017-09-17 18:18:47 +00:00
rts
L7205: lda #$01
ldx #$00
beq L720F
L720B: lda #$03
ldx #$01
L720F: stx L71E4
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr set_fill_mode
snapshot
2017-09-17 18:18:47 +00:00
lda $AC
and #$02
beq L7255
lda $AC
and #$01
bne L7255
jsr L7157
jsr L707F
jsr L71EE
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax $C7
snapshot
2017-09-17 18:18:47 +00:00
sec
sbc #$09
bcs L7234
dex
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L7234: stax $92
snapshot
2017-09-17 18:18:47 +00:00
clc
adc #$06
bcc L723E
inx
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L723E: stax $96
snapshot
2017-09-17 18:18:47 +00:00
lda $C9
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta $94
snapshot
2017-09-17 18:18:47 +00:00
lda $CA
sta $95
lda $CD
sta $98
lda $CE
sta $99
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr PaintRectImpl ; draws title bar stripes to left of close box
snapshot
2017-09-17 18:18:47 +00:00
L7255: lda $AC
and #$01
bne L72C9
jsr L7143
jsr L73BF
starting in on aux seg1
2017-09-30 02:14:47 +00:00
jsr L5907
jsr L71EE
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax $CB
snapshot
2017-09-17 18:18:47 +00:00
clc
adc #$03
bcc L7271
inx
L7271: tay
lda $AC
starting in on aux seg1
2017-09-30 02:14:47 +00:00
and #$02
bne L7280
snapshot
2017-09-17 18:18:47 +00:00
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
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
stax $92
snapshot
2017-09-17 18:18:47 +00:00
lda $96
sec
sbc #$0A
sta $96
bcs L72A0
dec $97
MGTK internal renames
2018-01-29 08:57:55 +00:00
L72A0: jsr PaintRectImpl ; Draw title bar stripes between close box and title
more macros in mgtk
2018-02-12 00:13:20 +00:00
add16 $CB, #$0A, $92
snapshot
2017-09-17 18:18:47 +00:00
jsr L7143
more macros in mgtk
2018-02-12 00:13:20 +00:00
sub16 $CB, #$03, $96
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr PaintRectImpl ; Draw title bar stripes to right of title
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
MGTK_CALL MGTK::SetPattern, standard_port::penpattern
Identify several window-related calls
2017-10-15 04:15:35 +00:00
L72C9: jsr next_window::L703E
snapshot
2017-09-17 18:18:47 +00:00
bit $B0
bpl L7319
jsr L7104
ldx #$03
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L72D5: lda $C7,x
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
sta up_scroll_params,x
sta down_scroll_params,x
snapshot
2017-09-17 18:18:47 +00:00
dex
bpl L72D5
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
inc up_scroll_params::incr
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax $CD
snapshot
2017-09-17 18:18:47 +00:00
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
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
stax down_scroll_params::unk1
simplify param names
2018-02-28 02:38:18 +00:00
ldax down_scroll_addr
snapshot
2017-09-17 18:18:47 +00:00
jsr L791C
simplify param names
2018-02-28 02:38:18 +00:00
ldax up_scroll_addr
snapshot
2017-09-17 18:18:47 +00:00
jsr L791C
L7319: bit $AF
bpl L7363
jsr L7129
ldx #$03
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L7322: lda $C7,x
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
sta left_scroll_params,x
sta right_scroll_params,x
snapshot
2017-09-17 18:18:47 +00:00
dex
bpl L7322
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax $CB
snapshot
2017-09-17 18:18:47 +00:00
sec
sbc #$14
bcs L7337
dex
L7337: pha
lda $AC
and #$04
bne L7342
bit $B0
bpl L734A
L7342: pla
sec
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sbc #$15
bcs L7349
dex
snapshot
2017-09-17 18:18:47 +00:00
L7349: pha
L734A: pla
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
stax right_scroll_params
simplify param names
2018-02-28 02:38:18 +00:00
ldax right_scroll_addr
snapshot
2017-09-17 18:18:47 +00:00
jsr L791C
simplify param names
2018-02-28 02:38:18 +00:00
ldax left_scroll_addr
starting in on aux seg1
2017-09-30 02:14:47 +00:00
jsr L791C
snapshot
2017-09-17 18:18:47 +00:00
L7363: lda #$00
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr set_fill_mode
starting in on aux seg1
2017-09-30 02:14:47 +00:00
lda $B0
and #$01
beq L737B
lda #$80
sta $8C
lda L71E4
jsr L79A0
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr next_window::L703E
snapshot
2017-09-17 18:18:47 +00:00
L737B: lda $AF
and #$01
beq L738E
lda #$00
sta $8C
lda L71E4
jsr L79A0
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr next_window::L703E
snapshot
2017-09-17 18:18:47 +00:00
L738E: lda $AC
and #$04
beq L73BE
jsr L713D
lda L71E4
bne L73A6
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax #$C7
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr fill_and_frame_rect
snapshot
2017-09-17 18:18:47 +00:00
jmp L73BE
Split up include files for GUI library vs. DeskTop app
2017-10-12 03:45:58 +00:00
;; Draw resize box
snapshot
2017-09-17 18:18:47 +00:00
L73A6: ldx #$03
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L73A8: lda $C7,x
DeskTop Seg 1: window widget params
2017-10-06 00:04:39 +00:00
sta resize_box_params,x
snapshot
2017-09-17 18:18:47 +00:00
dex
bpl L73A8
lda #$04
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr set_fill_mode
simplify param names
2018-02-28 02:38:18 +00:00
ldax resize_box_addr
snapshot
2017-09-17 18:18:47 +00:00
jsr L791C
L73BE: rts
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L73BF: ldax $AD
Split up include files for GUI library vs. DeskTop app
2017-10-12 03:45:58 +00:00
jsr do_measure_text
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
stax $82
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $C7
snapshot
2017-09-17 18:18:47 +00:00
clc
adc $CB
tay
lda $C8
adc $CC
tax
tya
sec
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sbc $82
snapshot
2017-09-17 18:18:47 +00:00
tay
txa
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sbc $83
snapshot
2017-09-17 18:18:47 +00:00
cmp #$80
ror a
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sta current_penloc_x+1
snapshot
2017-09-17 18:18:47 +00:00
tya
ror a
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sta current_penloc_x
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax $CD
snapshot
2017-09-17 18:18:47 +00:00
sec
sbc #$02
bcs L73F0
dex
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L73F0: stax current_penloc_y
ldax $82
snapshot
2017-09-17 18:18:47 +00:00
rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
;;; 4 bytes of params, copied to current_penloc
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
FindWindowImpl:
snapshot
2017-09-17 18:18:47 +00:00
jsr L653F
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
MGTK_CALL MGTK::InRect, test_rect_params
snapshot
2017-09-17 18:18:47 +00:00
beq L7416
lda #$01
L7406: ldx #$00
L7408: pha
txa
pha
jsr L6556
pla
tax
pla
ldy #$04
simplify param names
2018-02-28 02:38:18 +00:00
jmp store_xa_at_y
snapshot
2017-09-17 18:18:47 +00:00
L7416: lda #$00
sta L747A
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr top_window
snapshot
2017-09-17 18:18:47 +00:00
beq L7430
L7420: jsr L70B7
jsr L7086
starting in on aux seg1
2017-09-30 02:14:47 +00:00
bne L7434
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr next_window
starting in on aux seg1
2017-09-30 02:14:47 +00:00
stx L747A
bne L7420
snapshot
2017-09-17 18:18:47 +00:00
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
starting in on aux seg1
2017-09-30 02:14:47 +00:00
beq L7459
snapshot
2017-09-17 18:18:47 +00:00
lda #$05
bne L7472
L7459: lda #$03
bne L7472
L745D: lda L747A
starting in on aux seg1
2017-09-30 02:14:47 +00:00
bne L7476
lda $AC
and #$04
beq L7476
jsr L713D
jsr L7086
beq L7476
lda #$04
L7472: ldx $AB
snapshot
2017-09-17 18:18:47 +00:00
bne L7408
L7476: lda #$02
bne L7472
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
L747A: .byte 0
MGTK internal renames
2018-01-29 08:57:55 +00:00
OpenWindowImpl:
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda params_addr
snapshot
2017-09-17 18:18:47 +00:00
sta $A9
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda params_addr+1
snapshot
2017-09-17 18:18:47 +00:00
sta $AA
ldy #$00
lda ($A9),y
bne L748E
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
exit_call $9E
snapshot
2017-09-17 18:18:47 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L748E: sta $82
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr window_by_id
snapshot
2017-09-17 18:18:47 +00:00
beq L749A
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
exit_call $9D
snapshot
2017-09-17 18:18:47 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L749A: lda params_addr
snapshot
2017-09-17 18:18:47 +00:00
sta $A9
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda params_addr+1
snapshot
2017-09-17 18:18:47 +00:00
sta $AA
ldy #$0A
lda ($A9),y
ora #$80
sta ($A9),y
bmi L74BD
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; SelectWindow
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 1 byte of params, copied to $82
MGTK internal renames
2018-01-29 08:57:55 +00:00
SelectWindowImpl:
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr window_by_id_or_exit
snapshot
2017-09-17 18:18:47 +00:00
cmp L700B
bne L74BA
cpx L700C
bne L74BA
rts
L74BA: jsr L74F4
Identify several window-related calls
2017-10-15 04:15:35 +00:00
L74BD: ldy #next_offset_in_window_params ; Called from elsewhere
snapshot
2017-09-17 18:18:47 +00:00
lda L700B
sta ($A9),y
iny
lda L700C
sta ($A9),y
lda $A9
pha
lda $AA
pha
jsr L653C
jsr L6588
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr top_window
snapshot
2017-09-17 18:18:47 +00:00
beq L74DE
jsr L7205
L74DE: pla
sta L700C
pla
sta L700B
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr top_window
snapshot
2017-09-17 18:18:47 +00:00
lda $AB
sta L700D
jsr L718E
jmp L6553
Identify several window-related calls
2017-10-15 04:15:35 +00:00
L74F4: ldy #next_offset_in_window_params ; Called from elsewhere
snapshot
2017-09-17 18:18:47 +00:00
lda ($A9),y
sta ($A7),y
iny
lda ($A9),y
sta ($A7),y
rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; GetWinPtr
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 1 byte of params, copied to $C7
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc GetWinPtrImpl
Identify several window-related calls
2017-10-15 04:15:35 +00:00
ptr := $A9
jsr window_by_id_or_exit
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax ptr
Identify several window-related calls
2017-10-15 04:15:35 +00:00
ldy #1
simplify param names
2018-02-28 02:38:18 +00:00
jmp store_xa_at_y
Identify several window-related calls
2017-10-15 04:15:35 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; BeginUpdate
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 1 byte of params, copied to $82
Identify several window-related calls
2017-10-15 04:15:35 +00:00
L750C: .res 38,0
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc BeginUpdateImpl
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr window_by_id_or_exit
snapshot
2017-09-17 18:18:47 +00:00
lda $AB
cmp L7010
Segment work
2017-12-16 05:36:09 +00:00
bne :+
snapshot
2017-09-17 18:18:47 +00:00
inc L7871
Segment work
2017-12-16 05:36:09 +00:00
: jsr L653C
snapshot
2017-09-17 18:18:47 +00:00
jsr L6588
lda L7871
Segment work
2017-12-16 05:36:09 +00:00
bne :+
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
MGTK_CALL MGTK::SetPortBits, set_port_params
Segment work
2017-12-16 05:36:09 +00:00
: jsr L718E
snapshot
2017-09-17 18:18:47 +00:00
jsr L6588
lda L7871
Segment work
2017-12-16 05:36:09 +00:00
bne :+
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
MGTK_CALL MGTK::SetPortBits, set_port_params
Segment work
2017-12-16 05:36:09 +00:00
: jsr next_window::L703E
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda active_port
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta L750C
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda active_port+1
Identify several window-related calls
2017-10-15 04:15:35 +00:00
sta L750C+1
snapshot
2017-09-17 18:18:47 +00:00
jsr L75C6
php
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax L758A
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
jsr assign_and_prepare_port
DeskTop Seg 1: A2D dispatching
2017-10-06 04:18:28 +00:00
asl preserve_zp_flag
snapshot
2017-09-17 18:18:47 +00:00
plp
Segment work
2017-12-16 05:36:09 +00:00
bcc :+
snapshot
2017-09-17 18:18:47 +00:00
rts
MGTK internal renames
2018-01-29 08:57:55 +00:00
: jsr EndUpdateImpl
Segment work
2017-12-16 05:36:09 +00:00
;; fall through
Identify several window-related calls
2017-10-15 04:15:35 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
L7585: exit_call $A3
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; EndUpdate
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 1 byte of params, copied to $82
Segment work
2017-12-16 05:36:09 +00:00
L758A: .addr L750C + 2
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
EndUpdateImpl:
jsr ShowCursorImpl
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax L750C
stax active_port
snapshot
2017-09-17 18:18:47 +00:00
jmp L6567
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; GetWinPort
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 3 bytes of params, copied to $82
MGTK internal renames
2018-01-29 08:57:55 +00:00
GetWinPortImpl:
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
jsr apply_port_to_active_port
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr window_by_id_or_exit
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
copy16 $83, params_addr
snapshot
2017-09-17 18:18:47 +00:00
ldx #$07
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
L75AC: lda fill_rect_params,x
snapshot
2017-09-17 18:18:47 +00:00
sta $D8,x
dex
bpl L75AC
jsr L75C6
bcc L7585
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
ldy #sizeof_grafport-1
L75BB: lda current_grafport,y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
dey
bpl L75BB
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
jmp apply_active_port_to_port
snapshot
2017-09-17 18:18:47 +00:00
L75C6: jsr L708D
ldx #$07
L75CB: lda #$00
sta $9B,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $C7,x
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $82,x
snapshot
2017-09-17 18:18:47 +00:00
lda $97,x
sbc $93,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $83,x
snapshot
2017-09-17 18:18:47 +00:00
lda $D8,x
sec
sbc $9B,x
sta $D8,x
lda $D9,x
sbc $9C,x
sta $D9,x
lda $D8,x
clc
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
adc $82,x
snapshot
2017-09-17 18:18:47 +00:00
sta $DC,x
lda $D9,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
adc $83,x
snapshot
2017-09-17 18:18:47 +00:00
sta $DD,x
dex
dex
bpl L75EA
sec
rts
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; SetWinPort
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 2 bytes of params, copied to $82
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
;; This updates win grafport from params ???
Identify several window-related calls
2017-10-15 04:15:35 +00:00
;; 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
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
;; of the drawing port (from |pattern| to |font|)
Identify several window-related calls
2017-10-15 04:15:35 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc SetWinPortImpl
Identify several window-related calls
2017-10-15 04:15:35 +00:00
ptr := $A9
jsr window_by_id_or_exit
lda ptr
snapshot
2017-09-17 18:18:47 +00:00
clc
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
adc #port_offset_in_window_params
Identify several window-related calls
2017-10-15 04:15:35 +00:00
sta ptr
bcc :+
inc ptr+1
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
: ldy #sizeof_grafport-1
Identify several window-related calls
2017-10-15 04:15:35 +00:00
loop: lda ($82),y
snapshot
2017-09-17 18:18:47 +00:00
sta ($A9),y
dey
cpy #$10
Identify several window-related calls
2017-10-15 04:15:35 +00:00
bcs loop
snapshot
2017-09-17 18:18:47 +00:00
rts
Identify several window-related calls
2017-10-15 04:15:35 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; FrontWindow
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc FrontWindowImpl
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr top_window
beq nope
snapshot
2017-09-17 18:18:47 +00:00
lda $AB
Identify several window-related calls
2017-10-15 04:15:35 +00:00
bne :+
nope: lda #0
: ldy #0
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
rts
Identify several window-related calls
2017-10-15 04:15:35 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; TrackGoAway
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
in_close_box: .byte 0
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc TrackGoAwayImpl
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr top_window
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
beq end
snapshot
2017-09-17 18:18:47 +00:00
jsr L7157
jsr L653F
jsr L6588
lda #$80
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
toggle: sta in_close_box
snapshot
2017-09-17 18:18:47 +00:00
lda #$02
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr set_fill_mode
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr HideCursorImpl
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::PaintRect, $C7
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr ShowCursorImpl
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
loop: jsr L691B
starting in on aux seg1
2017-09-30 02:14:47 +00:00
cmp #$02
snapshot
2017-09-17 18:18:47 +00:00
beq L768B
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::MoveTo, set_pos_params
snapshot
2017-09-17 18:18:47 +00:00
jsr L7086
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
eor in_close_box
bpl loop
lda in_close_box
snapshot
2017-09-17 18:18:47 +00:00
eor #$80
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
jmp toggle
snapshot
2017-09-17 18:18:47 +00:00
L768B: jsr L6556
ldy #$00
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
lda in_close_box
beq end
snapshot
2017-09-17 18:18:47 +00:00
lda #$01
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
end: sta (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
rts
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
.endproc
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
snapshot
2017-09-17 18:18:47 +00:00
starting in on aux seg1
2017-09-30 02:14:47 +00:00
.byte $00
L769B: .byte $00
L769C: .byte $00
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L769D: .word 0
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L769F: .byte $00
L76A0: .byte $00,$00,$00
L76A3: .byte $00
L76A4: .byte $00,$00,$00
Segment work
2017-12-16 05:36:09 +00:00
;; High bit set if window is being resized, clear if moved.
drag_resize_flag:
.byte 0
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 5 bytes of params, copied to $82
MGTK internal renames
2018-01-29 08:57:55 +00:00
GrowWindowImpl:
snapshot
2017-09-17 18:18:47 +00:00
lda #$80
bmi L76AE
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 5 bytes of params, copied to $82
MGTK internal renames
2018-01-29 08:57:55 +00:00
DragWindowImpl:
snapshot
2017-09-17 18:18:47 +00:00
lda #$00
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
Segment work
2017-12-16 05:36:09 +00:00
L76AE: sta drag_resize_flag
snapshot
2017-09-17 18:18:47 +00:00
jsr L7ECD
ldx #$03
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L76B6: lda $83,x
snapshot
2017-09-17 18:18:47 +00:00
sta L769B,x
sta L769F,x
lda #$00
sta L76A3,x
dex
bpl L76B6
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr window_by_id_or_exit
snapshot
2017-09-17 18:18:47 +00:00
bit L7D74
bpl L76D1
jsr L817C
L76D1: jsr L653C
jsr L784C
lda #$02
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr set_fill_mode
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::SetPattern, checkerboard_pattern
Identify several window-related calls
2017-10-15 04:15:35 +00:00
L76E2: jsr next_window::L703E
snapshot
2017-09-17 18:18:47 +00:00
jsr L7749
jsr L70B7
jsr L707F
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr ShowCursorImpl
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
rts
L7714: ldy #$14
L7716: lda $A3,y
sta ($A9),y
iny
cpy #$24
bne L7716
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr HideCursorImpl
snapshot
2017-09-17 18:18:47 +00:00
lda $AB
jsr L7872
jsr L653C
bit L7D81
bvc L7733
jsr L8347
L7733: jsr L6553
lda #$80
jmp L770F
L773B: jsr L77E0
beq L76F1
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr HideCursorImpl
snapshot
2017-09-17 18:18:47 +00:00
jsr L707F
jmp L76E2
L7749: ldy #$13
L774B: lda ($A9),y
sta $BB,y
dey
cpy #$0B
bne L774B
ldx #$00
simplify param names
2018-02-28 02:38:18 +00:00
stx set_input_unk
Segment work
2017-12-16 05:36:09 +00:00
bit drag_resize_flag
snapshot
2017-09-17 18:18:47 +00:00
bmi L777D
L775F: lda $B7,x
clc
adc L76A3,x
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta $B7,x
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $82
snapshot
2017-09-17 18:18:47 +00:00
lda $C4,x
sbc $C0,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $83
snapshot
2017-09-17 18:18:47 +00:00
sec
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $82
sbc $C7,x
lda $83
snapshot
2017-09-17 18:18:47 +00:00
sbc $C8,x
bpl L77BC
clc
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $C7,x
snapshot
2017-09-17 18:18:47 +00:00
adc $BF,x
sta $C3,x
lda $C8,x
adc $C0,x
sta $C4,x
jsr L83F6
jmp L77D7
L77BC: sec
lda $CB,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sbc $82
snapshot
2017-09-17 18:18:47 +00:00
lda $CC,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sbc $83
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L77EC: lda $83,x
snapshot
2017-09-17 18:18:47 +00:00
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
simplify param names
2018-02-28 02:38:18 +00:00
lda set_input_unk
snapshot
2017-09-17 18:18:47 +00:00
L7814: rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; CloseWindow
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 1 byte of params, copied to $82
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc CloseWindowImpl
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr window_by_id_or_exit
snapshot
2017-09-17 18:18:47 +00:00
jsr L653C
jsr L784C
jsr L74F4
ldy #$0A
lda ($A9),y
and #$7F
sta ($A9),y
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr top_window
snapshot
2017-09-17 18:18:47 +00:00
lda $AB
sta L700D
lda #$00
jmp L7872
Identify several window-related calls
2017-10-15 04:15:35 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; CloseAll
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
CloseAllImpl:
jsr top_window
snapshot
2017-09-17 18:18:47 +00:00
beq L7849
ldy #$0A
lda ($A9),y
and #$7F
sta ($A9),y
jsr L74F4
MGTK internal renames
2018-01-29 08:57:55 +00:00
jmp CloseAllImpl
snapshot
2017-09-17 18:18:47 +00:00
L7849: jmp L6454
L784C: jsr L6588
jsr L70B7
ldx #$07
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L7854: lda $C7,x
snapshot
2017-09-17 18:18:47 +00:00
sta $92,x
dex
bpl L7854
jsr L50A9
ldx #$03
L7860: lda $92,x
simplify param names
2018-02-28 02:38:18 +00:00
sta set_port_maprect,x
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
sta set_port_params,x
snapshot
2017-09-17 18:18:47 +00:00
lda $96,x
simplify param names
2018-02-28 02:38:18 +00:00
sta set_port_size,x
snapshot
2017-09-17 18:18:47 +00:00
dex
bpl L7860
rts
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
;; Erases window after destruction
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
L7871: .byte 0
snapshot
2017-09-17 18:18:47 +00:00
L7872: sta L7010
lda #$00
sta L7871
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
MGTK_CALL MGTK::SetPortBits, set_port_params
snapshot
2017-09-17 18:18:47 +00:00
lda #$00
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr set_fill_mode
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::SetPattern, checkerboard_pattern
simplify param names
2018-02-28 02:38:18 +00:00
MGTK_CALL MGTK::PaintRect, set_port_maprect
snapshot
2017-09-17 18:18:47 +00:00
jsr L6553
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr top_window
snapshot
2017-09-17 18:18:47 +00:00
beq L78CA
php
sei
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr FlushEventsImpl
Identify several window-related calls
2017-10-15 04:15:35 +00:00
L789E: jsr next_window
snapshot
2017-09-17 18:18:47 +00:00
bne L789E
L78A3: jsr L67E4
bcs L78C9
tax
lda #$06
sta L6754,x
lda $AB
sta L6755,x
lda $AB
cmp L700D
beq L78C9
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $82
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr window_by_id
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
ldax $A7
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr next_window::L7044
snapshot
2017-09-17 18:18:47 +00:00
jmp L78A3
L78C9: plp
L78CA: rts
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L78CB: .byte $08,$00
L78CD: .byte $0C,$00
L78CF: .byte $0D,$00
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
.proc set_port_params
left: .word 0
top: .word $D
mapbits: .addr MGTK::screen_mapbits
mapwidth: .word MGTK::screen_mapwidth
hoffset: .word 0
voffset: .word 0
width: .word 0
height: .word 0
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
.endproc
simplify param names
2018-02-28 02:38:18 +00:00
set_port_top := set_port_params::top
set_port_size := set_port_params::width
set_port_maprect := set_port_params::hoffset ; Re-used since h/voff are 0
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; WindowToScreen
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
Identify several window-related calls
2017-10-15 04:15:35 +00:00
;; $83/$84 += $B7/$B8
;; $85/$86 += $B9/$BA
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc WindowToScreenImpl
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr window_by_id_or_exit
ldx #2
loop: lda $83,x
snapshot
2017-09-17 18:18:47 +00:00
clc
adc $B7,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $83,x
snapshot
2017-09-17 18:18:47 +00:00
lda $84,x
adc $B8,x
sta $84,x
dex
dex
Identify several window-related calls
2017-10-15 04:15:35 +00:00
bpl loop
snapshot
2017-09-17 18:18:47 +00:00
bmi L790F
Identify several window-related calls
2017-10-15 04:15:35 +00:00
.endproc
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; ScreenToWindow
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 5 bytes of params, copied to $82
MGTK internal renames
2018-01-29 08:57:55 +00:00
ScreenToWindowImpl:
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr window_by_id_or_exit
snapshot
2017-09-17 18:18:47 +00:00
ldx #$02
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L78FE: lda $83,x
snapshot
2017-09-17 18:18:47 +00:00
sec
sbc $B7,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $83,x
snapshot
2017-09-17 18:18:47 +00:00
lda $84,x
sbc $B8,x
sta $84,x
dex
dex
bpl L78FE
L790F: ldy #$05
Identify REDRAW_ALL entry point
2017-09-18 15:10:19 +00:00
L7911: lda $7E,y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta (params_addr),y
snapshot
2017-09-17 18:18:47 +00:00
iny
cpy #$09
bne L7911
rts
Split up include files for GUI library vs. DeskTop app
2017-10-12 03:45:58 +00:00
;; Used to draw scrollbar arrows
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L791C: stax $82
snapshot
2017-09-17 18:18:47 +00:00
ldy #$03
L7922: lda #$00
sta $8A,y
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda ($82),y
snapshot
2017-09-17 18:18:47 +00:00
sta $92,y
dey
bpl L7922
iny
sty $91
ldy #$04
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda ($82),y
snapshot
2017-09-17 18:18:47 +00:00
tax
A2D pre-shift tables identified per JB on comp.sys.apple2
2018-01-28 19:06:08 +00:00
lda div7_table+7,x
snapshot
2017-09-17 18:18:47 +00:00
sta $90
txa
ldx $93
clc
starting in on aux seg1
2017-09-30 02:14:47 +00:00
adc $92
snapshot
2017-09-17 18:18:47 +00:00
bcc L7945
inx
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L7945: stax $96
snapshot
2017-09-17 18:18:47 +00:00
iny
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda ($82),y
snapshot
2017-09-17 18:18:47 +00:00
ldx $95
clc
adc $94
bcc L7954
starting in on aux seg1
2017-09-30 02:14:47 +00:00
inx
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
L7954: stax $98
snapshot
2017-09-17 18:18:47 +00:00
iny
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda ($82),y
snapshot
2017-09-17 18:18:47 +00:00
sta $8E
iny
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda ($82),y
snapshot
2017-09-17 18:18:47 +00:00
sta $8F
jmp L51B3
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; ActivateCtl
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 2 bytes of params, copied to $8C
MGTK internal renames
2018-01-29 08:57:55 +00:00
ActivateCtlImpl:
snapshot
2017-09-17 18:18:47 +00:00
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
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr top_window
snapshot
2017-09-17 18:18:47 +00:00
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
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::PaintRect, $C7
snapshot
2017-09-17 18:18:47 +00:00
rts
L79AF: bit $8C
bmi L79B8
bit $AF
bmi L79BC
L79B7: rts
L79B8: bit $B0
bpl L79B7
L79BC: jsr L657E
jsr L79F1
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::SetPattern, light_speckles_pattern
MGTK_CALL MGTK::PaintRect, $C7
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
MGTK_CALL MGTK::SetPattern, standard_port::penpattern
snapshot
2017-09-17 18:18:47 +00:00
bit $8C
bmi L79DD
bit $AF
bvs L79E1
L79DC: rts
L79DD: bit $B0
bvc L79DC
L79E1: jsr L7A73
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jmp fill_and_frame_rect
snapshot
2017-09-17 18:18:47 +00:00
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
light_speckles_pattern:
.byte %11011101
.byte %01110111
.byte %11011101
.byte %01110111
.byte %11011101
.byte %01110111
.byte %11011101
.byte %01110111
starting in on aux seg1
2017-09-30 02:14:47 +00:00
.byte $00,$00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
snapshot
2017-09-17 18:18:47 +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
inc16 macro and refactors
2018-02-26 00:06:17 +00:00
L7A23: inc16 $C7
lda $CB
snapshot
2017-09-17 18:18:47 +00:00
bne L7A2F
dec $CC
L7A2F: dec $CB
jmp L7A70
L7A34: jsr L7129
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $C7
snapshot
2017-09-17 18:18:47 +00:00
clc
adc #$15
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $C7
snapshot
2017-09-17 18:18:47 +00:00
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
inc16 macro and refactors
2018-02-26 00:06:17 +00:00
L7A62: inc16 $C9
lda $CD
snapshot
2017-09-17 18:18:47 +00:00
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
starting in on aux seg1
2017-09-30 02:14:47 +00:00
ldx $A0
snapshot
2017-09-17 18:18:47 +00:00
jsr L7C93
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L7A94: sta $82
sty $83
snapshot
2017-09-17 18:18:47 +00:00
ldx #$00
lda #$14
bit $8C
bpl L7AA4
ldx #$02
lda #$0C
L7AA4: pha
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $C7,x
snapshot
2017-09-17 18:18:47 +00:00
clc
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
adc $82
sta $C7,x
snapshot
2017-09-17 18:18:47 +00:00
lda $C8,x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
adc $83
snapshot
2017-09-17 18:18:47 +00:00
sta $C8,x
pla
clc
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
adc $C7,x
snapshot
2017-09-17 18:18:47 +00:00
sta $CB,x
lda $C8,x
adc #$00
sta $CC,x
jmp L70B2
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; FindControl
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
;;; 4 bytes of params, copied to current_penloc
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
FindControlImpl:
snapshot
2017-09-17 18:18:47 +00:00
jsr L653F
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr top_window
snapshot
2017-09-17 18:18:47 +00:00
bne L7ACE
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
exit_call $A0
snapshot
2017-09-17 18:18:47 +00:00
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
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_penloc_y
snapshot
2017-09-17 18:18:47 +00:00
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
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_penloc_x+1
snapshot
2017-09-17 18:18:47 +00:00
cmp $C8
bcc L7B60
bne L7B5F
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
lda current_penloc_x
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
cmp $C7
snapshot
2017-09-17 18:18:47 +00:00
bcc L7B60
L7B5F: inx
L7B60: lda #$02
bne L7B72
L7B64: jsr L708D
jsr L7086
beq L7B70
lda #$00
Identify REDRAW_ALL entry point
2017-09-18 15:10:19 +00:00
beq L7B72
snapshot
2017-09-17 18:18:47 +00:00
L7B70: lda #$03
L7B72: jmp L7408
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; SetCtlMax
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 3 bytes of params, copied to $82
MGTK internal renames
2018-01-29 08:57:55 +00:00
SetCtlMaxImpl:
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $82
snapshot
2017-09-17 18:18:47 +00:00
cmp #$01
bne L7B81
lda #$80
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $82
snapshot
2017-09-17 18:18:47 +00:00
bne L7B90
L7B81: cmp #$02
bne L7B8B
lda #$00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $82
snapshot
2017-09-17 18:18:47 +00:00
beq L7B90
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
L7B8B: exit_call $A4
snapshot
2017-09-17 18:18:47 +00:00
Identify several window-related calls
2017-10-15 04:15:35 +00:00
L7B90: jsr top_window
snapshot
2017-09-17 18:18:47 +00:00
bne L7B9A
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
exit_call $A0
snapshot
2017-09-17 18:18:47 +00:00
L7B9A: ldy #$06
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
bit $82
snapshot
2017-09-17 18:18:47 +00:00
bpl L7BA2
ldy #$08
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L7BA2: lda $83
snapshot
2017-09-17 18:18:47 +00:00
sta ($A9),y
sta $AB,y
rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; TrackThumb
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 5 bytes of params, copied to $82
MGTK internal renames
2018-01-29 08:57:55 +00:00
TrackThumbImpl:
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $82
snapshot
2017-09-17 18:18:47 +00:00
cmp #$01
bne L7BB6
lda #$80
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $82
snapshot
2017-09-17 18:18:47 +00:00
bne L7BC5
L7BB6: cmp #$02
bne L7BC0
lda #$00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $82
snapshot
2017-09-17 18:18:47 +00:00
beq L7BC5
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
L7BC0: exit_call $A4
snapshot
2017-09-17 18:18:47 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L7BC5: lda $82
snapshot
2017-09-17 18:18:47 +00:00
sta $8C
ldx #$03
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L7BCB: lda $83,x
snapshot
2017-09-17 18:18:47 +00:00
sta L769B,x
sta L769F,x
dex
bpl L7BCB
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr top_window
snapshot
2017-09-17 18:18:47 +00:00
bne L7BE0
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
exit_call $A0
snapshot
2017-09-17 18:18:47 +00:00
L7BE0: jsr L7A73
jsr L653F
jsr L6588
lda #$02
Identify MENU_CLICK
2017-10-15 02:45:51 +00:00
jsr set_fill_mode
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::SetPattern, light_speckles_pattern
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr HideCursorImpl
snapshot
2017-09-17 18:18:47 +00:00
L7BF7: jsr L707F
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr ShowCursorImpl
snapshot
2017-09-17 18:18:47 +00:00
L7BFD: jsr L691B
cmp #$02
beq L7C66
jsr L77E0
beq L7BFD
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr HideCursorImpl
snapshot
2017-09-17 18:18:47 +00:00
jsr L707F
Identify several window-related calls
2017-10-15 04:15:35 +00:00
jsr top_window
snapshot
2017-09-17 18:18:47 +00:00
jsr L7A73
ldx #$00
lda #$14
bit $8C
bpl L7C21
ldx #$02
lda #$0C
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L7C21: sta $82
lda $C7,x
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $C7,x
snapshot
2017-09-17 18:18:47 +00:00
clc
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
adc $82
snapshot
2017-09-17 18:18:47 +00:00
sta $CB,x
lda $C8,x
adc #$00
sta $CC,x
jmp L7BF7
MGTK internal renames
2018-01-29 08:57:55 +00:00
L7C66: jsr HideCursorImpl
snapshot
2017-09-17 18:18:47 +00:00
jsr L707F
jsr L6553
jsr L7CBA
jsr L5698
ldx $A1
jsr L7CE3
lda $A3
ldy #$00
cpx #$01
bcs L7C87
starting in on aux seg1
2017-09-30 02:14:47 +00:00
ldx $A0
snapshot
2017-09-17 18:18:47 +00:00
jsr L7C93
L7C87: ldx #$01
cmp $A1
bne L7C8E
dex
L7C8E: ldy #$05
simplify param names
2018-02-28 02:38:18 +00:00
jmp store_xa_at_y
snapshot
2017-09-17 18:18:47 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L7C93: sta $82
sty $83
snapshot
2017-09-17 18:18:47 +00:00
lda #$80
sta $84
ldy #$00
sty $85
txa
beq L7CB5
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L7CA2: lda $82
snapshot
2017-09-17 18:18:47 +00:00
clc
adc $84
sta $84
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $83
snapshot
2017-09-17 18:18:47 +00:00
adc $85
sta $85
bcc L7CB2
iny
L7CB2: dex
bne L7CA2
L7CB5: rts
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
L7CB6: .byte 0
L7CB7: .byte 0
L7CB8: .byte 0
L7CB9: .byte 0
DeskTop Seg 1: DESKTOP jump table
2017-10-06 01:36:20 +00:00
more macros in mgtk
2018-02-12 00:13:20 +00:00
L7CBA: sub16 L7CB6, L7CB8, $A3
snapshot
2017-09-17 18:18:47 +00:00
ldx #$00
bit $8C
bpl L7CD3
ldx #$02
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L7CD3: lda $C7,x
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
L7D07: sta $82
lda $C7,x
snapshot
2017-09-17 18:18:47 +00:00
ldy $C8,x
sta L7CB8
sty L7CB9
lda $CB,x
ldy $CC,x
sec
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sbc $82
snapshot
2017-09-17 18:18:47 +00:00
bcs L7D1D
dey
L7D1D: sta L7CB6
sty L7CB7
rts
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; UpdateThumb
DeskTop Seg 1: Jump table labels
2017-10-03 03:05:07 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 3 bytes of params, copied to $8C
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
.proc UpdateThumbImpl
snapshot
2017-09-17 18:18:47 +00:00
lda $8C
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
cmp #MGTK::ctl_vertical_scroll_bar
bne :+
snapshot
2017-09-17 18:18:47 +00:00
lda #$80
sta $8C
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
bne check_win
: cmp #MGTK::ctl_horizontal_scroll_bar
bne bad_ctl
snapshot
2017-09-17 18:18:47 +00:00
lda #$00
sta $8C
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
beq check_win
snapshot
2017-09-17 18:18:47 +00:00
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
bad_ctl:
exit_call $A4
check_win:
jsr top_window
bne :+
exit_call $A0
snapshot
2017-09-17 18:18:47 +00:00
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
: ldy #$07
snapshot
2017-09-17 18:18:47 +00:00
bit $8C
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
bpl :+
snapshot
2017-09-17 18:18:47 +00:00
ldy #$09
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
: lda $8D
snapshot
2017-09-17 18:18:47 +00:00
sta ($A9),y
jsr L653C
jsr L657E
jsr L79A0
jmp L6553
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
.endproc
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; KeyboardMouse
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 1 byte of params, copied to $82
MGTK internal renames
2018-01-29 08:57:55 +00:00
KeyboardMouse:
lda #$80
snapshot
2017-09-17 18:18:47 +00:00
sta L7D74
MGTK internal renames
2018-01-29 08:57:55 +00:00
jmp FlushEventsImpl
snapshot
2017-09-17 18:18:47 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop Seg 1: Identify alert bitmap
2017-10-04 15:31:53 +00:00
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
;;; $4E IMPL
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 2 bytes of params, copied to $82
DeskTop Seg 1: Jump table labels
2017-10-03 02:48:21 +00:00
L7D69:
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $82
snapshot
2017-09-17 18:18:47 +00:00
sta L7D7A
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $83
snapshot
2017-09-17 18:18:47 +00:00
sta L7D7B
rts
starting in on aux seg1
2017-09-30 02:14:47 +00:00
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
snapshot
2017-09-17 18:18:47 +00:00
L7D83: ldx #$7F
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L7D85: lda $80,x
snapshot
2017-09-17 18:18:47 +00:00
sta L7D99,x
dex
bpl L7D85
rts
L7D8E: ldx #$7F
L7D90: lda L7D99,x
starting in on aux seg1
2017-09-30 02:14:47 +00:00
sta $80,x
snapshot
2017-09-17 18:18:47 +00:00
dex
bpl L7D90
rts
DeskTop Seg 1: Param blocks
2017-10-05 03:41:08 +00:00
L7D99: .res 128, 0
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
L7E19: bit mouse_hooked_flag
snapshot
2017-09-17 18:18:47 +00:00
bmi L7E49
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
bit no_mouse_flag
snapshot
2017-09-17 18:18:47 +00:00
bmi L7E49
pha
txa
sec
jsr L7E75
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
ldx mouse_firmware_hi
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
sta MOUSE_X_LO,x
snapshot
2017-09-17 18:18:47 +00:00
tya
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
sta MOUSE_X_HI,x
snapshot
2017-09-17 18:18:47 +00:00
pla
ldy #$00
clc
jsr L7E75
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
ldx mouse_firmware_hi
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
sta MOUSE_Y_LO,x
snapshot
2017-09-17 18:18:47 +00:00
tya
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
sta MOUSE_Y_HI,x
ldy #POSMOUSE
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
jmp call_mouse
snapshot
2017-09-17 18:18:47 +00:00
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
L7E49: stx mouse_x
sty mouse_x+1
sta mouse_y
bit mouse_hooked_flag
snapshot
2017-09-17 18:18:47 +00:00
bpl L7E5C
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
ldy #POSMOUSE
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
jmp call_mouse
snapshot
2017-09-17 18:18:47 +00:00
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
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
sta mouse_x,x
snapshot
2017-09-17 18:18:47 +00:00
dex
bpl L7E8E
rts
L7E98: jsr L7E8C
jmp L7E69
L7E9E: jsr L62BA
ldx #$02
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
L7EA3: lda mouse_x,x
snapshot
2017-09-17 18:18:47 +00:00
sta L7D7C,x
dex
bpl L7EA3
rts
simplify param names
2018-02-28 02:38:18 +00:00
L7EAD: jsr stash_addr
snapshot
2017-09-17 18:18:47 +00:00
lda L7F2E
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta params_addr
snapshot
2017-09-17 18:18:47 +00:00
lda L7F2F
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta params_addr+1
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr SetCursorImpl
simplify param names
2018-02-28 02:38:18 +00:00
jsr restore_addr
snapshot
2017-09-17 18:18:47 +00:00
lda #$00
sta L7D74
lda #$40
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
sta mouse_status
snapshot
2017-09-17 18:18:47 +00:00
jmp L7E5D
L7ECD: lda #$00
sta L7D81
simplify param names
2018-02-28 02:38:18 +00:00
sta set_input_unk
snapshot
2017-09-17 18:18:47 +00:00
rts
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
;; Look at buttons (apple keys), compute modifiers in A
'solid' apple
2018-02-05 05:05:31 +00:00
;; (bit = button 0 / open apple, bit 1 = button 1 / solid apple)
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
.proc compute_modifiers
lda BUTN1
snapshot
2017-09-17 18:18:47 +00:00
asl a
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
lda BUTN0
snapshot
2017-09-17 18:18:47 +00:00
and #$80
rol a
rol a
rts
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
L7EE2: jsr compute_modifiers
simplify param names
2018-02-28 02:38:18 +00:00
sta set_input_modifiers
snapshot
2017-09-17 18:18:47 +00:00
L7EE8: clc
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
lda KBD
snapshot
2017-09-17 18:18:47 +00:00
bpl L7EF4
DeskTop Seg 1: Interrupt handler, softswitch equates
2017-10-05 15:49:49 +00:00
stx KBDSTRB
snapshot
2017-09-17 18:18:47 +00:00
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
simplify param names
2018-02-28 02:38:18 +00:00
L7F0F: jsr stash_addr
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
lda active_cursor
snapshot
2017-09-17 18:18:47 +00:00
sta L7F2E
Identify GET_CURSOR
2017-10-14 19:51:25 +00:00
lda active_cursor+1
snapshot
2017-09-17 18:18:47 +00:00
sta L7F2F
lda L6065
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta params_addr
snapshot
2017-09-17 18:18:47 +00:00
lda L6066
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta params_addr+1
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr SetCursorImpl
simplify param names
2018-02-28 02:38:18 +00:00
jmp restore_addr
snapshot
2017-09-17 18:18:47 +00:00
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
L7F2E: .byte 0
L7F2F: .byte 0
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
simplify param names
2018-02-28 02:38:18 +00:00
stash_addr:
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda params_addr
simplify param names
2018-02-28 02:38:18 +00:00
sta stashed_addr
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda params_addr+1
simplify param names
2018-02-28 02:38:18 +00:00
sta stashed_addr+1
snapshot
2017-09-17 18:18:47 +00:00
rts
simplify param names
2018-02-28 02:38:18 +00:00
restore_addr:
lda stashed_addr
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta params_addr
simplify param names
2018-02-28 02:38:18 +00:00
lda stashed_addr+1
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta params_addr+1
snapshot
2017-09-17 18:18:47 +00:00
rts
simplify param names
2018-02-28 02:38:18 +00:00
stashed_addr: .addr 0
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
L7F48: jsr compute_modifiers
snapshot
2017-09-17 18:18:47 +00:00
ror a
ror a
ror L7D82
lda L7D82
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
sta mouse_status
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
lda #0
sta input::modifiers
snapshot
2017-09-17 18:18:47 +00:00
jsr L7EE8
bcc L7F63
starting in on aux seg1
2017-09-30 02:14:47 +00:00
jmp L8292
snapshot
2017-09-17 18:18:47 +00:00
L7F63: jmp L7E98
L7F66: pha
lda L7D74
bne L7FA3
pla
cmp #$03
bne L7FA2
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
bit mouse_status
snapshot
2017-09-17 18:18:47 +00:00
bmi L7FA2
lda #$04
sta L7D74
ldx #$0A
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
L7F7D: lda SPKR ; Beep?
starting in on aux seg1
2017-09-30 02:14:47 +00:00
ldy #$00
snapshot
2017-09-17 18:18:47 +00:00
L7F82: dey
bne L7F82
dex
bpl L7F7D
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
L7F88: jsr compute_modifiers
cmp #3
snapshot
2017-09-17 18:18:47 +00:00
beq L7F88
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
sta input::modifiers
snapshot
2017-09-17 18:18:47 +00:00
lda #$00
sta L7D82
ldx #$02
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
L7F99: lda set_pos_params,x
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
L7FB4: bit mouse_status
snapshot
2017-09-17 18:18:47 +00:00
bpl L7FC1
lda #$00
sta L7D74
jmp L7E69
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
L7FC1: lda mouse_status
snapshot
2017-09-17 18:18:47 +00:00
pha
lda #$C0
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
sta mouse_status
snapshot
2017-09-17 18:18:47 +00:00
pla
and #$20
beq L7FDE
ldx #$02
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
L7FD1: lda mouse_x,x
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
sta mouse_status
snapshot
2017-09-17 18:18:47 +00:00
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
Segment work
2017-12-16 05:36:09 +00:00
lda menu_item_y_table,y
snapshot
2017-09-17 18:18:47 +00:00
sta L7D77
lda #$C0
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
sta mouse_status
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
bcs handle_menu_key
snapshot
2017-09-17 18:18:47 +00:00
rts
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
;; Keyboard navigation of menu
.proc handle_menu_key
pha
snapshot
2017-09-17 18:18:47 +00:00
jsr L8035
pla
Consolidate include files
2018-02-27 04:13:18 +00:00
cmp #CHAR_ESCAPE
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
bne try_return
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
lda #0
snapshot
2017-09-17 18:18:47 +00:00
sta L7D80
sta L7D7F
lda #$80
sta L7D81
rts
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
try_return:
Consolidate include files
2018-02-27 04:13:18 +00:00
cmp #CHAR_RETURN
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
bne try_up
snapshot
2017-09-17 18:18:47 +00:00
jsr L7E8C
jmp L7EAD
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
try_up:
Consolidate include files
2018-02-27 04:13:18 +00:00
cmp #CHAR_UP
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
bne try_down
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
try_down:
Consolidate include files
2018-02-27 04:13:18 +00:00
cmp #CHAR_DOWN
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
bne try_right
snapshot
2017-09-17 18:18:47 +00:00
L80A7: inc L7D7B
ldx L7D7A
jsr L6878
lda L7D7B
cmp $AA
bcc L80BE
beq L80BE
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
lda #0
snapshot
2017-09-17 18:18:47 +00:00
sta L7D7B
L80BE: ldx L7D7B
beq L80CD
dex
jsr L68BE
lda $BF
and #$C0
bne L80A7
L80CD: jmp L800F
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
try_right:
Consolidate include files
2018-02-27 04:13:18 +00:00
cmp #CHAR_RIGHT
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
bne try_left
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
lda #0
snapshot
2017-09-17 18:18:47 +00:00
sta L7D7B
inc L7D7A
lda L7D7A
cmp $A8
bcc L80E8
lda #$00
sta L7D7A
L80E8: jmp L800F
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
try_left:
Consolidate include files
2018-02-27 04:13:18 +00:00
cmp #CHAR_LEFT
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
bne nope
Standardize state label names a bit
2017-10-08 03:22:39 +00:00
lda #0
snapshot
2017-09-17 18:18:47 +00:00
sta L7D7B
dec L7D7A
bmi L80FC
jmp L800F
L80FC: ldx $A8
dex
stx L7D7A
jmp L800F
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
nope: jsr L8110
snapshot
2017-09-17 18:18:47 +00:00
bcc L810F
lda #$80
sta L7D81
L810F: rts
DeskTop Seg 1: params
2017-10-09 04:02:57 +00:00
.endproc
snapshot
2017-09-17 18:18:47 +00:00
L8110: sta $C9
simplify param names
2018-02-28 02:38:18 +00:00
lda set_input_modifiers
snapshot
2017-09-17 18:18:47 +00:00
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
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $C7
snapshot
2017-09-17 18:18:47 +00:00
rts
L8149: php
sei
jsr L6D23
jsr L7EAD
lda L7D7F
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sta $C7
snapshot
2017-09-17 18:18:47 +00:00
sta L6BD9
lda L7D80
sta $C8
sta L6BDA
jsr L6556
lda L7D7F
beq L816F
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr HiliteMenuImpl
snapshot
2017-09-17 18:18:47 +00:00
lda L7D7F
L816F: sta L6BD9
ldx L7D80
stx L6BDA
plp
Identify CFG_DISPLAY and input processing
2017-10-08 22:02:16 +00:00
jmp store_xa_at_params
snapshot
2017-09-17 18:18:47 +00:00
L817C: php
sei
jsr L7E9E
lda #$80
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
sta mouse_status
snapshot
2017-09-17 18:18:47 +00:00
jsr L70B7
Segment work
2017-12-16 05:36:09 +00:00
bit drag_resize_flag
snapshot
2017-09-17 18:18:47 +00:00
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
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
lda #<(screen_width-1)
snapshot
2017-09-17 18:18:47 +00:00
sbc L769B
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
lda #>(screen_width-1)
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
sbc L769B+1
snapshot
2017-09-17 18:18:47 +00:00
bmi L81D9
sec
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
lda #<(screen_height-1)
snapshot
2017-09-17 18:18:47 +00:00
sbc L769D
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
lda #>(screen_height-1)
Identify DRAW_POLYGONS
2017-10-14 06:23:31 +00:00
sbc L769D+1
snapshot
2017-09-17 18:18:47 +00:00
bmi L81D9
jsr L7E98
jsr L7F0F
plp
rts
L81D9: lda #$00
sta L7D74
lda #$A2
plp
MGTK internal renames
2018-01-29 08:57:55 +00:00
jmp exit_with_a
snapshot
2017-09-17 18:18:47 +00:00
L81E4: lda $AC
and #$01
beq L81F4
lda #$00
sta L7D74
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
exit_call $A1
snapshot
2017-09-17 18:18:47 +00:00
L81F4: ldx #$00
L81F6: clc
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $C7,x
snapshot
2017-09-17 18:18:47 +00:00
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
simplify param names
2018-02-28 02:38:18 +00:00
lda set_input_modifiers
snapshot
2017-09-17 18:18:47 +00:00
beq L828C
ora #$80
simplify param names
2018-02-28 02:38:18 +00:00
sta set_input_modifiers
snapshot
2017-09-17 18:18:47 +00:00
L828C: pla
ldx #$C0
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
stx mouse_status
starting in on aux seg1
2017-09-30 02:14:47 +00:00
L8292: cmp #$0B
snapshot
2017-09-17 18:18:47 +00:00
bne L82A2
lda #$F8
simplify param names
2018-02-28 02:38:18 +00:00
bit set_input_modifiers
snapshot
2017-09-17 18:18:47 +00:00
bpl L829F
lda #$D0
L829F: jmp L823D
L82A2: cmp #$0A
bne L82B2
lda #$08
simplify param names
2018-02-28 02:38:18 +00:00
bit set_input_modifiers
snapshot
2017-09-17 18:18:47 +00:00
bpl L82AF
lda #$30
L82AF: jmp L823D
L82B2: cmp #$15
bne L82ED
jsr L839A
bcc L82EA
clc
lda #$08
simplify param names
2018-02-28 02:38:18 +00:00
bit set_input_modifiers
snapshot
2017-09-17 18:18:47 +00:00
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
simplify param names
2018-02-28 02:38:18 +00:00
bit set_input_modifiers
snapshot
2017-09-17 18:18:47 +00:00
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
simplify param names
2018-02-28 02:38:18 +00:00
L831D: sta set_input_key
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
ldx #sizeof_grafport-1
snapshot
2017-09-17 18:18:47 +00:00
L8322: lda $A7,x
sta $0600,x
dex
bpl L8322
simplify param names
2018-02-28 02:38:18 +00:00
lda set_input_key
snapshot
2017-09-17 18:18:47 +00:00
jsr L8110
php
MGTK: Internal renames
2018-01-29 16:25:56 +00:00
ldx #sizeof_grafport-1
snapshot
2017-09-17 18:18:47 +00:00
L8333: lda $0600,x
sta $A7,x
dex
bpl L8333
plp
bcc L8346
lda #$40
sta L7D81
jmp L7EAD
L8346: rts
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
L8347: MGTK_CALL MGTK::PostEvent, set_input_params
snapshot
2017-09-17 18:18:47 +00:00
rts
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
.proc set_input_params ; 1 byte shorter than normal, since KEY
prefix event kind
2018-02-03 04:10:19 +00:00
state: .byte MGTK::event_kind_key_down
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
key: .byte 0
modifiers:
.byte 0
unk: .byte 0
.endproc
simplify param names
2018-02-28 02:38:18 +00:00
set_input_key := set_input_params::key
set_input_modifiers := set_input_params::modifiers
set_input_unk := set_input_params::unk
DeskTop seg 1: WIP tidying param blocks
2017-10-02 06:56:30 +00:00
snapshot
2017-09-17 18:18:47 +00:00
L8352: lda L7D74
cmp #$04
beq L8368
lda L7D75
bne L8368
lda L7D76
bne L8368
Segment work
2017-12-16 05:36:09 +00:00
bit drag_resize_flag
snapshot
2017-09-17 18:18:47 +00:00
bpl L836A
L8368: sec
rts
L836A: jsr L70B7
lda $CC
bne L8380
lda #$09
DeskTop Seg 1: DESKTOP jump table
2017-10-06 01:36:20 +00:00
bit set_input_params::modifiers
snapshot
2017-09-17 18:18:47 +00:00
bpl L837A
lda #$41
L837A: cmp $CB
bcc L8380
clc
rts
DeskTop Seg 1: DESKTOP jump table
2017-10-06 01:36:20 +00:00
L8380: inc set_input_params::unk
snapshot
2017-09-17 18:18:47 +00:00
clc
lda #$08
DeskTop Seg 1: DESKTOP jump table
2017-10-06 01:36:20 +00:00
bit set_input_params::modifiers
snapshot
2017-09-17 18:18:47 +00:00
bpl L838D
lda #$40
L838D: adc L769B
sta L769B
bcc L8398
inc L769C
L8398: clc
rts
L839A: lda L7D74
cmp #$04
beq L83B3
Segment work
2017-12-16 05:36:09 +00:00
bit drag_resize_flag
improve stats, reduce unused params, macros in mgtk
2018-02-12 00:04:20 +00:00
.byte $30 ; bmi ...
ora $75AD
snapshot
2017-09-17 18:18:47 +00:00
adc $2FE9,x
lda L7D76
sbc #$02
beq L83B5
sec
L83B3: sec
rts
L83B5: jsr L70B7
sec
lda #$2F
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
sbc $C7
snapshot
2017-09-17 18:18:47 +00:00
tax
lda #$02
sbc $C8
beq L83C6
ldx #$FF
simplify param names
2018-02-28 02:38:18 +00:00
L83C6: bit set_input_modifiers
snapshot
2017-09-17 18:18:47 +00:00
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
simplify param names
2018-02-28 02:38:18 +00:00
L83F0: inc set_input_unk
snapshot
2017-09-17 18:18:47 +00:00
clc
rts
DeskTop seg 1: name param blocks
2017-10-01 23:17:04 +00:00
L83F5: .byte 0
snapshot
2017-09-17 18:18:47 +00:00
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
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
MGTK internal renames
2018-01-29 08:57:55 +00:00
;;; ScaleMouse
DeskTop Seg 1: param blocks
2017-10-07 03:59:09 +00:00
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
;;; Sets up mouse clamping
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
;;; 2 bytes of params, copied to $82
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
;;; 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???)
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
MGTK internal renames
2018-01-29 08:57:55 +00:00
.proc ScaleMouseImpl
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $82
snapshot
2017-09-17 18:18:47 +00:00
sta L5FFD
DeskTop Seg 1: various symbols
2017-10-07 20:59:25 +00:00
lda $83
snapshot
2017-09-17 18:18:47 +00:00
sta L5FFE
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
L8431: bit no_mouse_flag ; called after INITMOUSE
bmi end
snapshot
2017-09-17 18:18:47 +00:00
lda L5FFD
asl a
tay
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
lda #0
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
sta mouse_x
sta mouse_x+1
bit mouse_hooked_flag
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
bmi :+
sta CLAMP_MIN_LO
sta CLAMP_MIN_HI
: lda clamp_x_table,y
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
sta mouse_y
bit mouse_hooked_flag
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
bmi :+
sta CLAMP_MAX_LO
: lda clamp_x_table+1,y
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
sta mouse_y+1
bit mouse_hooked_flag
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
bmi :+
sta CLAMP_MAX_HI
: lda #CLAMP_X
ldy #CLAMPMOUSE
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
jsr call_mouse
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
snapshot
2017-09-17 18:18:47 +00:00
lda L5FFE
asl a
tay
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
lda #0
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
sta mouse_x
sta mouse_x+1
bit mouse_hooked_flag
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
bmi :+
sta CLAMP_MIN_LO
sta CLAMP_MIN_HI
: lda clamp_y_table,y
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
sta mouse_y
bit mouse_hooked_flag
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
bmi :+
sta CLAMP_MAX_LO
: lda clamp_y_table+1,y
Tentatively identify HOOK_MOUSE - buggy?
2017-10-16 03:13:45 +00:00
sta mouse_y+1
bit mouse_hooked_flag
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
bmi :+
sta CLAMP_MAX_HI
: lda #CLAMP_Y
ldy #CLAMPMOUSE
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
jsr call_mouse
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
end: rts
snapshot
2017-09-17 18:18:47 +00:00
lc defs for overlays, macros for exit
2018-03-02 02:25:42 +00:00
clamp_x_table: .word screen_width-1, screen_width/2-1, screen_width/4-1, screen_width/8-1
clamp_y_table: .word screen_height-1, screen_height/2-1, screen_height/4-1, screen_height/8-1
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
.endproc
Bytes to code
2017-10-03 03:46:01 +00:00
wider block separator comment
2018-03-05 05:36:00 +00:00
;;; ============================================================
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
;;; 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
snapshot
2017-09-17 18:18:47 +00:00
and #$7F
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
beq scan
jsr check_mouse_in_a
sta no_mouse_flag
beq found
ldx #0
snapshot
2017-09-17 18:18:47 +00:00
rts
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
;; Scan for mouse starting at slot 7
scan: ldx #7
loop: txa
jsr check_mouse_in_a
sta no_mouse_flag
beq found
snapshot
2017-09-17 18:18:47 +00:00
dex
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
bpl loop
ldx #0 ; no mouse found
snapshot
2017-09-17 18:18:47 +00:00
rts
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
found: ldy #INITMOUSE
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
jsr call_mouse
MGTK internal renames
2018-01-29 08:57:55 +00:00
jsr ScaleMouseImpl::L8431
DeskTop Seg 1: mouse clamping and constants
2017-10-08 00:16:19 +00:00
ldy #HOMEMOUSE
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
jsr call_mouse
lda mouse_firmware_hi
snapshot
2017-09-17 18:18:47 +00:00
and #$0F
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
tax ; return with mouse slot in X
snapshot
2017-09-17 18:18:47 +00:00
rts
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
;; 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
snapshot
2017-09-17 18:18:47 +00:00
cmp #$20
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
bne nope
ldy #$FB ; $CnFB = $D6
lda (ptr),y
snapshot
2017-09-17 18:18:47 +00:00
cmp #$D6
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
bne nope
lda ptr+1 ; yay, found it!
sta mouse_firmware_hi
snapshot
2017-09-17 18:18:47 +00:00
asl a
asl a
asl a
asl a
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
sta mouse_operand
snapshot
2017-09-17 18:18:47 +00:00
lda #$00
rts
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
nope: lda #$80
snapshot
2017-09-17 18:18:47 +00:00
rts
DeskTop Seg 1: mouse hookup
2017-10-07 22:07:12 +00:00
.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
Rename A2D to MGTK
2018-01-29 05:18:00 +00:00
.endproc ; mgtk
Reference in New Issue Copy Permalink