Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-02-02 19:31:45 +00:00
Code Issues Projects Releases Wiki Activity

wider block separator comment

Browse Source
This commit is contained in:
Joshua Bell 2018-03-04 21:36:00 -08:00
parent dd73b53592
commit 08a034911b
23 changed files with 584 additions and 584 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
desk.acc/calculator.s
View File

@ -12,14 +12,14 @@
adjust_txtptr := $B1
;;; ==================================================
;;; ============================================================
;;; Start of the code
start: jmp copy2aux
save_stack: .byte 0
;;; ==================================================
;;; ============================================================
;;; Duplicate the DA (code and data) to AUX memory,
;;; then invoke the code in AUX.
@ -50,7 +50,7 @@ save_stack: .byte 0
jmp XFER
.endproc
;;; ==================================================
;;; ============================================================
.proc exit_da
lda LCBANK1
@ -60,7 +60,7 @@ save_stack: .byte 0
rts
.endproc
;;; ==================================================
;;; ============================================================
call_init:
lda ROMIN2
@ -113,7 +113,7 @@ skip: lda #0
sizeof_routine := * - routine
.endproc
;;; ==================================================
;;; ============================================================
;; Set when the client area is offscreen and
@ -143,7 +143,7 @@ offscreen_flag:
: rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Call Params (and other data)
;; The following params blocks overlap for data re-use
@ -201,7 +201,7 @@ flag: .byte MGTK::zp_preserve
flag: .byte MGTK::zp_overwrite
.endproc
;;; ==================================================
;;; ============================================================
;;; Button Definitions
button_width := 17
@ -496,7 +496,7 @@ tall_button_bitmap: ; bitmap for '+' button
.byte px(%1000000),px(%0000000),px(%0000000)
;;; ==================================================
;;; ============================================================
;;; Calculation state
saved_stack:
@ -509,7 +509,7 @@ calc_n: .byte $00 ; negative?
calc_g: .byte $00 ; high bit set if last input digit
calc_l: .byte $00 ; input length
;;; ==================================================
;;; ============================================================
;;; Miscellaneous param blocks
.proc background_box_params
@ -742,7 +742,7 @@ cursor: .byte px(%0000000),px(%0000000) ; cursor
.byte 1, 1 ; hotspot
;;; ==================================================
;;; ============================================================
;;; DA Init
init: sta ALTZPON
@ -814,7 +814,7 @@ loop: lda adjust_txtptr_copied-1,x
MGTK_CALL MGTK::SetCursor, cursor ; Why not use JUMP_TABLE_CUR_POINTER ?
;; fall through
;;; ==================================================
;;; ============================================================
;;; Input Loop
input_loop:
@ -830,7 +830,7 @@ input_loop:
jsr on_key_press
jmp input_loop
;;; ==================================================
;;; ============================================================
;;; On Click
on_click:
@ -897,7 +897,7 @@ loop: lda routine,x
jsr redraw_screen_and_window
rts
;;; ==================================================
;;; ============================================================
;;; On Key Press
.proc on_key_press
@ -923,7 +923,7 @@ bail:
rts1: rts ; used by next proc
;;; ==================================================
;;; ============================================================
;;; Try to map a click to a button
;;; If a button was clicked, carry is set and accum has key char
@ -1056,7 +1056,7 @@ miss: clc
.endproc
.endproc
;;; ==================================================
;;; ============================================================
;;; Handle Key
;;; Accumulator is set to key char. Also used by
@ -1448,7 +1448,7 @@ done: lda button_state ; high bit set if button down
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Value Display
.proc reset_buffer1
@ -1506,7 +1506,7 @@ loop: lda #' '
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Draw the window contents (background, buttons)
.proc draw_background
@ -1560,7 +1560,7 @@ loop: ldy #0
jmp loop
.endproc
;;; ==================================================
;;; ============================================================
;;; Draw the title bar decoration
draw_title_bar:

40
desk.acc/date.s
View File

@ -10,14 +10,14 @@
.org $800
;;; ==================================================
;;; ============================================================
jmp copy2aux
stash_stack: .byte $00
;;; ==================================================
;;; ============================================================
;;; MLI Call Param Blocks
filename:
@ -32,7 +32,7 @@ write_buffer:
.byte 0,0
sizeof_write_buffer := * - write_buffer
;;; ==================================================
;;; ============================================================
.proc copy2aux
@ -64,7 +64,7 @@ write_buffer:
jmp XFER
.endproc
;;; ==================================================
;;; ============================================================
;;; Write date into MD.SYSTEM file and exit the DA
.proc save_date_and_exit
@ -105,7 +105,7 @@ skip: ldx stash_stack ; exit the DA
rts
.endproc
;;; ==================================================
;;; ============================================================
start_da:
sta ALTZPON
@ -113,7 +113,7 @@ start_da:
lda LCBANK1
jmp init_window
;;; ==================================================
;;; ============================================================
;;; Param blocks
;; The following 7 rects are iterated over to identify
@ -251,7 +251,7 @@ textfont: .addr DEFAULT_FONT
nextwinfo: .addr 0
.endproc
;;; ==================================================
;;; ============================================================
;;; Initialize window, unpack the date.
init_window:
@ -287,7 +287,7 @@ init_window:
MGTK_CALL MGTK::FlushEvents
;; fall through
;;; ==================================================
;;; ============================================================
;;; Input loop
.proc input_loop
@ -359,7 +359,7 @@ update_selection:
jmp input_loop
.endproc
;;; ==================================================
;;; ============================================================
.proc on_click
MGTK_CALL MGTK::FindWindow, event_params::xcoord
@ -390,7 +390,7 @@ hit_target_jump_table:
.addr on_field_click, on_field_click, on_field_click
.endproc
;;; ==================================================
;;; ============================================================
.proc on_ok
MGTK_CALL MGTK::PaintRect, ok_button_rect
@ -495,7 +495,7 @@ gosub: jsr $1000 ; self modified
hit_rect_index:
.byte 0
;;; ==================================================
;;; ============================================================
increment_table:
.addr 0, increment_day, increment_month, increment_year
@ -561,7 +561,7 @@ decrement_year:
sta year
: jmp prepare_year_string
;;; ==================================================
;;; ============================================================
.proc prepare_day_string
lda day
@ -607,7 +607,7 @@ month_name_table:
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Tear down the window and exit
dialog_result: .byte 0
@ -651,7 +651,7 @@ skip: jmp dest
sizeof_routine := * - routine
.endproc
;;; ==================================================
;;; ============================================================
;;; Figure out which button was hit (if any).
;;; Index returned in X.
@ -688,7 +688,7 @@ done: pla
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Params for the display
border_rect:
@ -721,7 +721,7 @@ penwidth: .byte 1
penheight: .byte 1
.endproc
;;; ==================================================
;;; ============================================================
;;; Render the window contents
draw_window:
@ -787,7 +787,7 @@ draw_window:
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Highlight selected field
;;; Previously selected field in A, newly selected field at top of stack.
@ -828,7 +828,7 @@ fill_month:
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Delay
.proc delay
@ -845,7 +845,7 @@ loop2: sbc #1
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Save/restore Zero Page
.proc save_zp
@ -869,7 +869,7 @@ loop: lda zp_buffer,x
zp_buffer:
.res 256, 0
;;; ==================================================
;;; ============================================================
;;; Convert number to two ASCII digits (in A, X)
.proc number_to_ascii

