Posted By
gerliczer
on 2015-10-27
17:21:38
|  Re: Commodore Basic's oddnesses
Hi MMS,
I found this loading task intriguing, so I experimented with it in BASIC a little bit.
10 SA=DEC("07F2"):SX=SA+1:SY=SX+1:SR=SY+1
20 TB=DEC("0333")
30 POKETB,68:POKETB+1,79:POKETB+2,82:POKETB+3,75
40 POKETB+4,68:POKETB+5,65:POKETB+6,86:POKETB+7,69
50 POKESA,0:POKESX,8:POKESY,0:SYSDEC("FFBA")
60 POKESA,8:POKESX,TBAND255:POKESY,TB/256:SYSDEC("FFBD")
70 POKESA,0:POKESX,1:POKESY,32:SYSDEC("FFD5")
80 PRINT"1234"
Assuming that the recent Dork Dave and The Dirty Trick disk is in drive 8, the short code above loads the loader file (DORKDAVE) to $2001. Not that easy as simply typing LOAD, but it doesn't restart the program therefore no need to do that variable trick.
If you'd like to discuss it in detail, I can give you explanation. Although proper operation is not guaranteed since it was tested only in YAPE.
|
