User`s guide
Copy Paintworks.Gold and the PaintTools folder (with its contents) to a
folder on your hard disk.
The Patch allows you to to start PWG under System 6 and use most PWG
features. However, some Palette selection options will bomb the program.
A few tests showed PWG will load files from an HFS partition.
______________________________
009- How can I read a single ProDOS block into memory
using Applesoft BASIC?
After booting ProDOS, you can do a CALL-151 to enter the monitor and type
in ...
300: 4C 09 03 03 60 00 20 00 00 20 00 BF 80 03 03 85 FF 60
Do a CTRL-C to get back to the Applesoft prompt and enter ...
BSAVE PROZAP.BIN,A$300,L$20
The routine does a ProDOS Machine Language Interface CALL which reads the
block into $2000-$21FF. It saves the Error# in $FF.
300: 4C 09 03 start
303: 03 3 parms in this parms block
304: 60 unit # DSSS0000 Drv 1 (D=0) Slot 6 (SSS=110)
305: 00 20 buffer start
307: 00 00 block # Low, High ex: block 256 is 307: 00 01
309: 20 00 BF JSR to do MLI command
30C: 80 command (80 for READ BLOCK; 81 for WRITE BLOCK)
30D: 03 03 loc of parms block
30F: 85 FF save error # (00= no error)
311: 60 exit
A BASIC program could use the routine by POKE-ing the block # into
$307,$308 (775 and 776 in decimal) and doing a CALL768. The MLI command code is
POKEd into $30C (780). If a PEEK at address $FF (255) gives a result of zero,
there is no error.
100 LOMEM: 8704
105 REM Sets start of var space above $2000-$21FF buffer
110 TEXT: HOME: PRINT CHR$(4)"BLOAD PROZAP.BIN"
115 B= 2
120 REM Sets block to read/write (block 2)
125 C= 128
130 REM Sets MLI READ command ($80); MLI WRITE is 129 ($81)
135 BH= INT(B/256): BL= INT (B-256*BH)
140 POKE 775,BL: POKE 776,BH
145 REM POKEs block to read/write
150 POKE 780, C
155 REM POKEs MLI command
160 CALL 768