30
desk.acc/puzzle.s
View File

@ -14,7 +14,7 @@
.res 36, 0
;;; ==================================================
;;; ============================================================
;;; Copy the DA to AUX and invoke it
stash_stack: .byte 0
@ -43,7 +43,7 @@ stash_stack: .byte 0
jmp XFER
.endproc
;;; ==================================================
;;; ============================================================
;;; Set up / tear down
.proc exit_da
@ -66,7 +66,7 @@ stash_stack: .byte 0
da_window_id := 51
;;; ==================================================
;;; ============================================================
;;; Redraw the screen (all windows) after a event_kind_drag
.proc redraw_screen
@ -105,7 +105,7 @@ skip: lda #0
sizeof_routine := * - routine
.endproc
;;; ==================================================
;;; ============================================================
;;; ???
screen_height := 192
@ -132,7 +132,7 @@ check_window_pos:
: rts
;;; ==================================================
;;; ============================================================
;;; Param Blocks
;; following memory space is re-used so x/y overlap
@ -644,7 +644,7 @@ textfont: .addr DEFAULT_FONT
name: PASCAL_STRING "Puzzle"
;;; ==================================================
;;; ============================================================
;;; Create the window
.proc create_window
@ -696,7 +696,7 @@ ploop: lda position_table+1,y
; fall through
.endproc
;;; ==================================================
;;; ============================================================
;;; Input loop and processing
.proc input_loop
@ -776,7 +776,7 @@ check_key:
: rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Map click to piece x/y
.proc find_click_piece
@ -851,7 +851,7 @@ nope: clc
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Process piece click
hole_piece := 12
@ -972,7 +972,7 @@ after_click:
rts ; ???
.endproc
;;; ==================================================
;;; ============================================================
;;; Clear the background
draw_window:
@ -991,7 +991,7 @@ draw_window:
MGTK_CALL MGTK::SetPort, setport_params
rts
;;; ==================================================
;;; ============================================================
.proc save_zp
ldx #$00
@ -1014,7 +1014,7 @@ loop: lda saved_zp,x
saved_zp:
.res 256, 0
;;; ==================================================
;;; ============================================================
;;; Draw pieces
.proc draw_all
@ -1080,7 +1080,7 @@ loop: tya
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Play sound
.proc play_sound
@ -1101,7 +1101,7 @@ delay2: dey
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Puzzle complete?
;; Returns with carry set if puzzle complete
@ -1173,7 +1173,7 @@ nope: clc
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Find hole piece
.proc find_hole

10
desk.acc/show.image.file.s
View File

@ -74,7 +74,7 @@ loop: lda routine,x
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; ProDOS MLI calls
.proc open_file
@ -113,7 +113,7 @@ loop: lda routine,x
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Copies param blocks from Aux to Main
.proc copy_params_aux_to_main
@ -345,7 +345,7 @@ end: rts
;; fall through
.endproc
;;; ==================================================
;;; ============================================================
;;; Main Input Loop
.proc input_loop
@ -420,7 +420,7 @@ close: jsr close_file
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Convert single hires to double hires
;;; Assumes the image is loaded to MAIN $2000 and
@ -491,7 +491,7 @@ done: sta PAGE2OFF
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Stash/Unstash Menu Bar
;;; Have not yet figured out how to force the menu to

42
desk.acc/show.text.file.s
View File

@ -73,7 +73,7 @@ loop: lda call_main_template,x
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; ProDOS MLI calls
.proc open_file
@ -121,7 +121,7 @@ loop: lda call_main_template,x
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Copies param blocks from Aux to Main
.proc copy_params_aux_to_main
@ -458,7 +458,7 @@ loop: lda font_width_table - 1,x
;; fall through
.endproc
;;; ==================================================
;;; ============================================================
;;; Main Input Loop
input_loop:
@ -498,7 +498,7 @@ input_loop:
title: jsr on_title_bar_click
jmp input_loop
;;; ==================================================
;;; ============================================================
;;; Close Button
.proc on_close_click
@ -511,7 +511,7 @@ title: jsr on_title_bar_click
rts ; exits input loop
.endproc
;;; ==================================================
;;; ============================================================
;;; Resize Handle
;;; This is dead code (no resize handle!) and may be buggy
@ -565,7 +565,7 @@ enable: ora #MGTK::scroll_option_active ; enable scroll
jmp finish_resize
.endproc
;;; ==================================================
;;; ============================================================
;;; Client Area
;;; Non-title (client) area clicked
@ -581,7 +581,7 @@ enable: ora #MGTK::scroll_option_active ; enable scroll
end: rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Vertical Scroll Bar
.proc on_vscroll_click
@ -702,7 +702,7 @@ loop: inx
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Horizontal Scroll Bar
;;; (Unused in STF DA, so most of this is speculation)
@ -795,7 +795,7 @@ store: sta winfo::hthumbpos
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; UI Helpers
;; Used at start of thumb event_kind_drag
@ -910,7 +910,7 @@ end: rts
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Content Rendering
.proc draw_content
@ -985,7 +985,7 @@ L0ED7: jsr restore_proportional_font_table_if_needed
rts
.endproc
;;; ==================================================
;;; ============================================================
.proc L0EDB ; ???
copy16 #506, L095B
@ -994,7 +994,7 @@ L0ED7: jsr restore_proportional_font_table_if_needed
rts
.endproc
;;; ==================================================
;;; ============================================================
.proc find_text_run
lda #$FF
@ -1072,7 +1072,7 @@ tab: inc drawtext_params::textlen
: clc
rts
;;; ==================================================
;;; ============================================================
L0F9B: .byte 0
run_width: .word 0
@ -1114,7 +1114,7 @@ times70:.word 70
.word 490
.endproc
;;; ==================================================
;;; ============================================================
;;; Draw a line of content
.proc draw_text_run
@ -1128,7 +1128,7 @@ times70:.word 70
end: rts
.endproc
;;; ==================================================
;;; ============================================================
.proc ensure_page_buffered
lda drawtext_params::textptr+1
@ -1155,7 +1155,7 @@ read: lda #0
: rts
.endproc
;;; ==================================================
;;; ============================================================
.proc read_file_page
copy16 read_params::data_buffer, store+1
@ -1211,7 +1211,7 @@ end: rts
;; fall through
.endproc
;;; ==================================================
;;; ============================================================
.proc calc_line_position
copy16 winfo::maprect::y2, L0965
@ -1237,7 +1237,7 @@ loop: lda L0966
end: rts
.endproc
;;; ==================================================
;;; ============================================================
.proc div_by_16 ; input in $06/$07, output in a
ldx #4
@ -1269,7 +1269,7 @@ loop: clc
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Restore the font glyph width table when switching
;;; back to proportional mode.
@ -1298,7 +1298,7 @@ loop: clc
done: rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Overwrite the font glyph width table (with 7s)
;;; when switching to fixed width mode.
@ -1313,7 +1313,7 @@ loop: sta font_width_table - 1,x
end: rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Title Bar (Proportional/Fixed mode button)
.proc on_title_bar_click

