_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

ETDISK.ASM

FILE INFORMATION

FILENAME(S): ETDISK.ASM

FILE TYPE(S): SEQ

FILE SIZE: 4.1K

FIRST SEEN: 2025-11-30 21:27:07

APPEARS ON: 1 disk(s)

FILE HASH

78870c33e33977c91e62ba77550fb8047fe0a81c68030f9aaded474929a1f9b2

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
EXPERIMENT 02 ETDISK.ASM SEQ DuncanTwain 24 6 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 39  20 4A 55 4C 49 20 31 39  |   :  19 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 39 36 20 36 37 38 30  |E.;.; 26496 6780|
00000170: 20 44 4F 50 45 4E 20 44  49 53 4B 20 4F 50 45 4E  | DOPEN DISK OPEN|
00000180: 45 4E 20 4F 50 0D 3B 20  20 20 20 20 20 20 20 20  |EN OP.;         |
00000190: 20 20 20 20 20 20 20 20  20 49 4E 2D 20 4F 46 20  |         IN- OF |
000001A0: 4F 55 54 50 55 54 2E 0D  3B 20 2E 2E 2E 2E 2E 20  |OUTPUT..; ..... |
000001B0: 2E 2E 2E 2E 20 2E 2E 2E  2E 2E 20 2E 2E 2E 2E 2E  |.... ..... .....|
000001C0: 2E 2E 2E 2E 2E 2E 2E 2E  2E 2E 0D 3B 20 20 20 20  |...........;    |
000001D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 2E 2E  |              ..|
000001E0: 2E 2E 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 0D 3B 20  |..............; |
000001F0: 2E 2E 2E 2E 2E 20 2E 2E  2E 2E 20 2E 2E 2E 2E 2E  |..... .... .....|
00000200: 20 2E 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  | ...............|
00000210: 0D 3B 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.;              |
00000220: 20 20 20 20 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  |    ............|
00000230: 2E 2E 2E 0D 3B 20 2E 2E  2E 2E 2E 20 2E 2E 2E 2E  |....; ..... ....|
00000240: 20 2E 2E 2E 2E 2E 20 2E  2E 2E 2E 2E 2E 2E 2E 2E  | ..... .........|
00000250: 2E 2E 2E 2E 2E 2E 0D 3B  20 20 20 20 20 20 20 20  |.......;        |
00000260: 20 20 20 20 20 20 20 20  20 20 2E 2E 2E 2E 2E 2E  |          ......|
00000270: 2E 2E 2E 2E 2E 2E 2E 2E  2E 0D 3B 20 2E 2E 2E 2E  |..........; ....|
00000280: 2E 20 2E 2E 2E 2E 20 2E  2E 2E 2E 2E 20 2E 2E 2E  |. .... ..... ...|
00000290: 2E 2E 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 0D 3B 20 20  |.............;  |
000002A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002B0: 2E 2E 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 0D  |................|
000002C0: 3B 20 2E 2E 2E 2E 2E 20  2E 2E 2E 2E 20 2E 2E 2E  |; ..... .... ...|
000002D0: 2E 2E 20 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  |.. .............|
000002E0: 2E 2E 0D 3B 20 20 20 20  20 20 20 20 20 20 20 20  |...;            |
000002F0: 20 20 20 20 20 20 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  |      ..........|
00000300: 2E 2E 2E 2E 2E 0D 3B 20  2E 2E 2E 2E 2E 20 2E 2E  |......; ..... ..|
00000310: 2E 2E 20 2E 2E 2E 2E 2E  20 2E 2E 2E 2E 2E 2E 2E  |.. ..... .......|
00000320: 2E 2E 2E 2E 2E 2E 2E 2E  0D 3B 20 20 20 20 20 20  |.........;      |
00000330: 20 20 20 20 20 20 20 20  20 20 20 20 2E 2E 2E 2E  |            ....|
00000340: 2E 2E 2E 2E 2E 2E 2E 2E  2E 2E 2E 0D 3B 20 2E 2E  |............; ..|
00000350: 2E 2E 2E 20 2E 2E 2E 2E  20 2E 2E 2E 2E 2E 20 2E  |... .... ..... .|
00000360: 2E 2E 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 0D 3B  |...............;|
00000370: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000380: 20 20 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  |  ..............|
00000390: 2E 0D 3B 20 2E 2E 2E 2E  2E 20 2E 2E 2E 2E 20 2E  |..; ..... .... .|
000003A0: 2E 2E 2E 2E 20 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  |.... ...........|
000003B0: 2E 2E 2E 2E 0D 3B 20 20  20 20 20 20 20 20 20 20  |.....;          |
000003C0: 20 20 20 20 20 20 20 20  2E 2E 2E 2E 2E 2E 2E 2E  |        ........|
000003D0: 2E 2E 2E 2E 2E 2E 2E 0D  3B 0D 3B 20 53 55 42 50  |........;.; SUBP|
000003E0: 52 4F 47 52 41 4D 4D 41  27 53 20 56 45 52 56 4F  |ROGRAMMA'S VERVO|
000003F0: 4C 47 2E 0D 3B 0D 3B 20  44 45 43 49 4D 20 48 45  |LG..;.; DECIM HE|
00000400: 58 41 20 53 59 4D 42 4C  20 46 55 4E 43 54 49 45  |XA SYMBL FUNCTIE|
00000410: 0D 3B 0D 3B 20 2E 2E 2E  2E 2E 20 2E 2E 2E 2E 20  |.;.; ..... .... |
00000420: 2E 2E 2E 2E 2E 20 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  |..... ..........|
00000430: 2E 2E 2E 2E 2E 0D 3B 20  20 20 20 20 20 20 20 20  |......;         |
00000440: 20 20 20 20 20 20 20 20  20 2E 2E 2E 2E 2E 2E 2E  |         .......|
00000450: 2E 2E 2E 2E 2E 2E 2E 2E  0D 3B 20 2E 2E 2E 2E 2E  |.........; .....|
00000460: 20 2E 2E 2E 2E 20 2E 2E  2E 2E 2E 20 2E 2E 2E 2E  | .... ..... ....|
00000470: 2E 2E 2E 2E 2E 2E 2E 2E  2E 2E 2E 0D 3B 20 20 20  |............;   |
00000480: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2E  |               .|
00000490: 2E 2E 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 0D 3B  |...............;|
000004A0: 20 2E 2E 2E 2E 2E 20 2E  2E 2E 2E 20 2E 2E 2E 2E  | ..... .... ....|
000004B0: 2E 20 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  |. ..............|
000004C0: 2E 0D 3B 20 20 20 20 20  20 20 20 20 20 20 20 20  |..;             |
000004D0: 20 20 20 20 20 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  |     ...........|
000004E0: 2E 2E 2E 2E 0D 3B 20 2E  2E 2E 2E 2E 20 2E 2E 2E  |.....; ..... ...|
000004F0: 2E 20 2E 2E 2E 2E 2E 20  2E 2E 2E 2E 2E 2E 2E 2E  |. ..... ........|
00000500: 2E 2E 2E 2E 2E 2E 2E 0D  3B 20 20 20 20 20 20 20  |........;       |
00000510: 20 20 20 20 20 20 20 20  20 20 20 2E 2E 2E 2E 2E  |           .....|
00000520: 2E 2E 2E 2E 2E 2E 2E 2E  2E 2E 0D 3B 20 2E 2E 2E  |...........; ...|
00000530: 2E 2E 20 2E 2E 2E 2E 20  2E 2E 2E 2E 2E 20 2E 2E  |.. .... ..... ..|
00000540: 2E 2E 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 0D 3B 20  |..............; |
00000550: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000560: 20 2E 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  | ...............|
00000570: 0D 3B 20 2E 2E 2E 2E 2E  20 2E 2E 2E 2E 20 2E 2E  |.; ..... .... ..|
00000580: 2E 2E 2E 20 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  |... ............|
00000590: 2E 2E 2E 0D 3B 20 20 20  20 20 20 20 20 20 20 20  |....;           |
000005A0: 20 20 20 20 20 20 20 2E  2E 2E 2E 2E 2E 2E 2E 2E  |       .........|
000005B0: 2E 2E 2E 2E 2E 2E 0D 3B  20 2E 2E 2E 2E 2E 20 2E  |.......; ..... .|
000005C0: 2E 2E 2E 20 2E 2E 2E 2E  2E 20 2E 2E 2E 2E 2E 2E  |... ..... ......|
000005D0: 2E 2E 2E 2E 2E 2E 2E 2E  2E 0D 3B 20 20 20 20 20  |..........;     |
000005E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 2E 2E 2E  |             ...|
000005F0: 2E 2E 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 0D 3B 20 2E  |.............; .|
00000600: 2E 2E 2E 2E 20 2E 2E 2E  2E 20 2E 2E 2E 2E 2E 20  |.... .... ..... |
00000610: 2E 2E 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 0D  |................|
00000620: 3B 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |;               |
00000630: 20 20 20 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  |   .............|
00000640: 2E 2E 0D 3B 20 2E 2E 2E  2E 2E 20 2E 2E 2E 2E 20  |...; ..... .... |
00000650: 2E 2E 2E 2E 2E 20 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  |..... ..........|
00000660: 2E 2E 2E 2E 2E 0D 3B 20  20 20 20 20 20 20 20 20  |......;         |
00000670: 20 20 20 20 20 20 20 20  20 2E 2E 2E 2E 2E 2E 2E  |         .......|
00000680: 2E 2E 2E 2E 2E 2E 2E 2E  0D 3B 20 2E 2E 2E 2E 2E  |.........; .....|
00000690: 20 2E 2E 2E 2E 20 2E 2E  2E 2E 2E 20 20 20 56 20  | .... .....   V |
000006A0: 52 20 49 20 4A 20 2E 0D  3B 20 20 20 20 20 20 20  |R I J ..;       |
000006B0: 20 20 20 20 20 20 20 20  20 20 20 2E 2E 2E 2E 2E  |           .....|
000006C0: 2E 2E 2E 2E 2E 2E 2E 2E  2E 2E 0D 3B 0D 3B 20 44  |...........;.; D|
000006D0: 45 20 49 4E 20 44 45 5A  45 20 53 55 42 50 52 4F  |E IN DEZE SUBPRO|
000006E0: 47 52 41 4D 4D 41 27 53  0D 3B 20 47 45 42 52 55  |GRAMMA'S.; GEBRU|
000006F0: 49 4B 54 45 20 43 4F 4E  53 54 41 4E 54 45 4E 20  |IKTE CONSTANTEN |
00000700: 4D 45 54 20 48 55 4E 0D  3B 20 41 44 52 45 53 53  |MET HUN.; ADRESS|
00000710: 45 4E 2E 0D 3B 0D 4D 42  20 20 20 20 20 3D 20 20  |EN..;.MB     =  |
00000720: 20 30 30 36 38 30 20 20  3B 20 42 45 47 49 4E 52  | 00680  ; BEGINR|
00000730: 45 47 2E 4D 45 4E 55 2E  0D 4D 45 20 20 20 20 20  |EG.MENU..ME     |
00000740: 3D 20 20 20 30 30 36 38  31 20 20 3B 20 20 45 49  |=   00681  ;  EI|
00000750: 4E 44 52 45 47 2E 4D 45  4E 55 2E 0D 3B 0D 4C 42  |NDREG.MENU..;.LB|
00000760: 20 20 20 20 20 3D 20 20  20 30 30 36 38 32 20 20  |     =   00682  |
00000770: 3B 50 4F 53 2E 4C 49 4E  4B 53 20 4D 45 4E 55 2E  |;POS.LINKS MENU.|
00000780: 0D 4C 45 20 20 20 20 20  3D 20 20 20 30 30 36 38  |.LE     =   0068|
00000790: 33 20 20 3B 50 4F 53 2E  52 43 48 54 53 2E 4D 45  |3  ;POS.RCHTS.ME|
000007A0: 4E 55 2E 0D 3B 0D 52 42  20 20 20 20 20 3D 20 20  |NU..;.RB     =  |
000007B0: 20 30 30 36 38 34 20 20  3B 20 4C 49 4A 4E 20 42  | 00684  ; LIJN B|
000007C0: 4F 56 45 4E 41 41 4E 2E  0D 52 45 20 20 20 20 20  |OVENAAN..RE     |
000007D0: 3D 20 20 20 30 30 36 38  35 20 20 3B 20 4C 49 4A  |=   00685  ; LIJ|
000007E0: 4E 20 4F 4E 44 45 52 41  41 4E 2E 0D 3B 0D 4B 42  |N ONDERAAN..;.KB|
000007F0: 20 20 20 20 20 3D 20 20  20 30 30 36 38 36 20 20  |     =   00686  |
00000800: 3B 20 4C 49 4A 4E 20 4C  49 4E 4B 53 2E 0D 4B 45  |; LIJN LINKS..KE|
00000810: 20 20 20 20 20 3D 20 20  20 30 30 36 38 37 20 20  |     =   00687  |
00000820: 3B 20 4C 49 4A 4E 20 52  45 43 48 54 53 2E 0D 3B  |; LIJN RECHTS..;|
00000830: 0D 50 42 20 20 20 20 20  3D 20 20 20 30 30 36 38  |.PB     =   0068|
00000840: 38 20 20 3B 20 42 45 47  49 4E 52 2E 45 54 49 4B  |8  ; BEGINR.ETIK|
00000850: 45 54 2E 0D 50 45 20 20  20 20 20 3D 20 20 20 30  |ET..PE     =   0|
00000860: 30 36 38 39 20 20 3B 20  20 45 49 4E 44 52 2E 45  |0689  ;  EINDR.E|
00000870: 54 49 4B 45 54 2E 0D 3B  0D 51 42 20 20 20 20 20  |TIKET..;.QB     |
00000880: 3D 20 20 20 30 30 36 39  30 20 20 3B 20 42 45 47  |=   00690  ; BEG|
00000890: 49 4E 4B 2E 45 54 49 4B  45 54 2E 0D 51 45 20 20  |INK.ETIKET..QE  |
000008A0: 20 20 20 3D 20 20 20 30  30 36 39 31 20 20 3B 20  |   =   00691  ; |
000008B0: 20 45 49 4E 44 4B 2E 45  54 49 4B 45 54 2E 0D 3B  | EINDK.ETIKET..;|
000008C0: 0D 3B 20 50 52 49 4E 54  42 55 46 46 45 52 42 45  |.; PRINTBUFFERBE|
000008D0: 47 49 4E 41 44 52 45 53  2E 0D 3B 0D 42 55 42 30  |GINADRES..;.BUB0|
000008E0: 20 20 20 3D 20 20 20 30  30 36 39 34 20 20 3B 20  |   =   00694  ; |
000008F0: 4C 53 2E 50 52 49 4E 54  42 55 46 46 2E 0D 42 55  |LS.PRINTBUFF..BU|
00000900: 42 31 20 20 20 3D 20 20  20 30 30 36 39 35 20 20  |B1   =   00695  |
00000910: 3B 20 48 53 2E 50 52 49  4E 54 42 55 46 46 2E 0D  |; HS.PRINTBUFF..|
00000920: 3B 0D 3B 20 56 41 52 49  41 42 45 4C 20 56 45 4C  |;.; VARIABEL VEL|
00000930: 44 2C 20 54 45 56 45 4E  53 20 57 45 52 4B 56 45  |D, TEVENS WERKVE|
00000940: 4C 44 2E 0D 3B 0D 59 42  20 20 20 20 20 3D 20 20  |LD..;.YB     =  |
00000950: 20 30 30 36 39 36 20 20  3B 20 52 45 47 45 4C 20  | 00696  ; REGEL |
00000960: 42 45 47 49 4E 2E 0D 59  45 20 20 20 20 20 3D 20  |BEGIN..YE     = |
00000970: 20 20 30 30 36 39 37 20  20 3B 20 52 45 47 45 4C  |  00697  ; REGEL|
00000980: 20 45 49 4E 44 2E 0D 58  42 20 20 20 20 20 3D 20  | EIND..XB     = |
00000990: 20 20 30 30 36 39 38 20  20 3B 20 4B 4F 4C 4F 4D  |  00698  ; KOLOM|
000009A0: 20 42 45 47 49 4E 2E 0D  58 45 20 20 20 20 20 3D  | BEGIN..XE     =|
000009B0: 20 20 20 30 30 36 39 39  20 20 3B 20 4B 4F 4C 4F  |   00699  ; KOLO|
000009C0: 4D 20 45 49 4E 44 2E 0D  3B 0D 20 20 20 20 20 20  |M EIND..;.      |
000009D0: 2A 3D 20 20 20 32 36 34  39 36 0D 3B 0D 3B 20 20  |*=   26496.;.;  |
000009E0: 4F 50 45 4E 45 4E 20 27  56 41 4E 27 20 20 44 49  |OPENEN 'VAN'  DI|
000009F0: 53 4B 3A 20 46 49 4C 45  4E 52 2E 36 2E 0D 3B 20  |SK: FILENR.6..; |
00000A00: 20 4F 50 45 4E 45 4E 20  27 4E 41 41 52 27 20 44  | OPENEN 'NAAR' D|
00000A10: 49 53 4B 3A 20 46 49 4C  45 4E 52 2E 38 2E 0D 3B  |ISK: FILENR.8..;|
00000A20: 0D 3B 20 20 54 45 20 56  4F 52 45 4E 20 30 30 36  |.;  TE VOREN 006|
00000A30: 39 36 20 4D 45 54 20 46  49 4C 45 4E 55 4D 4D 45  |96 MET FILENUMME|
00000A40: 52 2E 0D 3B 0D 44 4F 50  49 4E 20 54 58 41 20 20  |R..;.DOPIN TXA  |
00000A50: 20 20 20 20 20 20 20 20  20 3B 20 52 45 44 0D 20  |         ; RED. |
00000A60: 20 20 20 20 20 50 48 41  20 20 20 20 20 20 20 20  |     PHA        |
00000A70: 20 20 20 3B 20 28 58 29  2E 0D 20 20 20 20 20 20  |   ; (X)..      |
00000A80: 54 59 41 20 20 20 20 20  20 20 20 20 20 20 3B 20  |TYA           ; |
00000A90: 52 45 44 0D 20 20 20 20  20 20 50 48 41 20 20 20  |RED.      PHA   |
00000AA0: 20 20 20 20 20 20 20 20  3B 20 28 59 29 2E 0D 20  |        ; (Y).. |
00000AB0: 20 20 20 20 20 4C 44 41  20 20 30 30 36 39 36 20  |     LDA  00696 |
00000AC0: 20 20 20 3B 20 49 4E 20  30 30 36 39 36 0D 20 20  |   ; IN 00696.  |
00000AD0: 20 20 20 20 43 4D 50 20  23 30 30 38 20 20 20 20  |    CMP #008    |
00000AE0: 20 20 3B 20 45 45 4E 20  38 3F 0D 20 20 20 20 20  |  ; EEN 8?.     |
00000AF0: 20 42 45 51 20 20 44 4F  50 49 4F 20 20 20 20 3B  | BEQ  DOPIO    ;|
00000B00: 20 4E 45 45 3A 5A 45 54  20 36 2E 0D 20 20 20 20  | NEE:ZET 6..    |
00000B10: 20 20 4C 44 41 20 23 30  30 36 0D 20 20 20 20 20  |  LDA #006.     |
00000B20: 20 53 54 41 20 20 30 30  36 39 36 0D 44 4F 50 49  | STA  00696.DOPI|
00000B30: 4F 20 4C 44 58 20 23 30  30 38 20 20 20 20 20 20  |O LDX #008      |
00000B40: 3B 20 54 4F 45 53 54 45  4C 2E 0D 20 20 20 20 20  |; TOESTEL..     |
00000B50: 20 4C 44 59 20 23 30 30  33 20 20 20 20 20 20 3B  | LDY #003      ;|
00000B60: 20 53 45 43 2E 41 44 52  45 53 2E 0D 20 20 20 20  | SEC.ADRES..    |
00000B70: 20 20 4A 53 52 20 20 24  46 46 42 41 20 20 20 20  |  JSR  $FFBA    |
00000B80: 3B 20 2A 2A 53 45 54 4C  46 53 2A 2A 0D 20 20 20  |; **SETLFS**.   |
00000B90: 20 20 20 4C 44 41 20 30  30 36 39 37 20 20 20 20  |   LDA 00697    |
00000BA0: 20 3B 20 46 49 4C 45 4E  41 41 4D 2E 0D 20 20 20  | ; FILENAAM..   |
00000BB0: 20 20 20 4C 44 58 20 30  30 36 39 38 20 20 20 20  |   LDX 00698    |
00000BC0: 20 3B 20 4E 41 41 4D 2D  41 44 52 45 53 0D 20 20  | ; NAAM-ADRES.  |
00000BD0: 20 20 20 20 4C 44 59 20  30 30 36 39 39 20 20 20  |    LDY 00699   |
00000BE0: 20 20 3B 20 4C 41 41 47  2C 20 48 4F 4F 47 2E 0D  |  ; LAAG, HOOG..|
00000BF0: 20 20 20 20 20 20 4A 53  52 20 20 24 46 46 42 44  |      JSR  $FFBD|
00000C00: 20 20 20 20 3B 20 2A 2A  53 45 54 4E 41 4D 2A 2A  |    ; **SETNAM**|
00000C10: 0D 20 20 20 20 20 20 4A  53 52 20 20 24 46 46 43  |.      JSR  $FFC|
00000C20: 30 20 20 20 20 3B 20 2A  2A 20 4F 50 45 4E 20 2A  |0    ; ** OPEN *|
00000C30: 2A 0D 20 20 20 20 20 20  4C 44 58 20 30 30 36 39  |*.      LDX 0069|
00000C40: 36 20 20 20 20 20 3B 20  46 49 4C 45 20 23 36 2F  |6     ; FILE #6/|
00000C50: 23 38 2E 0D 20 20 20 20  20 20 43 50 58 20 23 30  |#8..      CPX #0|
00000C60: 30 38 0D 20 20 20 20 20  20 42 45 51 20 20 44 4F  |08.      BEQ  DO|
00000C70: 50 49 50 0D 20 20 20 20  20 20 4A 53 52 20 20 24  |PIP.      JSR  $|
00000C80: 46 46 43 36 20 20 20 20  3B 20 2A 2A 43 48 4B 49  |FFC6    ; **CHKI|
00000C90: 4E 20 2A 2A 0D 20 20 20  20 20 20 43 4C 43 0D 20  |N **.      CLC. |
00000CA0: 20 20 20 20 20 42 43 43  20 20 44 4F 50 45 5A 20  |     BCC  DOPEZ |
00000CB0: 20 20 20 3B 20 28 59 29  2E 0D 44 4F 50 49 50 20  |   ; (Y)..DOPIP |
00000CC0: 4A 53 52 20 20 24 46 46  43 39 20 20 20 20 3B 20  |JSR  $FFC9    ; |
00000CD0: 2A 2A 43 48 4B 4F 55 54  2A 2A 0D 44 4F 50 45 5A  |**CHKOUT**.DOPEZ|
00000CE0: 20 50 4C 41 20 20 20 20  20 20 20 20 20 20 20 3B  | PLA           ;|
00000CF0: 20 48 45 52 53 54 45 4C  0D 20 20 20 20 20 20 54  | HERSTEL.      T|
00000D00: 41 59 20 20 20 20 20 20  20 20 20 20 20 3B 20 28  |AY           ; (|
00000D10: 59 29 2E 0D 20 20 20 20  20 20 50 4C 41 20 20 20  |Y)..      PLA   |
00000D20: 20 20 20 20 20 20 20 20  3B 20 48 45 52 53 54 45  |        ; HERSTE|
00000D30: 4C 0D 20 20 20 20 20 20  54 41 58 20 20 20 20 20  |L.      TAX     |
00000D40: 20 20 20 20 20 20 3B 20  28 58 29 2E 0D 20 20 20  |      ; (X)..   |
00000D50: 20 20 20 52 54 53 0D 3B  0D 3B 20 20 20 20 20 2A  |   RTS.;.;     *|
00000D60: 3D 20 20 20 3F 3F 3F 3F  3F 0D 3B 0D 3B 20 53 4C  |=   ?????.;.; SL|
00000D70: 55 49 54 45 4E 20 44 49  53 4B 3A 20 46 49 4C 45  |UITEN DISK: FILE|
00000D80: 4E 52 2E 36 20 4F 46 20  38 2E 0D 3B 0D 44 43 4C  |NR.6 OF 8..;.DCL|
00000D90: 4F 53 20 4C 44 41 20 20  30 30 36 39 36 0D 20 20  |OS LDA  00696.  |
00000DA0: 20 20 20 20 4A 53 52 20  20 24 46 46 43 33 20 20  |    JSR  $FFC3  |
00000DB0: 20 20 3B 20 2A 2A 43 4C  4F 53 45 20 2A 2A 0D 20  |  ; **CLOSE **. |
00000DC0: 20 20 20 20 20 4A 53 52  20 20 24 46 46 45 37 20  |     JSR  $FFE7 |
00000DD0: 20 20 20 3B 20 2A 2A 43  4C 41 4C 4C 20 2A 2A 0D  |   ; **CLALL **.|
00000DE0: 20 20 20 20 20 20 52 54  53 0D 3B 0D 3B 20 20 20  |      RTS.;.;   |
00000DF0: 20 20 2A 3D 20 20 20 3F  3F 3F 3F 3F 0D 3B 0D 3B  |  *=   ?????.;.;|
00000E00: 20 44 45 43 4F 44 45 52  45 4E 20 41 53 43 49 49  | DECODEREN ASCII|
00000E10: 54 45 4B 45 4E 20 4E 41  41 52 20 50 4F 4B 45 32  |TEKEN NAAR POKE2|
00000E20: 2E 0D 3B 20 20 49 4E 2D  20 45 4E 20 55 49 54 47  |..;  IN- EN UITG|
00000E30: 41 4E 47 53 52 45 47 49  53 54 45 52 20 41 2E 0D  |ANGSREGISTER A..|
00000E40: 3B 0D 53 43 4F 44 45 20  2E 2E 2E 2E 2E 2E 2E 2E  |;.SCODE ........|
00000E50: 2E 2E 2E 2E 2E 20 3B 20  50 43 4F 44 45 53 45 54  |..... ; PCODESET|
00000E60: 2D 32 0D 3B 20 20 20 20  20 2E 2E 2E 2E 2E 2E 2E  |-2.;     .......|
00000E70: 2E 2E 2E 2E 2E 2E 20 3B  20 4B 4C 45 49 4E 45 20  |...... ; KLEINE |
00000E80: 4C 54 54 2E 0D 3B 20 20  20 20 20 4E 4F 50 0D 3B  |LTT..;     NOP.;|
00000E90: 0D 3B 20 20 20 20 20 2A  3D 20 20 20 3F 3F 3F 3F  |.;     *=   ????|
00000EA0: 3F 0D 3B 0D 3B 20 49 4E  20 44 45 20 53 43 48 45  |?.;.; IN DE SCHE|
00000EB0: 52 4D 50 52 4F 47 52 41  4D 4D 41 27 53 3A 0D 3B  |RMPROGRAMMA'S:.;|
00000EC0: 20 52 45 44 44 45 4E 20  56 41 4E 20 28 59 29 20  | REDDEN VAN (Y) |
00000ED0: 53 43 41 4E 3A 20 28 31  37 30 29 2E 0D 3B 20 5A  |SCAN: (170)..; Z|
00000EE0: 45 54 54 45 4E 20 56 41  4E 20 28 59 29 20 56 55  |ETTEN VAN (Y) VU|
00000EF0: 4C 20 3A 20 28 31 37 31  29 2E 0D 3B 20 52 45 47  |L : (171)..; REG|
00000F00: 45 4C 49 4E 44 45 58 20  28 58 29 20 47 45 42 52  |ELINDEX (X) GEBR|
00000F10: 55 49 4B 54 2E 0D 3B 0D  3B 20 48 45 54 20 49 4E  |UIKT..;.; HET IN|
00000F20: 4C 4F 4F 50 2D 53 55 42  50 52 4F 47 52 41 4D 4D  |LOOP-SUBPROGRAMM|
00000F30: 41 20 5A 45 54 20 48 45  54 0D 3B 20 42 55 46 46  |A ZET HET.; BUFF|
00000F40: 45 52 42 45 47 49 4E 41  44 52 45 53 20 49 4E 20  |ERBEGINADRES IN |
00000F50: 28 32 35 32 2C 32 35 31  29 2E 0D 3B 0D 49 4E 4C  |(252,251)..;.INL|
00000F60: 4F 53 20 53 54 59 20 20  31 37 30 20 20 20 20 20  |OS STY  170     |
00000F70: 20 3B 20 52 45 44 20 28  59 29 2E 0D 20 20 20 20  | ; RED (Y)..    |
00000F80: 20 20 4C 44 58 20 20 50  42 20 20 20 20 20 20 20  |  LDX  PB       |
00000F90: 3B 20 53 43 48 45 52 4D  42 45 47 49 4E 2D 0D 20  |; SCHERMBEGIN-. |
00000FA0: 20 20 20 20 20 4A 53 52  20 20 52 45 47 41 44 20  |     JSR  REGAD |
00000FB0: 20 20 20 3B 20 41 44 52  45 53 56 45 43 54 4F 52  |   ; ADRESVECTOR|
00000FC0: 0D 3B 0D 3B 20 48 45 54  20 56 55 4C 4C 45 4E 20  |.;.; HET VULLEN |
00000FD0: 4D 4F 45 54 20 4D 45 54  20 45 45 4E 20 43 59 43  |MOET MET EEN CYC|
00000FE0: 4C 55 53 0D 3B 20 47 45  42 45 55 52 45 4E 20 54  |LUS.; GEBEUREN T|
00000FF0: 45 20 56 45 52 47 45 4C  49 4A 4B 45 4E 20 4D 45  |E VERGELIJKEN ME|
00001000: 54 0D 3B 20 42 41 53 49  43 2D 53 50 2E 32 30 20  |T.; BASIC-SP.20 |
00001010: 45 4E 20 4D 45 54 20 2A  2A 45 54 49 56 55 2A 2A  |EN MET **ETIVU**|
00001020: 20 2E 0D 3B 0D 3B 0D 3B  20 20 20 20 20 2A 3D 20  | ..;.;.;     *= |
00001030: 20 20 3F 3F 3F 3F 3F 0D  3B 0D 3B 20 20 20 20 56  |  ?????.;.;    V|
00001040: 20 52 20 49 20 4A 20 2E  0D 3B 0D 20 20 20 20 20  | R I J ..;.     |
00001050: 20 2E 45 4E 44 0D                                 | .END.          |

