1540-I/O.SCRS
FILE INFORMATION
FILENAME(S): 1540-I/O.SCRS
FILE TYPE(S): PRG
FILE SIZE: 8K
FIRST SEEN: 2025-11-30 21:23:14
APPEARS ON: 1 disk(s)
FILE HASH
1a971f30cf40eb100c96b78f233b68ca8b7e98caa6a9e148dd04080ad659bf32
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 14 2 | 1540-I/O.SCRS | PRG | DuncanTwain | 2 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 54 49 4E 46 4F 20 43 4F 4D 4D 4F 44 4F 52 45 |.TINFO COMMODORE| 00000010: 20 36 34 20 44 49 53 4B 2D 54 4F 55 54 49 4E 45 | 64 DISK-TOUTINE| 00000020: 53 20 49 4E 20 46 49 47 2D 46 4F 52 54 48 20 31 |S IN FIG-FORTH 1| 00000030: 2E 31 28 36 34 54 29 20 20 20 20 20 20 20 20 20 |.1(64T) | 00000040: 20 20 44 4C 4F 41 44 3A 20 4C 4F 41 44 20 56 41 | DLOAD: LOAD VA| 00000050: 4E 41 46 20 44 49 53 4B 20 28 20 52 45 4C 4F 43 |NAF DISK ( RELOC| 00000060: 41 54 45 4E 20 49 53 20 54 4F 45 47 45 53 54 41 |ATEN IS TOEGESTA| 00000070: 41 4E 29 20 20 20 20 20 20 20 20 20 20 20 20 20 |AN) | 00000080: 20 20 3D 3D 3D 3D 3D 3D 20 20 20 20 20 20 20 20 | ====== | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000C0: 20 20 3C 53 54 41 52 54 3E 20 44 4C 4F 41 44 20 | <START> DLOAD | 000000D0: 3C 4E 41 41 4D 3E 20 20 20 20 20 20 20 20 20 20 |<NAAM> | 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000140: 20 20 44 53 41 56 45 3A 20 53 41 56 45 20 4E 41 | DSAVE: SAVE NA| 00000150: 41 52 20 44 49 53 4B 20 28 31 35 34 30 29 20 20 |AR DISK (1540) | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000180: 20 20 3D 3D 3D 3D 3D 3D 20 20 20 20 20 20 20 20 | ====== | 00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001C0: 20 20 3C 53 54 41 52 54 3E 20 3C 45 49 4E 44 2B | <START> <EIND+| 000001D0: 31 3E 20 44 53 41 56 45 20 3C 4E 41 41 4D 3E 20 |1> DSAVE <NAAM> | 000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000240: 20 20 44 53 41 56 45 2F 44 4C 4F 41 44 2D 53 43 | DSAVE/DLOAD-SC| 00000250: 52 45 45 4E 3A 20 20 20 20 20 20 20 20 20 20 20 |REEN: | 00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000280: 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ==============| 00000290: 3D 3D 3D 20 20 20 20 20 20 20 20 20 20 20 20 20 |=== | 000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002C0: 20 20 3C 53 43 52 45 45 4E 20 4E 52 3E 20 44 53 | <SCREEN NR> DS| 000002D0: 41 56 45 2F 44 4C 4F 41 44 2D 53 43 52 45 45 4E |AVE/DLOAD-SCREEN| 000002E0: 20 3C 4E 41 41 4D 2E 53 43 52 3E 20 20 20 20 20 | <NAAM.SCR> | 000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000340: 20 20 44 53 41 56 45 2D 46 4F 52 54 48 3A 20 53 | DSAVE-FORTH: S| 00000350: 41 56 45 20 46 4F 52 54 48 20 4E 41 41 52 20 44 |AVE FORTH NAAR D| 00000360: 49 53 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 |ISK | 00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000380: 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 20 20 20 | =========== | 00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003C0: 20 20 44 53 41 56 45 2D 46 4F 52 54 48 20 3C 4E | DSAVE-FORTH <N| 000003D0: 41 41 4D 3E 20 20 20 20 20 20 20 20 20 20 20 20 |AAM> | 000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000400: 20 20 28 20 31 35 34 30 2D 44 49 53 4B 20 52 4F | ( 1540-DISK RO| 00000410: 55 54 49 4E 45 53 20 43 42 4D 36 34 20 50 41 52 |UTINES CBM64 PAR| 00000420: 54 20 31 20 29 20 20 20 20 20 20 20 20 20 20 20 |T 1 ) | 00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000440: 20 20 42 41 53 45 20 40 20 3E 52 20 46 4F 52 54 | BASE @ >R FORT| 00000450: 48 20 44 45 46 49 4E 49 54 49 4F 4E 53 20 48 45 |H DEFINITIONS HE| 00000460: 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |X | 00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000480: 20 20 30 20 56 41 52 49 41 42 4C 45 20 46 49 4C | 0 VARIABLE FIL| 00000490: 4E 41 4D 20 31 32 20 41 4C 4C 4F 54 20 20 20 20 |NAM 12 ALLOT | 000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004C0: 20 20 30 20 56 41 52 49 41 42 4C 45 20 4C 45 4E | 0 VARIABLE LEN| 000004D0: 47 54 48 20 20 20 20 20 20 20 20 20 20 20 20 20 |GTH | 000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000540: 20 20 3A 20 47 45 54 2D 4E 41 4D 45 20 20 20 28 | : GET-NAME (| 00000550: 20 2D 2D 2D 20 29 20 20 20 20 20 20 20 20 20 20 | --- ) | 00000560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000580: 20 20 20 20 20 46 49 4C 4E 41 4D 20 31 30 20 42 | FILNAM 10 B| 00000590: 4C 41 4E 4B 53 20 28 20 45 52 41 53 45 20 42 55 |LANKS ( ERASE BU| 000005A0: 46 46 45 52 29 20 20 20 20 20 20 20 20 20 20 20 |FFER) | 000005B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005C0: 20 20 20 20 20 42 4C 20 57 4F 52 44 20 48 45 52 | BL WORD HER| 000005D0: 45 20 28 20 4E 41 4D 45 20 46 52 4F 4D 20 49 4E |E ( NAME FROM IN| 000005E0: 50 55 54 2D 53 54 52 45 41 4D 29 20 20 20 20 20 |PUT-STREAM) | 000005F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000600: 20 20 20 20 20 44 55 50 20 43 40 20 31 30 20 4D | DUP C@ 10 M| 00000610: 49 4E 20 44 55 50 20 3E 52 20 20 20 20 20 20 20 |IN DUP >R | 00000620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000640: 20 20 20 20 20 4C 45 4E 47 54 48 20 21 20 28 20 | LENGTH ! ( | 00000650: 53 41 56 45 20 4C 45 4E 47 54 48 29 20 20 20 20 |SAVE LENGTH) | 00000660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000680: 20 20 20 20 20 31 2B 20 46 49 4C 4E 41 4D 20 52 | 1+ FILNAM R| 00000690: 3E 20 28 20 46 52 4F 4D 2C 20 54 4F 2C 20 43 4E |> ( FROM, TO, CN| 000006A0: 54 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |T) | 000006B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006C0: 20 20 20 20 20 43 4D 4F 56 45 20 46 49 4C 4E 41 | CMOVE FILNA| 000006D0: 4D 20 43 40 20 30 3D 20 20 20 20 20 20 20 20 20 |M C@ 0= | 000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000700: 20 20 20 20 20 49 46 20 30 20 4C 45 4E 47 54 48 | IF 0 LENGTH| 00000710: 20 21 20 45 4E 44 49 46 20 3B 20 2D 2D 3E 20 20 | ! ENDIF ; --> | 00000720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000780: 20 20 28 20 53 54 52 49 4E 47 20 49 53 20 4D 4F | ( STRING IS MO| 00000790: 56 45 44 20 46 52 4F 4D 20 49 4E 50 55 54 53 54 |VED FROM INPUTST| 000007A0: 52 45 41 4D 20 54 4F 20 46 49 4C 4E 41 4D 20 29 |REAM TO FILNAM )| 000007B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007C0: 20 20 28 20 4C 45 4E 47 54 48 20 41 54 20 50 4F | ( LENGTH AT PO| 000007D0: 49 4E 54 45 52 2C 20 31 20 42 59 54 45 20 29 20 |INTER, 1 BYTE ) | 000007E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000800: 20 20 28 20 31 35 34 30 2D 44 49 53 4B 20 52 4F | ( 1540-DISK RO| 00000810: 55 54 49 4E 45 53 20 43 42 4D 36 34 20 50 41 52 |UTINES CBM64 PAR| 00000820: 54 20 32 20 29 20 20 20 20 20 20 20 20 20 20 20 |T 2 ) | 00000830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000840: 20 20 28 20 56 4F 4F 52 20 31 35 34 30 20 29 20 | ( VOOR 1540 ) | 00000850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000880: 20 20 43 4F 44 45 20 28 53 41 56 45 2D 49 4E 49 | CODE (SAVE-INI| 00000890: 54 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |T) | 000008A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008C0: 20 20 20 20 58 53 41 56 45 20 53 54 58 2C 20 20 | XSAVE STX, | 000008D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000900: 20 20 20 20 30 42 20 23 20 4C 44 41 2C 20 44 30 | 0B # LDA, D0| 00000910: 31 31 20 53 54 41 2C 20 28 20 53 43 52 45 45 4E |11 STA, ( SCREEN| 00000920: 20 4F 46 46 29 20 20 20 20 20 20 20 20 20 20 20 | OFF) | 00000930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000940: 20 20 20 20 38 20 23 20 4C 44 41 2C 20 28 20 4C | 8 # LDA, ( L| 00000950: 4F 47 49 43 41 4C 20 46 49 4C 45 20 23 20 29 20 |OGICAL FILE # ) | 00000960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000980: 20 20 20 20 54 41 58 2C 20 20 20 20 20 28 20 44 | TAX, ( D| 00000990: 45 56 49 43 45 20 23 20 38 20 3D 20 44 49 53 4B |EVICE # 8 = DISK| 000009A0: 20 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ) | 000009B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009C0: 20 20 20 20 30 20 23 20 4C 44 59 2C 20 28 20 53 | 0 # LDY, ( S| 000009D0: 45 43 4F 4E 44 41 52 59 20 41 44 44 52 45 53 53 |ECONDARY ADDRESS| 000009E0: 20 30 20 29 20 20 20 20 20 20 20 20 20 20 20 20 | 0 ) | 000009F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A00: 20 20 20 20 46 46 42 41 20 4A 53 52 2C 20 28 20 | FFBA JSR, ( | 00000A10: 50 52 45 50 41 52 45 20 46 4F 52 20 4F 50 45 4E |PREPARE FOR OPEN| 00000A20: 20 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ) | 00000A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A40: 20 20 20 20 4C 45 4E 47 54 48 20 4C 44 41 2C 20 | LENGTH LDA, | 00000A50: 28 20 4E 41 4D 45 4C 45 4E 47 54 48 20 29 20 20 |( NAMELENGTH ) | 00000A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A80: 20 20 20 20 46 49 4C 4E 41 4D 20 31 30 30 20 2F | FILNAM 100 /| 00000A90: 20 20 23 20 4C 44 59 2C 20 20 20 20 20 20 20 20 | # LDY, | 00000AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000AC0: 20 20 20 20 46 49 4C 4E 41 4D 20 46 46 20 41 4E | FILNAM FF AN| 00000AD0: 44 20 23 20 4C 44 58 2C 20 20 20 20 20 20 20 20 |D # LDX, | 00000AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000B00: 20 20 20 20 46 46 42 44 20 4A 53 52 2C 20 28 20 | FFBD JSR, ( | 00000B10: 53 45 54 20 46 49 4C 45 4E 41 4D 45 20 29 20 20 |SET FILENAME ) | 00000B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000B40: 20 20 20 20 58 53 41 56 45 20 4C 44 58 2C 20 4E | XSAVE LDX, N| 00000B50: 45 58 54 20 4A 4D 50 2C 20 20 20 20 20 20 20 20 |EXT JMP, | 00000B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000B80: 20 20 45 4E 44 2D 43 4F 44 45 20 20 20 20 20 20 | END-CODE | 00000B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000BC0: 20 20 2D 2D 3E 20 20 20 20 20 20 20 20 20 20 20 | --> | 00000BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000C00: 20 20 28 20 31 35 34 30 2D 44 49 53 4B 20 52 4F | ( 1540-DISK RO| 00000C10: 55 54 49 4E 45 53 20 43 42 4D 36 34 20 50 41 52 |UTINES CBM64 PAR| 00000C20: 54 20 33 20 29 20 20 20 20 20 20 20 20 20 20 20 |T 3 ) | 00000C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000C40: 20 20 28 20 56 4F 4F 52 20 31 35 34 30 20 29 20 | ( VOOR 1540 ) | 00000C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000C80: 20 20 43 4F 44 45 20 28 53 41 56 45 29 20 20 20 | CODE (SAVE) | 00000C90: 20 28 20 53 54 41 52 54 2C 20 45 4E 44 2B 31 20 | ( START, END+1 | 00000CA0: 2D 2D 2D 20 29 20 20 20 20 20 20 20 20 20 20 20 |--- ) | 00000CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000CC0: 20 20 20 20 20 32 20 23 20 4C 44 41 2C 20 53 45 | 2 # LDA, SE| 00000CD0: 54 55 50 20 4A 53 52 2C 20 58 53 41 56 45 20 53 |TUP JSR, XSAVE S| 00000CE0: 54 58 2C 20 20 20 20 20 20 20 20 20 20 20 20 20 |TX, | 00000CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D00: 20 20 20 20 20 4E 20 4C 44 58 2C 20 4E 20 31 2B | N LDX, N 1+| 00000D10: 20 4C 44 59 2C 20 20 20 20 20 20 20 20 20 20 20 | LDY, | 00000D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D40: 20 20 20 20 20 4E 20 32 2B 20 23 20 4C 44 41 2C | N 2+ # LDA,| 00000D50: 20 46 46 44 38 20 4A 53 52 2C 20 20 20 20 20 20 | FFD8 JSR, | 00000D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D80: 20 20 20 20 20 31 42 20 23 20 4C 44 41 2C 20 44 | 1B # LDA, D| 00000D90: 30 31 31 20 53 54 41 2C 20 28 00 20 53 43 52 45 |011 STA, (. SCRE| 00000DA0: 45 4E 20 4F 4E 29 20 20 20 20 20 20 20 20 20 20 |EN ON) | 00000DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000DC0: 20 20 20 20 20 46 46 45 37 20 4A 53 52 2C 20 28 | FFE7 JSR, (| 00000DD0: 20 43 4C 4F 53 45 20 41 4C 4C 20 29 20 20 20 20 | CLOSE ALL ) | 00000DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000E00: 20 20 20 20 20 58 53 41 56 45 20 4C 44 58 2C 20 | XSAVE LDX, | 00000E10: 4E 45 58 54 20 4A 4D 50 2C 20 20 20 20 20 20 20 |NEXT JMP, | 00000E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000E40: 20 20 45 4E 44 2D 43 4F 44 45 20 20 20 20 20 20 | END-CODE | 00000E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000E80: 20 20 3A 20 44 53 41 56 45 20 28 20 53 54 41 52 | : DSAVE ( STAR| 00000E90: 54 2C 20 45 4E 44 2B 31 20 2D 2D 2D 20 29 20 20 |T, END+1 --- ) | 00000EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000EC0: 20 20 20 20 20 47 45 54 2D 4E 41 4D 45 20 43 52 | GET-NAME CR| 00000ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000F00: 20 20 20 20 20 28 53 41 56 45 2D 49 4E 49 54 29 | (SAVE-INIT)| 00000F10: 20 28 53 41 56 45 29 20 20 20 20 20 20 20 20 20 | (SAVE) | 00000F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000F40: 20 20 20 20 20 43 52 20 46 49 4C 4E 41 4D 20 31 | CR FILNAM 1| 00000F50: 30 20 2D 54 52 41 49 4C 49 4E 47 20 54 59 50 45 |0 -TRAILING TYPE| 00000F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000F80: 20 20 20 20 20 2E 22 20 20 53 41 56 45 44 22 20 | ." SAVED" | 00000F90: 43 52 20 3B 20 20 20 20 20 20 20 20 20 20 20 20 |CR ; | 00000FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000FC0: 20 20 2D 2D 3E 20 20 20 20 20 20 20 20 20 20 20 | --> | 00000FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001000: 20 20 28 20 31 35 34 30 2D 44 49 53 4B 20 52 4F | ( 1540-DISK RO| 00001010: 55 54 49 4E 45 53 20 43 42 4D 36 34 20 50 41 52 |UTINES CBM64 PAR| 00001020: 54 20 34 20 29 20 20 20 20 20 20 20 20 20 20 20 |T 4 ) | 00001030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001040: 20 20 28 20 56 4F 4F 52 20 31 35 34 30 20 29 20 | ( VOOR 1540 ) | 00001050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001080: 20 20 43 4F 44 45 20 28 4C 4F 41 44 2D 49 4E 49 | CODE (LOAD-INI| 00001090: 54 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |T) | 000010A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010C0: 20 20 20 20 58 53 41 56 45 20 53 54 58 2C 20 20 | XSAVE STX, | 000010D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001100: 20 20 20 20 30 42 20 23 20 4C 44 41 2C 20 44 30 | 0B # LDA, D0| 00001110: 31 31 20 53 54 41 2C 20 28 20 53 43 52 45 45 4E |11 STA, ( SCREEN| 00001120: 20 4F 46 46 29 20 20 20 20 20 20 20 20 20 20 20 | OFF) | 00001130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001140: 20 20 20 20 38 20 23 20 4C 44 41 2C 20 20 28 20 | 8 # LDA, ( | 00001150: 4C 4F 47 49 43 41 4C 20 46 49 4C 45 20 23 29 20 |LOGICAL FILE #) | 00001160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001180: 20 20 20 20 54 41 58 2C 20 20 20 20 20 20 28 20 | TAX, ( | 00001190: 44 45 56 49 43 45 20 23 20 38 20 3D 20 44 49 53 |DEVICE # 8 = DIS| 000011A0: 4B 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |K) | 000011B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000011C0: 20 20 20 20 30 20 23 20 4C 44 59 2C 20 20 28 20 | 0 # LDY, ( | 000011D0: 53 45 43 4F 4E 44 41 52 59 20 41 44 44 52 45 53 |SECONDARY ADDRES| 000011E0: 53 20 30 29 20 20 20 20 20 20 20 20 20 20 20 20 |S 0) | 000011F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001200: 20 20 20 20 46 46 42 41 20 4A 53 52 2C 20 28 20 | FFBA JSR, ( | 00001210: 50 52 45 50 41 52 45 20 46 4F 52 20 4F 50 45 4E |PREPARE FOR OPEN| 00001220: 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |) | 00001230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001240: 20 20 20 20 4C 45 4E 47 54 48 20 4C 44 41 2C 20 | LENGTH LDA, | 00001250: 20 28 20 4E 41 4D 45 4C 45 4E 47 54 48 29 20 20 | ( NAMELENGTH) | 00001260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001280: 20 20 20 20 46 49 4C 4E 41 4D 20 44 55 50 20 20 | FILNAM DUP | 00001290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012C0: 20 20 20 20 31 30 30 20 2F 20 23 20 4C 44 59 2C | 100 / # LDY,| 000012D0: 20 46 46 20 41 4E 44 20 23 20 4C 44 58 2C 20 20 | FF AND # LDX, | 000012E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001300: 20 20 20 20 46 46 42 44 20 4A 53 52 2C 20 28 20 | FFBD JSR, ( | 00001310: 53 45 54 20 46 49 4C 45 4E 41 4D 45 29 20 20 20 |SET FILENAME) | 00001320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001340: 20 20 20 20 58 53 41 56 45 20 4C 44 58 2C 20 4E | XSAVE LDX, N| 00001350: 45 58 54 20 4A 4D 50 2C 20 20 20 20 20 20 20 20 |EXT JMP, | 00001360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001380: 20 20 45 4E 44 2D 43 4F 44 45 20 20 20 20 20 20 | END-CODE | 00001390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000013A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000013B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000013C0: 20 20 2D 2D 3E 20 20 20 20 20 20 20 20 20 20 20 | --> | 000013D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000013E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000013F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001400: 20 20 28 20 31 35 34 30 2D 44 49 53 4B 20 52 4F | ( 1540-DISK RO| 00001410: 55 54 49 4E 45 53 20 43 42 4D 36 34 20 50 41 52 |UTINES CBM64 PAR| 00001420: 54 20 35 20 29 20 20 20 20 20 20 20 20 20 20 20 |T 5 ) | 00001430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001440: 20 20 43 4F 44 45 20 28 4C 4F 41 44 29 20 20 28 | CODE (LOAD) (| 00001450: 20 53 54 41 52 54 20 2D 2D 2D 20 45 4E 44 2D 4C | START --- END-L| 00001460: 4F 41 44 20 29 20 20 20 20 20 20 20 20 20 20 20 |OAD ) | 00001470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001480: 20 20 20 20 20 31 20 23 20 4C 44 41 2C 20 53 45 | 1 # LDA, SE| 00001490: 54 55 50 20 4A 53 52 2C 20 58 53 41 56 45 20 53 |TUP JSR, XSAVE S| 000014A0: 54 58 2C 20 20 20 20 20 20 20 20 20 20 20 20 20 |TX, | 000014B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000014C0: 20 20 20 20 20 4E 20 4C 44 58 2C 20 4E 20 31 2B | N LDX, N 1+| 000014D0: 20 4C 44 59 2C 20 20 20 20 20 20 20 20 20 20 20 | LDY, | 000014E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000014F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001500: 20 20 20 20 20 30 20 23 20 4C 44 41 2C 20 28 20 | 0 # LDA, ( | 00001510: 49 54 20 49 53 20 41 20 4C 4F 41 44 29 20 20 20 |IT IS A LOAD) | 00001520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001540: 20 20 20 20 20 46 46 44 35 20 4A 53 52 2C 20 54 | FFD5 JSR, T| 00001550: 58 41 2C 20 50 48 41 2C 20 28 20 53 41 56 45 20 |XA, PHA, ( SAVE | 00001560: 58 52 45 47 29 20 20 20 20 20 20 20 20 20 20 20 |XREG) | 00001570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001580: 20 20 20 20 20 31 42 20 23 20 4C 44 41 2C 20 44 | 1B # LDA, D| 00001590: 30 31 31 20 53 54 41 2C 20 28 20 53 43 52 45 45 |011 STA, ( SCREE| 000015A0: 4E 20 4F 4E 29 20 20 20 20 20 20 20 20 20 20 20 |N ON) | 000015B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000015C0: 20 20 20 20 20 46 46 45 37 20 4A 53 52 2C 20 54 | FFE7 JSR, T| 000015D0: 59 41 2C 20 58 53 41 56 45 20 4C 44 58 2C 20 50 |YA, XSAVE LDX, P| 000015E0: 55 53 48 20 4A 4D 50 2C 20 20 20 20 20 20 20 20 |USH JMP, | 000015F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001600: 20 20 45 4E 44 2D 43 4F 44 45 20 20 20 20 20 20 | END-CODE | 00001610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001640: 20 20 3A 20 44 4C 4F 41 44 20 20 20 20 20 28 20 | : DLOAD ( | 00001650: 4C 4F 41 44 2D 41 44 44 52 45 53 53 20 2D 2D 2D |LOAD-ADDRESS ---| 00001660: 20 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ) | 00001670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001680: 20 20 20 20 20 44 55 50 20 20 20 20 20 20 28 20 | DUP ( | 00001690: 53 41 56 45 20 53 54 41 52 54 2D 41 44 44 52 29 |SAVE START-ADDR)| 000016A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000016B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000016C0: 20 20 20 20 20 47 45 54 2D 4E 41 4D 45 20 28 20 | GET-NAME ( | 000016D0: 41 53 4B 20 46 49 4C 45 4E 41 4D 45 29 20 20 20 |ASK FILENAME) | 000016E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000016F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001700: 20 20 20 20 20 28 4C 4F 41 44 2D 49 4E 49 54 29 | (LOAD-INIT)| 00001710: 20 28 4C 4F 41 44 29 20 20 20 20 20 20 20 20 20 | (LOAD) | 00001720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001740: 20 20 20 20 20 43 52 20 42 32 20 40 20 35 20 2B | CR B2 @ 5 +| 00001750: 20 31 30 20 2D 54 52 41 49 4C 49 4E 47 20 54 59 | 10 -TRAILING TY| 00001760: 50 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |PE | 00001770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001780: 20 20 20 20 20 2E 22 20 20 4C 4F 41 44 45 44 20 | ." LOADED | 00001790: 3A 20 22 20 53 57 41 50 20 20 20 20 20 20 20 20 |: " SWAP | 000017A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000017B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000017C0: 20 20 20 20 20 55 2E 20 2E 22 20 2D 22 20 55 2E | U. ." -" U.| 000017D0: 20 43 52 20 3B 20 28 20 50 52 49 4E 54 20 41 52 | CR ; ( PRINT AR| 000017E0: 45 41 29 20 2D 2D 3E 20 20 20 20 20 20 20 20 20 |EA) --> | 000017F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001800: 20 20 28 20 31 35 34 30 2D 44 49 53 4B 20 52 4F | ( 1540-DISK RO| 00001810: 55 54 49 4E 45 53 20 43 42 4D 36 34 20 50 41 52 |UTINES CBM64 PAR| 00001820: 54 20 36 20 29 20 20 20 20 20 20 20 20 20 20 20 |T 6 ) | 00001830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001840: 20 20 28 20 56 4F 4F 52 20 31 35 34 30 20 29 20 | ( VOOR 1540 ) | 00001850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001880: 20 20 3A 20 44 53 41 56 45 2D 46 4F 52 54 48 20 | : DSAVE-FORTH | 00001890: 20 20 28 20 2D 2D 2D 20 29 20 20 20 20 20 20 20 | ( --- ) | 000018A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000018B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000018C0: 20 20 20 20 20 20 24 50 54 52 20 20 28 20 55 50 | $PTR ( UP| 000018D0: 44 41 54 45 20 42 4F 4F 54 55 50 2D 4C 49 54 45 |DATE BOOTUP-LITE| 000018E0: 52 41 4C 53 29 20 20 20 20 20 20 20 20 20 20 20 |RALS) | 000018F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001900: 20 20 20 20 20 20 30 38 30 31 20 48 45 52 45 20 | 0801 HERE | 00001910: 20 28 20 42 45 47 49 4E 2C 20 45 4E 44 29 20 20 | ( BEGIN, END) | 00001920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001940: 20 20 20 20 20 20 4F 56 45 52 20 4F 56 45 52 20 | OVER OVER | 00001950: 20 28 20 43 4F 50 59 20 46 4F 52 20 50 52 49 4E | ( COPY FOR PRIN| 00001960: 54 4F 55 54 29 20 20 20 20 20 20 20 20 20 20 20 |TOUT) | 00001970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001980: 20 20 20 20 20 20 42 41 53 45 20 40 20 3E 52 20 | BASE @ >R | 00001990: 48 45 58 20 28 20 50 52 49 4E 54 20 49 4E 20 48 |HEX ( PRINT IN H| 000019A0: 45 58 29 20 20 20 20 20 20 20 20 20 20 20 20 20 |EX) | 000019B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000019C0: 20 20 20 20 20 20 53 57 41 50 20 2E 22 20 24 22 | SWAP ." $"| 000019D0: 20 55 2E 20 2E 22 20 2D 24 22 20 55 2E 20 20 20 | U. ." -$" U. | 000019E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000019F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001A00: 20 20 20 20 20 20 52 3E 20 42 41 53 45 20 21 20 | R> BASE ! | 00001A10: 20 20 20 20 28 20 52 45 53 54 4F 52 45 20 42 41 | ( RESTORE BA| 00001A20: 53 45 29 20 20 20 20 20 20 20 20 20 20 20 20 20 |SE) | 00001A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001A40: 20 20 20 20 20 20 44 53 41 56 45 20 3B 20 20 20 | DSAVE ; | 00001A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001AC0: 20 20 2D 2D 3E 20 20 20 20 20 20 20 20 20 20 20 | --> | 00001AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001C00: 20 20 28 20 31 35 34 30 2D 44 49 53 4B 20 52 4F | ( 1540-DISK RO| 00001C10: 55 54 49 4E 45 53 20 43 42 4D 36 34 20 50 41 52 |UTINES CBM64 PAR| 00001C20: 54 20 37 20 29 20 20 20 20 20 20 20 20 20 20 20 |T 7 ) | 00001C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001C80: 20 20 3A 20 44 53 41 56 45 2D 53 43 52 45 45 4E | : DSAVE-SCREEN| 00001C90: 20 20 28 20 53 43 52 23 20 2D 2D 2D 20 29 20 20 | ( SCR# --- ) | 00001CA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001CC0: 20 20 20 20 20 20 46 4C 55 53 48 20 20 20 20 20 | FLUSH | 00001CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001D00: 20 20 20 20 20 20 34 30 30 20 2A 20 35 30 30 30 | 400 * 5000| 00001D10: 20 2B 20 28 20 53 54 41 52 54 2D 41 44 44 52 45 | + ( START-ADDRE| 00001D20: 53 53 29 20 20 20 20 20 20 20 20 20 20 20 20 20 |SS) | 00001D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001D40: 20 20 20 20 20 20 34 30 30 20 4F 56 45 52 20 2B | 400 OVER +| 00001D50: 20 20 20 28 20 53 54 41 52 54 2C 20 45 4E 44 2B | ( START, END+| 00001D60: 31 20 20 20 29 20 20 20 20 20 20 20 20 20 20 20 |1 ) | 00001D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001D80: 20 20 20 20 20 20 44 53 41 56 45 20 3B 20 20 20 | DSAVE ; | 00001D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001DA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001E00: 20 20 3A 20 44 4C 4F 41 44 2D 53 43 52 45 45 4E | : DLOAD-SCREEN| 00001E10: 20 20 28 20 53 43 52 23 20 2D 2D 2D 20 29 20 20 | ( SCR# --- ) | 00001E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001E40: 20 20 20 20 20 20 34 30 30 20 2A 20 35 30 30 30 | 400 * 5000| 00001E50: 20 2B 20 44 4C 4F 41 44 20 3B 20 20 20 20 20 20 | + DLOAD ; | 00001E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001EC0: 20 20 52 3E 20 42 41 53 45 20 21 20 24 50 54 52 | R> BASE ! $PTR| 00001ED0: 20 20 20 20 3B 53 20 20 20 20 20 20 20 20 20 20 | ;S | 00001EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F40: 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ==============| 00001F50: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00001F60: 3D 3D 3D 3D 20 20 20 20 20 20 20 20 20 20 20 20 |==== | 00001F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F80: 20 20 28 43 29 31 39 38 33 20 46 52 45 44 20 5A | (C)1983 FRED Z| 00001F90: 45 4C 44 45 52 53 2C 20 4C 45 49 44 45 52 44 4F |ELDERS, LEIDERDO| 00001FA0: 52 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |RP | 00001FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002000: 20 20 20 | |
.TINFO COMMODORE 64 DISK-TOUTINES IN FIG
-FORTH 1.1(64T) DLOAD: LOAD VA
NAF DISK ( RELOCATEN IS TOEGESTAAN)
======
<START
> DLOAD <NAAM>
DSAVE: SAVE NAAR DISK (1540)
======
<START> <EIND+1> DSAVE <NAAM>
DSAVE/DLOAD-SCREEN:
=================
<SCREEN NR> DS
AVE/DLOAD-SCREEN <NAAM.SCR>
DSAVE-
FORTH: SAVE FORTH NAAR DISK
===========
DSAVE-FORTH <NAAM>
( 1540-DISK RO
UTINES CBM64 PART 1 )
BASE @ >R FORTH DEFINITIONS HE
X 0 VARI
ABLE FILNAM 12 ALLOT
0 VARIABLE LENGTH
: GET-NAME (
--- )
FILNAM 10 BLANKS ( ERASE BU
FFER) BL
WORD HERE ( NAME FROM INPUT-STREAM)
DUP C@ 10 MIN DUP >
R
LENGTH ! ( SAVE LENGTH)
1+ FILNAM R
> ( FROM, TO, CNT)
CMOVE FILNAM C@ 0=
IF
0 LENGTH ! ENDIF ; -->
( STRING IS MOVED FROM INPUTSTREAM TO
FILNAM ) ( LENGTH AT PO
INTER, 1 BYTE )
( 1540-DISK ROUTINES CBM64 PAR
T 2 ) ( VOOR
1540 )
CODE (SAVE-INIT)
XSAVE STX,
0B # LDA, D0
11 STA, ( SCREEN OFF)
8 # LDA, ( LOGICAL FILE # )
TAX,
( DEVICE # 8 = DISK )
0 # LDY, ( SECONDARY
ADDRESS 0 )
FFBA JSR, ( PREPARE FOR OPEN )
LENGTH LDA,
( NAMELENGTH )
FILNAM 100 / # LDY,
FILN
AM FF AND # LDX,
FFBD JSR, ( SET FILE
NAME )
XSAVE LDX, NEXT JMP,
END-CODE
-->
( 1540
-DISK ROUTINES CBM64 PART 3 )
( VOOR 1540 )
CODE (SAVE) ( START, END+1 --- )
2 # LDA, SE
TUP JSR, XSAVE STX,
N LDX, N 1+ LDY,
N 2
+ # LDA, FFD8 JSR,
1B # LDA, D011 STA,
(. SCREEN ON)
FFE7 JSR, ( CLOSE ALL )
XSAVE LDX,
NEXT JMP,
END-CODE
: DSAV
E ( START, END+1 --- )
GET-NAME CR
(SAVE-INIT) (SAVE)
CR FILNAM 1
0 -TRAILING TYPE
." SAVED" CR ;
-->
( 1540-DISK ROUTINES C
BM64 PART 4 )
( VOOR 1540 )
CODE (LOAD-INI
T)
XSAVE STX,
0B #
LDA, D011 STA, ( SCREEN OFF)
8 # LDA, ( LOGICAL
FILE #)
TAX, ( DEVICE # 8 = DISK)
0 # LDY, (
SECONDARY ADDRESS 0)
FFBA JSR, ( PREPARE FOR OPEN
) LENG
TH LDA, ( NAMELENGTH)
FILNAM DUP
100 / # LDY, FF AND # LDX,
FFBD JSR, (
SET FILENAME)
XSAVE LDX, NEXT JMP,
END-CO
DE
-->
( 1540-DISK ROUTINES CBM64 PART 5 )
CODE (LOAD) (
START --- END-LOAD )
1 # LDA, SETUP JSR, XSAVE S
TX, N L
DX, N 1+ LDY,
0 # LDA, ( IT IS A
LOAD)
FFD5 JSR, TXA, PHA, ( SAVE XREG)
1B # LDA, D
011 STA, ( SCREEN ON)
FFE7 JSR, TYA, XSAVE LDX, P
USH JMP, END-CO
DE
: DLOAD ( LOAD-ADD
RESS --- )
DUP ( SAVE START-ADDR)
GET-NAME (
ASK FILENAME)
(LOAD-INIT) (LOAD)
CR
B2 @ 5 + 10 -TRAILING TYPE
." LOADED : " SWAP
U. ." -" U. CR ; ( PRINT AREA) -->
( 1540-DISK RO
UTINES CBM64 PART 6 )
( VOOR 1540 )
: DSAV
E-FORTH ( --- )
$PTR ( UPDATE BOO
TUP-LITERALS)
0801 HERE ( BEGIN, END)
OVER OVER
( COPY FOR PRINTOUT)
BASE @ >R HEX ( PRINT IN H
EX) SW
AP ." $" U. ." -$" U.
R> BASE ! ( RE
STORE BASE)
DSAVE ;
-->
( 1540-DISK ROUTINES CBM64 PAR
T 7 )
: DSAVE-SCREEN ( SCR#
--- )
FLUSH
400 * 5000
+ ( START-ADDRESS)
400 OVER + ( START, END+
1 ) DS
AVE ;
: DLOAD-SCREEN ( SCR# --- )
400 * 5000
+ DLOAD ;
R> BAS
E ! $PTR ;S
==================================
(C)1983 FRED Z
ELDERS, LEIDERDORP
> CLICK IMAGE PREVIEW FOR FULL MODAL