14
desktop.inc
View File

@ -1,11 +1,11 @@
;;; ==================================================
;;; ============================================================
;;; DeskTop Internals
;;; ==================================================
;;; ============================================================
DA_LOAD_ADDRESS := $800
DA_MAX_SIZE := $1C00 - DA_LOAD_ADDRESS
;;; ==================================================
;;; ============================================================
;;; Direct Calls (from main memory)
;;; * = Used by Desk Accessories
@ -33,7 +33,7 @@ JUMP_TABLE_CUR_POINTER := $4039 ; Changes mouse cursor to pointer *
JUMP_TABLE_CUR_WATCH := $403C ; Changes mouse cursor to watch
JUMP_TABLE_RESTORE_SEG := $403F ; Restore from dynamic routine
;;; ==================================================
;;; ============================================================
;;; API Calls (from aux memory)
;;; * = Used by Desk Accessories
@ -79,7 +79,7 @@ label := *
.endmacro
;;; ==================================================
;;; ============================================================
;;; Relays from Main to Aux (params must be in ZP or LC)
MGTK_RELAY := $D000
@ -102,7 +102,7 @@ DESKTOP_RELAY := $D040
.endmacro
;;; ==================================================
;;; ============================================================
;;; Internals - Windows (paths) and Icons (files)
;;; NOTE: Some of these are used by Desk Accessories
@ -163,7 +163,7 @@ icon_entry_type_bas := %00110000
icon_entry_type_txt := %01010000
icon_entry_type_trash := %01110000
;;; ==================================================
;;; ============================================================
;;; Internals - Default Font
;;; Used by DAs for window definitions

594
desktop/desktop.s
View File

File diff suppressed because it is too large Load Diff

2
desktop/inc/desktoplc.inc
View File

@ -66,7 +66,7 @@ updatethumb_which_ctl := updatethumb_params
updatethumb_thumbpos := updatethumb_params + 1
updatethumb_stash := updatethumb_params + 5 ; not part of struct
;;; ==================================================
;;; ============================================================
;;; Resources
winfo12 := $D5B7

2
desktop/inc/font.inc
View File

@ -1,4 +1,4 @@
;;; ==================================================
;;; ============================================================
;;; Font
font_definition:

12
desktop/invoker.s
View File

@ -5,9 +5,9 @@
.include "../inc/prodos.inc"
.include "../macros.inc"
;;; ==================================================
;;; ============================================================
;;; Segment loaded into MAIN $290-$3EF
;;; ==================================================
;;; ============================================================
;;; Used to invoke other programs (system, binary, BASIC)
@ -20,7 +20,7 @@ FILENAME := $280 ; File to invoke, set by caller
start:
jmp begin
;;; ==================================================
;;; ============================================================
default_start_address := $2000
@ -41,7 +41,7 @@ bs_path:
DEFINE_QUIT_PARAMS quit_params, $EE, FILENAME
;;; ==================================================
;;; ============================================================
set_prefix:
MLI_CALL SET_PREFIX, set_prefix_params
@ -51,12 +51,12 @@ set_prefix:
jmp exit
: rts
;;; ==================================================
;;; ============================================================
open: MLI_CALL OPEN, open_params
rts
;;; ==================================================
;;; ============================================================
begin: lda ROMIN2

8
desktop/loader.s
View File

@ -8,7 +8,7 @@
DESKTOP_INIT := $0800 ; init location
L7ECA := $7ECA ; ???
;;; ==================================================
;;; ============================================================
;;; Patch self in as ProDOS QUIT routine (LCBank2 $D100)
;;; and invoke QUIT. Note that only $200 bytes are copied.
@ -35,7 +35,7 @@ loop: lda src,y
DEFINE_QUIT_PARAMS quit_params
.endproc ; install_as_quit
;;; ==================================================
;;; ============================================================
;;; New QUIT routine. Gets relocated to $1000 by ProDOS before
;;; being executed.
@ -206,7 +206,7 @@ prefix_buffer:
.endproc ; quit_routine
;;; ==================================================
;;; ============================================================
;;; This chunk is invoked at $2000 after the quit handler has been invoked
;;; and updated itself. Using the segment_*_tables below, this loads the
;;; DeskTop application into various parts of main, aux, and bank-switched
@ -416,7 +416,7 @@ max_page:
.res $2200 - *,0
.endproc ; install_segments
;;; ==================================================
;;; ============================================================
;;; Not sure where this could be invoked from
.proc dump_screen

190
desktop/mgtk.s
View File