;.; 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       :  19
 JULI 1995..; PROGRAMMEUR :  J.H.VAN RIJ
N..;.;.; DECIM HEXA SYMBL FUNCTIE.;.; 26
496 6780 DOPEN DISK OPENEN OP.;         
         IN- OF OUTPUT..; ..... .... ...
.. ................;                  ..
..............; ..... .... ..... .......
.........;                  ............
....; ..... .... ..... ................;
                  ................; ....
. .... ..... ................;          
        ................; ..... .... ...
.. ................;                  ..
..............; ..... .... ..... .......
.........;                  ............
....; ..... .... ..... ................;
                  ................; ....
. .... ..... ................;          
        ................;.; SUBPROGRAMMA
'S VERVOLG..;.; DECIM HEXA SYMBL FUNCTIE
.;.; ..... .... ..... ................; 
                 ................; .....
 .... ..... ................;           
       ................; ..... .... ....
. ................;                  ...
.............; ..... .... ..... ........
........;                  .............
...; ..... .... ..... ................; 
                 ................; .....
 .... ..... ................;           
       ................; ..... .... ....
. ................;                  ...
.............; ..... .... ..... ........
........;                  .............
...; ..... .... ..... ................; 
                 ................; .....
 .... .....   V R I J ..;               
   ................;.; DE IN DEZE SUBPRO
