File tree Expand file tree Collapse file tree 2 files changed +10
-6
lines changed
Expand file tree Collapse file tree 2 files changed +10
-6
lines changed Original file line number Diff line number Diff line change @@ -4,11 +4,15 @@ CheckMach equ $fe1f ;Monitor Routine to check machine type
44mli equ $bf00
55KVersion equ $bfff
66
7- head_call equ $fb
8- tail_call equ $fc
7+ head_call equ $fc
8+ tail_call equ $fd
99
1010;code equ $d7a9 ; end of IIgs clock driver.
1111code equ $c0f0 ; slot 7 devsel.
12+ ;
13+ ; n.b. - IIgs clock driver is in the language card RAM so it can't be
14+ ; used for
15+ ;
1216
1317
1418 macro
@@ -70,7 +74,7 @@ dcb dc.b 4 ; pcount
7074 dc.b 1 ; version
7175mli_address dc.w $0000 ; mli address
7276 dc.w code+dcb_ent-stub_begin ; patch address
73- mli_slot dc.b $80
77+ mli_slot dc.b $80 ; ProDOS slot to use.
7478
7579fakemli
7680 sec
@@ -96,7 +100,7 @@ dcb_ent dc.b $0
96100 wdm tail_call
97101 rts
98102stub_end
99- if (stub_end-stub_begin)>22 then
103+ if (stub_end-stub_begin)>16 then
100104 aerror 'stub code overflow'
101105 endif
102106
Original file line number Diff line number Diff line change 4949
5050 macro
5151&lab host_print
52- &lab dc.b $42, $fe
52+ &lab dc.b $42, $a0
5353 endm
5454
5555 macro
5656&lab host_hexdump
57- &lab dc.b $42, $fd
57+ &lab dc.b $42, $a1
5858 endm
5959
6060
You can’t perform that action at this time.
0 commit comments