@ -7,9 +7,9 @@
.include "../desktop.inc"
.include "../macros.inc"
;;; ==================================================
;;; ============================================================
;;; MouseGraphics ToolKit
;;; ==================================================
;;; ============================================================
.proc mgtk
.org $4000
@ -17,7 +17,7 @@
screen_width := 560
screen_height := 192
;;; ==================================================
;;; ============================================================
;;; ZP Usage
@ -92,7 +92,7 @@
glyph_last := $FE ; last glyph index
glyph_height_p := $FF ; glyph height
;;; ==================================================
;;; ============================================================
;;; MGTK
.proc dispatch
@ -219,7 +219,7 @@ exit_with_0:
rts1: rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Routines can jmp here to exit with A set
exit_with_a:
@ -238,7 +238,7 @@ rts2: rts
jmp exit_with_a
.endmacro
;;; ==================================================
;;; ============================================================
;;; Copy port params (36 bytes) to/from active port addr
.proc apply_active_port_to_port
@ -259,7 +259,7 @@ rts2: rts
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Drawing calls show/hide cursor before/after
;;; A recursion count is kept to allow rentrancy.
@ -278,7 +278,7 @@ hide_cursor_count:
jmp ShowCursorImpl
.endproc
;;; ==================================================
;;; ============================================================
;;; Jump table for MGTK entry point calls
;; jt_rts can be used if the only thing the
@ -511,7 +511,7 @@ param_lengths:
PARAM_DEFN 16, $8A, 0 ; $4D
PARAM_DEFN 2, $82, 0 ; $4E
;;; ==================================================
;;; ============================================================
;;; Pre-Shift Tables
shift_1_aux:
@ -800,7 +800,7 @@ mod7_table:
.byte $06,$00,$01,$02,$03,$04,$05,$06
.byte $00,$01,$02,$03
;;; ==================================================
;;; ============================================================
hires_table_lo:
.byte $00,$00,$00,$00,$00,$00,$00,$00
@ -854,7 +854,7 @@ hires_table_hi:
.byte $03,$07,$0B,$0F,$13,$17,$1B,$1F
.byte $03,$07,$0B,$0F,$13,$17,$1B,$1F
;;; ==================================================
;;; ============================================================
;;; Routines called during PaintRect etc based on
;;; current_penmode
@ -1158,7 +1158,7 @@ fill_mode_table_a:
.addr fillmode0a,fillmode1a,fillmode2a,fillmode3a
.addr fillmode0a,fillmode1a,fillmode2a,fillmode3a
;;; ==================================================
;;; ============================================================
;;; SetPenMode
SetPenModeImpl:
@ -1422,7 +1422,7 @@ L4F7D: ror a
dey
L4F8E: rts
;;; ==================================================
;;; ============================================================
;;; SetPattern
SetPatternImpl:
@ -1477,7 +1477,7 @@ L4FDD: dex
sta LOWSCR
rts
;;; ==================================================
;;; ============================================================
;;; FrameRect
;;; 4 bytes of params, copied to $9F
@ -1541,7 +1541,7 @@ L502F: lda current_penheight
inc $98+1
;; Fall through...
;;; ==================================================
;;; ============================================================
;;; PaintRect
;;; 4 bytes of params, copied to $92
@ -1554,7 +1554,7 @@ L5043: jsr L50A9
jsr L4EA9
jmp L4CED
;;; ==================================================
;;; ============================================================
;;; InRect
;;; 4 bytes of params, copied to $92
@ -1596,7 +1596,7 @@ L5043: jsr L50A9
fail: rts
.endproc
;;; ==================================================
;;; ============================================================
;;; SetPortBits
SetPortBitsImpl:
@ -1713,7 +1713,7 @@ L514C: sec
L5163: exit_call $81
;;; ==================================================
;;; ============================================================
;;; 16 bytes of params, copied to $8A
@ -1766,7 +1766,7 @@ PaintBitsImpl:
sta dbi_height+1
;; fall through
;;; ==================================================
;;; ============================================================
;;; $4D IMPL
@ -2006,14 +2006,14 @@ ora_2_param_bytes:
ldy #$80
L5379: rts
;;; ==================================================
;;; ============================================================
;;; InPoly
InPolyImpl:
lda #$80
bne L5380
;;; ==================================================
;;; ============================================================
;;; PaintPoly
;; also called from the end of LineToImpl
@ -2414,7 +2414,7 @@ L56D2: dey
bne L56B4
L56D5: rts
;;; ==================================================
;;; ============================================================
;;; FramePoly
.proc FramePolyImpl
@ -2491,7 +2491,7 @@ L572F: ldx #1
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; Move
;;; 4 bytes of params, copied to $A1
@ -2523,7 +2523,7 @@ L572F: ldx #1
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; LineImpl
;;; 4 bytes of params, copied to $A1
@ -2547,7 +2547,7 @@ loop: lda xdelta,x
;; fall through
.endproc
;;; ==================================================
;;; ============================================================
;;; LineTo
;;; 4 bytes of params, copied to $92
@ -2692,7 +2692,7 @@ L5852: .byte $00,$00,$00,$00,$00,$00,$00,$00
.endproc
DRAW_LINE_ABS_IMPL_L5783 := LineToImpl::L5783
;;; ==================================================
;;; ============================================================
;;; SetFont
.proc SetFontImpl
@ -2760,7 +2760,7 @@ glyph_row_hi:
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
;;; ==================================================
;;; ============================================================
;;; TextWidth
;;; 3 bytes of params, copied to $A1
@ -2803,7 +2803,7 @@ loop: sty accum+1
rts
.endproc
;;; ==================================================
;;; ============================================================
L5907: sec
sbc #1
@ -2831,7 +2831,7 @@ L592D: sec
L5933: stax $94
rts
;;; ==================================================
;;; ============================================================
;;; 3 bytes of params, copied to $A1
@ -3415,7 +3415,7 @@ L5E41: .byte $00
L5E42: .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00
;;; ==================================================
;;; ============================================================
;;; InitGraf
.proc InitGrafImpl
@ -3446,7 +3446,7 @@ saved_port_addr:
.addr saved_port
.endproc
;;; ==================================================
;;; ============================================================
;;; SetSwitches
;;; 1 byte param, copied to $82
@ -3482,7 +3482,7 @@ store: sta $C000,y
table: .byte <(TXTCLR / 2), <(MIXCLR / 2), <(LOWSCR / 2), <(LORES / 2)
.endproc
;;; ==================================================
;;; ============================================================
;;; SetPort
.proc SetPortImpl
@ -3504,7 +3504,7 @@ prepare_port:
jsr SetPatternImpl
jmp SetPenModeImpl
;;; ==================================================
;;; ============================================================
;;; GetPort
.proc GetPortImpl
@ -3525,7 +3525,7 @@ store_xa_at_y:
sta (params_addr),y
rts
;;; ==================================================
;;; ============================================================
;;; InitPort
.proc InitPortImpl
@ -3537,7 +3537,7 @@ loop: lda standard_port,y
.endproc
rts3: rts
;;; ==================================================
;;; ============================================================
;;; SetZP1
;;; 1 byte of params, copied to $82
@ -3553,7 +3553,7 @@ rts3: rts
jmp dispatch::cleanup
.endproc
;;; ==================================================
;;; ============================================================
;;; SetZP2
;;; 1 byte of params, copied to $82
@ -3598,7 +3598,7 @@ unstash:
maybe_stash_low_zp := SetZP2Impl::maybe_stash
maybe_unstash_low_zp := SetZP2Impl::maybe_unstash
;;; ==================================================
;;; ============================================================
;;; Version
.proc VersionImpl
@ -3619,7 +3619,7 @@ release:.byte 1 ; ???
.endproc
.endproc
;;; ==================================================
;;; ============================================================
preserve_zp_flag: ; if high bit set, ZP saved during MGTK calls
.byte $80
@ -3630,7 +3630,7 @@ low_zp_stash_flag:
stack_ptr_stash:
.byte 0
;;; ==================================================
;;; ============================================================
;;; Standard GrafPort
@ -3649,7 +3649,7 @@ textback: .byte 0
textfont: .addr 0
.endproc
;;; ==================================================
;;; ============================================================
.proc saved_port
viewloc: .word 0, 0
@ -3732,7 +3732,7 @@ L6067: lda #$FF
sta params_addr+1
;; fall through
;;; ==================================================
;;; ============================================================
;;; SetCursor
cursor_height := 12
@ -3961,7 +3961,7 @@ L622A: sta L622E
cpy #$28
rts
;;; ==================================================
;;; ============================================================
;;; ShowCursor
.proc ShowCursorImpl
@ -3980,7 +3980,7 @@ done: plp
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; ObscureCursor
.proc ObscureCursorImpl
@ -3993,7 +3993,7 @@ done: plp
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; HideCursor
HideCursorImpl:
@ -4004,7 +4004,7 @@ HideCursorImpl:
plp
L6263: rts
;;; ==================================================
;;; ============================================================
L6264: .byte 0
L6265: bit L6339
@ -4077,7 +4077,7 @@ L62FE: bit mouse_hooked_flag
sta mouse_status
L6309: rts
;;; ==================================================
;;; ============================================================
;;; GetCursorAddr
.proc GetCursorAddrImpl
@ -4085,7 +4085,7 @@ L6309: rts
jmp store_xa_at_params
.endproc
;;; ==================================================
;;; ============================================================
;; Call mouse firmware, operation in Y, param in A
.proc call_mouse
@ -4124,7 +4124,7 @@ desktop_initialized_flag:
L6340: .byte $00
;;; ==================================================
;;; ============================================================
;;; StartDeskTop
;;; 12 bytes of params, copied to $82
@ -4285,7 +4285,7 @@ L649F: lda #$80
sta L6337
L64A4: rts
;;; ==================================================
;;; ============================================================
;;; StopDeskTop
.proc StopDeskTopImpl
@ -4309,7 +4309,7 @@ L64A4: rts
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; SetUserHook
;;; 3 bytes of params, copied to $82
@ -4442,7 +4442,7 @@ checkerboard_pattern:
.byte %10101010
.byte $00
;;; ==================================================
;;; ============================================================
;;; AttachDriver
;;; 2 bytes of params, copied to $82
@ -4468,14 +4468,14 @@ mouse_state_addr:
.addr mouse_state
.endproc
;;; ==================================================
;;; ============================================================
;;; PeekEvent
PeekEventImpl:
clc
bcc L65D8
;;; ==================================================
;;; ============================================================
;;; GetEvent
GetEventImpl:
@ -4510,7 +4510,7 @@ L6607: plp
cli
L660E: rts
;;; ==================================================
;;; ============================================================
;;; 5 bytes of params, copied to $82
@ -4560,7 +4560,7 @@ L6653: lda cursor_count,y
bne L6653
rts
;;; ==================================================
;;; ============================================================
;;; CheckEvents
@ -4654,7 +4654,7 @@ L66DE: lda input,y
end: jmp L6523
.endproc
;;; ==================================================
;;; ============================================================
;;; Interrupt Handler
int_stash_zp:
@ -4709,7 +4709,7 @@ rloop: lda int_stash_zp,x
: rts
.endproc
;;; ==================================================
;;; ============================================================
;;; GetIntHandler
.proc GetIntHandlerImpl
@ -4719,7 +4719,7 @@ rloop: lda int_stash_zp,x
L6750: .addr interrupt_handler::body
.endproc
;;; ==================================================
;;; ============================================================
;;; FlushEvents
;;; This is called during init by the DAs, just before
@ -4776,7 +4776,7 @@ L680E: clc
L6811: clc
rts
;;; ==================================================
;;; ============================================================
;;; SetKeyEvent
;;; 1 byte of params, copied to $82
@ -4792,7 +4792,7 @@ check_kbd_flag: .byte $80
rts
.endproc
;;; ==================================================
;;; ============================================================
L681D: .byte $02
@ -4970,7 +4970,7 @@ L691B: MGTK_CALL MGTK::GetEvent, $82
lda $82
rts
;;; ==================================================
;;; ============================================================
;;; SetMenu
L6924: .byte 0
@ -5207,7 +5207,7 @@ L6B16: cpx $AA
ldx #$00
L6B1C: rts
;;; ==================================================
;;; ============================================================
;;; HiliteMenu
;;; 2 bytes of params, copied to $C7
@ -5244,7 +5244,7 @@ loop: lda $B7,x
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; MenuKey
;;; 4 bytes of params, copied to $C7
@ -5288,7 +5288,7 @@ L6B9F: jsr L6B96
bne L6B9E
exit_call $9B
;;; ==================================================
;;; ============================================================
;;; DisableItem
;;; 3 bytes of params, copied to $C7
@ -5300,7 +5300,7 @@ DisableItemImpl:
ror $BF
jmp L68DF
;;; ==================================================
;;; ============================================================
;;; CheckItem
;;; 3 bytes of params, copied to $C7
@ -5317,7 +5317,7 @@ L6BC2: lda #$DF
L6BC6: sta $BF
jmp L68DF
;;; ==================================================
;;; ============================================================
;;; DisableMenu
;;; 2 bytes of params, copied to $C7
@ -5330,7 +5330,7 @@ DisableMenuImpl:
ldx $A7
jmp L68A9
;;; ==================================================
;;; ============================================================
;;; MenuSelect
L6BD9: .byte 0
@ -5681,7 +5681,7 @@ L6EAA: ldx L6BDA
MGTK_CALL MGTK::PaintRect, fill_rect_params4
jmp ShowCursorImpl
;;; ==================================================
;;; ============================================================
;;; InitMenu
;;; 4 bytes of params, copied to $82
@ -5728,7 +5728,7 @@ loop: lda params,x
end: rts
.endproc
;;; ==================================================
;;; ============================================================
;;; SetMark
;;; 4 bytes of params, copied to $C7
@ -6354,7 +6354,7 @@ L73F0: stax current_penloc_y
ldax $82
rts
;;; ==================================================
;;; ============================================================
;;; 4 bytes of params, copied to current_penloc
@ -6418,7 +6418,7 @@ L7472: ldx $AB
L7476: lda #$02
bne L7472
;;; ==================================================
;;; ============================================================
L747A: .byte 0
OpenWindowImpl:
@ -6446,7 +6446,7 @@ L749A: lda params_addr
sta ($A9),y
bmi L74BD
;;; ==================================================
;;; ============================================================
;;; SelectWindow
;;; 1 byte of params, copied to $82
@ -6493,7 +6493,7 @@ L74F4: ldy #next_offset_in_window_params ; Called from elsewhere
sta ($A7),y
rts
;;; ==================================================
;;; ============================================================
;;; GetWinPtr
;;; 1 byte of params, copied to $C7
@ -6506,7 +6506,7 @@ L74F4: ldy #next_offset_in_window_params ; Called from elsewhere
jmp store_xa_at_y
.endproc
;;; ==================================================
;;; ============================================================
;;; BeginUpdate
;;; 1 byte of params, copied to $82
@ -6549,7 +6549,7 @@ L750C: .res 38,0
L7585: exit_call $A3
;;; ==================================================
;;; ============================================================
;;; EndUpdate
;;; 1 byte of params, copied to $82
@ -6562,7 +6562,7 @@ EndUpdateImpl:
stax active_port
jmp L6567
;;; ==================================================
;;; ============================================================
;;; GetWinPort
;;; 3 bytes of params, copied to $82
@ -6635,7 +6635,7 @@ L75EA: lda $92,x
sec
rts
;;; ==================================================
;;; ============================================================
;;; SetWinPort
;;; 2 bytes of params, copied to $82
@ -6667,7 +6667,7 @@ loop: lda ($82),y
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; FrontWindow
.proc FrontWindowImpl
@ -6681,7 +6681,7 @@ nope: lda #0
rts
.endproc
;;; ==================================================
;;; ============================================================
;;; TrackGoAway
in_close_box: .byte 0
@ -6719,7 +6719,7 @@ end: sta (params_addr),y
rts
.endproc
;;; ==================================================
;;; ============================================================
.byte $00
L769B: .byte $00
@ -6734,7 +6734,7 @@ L76A4: .byte $00,$00,$00
drag_resize_flag:
.byte 0
;;; ==================================================
;;; ============================================================
;;; 5 bytes of params, copied to $82
@ -6742,7 +6742,7 @@ GrowWindowImpl:
lda #$80
bmi L76AE
;;; ==================================================
;;; ============================================================
;;; 5 bytes of params, copied to $82
@ -6918,7 +6918,7 @@ L77F4: sta L769F,x
lda set_input_unk
L7814: rts
;;; ==================================================
;;; ============================================================
;;; CloseWindow
;;; 1 byte of params, copied to $82
@ -6939,7 +6939,7 @@ L7814: rts
jmp L7872
.endproc
;;; ==================================================
;;; ============================================================
;;; CloseAll
CloseAllImpl:
@ -7027,7 +7027,7 @@ height: .word 0
set_port_size := set_port_params::width
set_port_maprect := set_port_params::hoffset ; Re-used since h/voff are 0
;;; ==================================================
;;; ============================================================
;;; WindowToScreen
;; $83/$84 += $B7/$B8
@ -7049,7 +7049,7 @@ loop: lda $83,x
bmi L790F
.endproc
;;; ==================================================
;;; ============================================================
;;; ScreenToWindow
;;; 5 bytes of params, copied to $82
@ -7114,7 +7114,7 @@ L7954: stax $98
sta $8F
jmp L51B3
;;; ==================================================
;;; ============================================================
;;; ActivateCtl
;;; 2 bytes of params, copied to $8C
@ -7296,7 +7296,7 @@ L7AA4: pha
sta $CC,x
jmp L70B2
;;; ==================================================
;;; ============================================================
;;; FindControl
;;; 4 bytes of params, copied to current_penloc
@ -7387,7 +7387,7 @@ L7B64: jsr L708D
L7B70: lda #$03
L7B72: jmp L7408
;;; ==================================================
;;; ============================================================
;;; SetCtlMax
;;; 3 bytes of params, copied to $82
@ -7419,7 +7419,7 @@ L7BA2: lda $83
sta $AB,y
rts
;;; ==================================================
;;; ============================================================
;;; TrackThumb
;;; 5 bytes of params, copied to $82
@ -7601,7 +7601,7 @@ L7D1D: sta L7CB6
sty L7CB7
rts
;;; ==================================================
;;; ============================================================
;;; UpdateThumb
;;; 3 bytes of params, copied to $8C
@ -7640,7 +7640,7 @@ check_win:
jmp L6553
.endproc
;;; ==================================================
;;; ============================================================
;;; KeyboardMouse
;;; 1 byte of params, copied to $82
@ -7650,7 +7650,7 @@ KeyboardMouse:
sta L7D74
jmp FlushEventsImpl
;;; ==================================================
;;; ============================================================
;;; $4E IMPL
@ -8482,7 +8482,7 @@ L840D: sec
plp
rts
;;; ==================================================
;;; ============================================================
;;; ScaleMouse
;;; Sets up mouse clamping
@ -8558,7 +8558,7 @@ clamp_y_table: .word screen_height-1, screen_height/2-1, screen_height/4-1, s
.endproc
;;; ==================================================
;;; ============================================================
;;; Locate Mouse Slot