GRAMMA'S.; GEBRUIKTE CONSTANTEN MET HUN.
; ADRESSEN..;.MB     =   00680  ; BEGINR
EG.MENU..ME     =   00681  ;  EINDREG.ME
NU..;.LB     =   00682  ;POS.LINKS MENU.
.LE     =   00683  ;POS.RCHTS.MENU..;.RB
     =   00684  ; LIJN BOVENAAN..RE     
=   00685  ; LIJN ONDERAAN..;.KB     =  
 00686  ; LIJN LINKS..KE     =   00687  
; LIJN RECHTS..;.PB     =   00688  ; BEG
INR.ETIKET..PE     =   00689  ;  EINDR.E
TIKET..;.QB     =   00690  ; BEGINK.ETIK
ET..QE     =   00691  ;  EINDK.ETIKET..;
.; PRINTBUFFERBEGINADRES..;.BUB0   =   0
0694  ; LS.PRINTBUFF..BUB1   =   00695  
; HS.PRINTBUFF..;.; VARIABEL VELD, TEVEN
S WERKVELD..;.YB     =   00696  ; REGEL 
BEGIN..YE     =   00697  ; REGEL EIND..X
B     =   00698  ; KOLOM BEGIN..XE     =
   00699  ; KOLOM EIND..;.      *=   264
