a2d/desktop/mgtk.s

8641 lines
194 KiB
ArmAsm
Raw Normal View History

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