14
desktop/ovl1.s
View File

@ -7,9 +7,9 @@
.include "../desktop.inc"
.include "../macros.inc"
;;; ==================================================
;;; ============================================================
;;; Overlay for Disk Copy
;;; ==================================================
;;; ============================================================
.org $800
.proc disk_copy_overlay
@ -18,7 +18,7 @@
load_target := $1800
;;; ==================================================
;;; ============================================================
;;; Menu - relocated up ot $D400
menu_target := $D400
@ -36,7 +36,7 @@ item_label:
PASCAL_STRING "Rien"
.endproc
;;; ==================================================
;;; ============================================================
DEFINE_OPEN_PARAMS open_params, str_desktop2, $1C00
DEFINE_SET_MARK_PARAMS set_mark_params, $131E0
@ -46,7 +46,7 @@ item_label:
str_desktop2:
PASCAL_STRING "DeskTop2"
;;; ==================================================
;;; ============================================================
ptr := $6
@ -88,7 +88,7 @@ start: lda #$80
lda ROMIN2
jmp load_target
;;; ==================================================
;;; ============================================================
.proc MLI_RELAY
sty call
@ -111,7 +111,7 @@ self: bne self ; hang on error?
rts
.endproc
;;; ==================================================
;;; ============================================================
PAD_TO $A00
.endproc ; disk_copy_overlay