96.;.;  OPENEN 'VAN'  DISK: FILENR.6..; 
 OPENEN 'NAAR' DISK: FILENR.8..;.;  TE V
OREN 00696 MET FILENUMMER..;.DOPIN TXA  
         ; RED.      PHA           ; (X)
..      TYA           ; RED.      PHA   
        ; (Y)..      LDA  00696    ; IN 
00696.      CMP #008      ; EEN 8?.     
 BEQ  DOPIO    ; NEE:ZET 6..      LDA #0
06.      STA  00696.DOPIO LDX #008      
; TOESTEL..      LDY #003      ; SEC.ADR
ES..      JSR  $FFBA    ; **SETLFS**.   
   LDA 00697     ; FILENAAM..      LDX 0
0698     ; NAAM-ADRES.      LDY 00699   
  ; LAAG, HOOG..      JSR  $FFBD    ; **
SETNAM**.      JSR  $FFC0    ; ** OPEN *
*.      LDX 00696     ; FILE #6/#8..    
  CPX #008.      BEQ  DOPIP.      JSR  $
FFC6    ; **CHKIN **.      CLC.      BCC
  DOPEZ    ; (Y)..DOPIP JSR  $FFC9    ; 
**CHKOUT**.DOPEZ PLA           ; HERSTEL
.      TAY           ; (Y)..      PLA   
        ; HERSTEL.      TAX           ; 
