Apple-2-SW
/
prodos-drivers
mirror of https://github.com/a2stuff/prodos-drivers.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Make padding calc dynamic

This commit is contained in:
Joshua Bell 2017-12-09 13:11:36 -08:00
parent 00a2275346
commit 1d974dcf34
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
b.s
View File

@ -564,24 +564,18 @@ trans: .word 0
;;; ------------------------------------------------------------
.res 192, 0
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$48,$AD
.res $13FF-*-2, 0
.byte $48,$AD ; 72, 173 ???
.endproc
.assert .sizeof(bbb) = $3FF, error, "Expected size is $3FF"
.org $2402
;;; ------------------------------------------------------------
;;; Installer
;;; ------------------------------------------------------------
.org $2402
.proc install_and_quit
jsr install
MLI_CALL QUIT, params
@ -600,7 +594,7 @@ res3: .addr 0
.proc install
src := install_src
end := install_src + .sizeof(bbb)
dst := $D100 ; Install location in ProDOS
dst := $D100 ; Install location in ProDOS (bank 2)
src_ptr := $19
dst_ptr := $1B