16
desktop/ovl1a.s
View File

@ -7,9 +7,9 @@
.include "../desktop.inc"
.include "../macros.inc"
;;; ==================================================
;;; ============================================================
;;; Overlay for Disk Copy #2
;;; ==================================================
;;; ============================================================
.org $1800
.proc disk_copy_overlay2
@ -28,7 +28,7 @@ LAA1B := $AA1B
LAA3A := $AA3A
LAB37 := $AB37
;;; ==================================================
;;; ============================================================
DEFINE_OPEN_PARAMS open_params, filename, $1C00
filename: PASCAL_STRING "DeskTop2"
@ -46,7 +46,7 @@ len1: .word $2200
buf2: .addr $800
len2: .word $B00
;;; ==================================================
;;; ============================================================
start: lda #$41 ; ???
sta RAMWRTON
@ -82,7 +82,7 @@ L183F: sta BITMAP+1,x
jmp MGTK_RELAY
;;; ==================================================
;;; ============================================================
;;; Copy first chunk to the Language Card
.proc copy_to_lc
@ -136,7 +136,7 @@ loop: lda (src),y
rts
.endproc
;;; ==================================================
;;; ============================================================
.proc MLI_RELAY
sty call
@ -152,7 +152,7 @@ self: bne self ; hang if fails
rts
.endproc
;;; ==================================================
;;; ============================================================
tax
bne L192C
@ -259,7 +259,7 @@ L19F8: jsr LA83D
bcs L1A3B
L19FD: lda $BE53
;;; ==================================================
;;; ============================================================
PAD_TO $1A00
.endproc ; disk_copy_overlay2

28
desktop/ovl2.s
View File