(X)..      RTS.;.;     *=   ?????.;.; SL
UITEN DISK: FILENR.6 OF 8..;.DCLOS LDA  
00696.      JSR  $FFC3    ; **CLOSE **. 
     JSR  $FFE7    ; **CLALL **.      RT
S.;.;     *=   ?????.;.; DECODEREN ASCII
TEKEN NAAR POKE2..;  IN- EN UITGANGSREGI
STER A..;.SCODE ............. ; PCODESET
-2.;     ............. ; KLEINE LTT..;  
   NOP.;.;     *=   ?????.;.; IN DE SCHE
RMPROGRAMMA'S:.; REDDEN VAN (Y) SCAN: (1
70)..; ZETTEN VAN (Y) VUL : (171)..; REG
ELINDEX (X) GEBRUIKT..;.; HET INLOOP-SUB
PROGRAMMA ZET HET.; BUFFERBEGINADRES IN 
(252,251)..;.INLOS STY  170      ; RED (
Y)..      LDX  PB       ; SCHERMBEGIN-. 
     JSR  REGAD    ; ADRESVECTOR.;.; HET
 VULLEN MOET MET EEN CYCLUS.; GEBEUREN T
E VERGELIJKEN MET.; BASIC-SP.20 EN MET *
*ETIVU** ..;.;.;     *=   ?????.;.;    V
 R I J ..;.      .END.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL