ETDISK
FILE INFORMATION
FILENAME(S): ETDISK
FILE TYPE(S): SEQ
FILE SIZE: 5.4K
FIRST SEEN: 2025-11-30 21:27:07
APPEARS ON: 1 disk(s)
FILE HASH
b60b7f57d561f59c8aee20616ce823b32f3d6b180846ef9b0e374f38b7194431
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| EXPERIMENT 02 | ETDISK | SEQ | DuncanTwain | 13 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 0D 3B 20 53 20 55 20 42 20 50 20 52 20 4F 20 |;.; S U B P R O | 00000010: 47 20 52 20 41 20 4D 20 4D 20 41 20 27 20 53 0D |G R A M M A ' S.| 00000020: 3B 0D 3B 20 20 20 20 20 20 20 20 20 20 56 20 4F |;.; V O| 00000030: 20 4F 20 52 0D 3B 0D 3B 20 20 20 20 45 20 54 20 | O R.;.; E T | 00000040: 49 20 4B 20 45 20 54 20 2E 20 42 20 41 20 53 20 |I K E T . B A S | 00000050: 20 20 2E 0D 3B 0D 3B 20 20 20 20 20 20 20 44 20 | ..;.; D | 00000060: 45 20 45 20 4C 20 20 54 20 57 20 45 20 45 20 20 |E E L T W E E | 00000070: 2E 0D 3B 0D 3B 0D 3B 20 50 52 4F 47 52 41 4D 4D |..;.;.; PROGRAMM| 00000080: 41 20 20 20 3A 20 20 45 54 49 4B 45 54 20 2E 0D |A : ETIKET ..| 00000090: 3B 20 42 52 4F 4E 43 4F 44 45 20 20 20 20 3A 20 |; BRONCODE : | 000000A0: 20 45 54 44 49 53 4B 2E 41 53 4D 20 20 2E 0D 3B | ETDISK.ASM ..;| 000000B0: 20 4F 42 4A 45 43 54 43 4F 44 45 20 20 3A 20 20 | OBJECTCODE : | 000000C0: 45 54 44 49 53 4B 2E 4F 42 4A 20 20 2E 0D 3B 20 |ETDISK.OBJ ..; | 000000D0: 44 49 53 4B 20 20 20 20 20 20 20 20 3A 20 20 45 |DISK : E| 000000E0: 32 20 20 2E 0D 3B 20 54 41 41 4C 20 20 20 20 20 |2 ..; TAAL | 000000F0: 20 20 20 3A 20 20 41 53 53 45 4D 42 4C 45 52 20 | : ASSEMBLER | 00000100: 43 36 34 2E 0D 3B 20 44 41 54 55 4D 20 20 20 20 |C64..; DATUM | 00000110: 20 20 20 3A 20 20 31 32 20 4A 55 4C 49 20 31 39 | : 12 JULI 19| 00000120: 39 35 2E 0D 3B 20 50 52 4F 47 52 41 4D 4D 45 55 |95..; PROGRAMMEU| 00000130: 52 20 3A 20 20 4A 2E 48 2E 56 41 4E 20 52 49 4A |R : J.H.VAN RIJ| 00000140: 4E 2E 0D 3B 0D 3B 0D 3B 20 44 45 43 49 4D 20 48 |N..;.;.; DECIM H| 00000150: 45 58 41 20 53 59 4D 42 4C 20 46 55 4E 43 54 49 |EXA SYMBL FUNCTI| 00000160: 45 0D 3B 0D 3B 20 32 36 34 33 32 20 36 37 34 30 |E.;.; 26432 6740| 00000170: 20 2E 2E 2E 2E 2E 20 2E 2E 2E 2E 2E 2E 2E 2E 2E | ..... .........| 00000180: 2E 2E 2E 2E 2E 2E 0D 3B 20 20 20 20 20 20 20 20 |.......; | 00000190: 20 20 20 20 20 20 20 20 20 20 2E 2E 2E 2E 2E 2E | ......| 000001A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D 3B 20 2E 2E 2E 2E |..........; ....| 000001B0: 2E 20 2E 2E 2E 2E 20 2E 2E 2E 2E 2E 20 2E 2E 2E |. .... ..... ...| 000001C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D 3B 20 20 |.............; | 000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D |................| 000001F0: 3B 20 2E 2E 2E 2E 2E 20 2E 2E 2E 2E 20 2E 2E 2E |; ..... .... ...| 00000200: 2E 2E 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |.. .............| 00000210: 2E 2E 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 |...; | 00000220: 20 20 20 20 20 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | ..........| 00000230: 2E 2E 2E 2E 2E 0D 3B 20 2E 2E 2E 2E 2E 20 2E 2E |......; ..... ..| 00000240: 2E 2E 20 2E 2E 2E 2E 2E 20 2E 2E 2E 2E 2E 2E 2E |.. ..... .......| 00000250: 2E 2E 2E 2E 2E 2E 2E 2E 0D 3B 20 20 20 20 20 20 |.........; | 00000260: 20 20 20 20 20 20 20 20 20 20 20 20 2E 2E 2E 2E | ....| 00000270: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D 3B 20 2E 2E |............; ..| 00000280: 2E 2E 2E 20 2E 2E 2E 2E 20 2E 2E 2E 2E 2E 20 2E |... .... ..... .| 00000290: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D 3B |...............;| 000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002B0: 20 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | ..............| 000002C0: 2E 0D 3B 20 2E 2E 2E 2E 2E 20 2E 2E 2E 2E 20 2E |..; ..... .... .| 000002D0: 2E 2E 2E 2E 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |.... ...........| 000002E0: 2E 2E 2E 2E 0D 3B 20 20 20 20 20 20 20 20 20 20 |.....; | 000002F0: 20 20 20 20 20 20 20 20 2E 2E 2E 2E 2E 2E 2E 2E | ........| 00000300: 2E 2E 2E 2E 2E 2E 2E 0D 3B 20 2E 2E 2E 2E 2E 20 |........; ..... | 00000310: 2E 2E 2E 2E 20 2E 2E 2E 2E 2E 20 2E 2E 2E 2E 2E |.... ..... .....| 00000320: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D 3B 20 20 20 20 |...........; | 00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2E 2E | ..| 00000340: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D 3B 20 |..............; | 00000350: 2E 2E 2E 2E 2E 20 2E 2E 2E 2E 20 2E 2E 2E 2E 2E |..... .... .....| 00000360: 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | ...............| 00000370: 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; | 00000380: 20 20 20 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | ............| 00000390: 2E 2E 2E 0D 3B 20 2E 2E 2E 2E 2E 20 2E 2E 2E 2E |....; ..... ....| 000003A0: 20 2E 2E 2E 2E 2E 20 2E 2E 2E 2E 2E 2E 2E 2E 2E | ..... .........| 000003B0: 2E 2E 2E 2E 2E 2E 0D 3B 20 20 20 20 20 20 20 20 |.......; | 000003C0: 20 20 20 20 20 20 20 20 20 20 2E 2E 2E 2E 2E 2E | ......| 000003D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D 20 20 20 20 20 20 |.......... | 000003E0: 2E 50 41 47 45 0D 3B 20 53 55 42 50 52 4F 47 52 |.PAGE.; SUBPROGR| 000003F0: 41 4D 4D 41 27 53 20 56 45 52 56 4F 4C 47 2E 0D |AMMA'S VERVOLG..| 00000400: 3B 0D 3B 20 44 45 43 49 4D 20 48 45 58 41 20 53 |;.; DECIM HEXA S| 00000410: 59 4D 42 4C 20 46 55 4E 43 54 49 45 0D 3B 0D 3B |YMBL FUNCTIE.;.;| 00000420: 20 2E 2E 2E 2E 2E 20 2E 2E 2E 2E 20 2E 2E 2E 2E | ..... .... ....| 00000430: 2E 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |. ..............| 00000440: 2E 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |..; | 00000450: 20 20 20 20 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | ...........| 00000460: 2E 2E 2E 2E 0D 3B 20 2E 2E 2E 2E 2E 20 2E 2E 2E |.....; ..... ...| 00000470: 2E 20 2E 2E 2E 2E 2E 20 2E 2E 2E 2E 2E 2E 2E 2E |. ..... ........| 00000480: 2E 2E 2E 2E 2E 2E 2E 0D 3B 20 20 20 20 20 20 20 |........; | 00000490: 20 20 20 20 20 20 20 20 20 20 20 2E 2E 2E 2E 2E | .....| 000004A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D 3B 20 2E 2E 2E |...........; ...| 000004B0: 2E 2E 20 2E 2E 2E 2E 20 2E 2E 2E 2E 2E 20 2E 2E |.. .... ..... ..| 000004C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D 3B 20 |..............; | 000004D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004E0: 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | ...............| 000004F0: 0D 3B 20 2E 2E 2E 2E 2E 20 2E 2E 2E 2E 20 2E 2E |.; ..... .... ..| 00000500: 2E 2E 2E 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |... ............| 00000510: 2E 2E 2E 0D 3B 20 20 20 20 20 20 20 20 20 20 20 |....; | 00000520: 20 20 20 20 20 20 20 2E 2E 2E 2E 2E 2E 2E 2E 2E | .........| 00000530: 2E 2E 2E 2E 2E 2E 0D 3B 20 2E 2E 2E 2E 2E 20 2E |.......; ..... .| 00000540: 2E 2E 2E 20 2E 2E 2E 2E 2E 20 2E 2E 2E 2E 2E 2E |... ..... ......| 00000550: 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D 3B 20 20 20 20 20 |..........; | 00000560: 20 20 20 20 20 20 20 20 20 20 20 20 20 2E 2E 2E | ...| 00000570: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D 3B 20 2E |.............; .| 00000580: 2E 2E 2E 2E 20 2E 2E 2E 2E 20 2E 2E 2E 2E 2E 20 |.... .... ..... | 00000590: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D |................| 000005A0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 000005B0: 20 20 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | .............| 000005C0: 2E 2E 0D 3B 20 2E 2E 2E 2E 2E 20 2E 2E 2E 2E 20 |...; ..... .... | 000005D0: 2E 2E 2E 2E 2E 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |..... ..........| 000005E0: 2E 2E 2E 2E 2E 0D 3B 20 20 20 20 20 20 20 20 20 |......; | 000005F0: 20 20 20 20 20 20 20 20 20 2E 2E 2E 2E 2E 2E 2E | .......| 00000600: 2E 2E 2E 2E 2E 2E 2E 2E 0D 3B 20 2E 2E 2E 2E 2E |.........; .....| 00000610: 20 2E 2E 2E 2E 20 2E 2E 2E 2E 2E 20 2E 2E 2E 2E | .... ..... ....| 00000620: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D 3B 20 20 20 |............; | 00000630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2E | .| 00000640: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D 3B |...............;| 00000650: 20 2E 2E 2E 2E 2E 20 2E 2E 2E 2E 20 2E 2E 2E 2E | ..... .... ....| 00000660: 2E 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |. ..............| 00000670: 2E 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |..; | 00000680: 20 20 20 20 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | ...........| 00000690: 2E 2E 2E 2E 0D 3B 20 2E 2E 2E 2E 2E 20 2E 2E 2E |.....; ..... ...| 000006A0: 2E 20 2E 2E 2E 2E 2E 20 20 20 56 20 52 20 49 20 |. ..... V R I | 000006B0: 4A 20 2E 0D 3B 20 20 20 20 20 20 20 20 20 20 20 |J ..; | 000006C0: 20 20 20 20 20 20 20 2E 2E 2E 2E 2E 2E 2E 2E 2E | .........| 000006D0: 2E 2E 2E 2E 2E 2E 0D 3B 0D 3B 20 44 45 20 49 4E |.......;.; DE IN| 000006E0: 20 44 45 5A 45 20 53 55 42 50 52 4F 47 52 41 4D | DEZE SUBPROGRAM| 000006F0: 4D 41 27 53 0D 3B 20 47 45 42 52 55 49 4B 54 45 |MA'S.; GEBRUIKTE| 00000700: 20 43 4F 4E 53 54 41 4E 54 45 4E 20 4D 45 54 20 | CONSTANTEN MET | 00000710: 48 55 4E 0D 3B 20 41 44 52 45 53 53 45 4E 2E 0D |HUN.; ADRESSEN..| 00000720: 3B 0D 4D 42 20 20 20 20 20 3D 20 20 20 30 30 36 |;.MB = 006| 00000730: 38 30 20 20 3B 20 42 45 47 49 4E 52 45 47 2E 4D |80 ; BEGINREG.M| 00000740: 45 4E 55 2E 0D 4D 45 20 20 20 20 20 3D 20 20 20 |ENU..ME = | 00000750: 30 30 36 38 31 20 20 3B 20 20 45 49 4E 44 52 45 |00681 ; EINDRE| 00000760: 47 2E 4D 45 4E 55 2E 0D 3B 0D 4C 42 20 20 20 20 |G.MENU..;.LB | 00000770: 20 3D 20 20 20 30 30 36 38 32 20 20 3B 50 4F 53 | = 00682 ;POS| 00000780: 2E 4C 49 4E 4B 53 20 4D 45 4E 55 2E 0D 4C 45 20 |.LINKS MENU..LE | 00000790: 20 20 20 20 3D 20 20 20 30 30 36 38 33 20 20 3B | = 00683 ;| 000007A0: 50 4F 53 2E 52 43 48 54 53 2E 4D 45 4E 55 2E 0D |POS.RCHTS.MENU..| 000007B0: 3B 0D 52 42 20 20 20 20 20 3D 20 20 20 30 30 36 |;.RB = 006| 000007C0: 38 34 20 20 3B 20 4C 49 4A 4E 20 42 4F 56 45 4E |84 ; LIJN BOVEN| 000007D0: 41 41 4E 2E 0D 52 45 20 20 20 20 20 3D 20 20 20 |AAN..RE = | 000007E0: 30 30 36 38 35 20 20 3B 20 4C 49 4A 4E 20 4F 4E |00685 ; LIJN ON| 000007F0: 44 45 52 41 41 4E 2E 0D 3B 0D 4B 42 20 20 20 20 |DERAAN..;.KB | 00000800: 20 3D 20 20 20 30 30 36 38 36 20 20 3B 20 4C 49 | = 00686 ; LI| 00000810: 4A 4E 20 4C 49 4E 4B 53 2E 0D 4B 45 20 20 20 20 |JN LINKS..KE | 00000820: 20 3D 20 20 20 30 30 36 38 37 20 20 3B 20 4C 49 | = 00687 ; LI| 00000830: 4A 4E 20 52 45 43 48 54 53 2E 0D 20 20 20 20 20 |JN RECHTS.. | 00000840: 20 2E 50 41 47 45 0D 50 42 20 20 20 20 20 3D 20 | .PAGE.PB = | 00000850: 20 20 30 30 36 38 38 20 20 3B 20 42 45 47 49 4E | 00688 ; BEGIN| 00000860: 52 2E 45 54 49 4B 45 54 2E 0D 50 45 20 20 20 20 |R.ETIKET..PE | 00000870: 20 3D 20 20 20 30 30 36 38 39 20 20 3B 20 20 45 | = 00689 ; E| 00000880: 49 4E 44 52 2E 45 54 49 4B 45 54 2E 0D 3B 0D 51 |INDR.ETIKET..;.Q| 00000890: 42 20 20 20 20 20 3D 20 20 20 30 30 36 39 30 20 |B = 00690 | 000008A0: 20 3B 20 42 45 47 49 4E 4B 2E 45 54 49 4B 45 54 | ; BEGINK.ETIKET| 000008B0: 2E 0D 51 45 20 20 20 20 20 3D 20 20 20 30 30 36 |..QE = 006| 000008C0: 39 31 20 20 3B 20 20 45 49 4E 44 4B 2E 45 54 49 |91 ; EINDK.ETI| 000008D0: 4B 45 54 2E 0D 3B 0D 3B 20 50 52 49 4E 54 42 55 |KET..;.; PRINTBU| 000008E0: 46 46 45 52 42 45 47 49 4E 41 44 52 45 53 2E 0D |FFERBEGINADRES..| 000008F0: 3B 0D 42 55 42 30 20 20 20 3D 20 20 20 30 30 36 |;.BUB0 = 006| 00000900: 39 34 20 20 3B 20 4C 53 2E 50 52 49 4E 54 42 55 |94 ; LS.PRINTBU| 00000910: 46 46 2E 0D 42 55 42 31 20 20 20 3D 20 20 20 30 |FF..BUB1 = 0| 00000920: 30 36 39 35 20 20 3B 20 48 53 2E 50 52 49 4E 54 |0695 ; HS.PRINT| 00000930: 42 55 46 46 2E 0D 3B 0D 3B 20 56 41 52 49 41 42 |BUFF..;.; VARIAB| 00000940: 45 4C 20 56 45 4C 44 2C 20 54 45 56 45 4E 53 20 |EL VELD, TEVENS | 00000950: 57 45 52 4B 56 45 4C 44 2E 0D 3B 0D 59 42 20 20 |WERKVELD..;.YB | 00000960: 20 20 20 3D 20 20 20 30 30 36 39 36 20 20 3B 20 | = 00696 ; | 00000970: 52 45 47 45 4C 20 42 45 47 49 4E 2E 0D 59 45 20 |REGEL BEGIN..YE | 00000980: 20 20 20 20 3D 20 20 20 30 30 36 39 37 20 20 3B | = 00697 ;| 00000990: 20 52 45 47 45 4C 20 45 49 4E 44 2E 0D 58 42 20 | REGEL EIND..XB | 000009A0: 20 20 20 20 3D 20 20 20 30 30 36 39 38 20 20 3B | = 00698 ;| 000009B0: 20 4B 4F 4C 4F 4D 20 42 45 47 49 4E 2E 0D 58 45 | KOLOM BEGIN..XE| 000009C0: 20 20 20 20 20 3D 20 20 20 30 30 36 39 39 20 20 | = 00699 | 000009D0: 3B 20 4B 4F 4C 4F 4D 20 45 49 4E 44 2E 0D 3B 0D |; KOLOM EIND..;.| 000009E0: 3B 20 20 20 20 20 2A 3D 20 20 20 3F 3F 3F 3F 3F |; *= ?????| 000009F0: 0D 3B 0D 3B 20 20 4F 50 45 4E 45 4E 20 27 56 41 |.;.; OPENEN 'VA| 00000A00: 4E 27 20 44 49 53 4B 3A 20 46 49 4C 45 4E 52 2E |N' DISK: FILENR.| 00000A10: 36 2E 0D 3B 0D 44 4F 50 49 4E 20 54 58 41 20 20 |6..;.DOPIN TXA | 00000A20: 20 20 20 20 20 20 20 20 20 3B 20 52 45 44 0D 20 | ; RED. | 00000A30: 20 20 20 20 20 50 48 41 20 20 20 20 20 20 20 20 | PHA | 00000A40: 20 20 20 3B 20 28 58 29 2E 0D 20 20 20 20 20 20 | ; (X).. | 00000A50: 54 59 41 20 20 20 20 20 20 20 20 20 20 20 3B 20 |TYA ; | 00000A60: 52 45 44 0D 20 20 20 20 20 20 50 48 41 20 20 20 |RED. PHA | 00000A70: 20 20 20 20 20 20 20 20 3B 20 28 59 29 2E 0D 20 | ; (Y).. | 00000A80: 20 20 20 20 20 4C 44 41 20 23 30 30 36 20 20 20 | LDA #006 | 00000A90: 20 20 20 3B 20 46 49 4C 45 4E 55 4D 4D 45 52 2E | ; FILENUMMER.| 00000AA0: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 38 20 |. LDX #008 | 00000AB0: 20 20 20 20 20 3B 20 54 4F 45 53 54 45 4C 2E 0D | ; TOESTEL..| 00000AC0: 20 20 20 20 20 20 4C 44 59 20 23 30 30 33 20 20 | LDY #003 | 00000AD0: 20 20 20 20 3B 20 53 45 43 2E 41 44 52 45 53 2E | ; SEC.ADRES.| 00000AE0: 0D 20 20 20 20 20 20 4A 53 52 20 20 24 46 46 42 |. JSR $FFB| 00000AF0: 41 20 20 20 20 3B 20 2A 2A 53 45 54 4C 46 53 2A |A ; **SETLFS*| 00000B00: 2A 0D 3B 20 20 20 20 20 4C 44 41 20 3C 4C 45 4E |*.; LDA <LEN| 00000B10: 47 54 45 3E 20 20 3B 20 46 49 4C 45 4E 41 41 4D |GTE> ; FILENAAM| 00000B20: 2E 0D 3B 20 20 20 20 20 4C 44 58 20 3C 4C 53 20 |..; LDX <LS | 00000B30: 41 44 52 45 53 3E 3B 0D 3B 20 20 20 20 20 4C 44 |ADRES>;.; LD| 00000B40: 59 20 3C 48 53 20 41 44 52 45 53 3E 3B 0D 20 20 |Y <HS ADRES>;. | 00000B50: 20 20 20 20 4A 53 52 20 20 24 46 46 42 44 20 20 | JSR $FFBD | 00000B60: 20 20 3B 20 2A 2A 53 45 54 4E 41 4D 2A 2A 0D 20 | ; **SETNAM**. | 00000B70: 20 20 20 20 20 4A 53 52 20 20 24 46 46 43 30 20 | JSR $FFC0 | 00000B80: 20 20 20 3B 20 2A 2A 20 4F 50 45 4E 20 2A 2A 0D | ; ** OPEN **.| 00000B90: 20 20 20 20 20 20 4C 44 58 20 23 30 30 36 20 20 | LDX #006 | 00000BA0: 20 20 20 20 3B 20 46 49 4C 45 20 23 36 2E 0D 20 | ; FILE #6.. | 00000BB0: 20 20 20 20 20 4A 53 52 20 20 24 46 46 43 36 20 | JSR $FFC6 | 00000BC0: 20 20 20 3B 20 2A 2A 43 48 4B 49 4E 20 2A 2A 0D | ; **CHKIN **.| 00000BD0: 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 20 20 | PLA | 00000BE0: 20 20 20 20 3B 20 48 45 52 53 54 45 4C 0D 20 20 | ; HERSTEL. | 00000BF0: 20 20 20 20 54 41 59 20 20 20 20 20 20 20 20 20 | TAY | 00000C00: 20 20 3B 20 28 59 29 2E 0D 20 20 20 20 20 20 50 | ; (Y).. P| 00000C10: 4C 41 20 20 20 20 20 20 20 20 20 20 20 3B 20 48 |LA ; H| 00000C20: 45 52 53 54 45 4C 0D 20 20 20 20 20 20 54 41 58 |ERSTEL. TAX| 00000C30: 20 20 20 20 20 20 20 20 20 20 20 3B 20 28 58 29 | ; (X)| 00000C40: 2E 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 20 20 |.. RTS.;. | 00000C50: 20 20 20 20 2E 50 41 47 45 0D 3B 20 20 20 20 20 | .PAGE.; | 00000C60: 2A 3D 20 20 20 3F 3F 3F 3F 3F 0D 3B 0D 3B 20 20 |*= ?????.;.; | 00000C70: 4F 50 45 4E 45 4E 20 27 4E 41 41 52 27 20 44 49 |OPENEN 'NAAR' DI| 00000C80: 53 4B 3A 20 46 49 4C 45 4E 52 2E 38 2E 0D 3B 0D |SK: FILENR.8..;.| 00000C90: 44 4F 50 55 49 20 54 58 41 20 20 20 20 20 20 20 |DOPUI TXA | 00000CA0: 20 20 20 20 3B 20 52 45 44 0D 20 20 20 20 20 20 | ; RED. | 00000CB0: 50 48 41 20 20 20 20 20 20 20 20 20 20 20 3B 20 |PHA ; | 00000CC0: 28 58 29 2E 0D 20 20 20 20 20 20 54 59 41 20 20 |(X).. TYA | 00000CD0: 20 20 20 20 20 20 20 20 20 3B 20 52 45 44 0D 20 | ; RED. | 00000CE0: 20 20 20 20 20 50 48 41 20 20 20 20 20 20 20 20 | PHA | 00000CF0: 20 20 20 3B 20 28 59 29 2E 0D 20 20 20 20 20 20 | ; (Y).. | 00000D00: 4C 44 41 20 23 30 30 38 20 20 20 20 20 20 3B 20 |LDA #008 ; | 00000D10: 46 49 4C 45 4E 55 4D 4D 45 52 2E 0D 20 20 20 20 |FILENUMMER.. | 00000D20: 20 20 4C 44 58 20 23 30 30 38 20 20 20 20 20 20 | LDX #008 | 00000D30: 3B 20 54 4F 45 53 54 45 4C 2E 0D 20 20 20 20 20 |; TOESTEL.. | 00000D40: 20 4C 44 59 20 23 30 30 32 20 20 20 20 20 20 3B | LDY #002 ;| 00000D50: 20 53 45 43 2E 41 44 52 45 53 2E 0D 20 20 20 20 | SEC.ADRES.. | 00000D60: 20 20 4A 53 52 20 20 24 46 46 42 41 20 20 20 20 | JSR $FFBA | 00000D70: 3B 20 2A 2A 53 45 54 4C 46 53 2A 2A 0D 3B 20 20 |; **SETLFS**.; | 00000D80: 20 20 20 4C 44 41 20 3C 4C 45 4E 47 54 45 3E 20 | LDA <LENGTE> | 00000D90: 20 3B 20 46 49 4C 45 4E 41 41 4D 2E 0D 3B 20 20 | ; FILENAAM..; | 00000DA0: 20 20 20 4C 44 58 20 3C 4C 53 20 41 44 52 45 53 | LDX <LS ADRES| 00000DB0: 3E 3B 0D 3B 20 20 20 20 20 4C 44 59 20 3C 48 53 |>;.; LDY <HS| 00000DC0: 20 41 44 52 45 53 3E 3B 0D 20 20 20 20 20 20 4A | ADRES>;. J| 00000DD0: 53 52 20 20 24 46 46 42 44 20 20 20 20 3B 20 2A |SR $FFBD ; *| 00000DE0: 2A 53 45 54 4E 41 4D 2A 2A 0D 20 20 20 20 20 20 |*SETNAM**. | 00000DF0: 4A 53 52 20 20 24 46 46 43 30 20 20 20 20 3B 20 |JSR $FFC0 ; | 00000E00: 2A 2A 20 4F 50 45 4E 20 2A 2A 0D 20 20 20 20 20 |** OPEN **. | 00000E10: 20 4C 44 58 20 23 30 30 38 20 20 20 20 20 20 3B | LDX #008 ;| 00000E20: 20 46 49 4C 45 20 23 38 2E 0D 20 20 20 20 20 20 | FILE #8.. | 00000E30: 4A 53 52 20 20 24 46 46 43 39 20 20 20 20 3B 20 |JSR $FFC9 ; | 00000E40: 2A 2A 43 48 4B 4F 55 54 2A 2A 0D 20 20 20 20 20 |**CHKOUT**. | 00000E50: 20 50 4C 41 20 20 20 20 20 20 20 20 20 20 20 3B | PLA ;| 00000E60: 20 48 45 52 53 54 45 4C 0D 20 20 20 20 20 20 54 | HERSTEL. T| 00000E70: 41 59 20 20 20 20 20 20 20 20 20 20 20 3B 20 28 |AY ; (| 00000E80: 59 29 2E 0D 20 20 20 20 20 20 50 4C 41 20 20 20 |Y).. PLA | 00000E90: 20 20 20 20 20 20 20 20 3B 20 48 45 52 53 54 45 | ; HERSTE| 00000EA0: 4C 0D 20 20 20 20 20 20 54 41 58 20 20 20 20 20 |L. TAX | 00000EB0: 20 20 20 20 20 20 3B 20 28 58 29 2E 0D 20 20 20 | ; (X).. | 00000EC0: 20 20 20 52 54 53 0D 3B 0D 3B 20 20 20 20 20 2A | RTS.;.; *| 00000ED0: 3D 20 20 20 3F 3F 3F 3F 3F 0D 3B 0D 3B 20 53 43 |= ?????.;.; SC| 00000EE0: 48 52 49 4A 46 20 41 53 43 49 49 2D 43 4F 44 45 |HRIJF ASCII-CODE| 00000EF0: 2D 54 45 4B 45 4E 52 49 4A 45 4E 0D 3B 20 4E 41 |-TEKENRIJEN.; NA| 00000F00: 41 52 20 44 49 53 4B 2E 0D 3B 20 42 45 47 49 4E |AR DISK..; BEGIN| 00000F10: 41 44 52 45 53 20 54 45 56 4F 52 45 4E 0D 3B 20 |ADRES TEVOREN.; | 00000F20: 49 4E 20 56 45 43 54 4F 52 20 28 42 55 42 31 2C |IN VECTOR (BUB1,| 00000F30: 42 55 42 30 29 2E 0D 3B 0D 44 4B 41 52 59 20 4C |BUB0)..;.DKARY L| 00000F40: 44 41 20 20 42 55 42 30 20 20 20 20 20 3B 20 42 |DA BUB0 ; B| 00000F50: 55 46 46 45 52 42 45 47 49 4E 2D 0D 20 20 20 20 |UFFERBEGIN-. | 00000F60: 20 20 53 54 41 20 20 32 35 33 20 20 20 20 20 20 | STA 253 | 00000F70: 3B 20 41 44 52 45 53 56 45 43 54 4F 52 0D 20 20 |; ADRESVECTOR. | 00000F80: 20 20 20 20 4C 44 41 20 20 42 55 42 31 20 20 20 | LDA BUB1 | 00000F90: 20 20 3B 20 49 4E 20 56 45 43 54 4F 52 0D 20 20 | ; IN VECTOR. | 00000FA0: 20 20 20 20 53 54 41 20 20 32 35 34 20 20 20 20 | STA 254 | 00000FB0: 20 20 3B 20 28 32 35 34 2C 32 35 33 29 2E 0D 20 | ; (254,253).. | 00000FC0: 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 | CLC | 00000FD0: 20 20 20 3B 20 45 45 52 53 54 45 20 4D 41 41 4C | ; EERSTE MAAL| 00000FE0: 2E 0D 20 20 20 20 20 20 42 43 43 20 20 44 4B 41 |.. BCC DKA| 00000FF0: 52 33 0D 44 4B 41 52 31 20 53 54 41 20 20 30 30 |R3.DKAR1 STA 00| 00001000: 32 20 20 20 20 20 20 3B 20 4C 45 4E 47 54 45 2E |2 ; LENGTE.| 00001010: 20 44 41 4E 0D 44 4B 41 52 32 20 49 4E 59 20 20 | DAN.DKAR2 INY | 00001020: 20 20 20 20 20 20 20 20 20 3B 20 54 45 4B 45 4E | ; TEKEN| 00001030: 20 4F 50 56 4F 45 2D 0D 20 20 20 20 20 20 4C 44 | OPVOE-. LD| 00001040: 41 20 28 32 35 33 29 2C 59 20 20 20 3B 20 52 45 |A (253),Y ; RE| 00001050: 4E 2C 20 50 52 49 4E 54 2E 0D 20 20 20 20 20 20 |N, PRINT.. | 00001060: 4A 53 52 20 20 24 46 46 44 32 20 20 20 20 3B 20 |JSR $FFD2 ; | 00001070: 2A 2A 43 48 52 4F 55 54 2A 2A 0D 20 20 20 20 20 |**CHROUT**. | 00001080: 20 43 50 59 20 20 30 30 32 20 20 20 20 20 20 3B | CPY 002 ;| 00001090: 20 4C 41 41 54 53 54 45 3F 0D 20 20 20 20 20 20 | LAATSTE?. | 000010A0: 42 43 43 20 20 44 4B 41 52 32 20 20 20 20 3B 20 |BCC DKAR2 ; | 000010B0: 4E 45 45 3A 56 4F 4C 47 45 4E 44 2E 0D 20 20 20 |NEE:VOLGEND.. | 000010C0: 20 20 20 53 45 43 20 20 20 20 20 20 20 20 20 20 | SEC | 000010D0: 20 3B 20 20 4A 41 3A 4F 50 54 45 4C 4C 45 4E 0D | ; JA:OPTELLEN.| 000010E0: 20 20 20 20 20 20 4C 44 41 20 20 30 30 32 20 20 | LDA 002 | 000010F0: 20 20 20 20 3B 20 4C 45 4E 47 54 45 2B 31 20 42 | ; LENGTE+1 B| 00001100: 49 4A 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 |IJ. ADC 25| 00001110: 33 20 20 20 20 20 20 3B 20 28 32 35 34 2C 32 35 |3 ; (254,25| 00001120: 33 29 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 |3).. STA 2| 00001130: 35 33 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 |53. LDA #00| 00001140: 30 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 34 |0. ADC 254| 00001150: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 34 0D |. STA 254.| 00001160: 44 4B 41 52 33 20 4C 44 59 20 23 30 30 30 20 20 |DKAR3 LDY #000 | 00001170: 20 20 20 20 3B 20 4C 45 4E 47 54 45 42 59 54 45 | ; LENGTEBYTE| 00001180: 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 |. LDA (253)| 00001190: 2C 59 20 20 20 3B 20 4F 50 56 4F 45 52 45 4E 2E |,Y ; OPVOEREN.| 000011A0: 0D 20 20 20 20 20 20 42 4E 45 20 20 44 4B 41 52 |. BNE DKAR| 000011B0: 31 20 20 20 20 3B 20 4E 55 4C 3F 20 4A 41 3A 55 |1 ; NUL? JA:U| 000011C0: 49 54 2E 0D 20 20 20 20 20 20 52 54 53 20 20 20 |IT.. RTS | 000011D0: 20 20 20 20 20 20 20 20 3B 20 4E 45 45 3A 54 45 | ; NEE:TE| 000011E0: 52 55 47 2E 0D 3B 0D 3B 20 20 20 20 20 2A 3D 20 |RUG..;.; *= | 000011F0: 20 20 3F 3F 3F 3F 3F 0D 3B 0D 3B 20 53 4C 55 49 | ?????.;.; SLUI| 00001200: 54 45 4E 20 44 49 53 4B 3A 20 46 49 4C 45 4E 52 |TEN DISK: FILENR| 00001210: 2E 36 2E 0D 3B 0D 44 43 4C 49 4E 20 4C 44 41 20 |.6..;.DCLIN LDA | 00001220: 23 30 30 36 0D 20 20 20 20 20 20 4A 53 52 20 20 |#006. JSR | 00001230: 24 46 46 43 33 20 20 20 20 3B 20 2A 2A 43 4C 4F |$FFC3 ; **CLO| 00001240: 53 45 20 2A 2A 0D 20 20 20 20 20 20 4A 53 52 20 |SE **. JSR | 00001250: 20 24 46 46 45 37 20 20 20 20 3B 20 2A 2A 43 4C | $FFE7 ; **CL| 00001260: 41 4C 4C 20 2A 2A 0D 20 20 20 20 20 20 52 54 53 |ALL **. RTS| 00001270: 0D 3B 0D 3B 20 20 20 20 20 2A 3D 20 20 20 3F 3F |.;.; *= ??| 00001280: 3F 3F 3F 0D 3B 0D 3B 20 53 4C 55 49 54 45 4E 20 |???.;.; SLUITEN | 00001290: 44 49 53 4B 3A 20 46 49 4C 45 4E 52 2E 38 2E 0D |DISK: FILENR.8..| 000012A0: 3B 0D 44 43 4C 55 54 20 4C 44 41 20 23 30 30 38 |;.DCLUT LDA #008| 000012B0: 0D 20 20 20 20 20 20 4A 53 52 20 20 24 46 46 43 |. JSR $FFC| 000012C0: 33 20 20 20 20 3B 20 2A 2A 43 4C 4F 53 45 20 2A |3 ; **CLOSE *| 000012D0: 2A 0D 20 20 20 20 20 20 4A 53 52 20 20 24 46 46 |*. JSR $FF| 000012E0: 45 37 20 20 20 20 3B 20 2A 2A 43 4C 41 4C 4C 20 |E7 ; **CLALL | 000012F0: 2A 2A 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 3B |**. RTS.;.;| 00001300: 20 20 20 20 20 2A 3D 20 20 20 3F 3F 3F 3F 3F 0D | *= ?????.| 00001310: 3B 0D 3B 20 44 45 43 4F 44 45 52 45 4E 20 41 53 |;.; DECODEREN AS| 00001320: 43 49 49 54 45 4B 45 4E 20 4E 41 41 52 20 50 4F |CIITEKEN NAAR PO| 00001330: 4B 45 32 2E 0D 3B 20 20 49 4E 2D 20 45 4E 20 55 |KE2..; IN- EN U| 00001340: 49 54 47 41 4E 47 53 52 45 47 49 53 54 45 52 20 |ITGANGSREGISTER | 00001350: 41 2E 0D 3B 0D 53 43 4F 44 45 20 2E 2E 2E 2E 2E |A..;.SCODE .....| 00001360: 2E 2E 2E 2E 2E 2E 2E 2E 20 3B 20 50 43 4F 44 45 |........ ; PCODE| 00001370: 53 45 54 2D 32 0D 3B 20 20 20 20 20 2E 2E 2E 2E |SET-2.; ....| 00001380: 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 3B 20 4B 4C 45 49 |......... ; KLEI| 00001390: 4E 45 20 4C 54 54 2E 0D 3B 20 20 20 20 20 4E 4F |NE LTT..; NO| 000013A0: 50 0D 3B 0D 3B 20 20 20 20 20 2A 3D 20 20 20 3F |P.;.; *= ?| 000013B0: 3F 3F 3F 3F 0D 3B 0D 3B 20 49 4E 20 44 45 20 53 |????.;.; IN DE S| 000013C0: 43 48 45 52 4D 50 52 4F 47 52 41 4D 4D 41 27 53 |CHERMPROGRAMMA'S| 000013D0: 3A 0D 3B 20 52 45 44 44 45 4E 20 56 41 4E 20 28 |:.; REDDEN VAN (| 000013E0: 59 29 20 53 43 41 4E 3A 20 28 31 37 30 29 2E 0D |Y) SCAN: (170)..| 000013F0: 3B 20 5A 45 54 54 45 4E 20 56 41 4E 20 28 59 29 |; ZETTEN VAN (Y)| 00001400: 20 56 55 4C 20 3A 20 28 31 37 31 29 2E 0D 3B 20 | VUL : (171)..; | 00001410: 52 45 47 45 4C 49 4E 44 45 58 20 28 58 29 20 47 |REGELINDEX (X) G| 00001420: 45 42 52 55 49 4B 54 2E 0D 3B 0D 3B 20 48 45 54 |EBRUIKT..;.; HET| 00001430: 20 49 4E 4C 4F 4F 50 2D 53 55 42 50 52 4F 47 52 | INLOOP-SUBPROGR| 00001440: 41 4D 4D 41 20 5A 45 54 20 48 45 54 0D 3B 20 42 |AMMA ZET HET.; B| 00001450: 55 46 46 45 52 42 45 47 49 4E 41 44 52 45 53 20 |UFFERBEGINADRES | 00001460: 49 4E 20 28 32 35 32 2C 32 35 31 29 2E 0D 3B 0D |IN (252,251)..;.| 00001470: 49 4E 4C 4F 53 20 53 54 59 20 20 31 37 30 20 20 |INLOS STY 170 | 00001480: 20 20 20 20 3B 20 52 45 44 20 28 59 29 2E 0D 20 | ; RED (Y).. | 00001490: 20 20 20 20 20 4C 44 58 20 20 50 42 20 20 20 20 | LDX PB | 000014A0: 20 20 20 3B 20 53 43 48 45 52 4D 42 45 47 49 4E | ; SCHERMBEGIN| 000014B0: 2D 0D 20 20 20 20 20 20 4A 53 52 20 20 52 45 47 |-. JSR REG| 000014C0: 41 44 20 20 20 20 3B 20 41 44 52 45 53 56 45 43 |AD ; ADRESVEC| 000014D0: 54 4F 52 0D 3B 0D 3B 20 48 45 54 20 56 55 4C 4C |TOR.;.; HET VULL| 000014E0: 45 4E 20 4D 4F 45 54 20 4D 45 54 20 45 45 4E 20 |EN MOET MET EEN | 000014F0: 43 59 43 4C 55 53 0D 3B 20 47 45 42 45 55 52 45 |CYCLUS.; GEBEURE| 00001500: 4E 20 54 45 20 56 45 52 47 45 4C 49 4A 4B 45 4E |N TE VERGELIJKEN| 00001510: 20 4D 45 54 0D 3B 20 42 41 53 49 43 2D 53 50 2E | MET.; BASIC-SP.| 00001520: 32 30 20 45 4E 20 4D 45 54 20 2A 2A 45 54 49 56 |20 EN MET **ETIV| 00001530: 55 2A 2A 20 2E 0D 3B 0D 20 20 20 20 20 20 2E 50 |U** ..;. .P| 00001540: 41 47 45 0D 3B 20 20 20 20 20 2A 3D 20 20 20 3F |AGE.; *= ?| 00001550: 3F 3F 3F 3F 0D 3B 0D 3B 20 20 20 20 56 20 52 20 |????.;.; V R | 00001560: 49 20 4A 20 2E 0D 3B 0D 20 20 20 20 20 20 2E 45 |I J ..;. .E| 00001570: 4E 44 0D |ND. |
;.; S U B P R O G R A M M A ' S.;.;
V O O R.;.; E T I K E T . B A S
..;.; D E E L T W E E ..;.;.;
PROGRAMMA : ETIKET ..; BRONCODE :
ETDISK.ASM ..; OBJECTCODE : ETDISK.O
BJ ..; DISK : E2 ..; TAAL
: ASSEMBLER C64..; DATUM : 12
JULI 1995..; PROGRAMMEUR : J.H.VAN RIJ
N..;.;.; DECIM HEXA SYMBL FUNCTIE.;.; 26
432 6740 ..... ................;
................; ..... .... .
.... ................;
................; ..... .... ..... .....
...........; ..........
......; ..... .... ..... ...............
.; ................; ..
... .... ..... ................;
................; ..... .... .
.... ................;
................; ..... .... ..... .....
...........; ..........
......; ..... .... ..... ...............
.; ................; ..
... .... ..... ................;
................ .PAGE.;
SUBPROGRAMMA'S VERVOLG..;.; DECIM HEXA S
YMBL FUNCTIE.;.; ..... .... ..... ......
..........; ...........
.....; ..... .... ..... ................
; ................; ...
.. .... ..... ................;
................; ..... .... ..
... ................; .
...............; ..... .... ..... ......
..........; ...........
.....; ..... .... ..... ................
; ................; ...
.. .... ..... ................;
................; ..... .... ..
... ................; .
...............; ..... .... ..... ......
..........; ...........
.....; ..... .... ..... V R I J ..;
................;.; DE IN
DEZE SUBPROGRAMMA'S.; GEBRUIKTE CONSTAN
TEN MET HUN.; ADRESSEN..;.MB = 006
80 ; BEGINREG.MENU..ME = 00681 ;
EINDREG.MENU..;.LB = 00682 ;POS
.LINKS MENU..LE = 00683 ;POS.RCHT
S.MENU..;.RB = 00684 ; LIJN BOVEN
AAN..RE = 00685 ; LIJN ONDERAAN..
;.KB = 00686 ; LIJN LINKS..KE
= 00687 ; LIJN RECHTS.. .PAGE.P
B = 00688 ; BEGINR.ETIKET..PE
= 00689 ; EINDR.ETIKET..;.QB =
00690 ; BEGINK.ETIKET..QE = 006
91 ; EINDK.ETIKET..;.; PRINTBUFFERBEGI
NADRES..;.BUB0 = 00694 ; LS.PRINTBU
FF..BUB1 = 00695 ; HS.PRINTBUFF..;.
; VARIABEL VELD, TEVENS WERKVELD..;.YB
= 00696 ; REGEL BEGIN..YE =
00697 ; REGEL EIND..XB = 00698 ;
KOLOM BEGIN..XE = 00699 ; KOLOM
EIND..;.; *= ?????.;.; OPENEN 'VA
N' DISK: FILENR.6..;.DOPIN TXA
; RED. PHA ; (X)..
TYA ; RED. PHA
; (Y).. LDA #006 ; FILENUMMER.
. LDX #008 ; TOESTEL.. LD
Y #003 ; SEC.ADRES.. JSR $FFB
A ; **SETLFS**.; LDA <LENGTE> ;
FILENAAM..; LDX <LS ADRES>;.; LD
Y <HS ADRES>;. JSR $FFBD ; **SE
TNAM**. JSR $FFC0 ; ** OPEN **.
LDX #006 ; FILE #6.. JSR
$FFC6 ; **CHKIN **. PLA
; HERSTEL. TAY ; (Y).
. PLA ; HERSTEL. TAX
; (X).. RTS.;. .PAG
E.; *= ?????.;.; OPENEN 'NAAR' DI
SK: FILENR.8..;.DOPUI TXA ; RE
D. PHA ; (X).. TYA
; RED. PHA ; (Y)
.. LDA #008 ; FILENUMMER..
LDX #008 ; TOESTEL.. LDY #00
2 ; SEC.ADRES.. JSR $FFBA
; **SETLFS**.; LDA <LENGTE> ; FILEN
AAM..; LDX <LS ADRES>;.; LDY <HS
ADRES>;. JSR $FFBD ; **SETNAM*
*. JSR $FFC0 ; ** OPEN **.
LDX #008 ; FILE #8.. JSR $FF
C9 ; **CHKOUT**. PLA ;
HERSTEL. TAY ; (Y)..
PLA ; HERSTEL. TAX
; (X).. RTS.;.; *= ????
?.;.; SCHRIJF ASCII-CODE-TEKENRIJEN.; NA
AR DISK..; BEGINADRES TEVOREN.; IN VECTO
R (BUB1,BUB0)..;.DKARY LDA BUB0 ; B
UFFERBEGIN-. STA 253 ; ADRESV
ECTOR. LDA BUB1 ; IN VECTOR.
STA 254 ; (254,253).. CLC
; EERSTE MAAL.. BCC DKA
R3.DKAR1 STA 002 ; LENGTE. DAN.DKA
R2 INY ; TEKEN OPVOE-. LD
A (253),Y ; REN, PRINT.. JSR $FF
D2 ; **CHROUT**. CPY 002 ;
LAATSTE?. BCC DKAR2 ; NEE:VOLG
END.. SEC ; JA:OPTELLEN.
LDA 002 ; LENGTE+1 BIJ.
ADC 253 ; (254,253).. STA 2
53. LDA #000. ADC 254. S
TA 254.DKAR3 LDY #000 ; LENGTEBYTE
. LDA (253),Y ; OPVOEREN.. B
NE DKAR1 ; NUL? JA:UIT.. RTS
; NEE:TERUG..;.; *= ?????.
;.; SLUITEN DISK: FILENR.6..;.DCLIN LDA
#006. JSR $FFC3 ; **CLOSE **.
JSR $FFE7 ; **CLALL **. RTS
.;.; *= ?????.;.; SLUITEN DISK: FI
LENR.8..;.DCLUT LDA #008. JSR $FFC
3 ; **CLOSE **. JSR $FFE7 ;
**CLALL **. RTS.;.; *= ?????.
;.; DECODEREN ASCIITEKEN NAAR POKE2..;
IN- EN UITGANGSREGISTER A..;.SCODE .....
........ ; PCODESET-2.; ............
. ; KLEINE LTT..; NOP.;.; *= ?
????.;.; IN DE SCHERMPROGRAMMA'S:.; REDD
EN VAN (Y) SCAN: (170)..; ZETTEN VAN (Y)
VUL : (171)..; REGELINDEX (X) GEBRUIKT.
.;.; HET INLOOP-SUBPROGRAMMA ZET HET.; B
UFFERBEGINADRES IN (252,251)..;.INLOS ST
Y 170 ; RED (Y).. LDX PB
; SCHERMBEGIN-. JSR REGAD ;
ADRESVECTOR.;.; HET VULLEN MOET MET EEN
CYCLUS.; GEBEUREN TE VERGELIJKEN MET.; B
ASIC-SP.20 EN MET **ETIVU** ..;. .P
AGE.; *= ?????.;.; V R I J ..;.
.END.
> CLICK IMAGE PREVIEW FOR FULL MODAL