@ -8,9 +8,9 @@
.include "../macros.inc"
.include "inc/desktoplc.inc"
;;; ==================================================
;;; ============================================================
;;; Overlay for Format/Erase
;;; ==================================================
;;; ============================================================
.org $800
.proc format_erase_overlay
@ -1064,7 +1064,7 @@ L1237: .byte $00
L1238: .byte $00
L1239: .byte $00
;;; ==================================================
;;; ============================================================
DEFINE_ON_LINE_PARAMS on_line_params,, $1C00
DEFINE_READ_BLOCK_PARAMS read_block_params, $1C00, 0
@ -1072,7 +1072,7 @@ L1239: .byte $00
L124A: .byte $00
;;; ==================================================
;;; ============================================================
.proc MLI_RELAY
sty call
@ -1093,7 +1093,7 @@ params: .addr 0
rts
.endproc
;;; ==================================================
;;; ============================================================
L126F: sta L12C0
and #$0F
@ -1173,7 +1173,7 @@ L12E6 := * + 1
L1303: return #$00
;;; ==================================================
;;; ============================================================
L1306: .byte 0
L1307: sta L124A
@ -1367,14 +1367,14 @@ L14AC: sta $1B00,y
sta $1B00
L14B5: rts
;;; ==================================================
;;; ============================================================
fail: pla
pla
fail2: sec
rts
;;; ==================================================
;;; ============================================================
.proc write_block_and_zero
yax_call MLI_RELAY, WRITE_BLOCK, write_block_params
@ -1395,7 +1395,7 @@ zero_buffers:
rts
.endproc
;;; ==================================================
;;; ============================================================
L14DC: .byte $C3,$27,$0D,$00,$00,$06,$00
L14E3: .byte $18
@ -1405,16 +1405,16 @@ L14E5: .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00
;;; ==================================================
;;; ============================================================
;;; ProDOS Loader
;;; ==================================================
;;; ============================================================
.proc prodos_loader_blocks
.incbin "inc/pdload.dat"
.endproc
.assert .sizeof(prodos_loader_blocks) = $400, error, "Bad data"
;;; ==================================================
;;; ============================================================
L1900: stx $06+1
@ -1542,7 +1542,7 @@ L1A22: sta $D909,x
addr_call adjust_case, $D909
rts
;;; ==================================================
;;; ============================================================
L1A2D: sta on_line_params::unit_num
yax_call MLI_RELAY, ON_LINE, on_line_params
@ -1571,7 +1571,7 @@ L1A6D: lda on_line_params::unit_num
jsr L192E
rts
;;; ==================================================
;;; ============================================================
PAD_TO $1C00
.endproc ; format_erase_overlay

10
desktop/ovl3.s
View File

@ -2,9 +2,9 @@
;;; NB: Compiled as part of ovl34567.s
;;; ==================================================
;;; ============================================================
;;; Overlay for Selector (part of it, anyway)
;;; ==================================================
;;; ============================================================
.org $9000
.proc selector_overlay2
@ -1439,7 +1439,7 @@ L9DA7: ldx #$00
L9DC8: .byte 0
;;; ==================================================
;;; ============================================================
.proc MLI_RELAY
sty call
@ -1460,7 +1460,7 @@ params: .addr 0
rts
.endproc
;;; ==================================================
;;; ============================================================
L9DED: sta ALTZPOFF
lda $C083
@ -1549,7 +1549,7 @@ L9EC0: .byte 0
L9EC1: .byte 0
;; how much is buffer, how much is padding?
;;; ==================================================
;;; ============================================================
PAD_TO $A000
.endproc ; selector_overlay2

2
desktop/ovl34567.s
View File

@ -16,7 +16,7 @@
dummy1234 := $1234
;;; ==================================================
;;; ============================================================
;;; Interdependent Overlays
.include "ovl3.s" ; Selector (1/2) @ $9000-$9FFF

50
desktop/ovl4.s
View File

@ -2,9 +2,9 @@
;;; NB: Compiled as part of ovl34567.s
;;; ==================================================
;;; ============================================================
;;; Overlay for Common Routines (Selector, File Copy/Delete)
;;; ==================================================
;;; ============================================================
.org $5000
.proc common_overlay
@ -24,7 +24,7 @@ path_buf: .res 128, 0
L50A8: .byte $00
L50A9: .byte $00
;;; ==================================================
;;; ============================================================
stash_stack: .byte 0
routine_table: .addr $7000, $7000, $7000
@ -65,13 +65,13 @@ stash_x: .byte 0
stash_y: .byte 0
.endproc
;;; ==================================================
;;; ============================================================
L5103: .byte 0
L5104: .byte 0
L5105: .byte 0
;;; ==================================================
;;; ============================================================
L5106: bit $D8EC
bpl :+
@ -482,7 +482,7 @@ L5576: MGTK_RELAY_CALL MGTK::GetEvent, event_params
pla
L55B9: rts
;;; ==================================================
;;; ============================================================
L55BA: bit L5606
bpl L55DF
@ -1165,7 +1165,7 @@ L5CF4: .byte 0
L5CF5: .byte 0
L5CF6: .byte 0
;;; ==================================================
;;; ============================================================
L5CF7: MGTK_RELAY_CALL MGTK::OpenWindow, $D5B7
MGTK_RELAY_CALL MGTK::OpenWindow, $D5F1
@ -1220,7 +1220,7 @@ L5DE0: lda ($06),y
ldax #$D380
rts
;;; ==================================================
;;; ============================================================
L5DED: jsr L5DD7
stax $06
@ -1231,7 +1231,7 @@ L5DED: jsr L5DD7
MGTK_RELAY_CALL MGTK::DrawText, $06
rts
;;; ==================================================
;;; ============================================================
L5E0A: jsr L5DD7
stax $06
@ -1258,7 +1258,7 @@ L5E0A: jsr L5DD7
L5E56: .byte 0
;;; ==================================================
;;; ============================================================
L5E57: jsr L5DD7
stax $06
@ -1268,7 +1268,7 @@ L5E57: jsr L5DD7
jsr L5DED
rts
;;; ==================================================
;;; ============================================================
L5E6F: jsr L5DD7
stax $06
@ -1278,7 +1278,7 @@ L5E6F: jsr L5DD7
jsr L5DED
rts
;;; ==================================================
;;; ============================================================
L5E87: ldx L5027
lda DEVLST,x
@ -1359,7 +1359,7 @@ L5F31: lda ($06),y
sta $D920
return #$00
;;; ==================================================
;;; ============================================================
L5F49: ldx path_buf
cpx #$00
@ -1370,7 +1370,7 @@ L5F49: ldx path_buf
bne L5F49
L5F5A: rts
;;; ==================================================
;;; ============================================================
L5F5B: jsr L5ECB
lda #$00
@ -1485,7 +1485,7 @@ L606A: .byte 0
L606B: .byte 0
L606C: .byte 0
;;; ==================================================
;;; ============================================================
L606D: lda $D5F1
jsr L62C8
@ -1548,7 +1548,7 @@ L6110: inc L6128
L6127: .byte 0
L6128: .byte 0
;;; ==================================================
;;; ============================================================
L6129: stx $0B
sta $0A
@ -1585,7 +1585,7 @@ L614B: iny
L615D: dey
jmp L6135
;;; ==================================================
;;; ============================================================
L6161: lda #$00
L6163: sta L61B0
@ -1616,7 +1616,7 @@ L6181: lda $177F
L61B0: .byte 0
;;; ==================================================
;;; ============================================================
L61B1: lda $D5B7
jsr L62C8
@ -1654,7 +1654,7 @@ L61E6: inx
L6226: .byte 0
;;; ==================================================
;;; ============================================================
L6227: sta L6273
clc
@ -1720,7 +1720,7 @@ L6274: ldx #$00
L62C7: .byte 0
;;; ==================================================
;;; ============================================================
L62C8: sta $D212
MGTK_RELAY_CALL MGTK::GetWinPort, $D212
@ -1858,7 +1858,7 @@ L6451: ldx #$00
L647B: .byte 0
;;; ==================================================
;;; ============================================================
L647C: stax $06
ldy #$01
@ -1938,7 +1938,7 @@ L64F5: lda L6515
L6515: .byte 0
;;; ==================================================
;;; ============================================================
L6516: stax $06
ldy #$00
@ -1988,7 +1988,7 @@ L656D: dex
L6575: .byte 0
L6576: .res 16, 0
;;; ==================================================
;;; ============================================================
L6586: bpl L658B
L6588: return #$00
@ -2057,7 +2057,7 @@ L6684: addr_call L5DED, $D484
addr_call L5DED, $D8F8
rts
;;; ==================================================
;;; ============================================================
L6693: lda $D5B7
jsr L62C8
@ -2875,7 +2875,7 @@ L6F38: jsr L5F49
L6F3C: .byte 0
L6F3D: .byte 0
;;; ==================================================
;;; ============================================================
PAD_TO $7000
.endproc ; common_overlay

