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

include tidying

Browse Source
This commit is contained in:
Joshua Bell 2018-05-02 20:04:56 -07:00
parent f77932a28d
commit 7ac11c080d
9 changed files with 36 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
desk.acc/calculator.s
View File

@ -2,12 +2,12 @@
.include "apple2.inc"
.include "../inc/apple2.inc"
.include "../inc/prodos.inc"
.include "../mgtk.inc"
.include "../desktop.inc" ; redraw icons after window move, font
.include "../desktop.inc"
.include "../macros.inc"
;;; ============================================================
.org $800
adjust_txtptr := $B1

5
desk.acc/date.s
View File

@ -3,11 +3,12 @@
.include "apple2.inc"
.include "../inc/apple2.inc"
.include "../inc/prodos.inc"
.include "../mgtk.inc"
.include "../desktop.inc" ; redraw icons after window move; font; glyphs
.include "../desktop.inc"
.include "../macros.inc"
;;; ============================================================
.org $800
;;; ============================================================

1
desk.acc/eyes.s
View File

@ -2,7 +2,6 @@
.include "apple2.inc"
.include "../inc/apple2.inc"
.include "../inc/prodos.inc"
.include "../mgtk.inc"
.include "../desktop.inc"
.include "../macros.inc"

6
desk.acc/puzzle.s
View File

@ -2,12 +2,12 @@
.include "apple2.inc"
.include "../inc/apple2.inc"
.include "../inc/prodos.inc"
.include "../mgtk.inc"
.include "../desktop.inc" ; redraw icons after window move, font
.include "../desktop.inc"
.include "../macros.inc"
;;; ============================================================
.org $800
jmp copy2aux

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

@ -3,11 +3,12 @@
.include "apple2.inc"
.include "../inc/apple2.inc"
.include "../inc/prodos.inc"
.include "../mgtk.inc"
.include "../desktop.inc" ; get selection, font
.include "../desktop.inc"
.include "../macros.inc"
;;; ============================================================
.org $800
start: jmp copy2aux

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

@ -3,11 +3,12 @@
.include "apple2.inc"
.include "../inc/apple2.inc"
.include "../inc/prodos.inc"
.include "../mgtk.inc"
.include "../desktop.inc" ; get/clear selection, font
.include "../desktop.inc"
.include "../macros.inc"
;;; ============================================================
.org $800
dummy1000 := $1000

3
desk.acc/sort.directory.s
View File

@ -3,11 +3,12 @@
.include "apple2.inc"
.include "../inc/apple2.inc"
.include "../inc/prodos.inc"
.include "../mgtk.inc"
.include "../desktop.inc"
.include "../macros.inc"
;;; ============================================================
.org $800

12
inc/prodos.inc
View File

@ -201,18 +201,6 @@ NAME_LENGTH_MASK := $0F
.addr addr
.endmacro
.macro PASCAL_STRING str,res ; Length-prefixed string
.local data ; Can include control chars by using:
.local end ; PASCAL_STRING {"abc",$0D,"def"}
.byte end - data
data: .byte str
end:
.if .paramcount > 1
.res res - (end - data), 0
.endif
.endmacro
.macro DEFINE_OPEN_PARAMS name, pn, io, rn
.if .xmatch(.string(pn), "pathname")
;; If 'pathname' is passed then expansion yields a circular reference.

19
macros.inc
View File

@ -22,6 +22,25 @@
.endif
.endmacro
;;; ============================================================
;;; Length-prefixed string
;;;
;;; Can include control chars by using:
;;;
;;; PASCAL_STRING {"abc",$0D,"def"}
.macro PASCAL_STRING str,res
.local data
.local end
.byte end - data
data: .byte str
end:
.if .paramcount > 1
.res res - (end - data), 0
.endif
.endmacro
;;; ============================================================
;;; Pad with zeros to the given address