Apple-2-SW/prodos-drivers
1
0
Fork 0
mirror of https://github.com/a2stuff/prodos-drivers.git synced 2024-10-19 13:25:10 +00:00
Code Issues Projects Releases Wiki Activity

Make padding calc dynamic

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