14
desktop/ovl5.s
View File

@ -2,9 +2,9 @@
;;; NB: Compiled as part of ovl34567.s
;;; ==================================================
;;; ============================================================
;;; Overlay for File Copy
;;; ==================================================
;;; ============================================================
.org $7000
.proc file_copy_overlay
@ -89,7 +89,7 @@ L70C6: .byte $29 ; length of following data block
entry 0, $6CF0
entry 0, $684F
;;; ==================================================
;;; ============================================================
L70F1: lda #1
sta path_buf2
@ -158,7 +158,7 @@ L7178: jsr common_overlay::L6D27
.byte 0
;;; ==================================================
;;; ============================================================
L7189: addr_call common_overlay::L647C, path_buf0
beq L7198
@ -183,7 +183,7 @@ L7198: addr_call common_overlay::L647C, path_buf1
.byte 0
;;; ==================================================
;;; ============================================================
L71D8: MGTK_RELAY_CALL MGTK::CloseWindow, winfo15
MGTK_RELAY_CALL MGTK::CloseWindow, winfo12
@ -194,7 +194,7 @@ L71D8: MGTK_RELAY_CALL MGTK::CloseWindow, winfo15
txs
return #$FF
;;; ==================================================
;;; ============================================================
L71F9: lda #1
sta path_buf2
@ -261,7 +261,7 @@ L7289: sta $D920
jsr common_overlay::L606D
L7295: rts
;;; ==================================================
;;; ============================================================
PAD_TO $7800
.endproc ; file_copy_overlay

6
desktop/ovl6.s
View File

@ -2,9 +2,9 @@
;;; NB: Compiled as part of ovl34567.s
;;; ==================================================
;;; ============================================================
;;; Overlay for File Delete
;;; ==================================================
;;; ============================================================
.org $7000
.proc file_delete_overlay
@ -96,7 +96,7 @@ L70EA: MGTK_RELAY_CALL MGTK::CloseWindow, winfo15
txs
return #$FF
;;; ==================================================
;;; ============================================================
PAD_TO $7800
.endproc ; file_delete_overlay

14
desktop/ovl7.s
View File

@ -2,9 +2,9 @@
;;; NB: Compiled as part of ovl34567.s
;;; ==================================================
;;; ============================================================
;;; Overlay for Selector (part of it, anyway)
;;; ==================================================
;;; ============================================================
.org $7000
.proc selector_overlay
@ -63,11 +63,11 @@ L707B: copy16 #$2001, $D484
sta $D8EC
jmp common_overlay::L5106
;;; ==================================================
;;; ============================================================
L709D: .res 16, 0
;;; ==================================================
;;; ============================================================
L70AD: ldx L7207
@ -140,7 +140,7 @@ L711D: addr_call common_overlay::L5E6F, $D849
MGTK_RELAY_CALL MGTK::SetPort, grafport3
rts
;;; ==================================================
;;; ============================================================
.byte $00
@ -176,7 +176,7 @@ L7232: .byte $29
entry 0, $6CF0
entry 0, $684F
;;; ==================================================
;;; ============================================================
copy16 #$2001, $D484
jsr common_overlay::L6D27
@ -442,7 +442,7 @@ L7521: cmp #'5'
L7528: rts
;;; ==================================================
;;; ============================================================
PAD_TO $7800
.endproc ; selector_overlay

14
macros.inc
View File

@ -1,19 +1,19 @@
;;; ==================================================
;;; ============================================================
;;; Generic Macros
;;; ==================================================
;;; ============================================================
.define is_immediate(arg) (.match (.mid (0, 1, {arg}), #))
.define is_register(arg) (.match ({arg}, x) .or .match ({arg}, y))
.define immediate_value(arg) (.right (.tcount ({arg})-1, {arg}))
;;; ==================================================
;;; ============================================================
;;; Pad with zeros to the given address
.macro PAD_TO addr
.res addr - *, 0
.endmacro
;;; ==================================================
;;; ============================================================
;;; Common patterns
.macro return arg
@ -21,7 +21,7 @@
rts
.endmacro
;;; ==================================================
;;; ============================================================
;;; Calls with one parameter (address in A,X)
.macro addr_call target, addr
@ -42,7 +42,7 @@
jmp target
.endmacro
;;; ==================================================
;;; ============================================================
;;; Calls with two paramters (call # in y, address in A,X)
;;; (various output orders to match original binary)
@ -75,7 +75,7 @@
.endmacro
;;; ==================================================
;;; ============================================================
;;; 16-bit pseudo-ops
;;; Load A,X

20
mgtk.inc
View File

@ -1,6 +1,6 @@
;;; ==================================================
;;; ============================================================
;;; MouseGraphics ToolKit (w/ Graphics Primitives)
;;; ==================================================
;;; ============================================================
.scope MGTK
@ -8,9 +8,9 @@ MLI := $4000
;; MLI-style call (jsr MLI ; .byte call ; .addr params)
;; Call from AUX (RAMRDON/RAMWRTON)
;;; ==================================================
;;; ============================================================
;;; Graphics Primitives
;;; ==================================================
;;; ============================================================
;;; Point record:
;;;
@ -175,9 +175,9 @@ Version := $1C ; Get toolkit version
;;; .byte (out) status
;;; .word (out) number
;;; ==================================================
;;; ============================================================
;;; MouseGraphics ToolKit Calls
;;; ==================================================
;;; ============================================================
;;; --------------------------------------------------
;;; Initialization Calls
@ -466,7 +466,7 @@ ActivateCtl := $4C ; Activate/deactivate scroll bar
;;; $4E ???
;;; (input length: 2 bytes)
;;; ==================================================
;;; ============================================================
;;; Graphics Primitives Constants
;;; Used in GetWinPort / SetPortBits
@ -493,7 +493,7 @@ colormask_or := $00
textbg_black := $00
textbg_white := $7F
;;; ==================================================
;;; ============================================================
;;; MouseGraphics ToolKit Constants
;;; Used in GetEvent
@ -570,7 +570,7 @@ inrect_outside := $00
inpoly_inside := $80
inpoly_outside := $00
;;; ==================================================
;;; ============================================================
;;; Offsets
grafport_offset_viewloc := 0
@ -609,7 +609,7 @@ winfo_size := 58
.endscope ; MGTK
;;; ==================================================
;;; ============================================================
;;; Macros
;;; Call an MGTK entry point: