GEOS.START
FILE INFORMATION
FILENAME(S): GEOS.START
FILE TYPE(S): SEQ
FILE SIZE: 6.6K
FIRST SEEN: 2025-10-20 14:31:48
APPEARS ON: 3 disk(s)
FILE HASH
91af15a5d6cf6d5c94b0ba360a61afbefb33439551f73830c475ba479068f916
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| G T 22 0 | GEOS.START | SEQ | Treasure Chest - Klaus Der Suhler | 22 | 17 | DOWNLOAD FILE |
| DISK BACKUP | GEOS.START | SEQ | The BAM Archive | 2 | 15 | DOWNLOAD FILE |
| DISK BACKUP | GEOS.START | SEQ | The BAM Archive | 2 | 15 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 2E 4F 50 54 20 45 52 52 4F 52 53 2C 4E 4F 4C 49 |.OPT ERRORS,NOLI| 00000010: 53 54 0D 3B 0D 3B 20 20 54 48 49 53 20 52 4F 55 |ST.;.; THIS ROU| 00000020: 54 49 4E 45 20 44 45 4C 45 54 45 53 20 41 4E 44 |TINE DELETES AND| 00000030: 20 52 45 53 41 56 45 53 0D 3B 20 20 20 20 54 48 | RESAVES.; TH| 00000040: 45 20 50 52 4F 47 52 41 4D 20 49 4E 20 41 20 47 |E PROGRAM IN A G| 00000050: 45 4F 53 20 46 4F 52 4D 41 54 0D 3B 0D 3B 20 20 |EOS FORMAT.;.; | 00000060: 50 52 47 4E 41 4D 20 4D 55 53 54 20 42 45 20 54 |PRGNAM MUST BE T| 00000070: 48 45 20 4C 41 42 45 4C 20 46 4F 52 20 54 48 45 |HE LABEL FOR THE| 00000080: 0D 3B 20 20 20 20 46 49 4C 45 4E 41 4D 45 0D 3B |.; FILENAME.;| 00000090: 20 20 49 4E 46 4F 20 4D 55 53 54 20 42 45 20 54 | INFO MUST BE T| 000000A0: 48 45 20 4C 41 42 45 4C 20 46 4F 52 20 54 48 45 |HE LABEL FOR THE| 000000B0: 20 49 4E 46 4F 0D 3B 20 20 20 20 53 45 43 54 4F | INFO.; SECTO| 000000C0: 52 20 44 41 54 41 0D 3B 20 20 54 48 45 20 49 4E |R DATA.; THE IN| 000000D0: 46 4F 20 53 45 43 54 4F 52 20 49 53 20 57 52 49 |FO SECTOR IS WRI| 000000E0: 54 54 45 4E 20 41 47 41 49 4E 20 54 4F 0D 3B 20 |TTEN AGAIN TO.; | 000000F0: 20 20 20 41 4C 4C 4F 57 20 54 48 45 20 54 45 58 | ALLOW THE TEX| 00000100: 54 20 46 49 45 4C 44 20 54 4F 20 42 45 20 50 52 |T FIELD TO BE PR| 00000110: 45 53 45 54 0D 3B 20 20 44 45 53 4B 54 4F 50 20 |ESET.; DESKTOP | 00000120: 49 53 20 52 45 4C 4F 41 44 45 44 20 41 46 54 45 |IS RELOADED AFTE| 00000130: 52 20 54 48 45 0D 3B 20 20 20 20 4F 50 45 52 41 |R THE.; OPERA| 00000140: 54 49 4F 4E 20 49 53 20 43 4F 4D 50 4C 45 54 45 |TION IS COMPLETE| 00000150: 44 0D 3B 0D 3B 20 54 48 45 53 45 20 44 45 46 49 |D.;.; THESE DEFI| 00000160: 4E 45 20 55 53 45 46 55 4C 20 47 45 4F 53 20 4D |NE USEFUL GEOS M| 00000170: 45 4D 4F 52 59 0D 3B 20 20 20 4C 4F 43 41 54 49 |EMORY.; LOCATI| 00000180: 4F 4E 53 0D 52 36 35 31 30 20 20 3D 24 30 31 0D |ONS.R6510 =$01.| 00000190: 47 50 4E 54 31 20 20 3D 24 30 32 0D 47 50 4E 54 |GPNT1 =$02.GPNT| 000001A0: 32 20 20 3D 24 30 34 0D 54 52 41 43 4B 20 20 3D |2 =$04.TRACK =| 000001B0: 24 30 34 0D 53 45 43 54 4F 52 20 3D 24 30 35 0D |$04.SECTOR =$05.| 000001C0: 52 4F 57 20 20 20 20 3D 24 30 35 0D 47 50 4E 54 |ROW =$05.GPNT| 000001D0: 33 20 20 3D 24 30 36 0D 42 4F 58 53 49 5A 20 3D |3 =$06.BOXSIZ =| 000001E0: 24 30 36 0D 42 58 54 4F 50 20 20 3D 24 30 36 0D |$06.BXTOP =$06.| 000001F0: 42 58 42 4F 54 20 20 3D 24 30 37 0D 47 50 4E 54 |BXBOT =$07.GPNT| 00000200: 34 20 20 3D 24 30 38 0D 42 58 4C 45 46 54 20 3D |4 =$08.BXLEFT =| 00000210: 24 30 38 0D 42 55 46 50 4E 54 20 3D 24 30 41 0D |$08.BUFPNT =$0A.| 00000220: 42 58 52 49 54 45 20 3D 24 30 41 0D 44 49 52 50 |BXRITE =$0A.DIRP| 00000230: 4E 54 20 3D 24 30 43 0D 46 49 4C 50 4E 54 20 3D |NT =$0C.FILPNT =| 00000240: 24 30 45 0D 53 47 54 59 50 45 20 3D 24 31 30 0D |$0E.SGTYPE =$10.| 00000250: 4D 41 58 46 49 4C 20 3D 24 31 31 0D 44 49 52 50 |MAXFIL =$11.DIRP| 00000260: 54 32 20 3D 24 31 34 0D 44 50 41 47 45 20 20 3D |T2 =$14.DPAGE =| 00000270: 24 31 36 0D 43 4C 41 53 53 50 20 3D 24 31 36 0D |$16.CLASSP =$16.| 00000280: 43 4F 4C 55 4D 4E 20 3D 24 31 38 0D 50 41 54 45 |COLUMN =$18.PATE| 00000290: 52 4E 20 3D 24 32 32 0D 49 4E 50 50 4E 54 20 3D |RN =$22.INPPNT =| 000002A0: 24 32 34 0D 46 4F 4E 54 44 54 20 3D 24 32 36 0D |$24.FONTDT =$26.| 000002B0: 50 4C 49 4E 45 20 20 3D 24 32 36 0D 42 53 4C 45 |PLINE =$26.BSLE| 000002C0: 4E 20 20 3D 24 32 37 0D 50 54 53 49 5A 45 20 3D |N =$27.PTSIZE =| 000002D0: 24 32 39 0D 42 53 50 4E 54 53 20 3D 24 32 41 0D |$29.BSPNTS =$2A.| 000002E0: 42 53 50 4E 54 20 20 3D 24 32 43 0D 53 54 59 4C |BSPNT =$2C.STYL| 000002F0: 45 20 20 3D 24 32 45 0D 53 43 4E 46 4C 47 20 3D |E =$2E.SCNFLG =| 00000300: 24 32 46 0D 4D 53 46 4C 41 47 20 3D 24 33 30 0D |$2F.MSFLAG =$30.| 00000310: 4D 53 50 4E 54 20 20 3D 24 33 31 0D 54 4F 50 4D |MSPNT =$31.TOPM| 00000320: 20 20 20 3D 24 33 33 0D 42 4F 54 4D 20 20 20 3D | =$33.BOTM =| 00000330: 24 33 34 0D 4C 45 46 54 4D 20 20 3D 24 33 35 0D |$34.LEFTM =$35.| 00000340: 52 49 47 48 54 4D 20 3D 24 33 37 0D 49 4E 50 46 |RIGHTM =$37.INPF| 00000350: 4C 47 20 3D 24 33 39 0D 4D 4F 55 53 45 58 20 3D |LG =$39.MOUSEX =| 00000360: 24 33 41 0D 4D 4F 55 53 45 59 20 3D 24 33 43 0D |$3A.MOUSEY =$3C.| 00000370: 43 42 50 4E 54 20 20 3D 24 33 46 0D 4A 4D 50 56 |CBPNT =$3F.JMPV| 00000380: 45 43 20 3D 24 34 31 0D 57 49 4E 50 4E 54 20 3D |EC =$41.WINPNT =| 00000390: 24 34 33 0D 3B 0D 53 43 52 45 4E 32 20 3D 24 36 |$43.;.SCREN2 =$6| 000003A0: 30 30 30 0D 3B 0D 50 44 52 53 54 20 20 3D 24 37 |000.;.PDRST =$7| 000003B0: 39 30 30 0D 50 44 53 45 4C 20 20 3D 24 37 39 30 |900.PDSEL =$790| 000003C0: 33 0D 50 44 4F 55 54 20 20 3D 24 37 39 30 36 0D |3.PDOUT =$7906.| 000003D0: 50 44 43 4C 4F 53 20 3D 24 37 39 30 39 0D 50 44 |PDCLOS =$7909.PD| 000003E0: 53 49 5A 45 20 3D 24 37 39 30 43 0D 50 44 4E 41 |SIZE =$790C.PDNA| 000003F0: 4D 45 20 3D 24 37 39 30 46 0D 3B 0D 42 55 46 30 |ME =$790F.;.BUF0| 00000400: 20 20 20 3D 24 38 30 30 30 0D 42 55 46 31 20 20 | =$8000.BUF1 | 00000410: 20 3D 24 38 31 30 30 0D 42 55 46 32 20 20 20 3D | =$8100.BUF2 =| 00000420: 24 38 32 30 30 0D 42 55 46 33 20 20 20 3D 24 38 |$8200.BUF3 =$8| 00000430: 33 30 30 0D 3B 0D 44 45 4E 54 52 59 20 3D 24 38 |300.;.DENTRY =$8| 00000440: 34 30 30 0D 44 4E 41 4D 45 30 20 3D 24 38 34 31 |400.DNAME0 =$841| 00000450: 45 0D 44 4E 41 4D 45 31 20 3D 24 38 34 33 30 0D |E.DNAME1 =$8430.| 00000460: 44 4E 41 4D 45 32 20 3D 24 38 34 34 32 0D 44 4E |DNAME2 =$8442.DN| 00000470: 41 4D 45 33 20 3D 24 38 34 35 34 0D 42 4F 4F 54 |AME3 =$8454.BOOT| 00000480: 44 56 20 3D 24 38 34 38 36 0D 43 55 52 44 52 56 |DV =$8486.CURDRV| 00000490: 20 3D 24 38 34 38 39 0D 44 52 56 46 4C 47 20 3D | =$8489.DRVFLG =| 000004A0: 24 38 34 38 41 0D 46 4F 52 4D 41 54 20 3D 24 38 |$848A.FORMAT =$8| 000004B0: 34 38 42 0D 53 4B 45 57 20 20 20 3D 24 38 34 38 |48B.SKEW =$848| 000004C0: 43 0D 4E 55 4D 44 52 56 20 3D 24 38 34 38 44 0D |C.NUMDRV =$848D.| 000004D0: 43 48 41 49 4E 20 20 3D 24 38 34 39 36 0D 4E 43 |CHAIN =$8496.NC| 000004E0: 48 41 49 4E 20 3D 24 38 34 39 37 0D 4D 4F 44 46 |HAIN =$8497.MODF| 000004F0: 4C 47 20 3D 24 38 34 39 38 0D 56 53 49 5A 45 20 |LG =$8498.VSIZE | 00000500: 20 3D 24 38 34 39 39 0D 3B 0D 49 4D 41 49 4E 20 | =$8499.;.IMAIN | 00000510: 20 3D 24 38 34 39 42 0D 49 47 49 52 51 20 20 3D | =$849B.IGIRQ =| 00000520: 24 38 34 39 44 0D 49 55 49 52 51 20 20 3D 24 38 |$849D.IUIRQ =$8| 00000530: 34 39 46 0D 49 42 55 54 4F 4E 20 3D 24 38 34 41 |49F.IBUTON =$84A| 00000540: 31 0D 49 43 52 48 49 54 20 3D 24 38 34 41 33 0D |1.ICRHIT =$84A3.| 00000550: 49 4D 53 44 49 52 20 3D 24 38 34 41 35 0D 49 43 |IMSDIR =$84A5.IC| 00000560: 4C 53 4D 4E 20 3D 24 38 34 41 37 0D 49 41 43 54 |LSMN =$84A7.IACT| 00000570: 4F 4E 20 3D 24 38 34 41 39 0D 49 4D 41 52 47 4E |ON =$84A9.IMARGN| 00000580: 20 3D 24 38 34 41 42 0D 49 41 4C 41 52 4D 20 3D | =$84AB.IALARM =| 00000590: 24 38 34 41 44 0D 49 42 52 4B 20 20 20 3D 24 38 |$84AD.IBRK =$8| 000005A0: 34 41 46 0D 49 43 4C 45 41 52 20 3D 24 38 34 42 |4AF.ICLEAR =$84B| 000005B0: 31 0D 3B 0D 44 46 54 49 4D 45 20 3D 24 38 34 42 |1.;.DFTIME =$84B| 000005C0: 33 0D 43 55 52 46 4C 47 20 3D 24 38 34 42 34 0D |3.CURFLG =$84B4.| 000005D0: 43 42 46 4C 41 47 20 3D 24 38 34 42 35 0D 50 4F |CBFLAG =$84B5.PO| 000005E0: 53 46 4C 47 20 3D 24 38 34 42 36 0D 4E 55 4D 45 |SFLG =$84B6.NUME| 000005F0: 4E 55 20 3D 24 38 34 42 37 0D 3B 0D 57 49 4E 53 |NU =$84B7.;.WINS| 00000600: 49 5A 20 3D 24 38 34 42 38 0D 57 4E 54 4F 50 20 |IZ =$84B8.WNTOP | 00000610: 20 3D 24 38 34 42 38 0D 57 4E 42 4F 54 20 20 3D | =$84B8.WNBOT =| 00000620: 24 38 34 42 39 0D 57 4E 4C 45 46 54 20 3D 24 38 |$84B9.WNLEFT =$8| 00000630: 34 42 41 0D 57 4E 52 49 54 45 20 3D 24 38 34 42 |4BA.WNRITE =$84B| 00000640: 43 0D 3B 0D 43 55 52 53 58 20 20 3D 24 38 34 42 |C.;.CURSX =$84B| 00000650: 45 0D 43 55 52 53 59 20 20 3D 24 38 34 43 30 0D |E.CURSY =$84C0.| 00000660: 44 4D 4F 55 53 45 20 3D 24 38 34 43 31 0D 4D 41 |DMOUSE =$84C1.MA| 00000670: 58 53 50 44 20 3D 24 38 35 30 31 0D 4D 49 4E 53 |XSPD =$8501.MINS| 00000680: 50 44 20 3D 24 38 35 30 32 0D 41 43 43 45 4C 20 |PD =$8502.ACCEL | 00000690: 20 3D 24 38 35 30 33 0D 4B 45 59 20 20 20 20 3D | =$8503.KEY =| 000006A0: 24 38 35 30 34 0D 42 55 54 54 4F 4E 20 3D 24 38 |$8504.BUTTON =$8| 000006B0: 35 30 35 0D 4D 53 44 49 52 20 20 3D 24 38 35 30 |505.MSDIR =$850| 000006C0: 36 0D 53 50 45 45 44 20 20 3D 24 38 35 30 37 0D |6.SPEED =$8507.| 000006D0: 52 4E 44 4E 55 4D 20 3D 24 38 35 30 41 0D 54 4D |RNDNUM =$850A.TM| 000006E0: 50 46 4E 54 20 3D 24 38 35 30 43 0D 59 45 41 52 |PFNT =$850C.YEAR| 000006F0: 20 20 20 3D 24 38 35 31 36 0D 4D 4F 4E 54 48 20 | =$8516.MONTH | 00000700: 20 3D 24 38 35 31 37 0D 44 41 59 20 20 20 20 3D | =$8517.DAY =| 00000710: 24 38 35 31 38 0D 48 4F 55 52 20 20 20 3D 24 38 |$8518.HOUR =$8| 00000720: 35 31 39 0D 4D 49 4E 55 54 45 20 3D 24 38 35 31 |519.MINUTE =$851| 00000730: 41 0D 53 45 43 4F 4E 44 20 3D 24 38 35 31 42 0D |A.SECOND =$851B.| 00000740: 54 45 4E 54 48 53 20 3D 24 38 35 31 43 0D 57 49 |TENTHS =$851C.WI| 00000750: 4E 43 4D 44 20 3D 24 38 35 31 44 0D 50 43 4F 4C |NCMD =$851D.PCOL| 00000760: 4F 52 20 3D 24 38 35 31 45 0D 53 41 56 42 55 46 |OR =$851E.SAVBUF| 00000770: 20 3D 24 38 35 31 46 0D 4E 55 4D 4F 50 54 20 3D | =$851F.NUMOPT =| 00000780: 24 38 36 43 30 0D 3B 0D 4D 45 4E 53 49 5A 20 3D |$86C0.;.MENSIZ =| 00000790: 24 38 36 43 31 0D 4D 4E 54 4F 50 20 20 3D 24 38 |$86C1.MNTOP =$8| 000007A0: 36 43 31 0D 4D 4E 42 4F 54 20 20 3D 24 38 36 43 |6C1.MNBOT =$86C| 000007B0: 32 0D 4D 4E 4C 45 46 54 20 3D 24 38 36 43 33 0D |2.MNLEFT =$86C3.| 000007C0: 4D 4E 52 49 54 45 20 3D 24 38 36 43 35 0D 3B 0D |MNRITE =$86C5.;.| 000007D0: 4D 53 54 41 43 4B 20 3D 24 38 36 43 37 0D 4F 50 |MSTACK =$86C7.OP| 000007E0: 54 49 4F 4E 20 3D 24 38 36 43 46 0D 4C 49 4D 49 |TION =$86CF.LIMI| 000007F0: 54 48 20 3D 24 38 36 44 33 0D 4C 49 4D 49 54 4C |TH =$86D3.LIMITL| 00000800: 20 3D 24 38 36 45 32 0D 3B 0D 54 49 4D 45 52 53 | =$86E2.;.TIMERS| 00000810: 20 3D 24 38 36 46 31 0D 54 49 4D 43 4D 44 20 3D | =$86F1.TIMCMD =| 00000820: 24 38 37 31 39 0D 54 49 4D 52 54 4E 20 3D 24 38 |$8719.TIMRTN =$8| 00000830: 37 32 44 0D 54 49 4D 56 41 4C 20 3D 24 38 37 35 |72D.TIMVAL =$875| 00000840: 35 0D 4E 55 4D 54 49 4D 20 3D 24 38 37 37 44 0D |5.NUMTIM =$877D.| 00000850: 3B 0D 44 4C 59 53 50 20 20 3D 24 38 37 37 45 0D |;.DLYSP =$877E.| 00000860: 44 4C 59 56 41 4C 20 3D 24 38 37 37 46 0D 44 4C |DLYVAL =$877F.DL| 00000870: 59 52 54 4E 20 3D 24 38 37 41 37 0D 3B 0D 49 4E |YRTN =$87A7.;.IN| 00000880: 50 4C 45 4E 20 3D 24 38 37 43 46 0D 49 4E 50 4D |PLEN =$87CF.INPM| 00000890: 41 58 20 3D 24 38 37 44 30 0D 54 4D 50 56 45 43 |AX =$87D0.TMPVEC| 000008A0: 20 3D 24 38 37 44 31 0D 4D 41 52 46 4C 47 20 3D | =$87D1.MARFLG =| 000008B0: 24 38 37 44 33 0D 48 45 41 44 20 20 20 3D 24 38 |$87D3.HEAD =$8| 000008C0: 37 44 37 0D 54 41 49 4C 20 20 20 3D 24 38 37 44 |7D7.TAIL =$87D| 000008D0: 38 0D 51 46 4C 41 47 20 20 3D 24 38 37 44 39 0D |8.QFLAG =$87D9.| 000008E0: 51 55 45 55 45 20 20 3D 24 38 37 44 41 0D 4E 58 |QUEUE =$87DA.NX| 000008F0: 54 4B 45 59 20 3D 24 38 37 45 41 0D 44 57 49 44 |TKEY =$87EA.DWID| 00000900: 54 48 20 3D 24 38 38 30 37 0D 42 45 4C 46 4C 47 |TH =$8807.BELFLG| 00000910: 20 3D 24 38 38 30 41 0D 3B 0D 43 42 54 42 4C 20 | =$880A.;.CBTBL | 00000920: 20 3D 24 38 38 30 43 0D 43 42 4D 53 58 20 20 3D | =$880C.CBMSX =| 00000930: 24 38 38 30 44 0D 43 42 4D 53 59 20 20 3D 24 38 |$880D.CBMSY =$8| 00000940: 38 30 46 0D 43 42 44 45 46 53 20 3D 24 38 38 31 |80F.CBDEFS =$881| 00000950: 30 0D 3B 0D 4E 55 4D 46 49 4C 20 3D 24 38 38 35 |0.;.NUMFIL =$885| 00000960: 36 0D 4F 46 53 45 54 4C 20 3D 24 38 38 35 37 0D |6.OFSETL =$8857.| 00000970: 4F 46 53 45 54 44 20 3D 24 38 38 35 38 0D 54 42 |OFSETD =$8858.TB| 00000980: 4C 50 4E 54 20 3D 24 38 38 35 39 0D 46 53 54 46 |LPNT =$8859.FSTF| 00000990: 49 4C 20 3D 24 38 38 35 42 0D 53 45 4C 46 49 4C |IL =$885B.SELFIL| 000009A0: 20 3D 24 38 38 35 43 0D 3B 0D 54 52 59 31 20 20 | =$885C.;.TRY1 | 000009B0: 20 3D 24 38 38 36 39 0D 4C 44 46 4C 41 47 20 3D | =$8869.LDFLAG =| 000009C0: 24 38 38 36 42 0D 4C 44 41 44 52 53 20 3D 24 38 |$886B.LDADRS =$8| 000009D0: 38 36 43 0D 3B 0D 44 54 52 41 43 4B 20 3D 24 38 |86C.;.DTRACK =$8| 000009E0: 38 36 46 0D 44 53 45 43 54 52 20 3D 24 38 38 37 |86F.DSECTR =$887| 000009F0: 30 0D 56 44 49 52 50 54 20 3D 24 38 38 37 31 0D |0.VDIRPT =$8871.| 00000A00: 56 54 52 41 43 4B 20 3D 24 38 38 37 33 0D 56 53 |VTRACK =$8873.VS| 00000A10: 45 43 54 52 20 3D 24 38 38 37 34 0D 3B 0D 54 52 |ECTR =$8874.;.TR| 00000A20: 59 32 20 20 20 3D 24 38 38 37 35 0D 56 45 52 46 |Y2 =$8875.VERF| 00000A30: 4C 47 20 3D 24 38 38 37 36 0D 3B 0D 43 4F 4C 44 |LG =$8876.;.COLD| 00000A40: 41 54 20 3D 24 38 43 30 30 0D 53 43 52 45 4E 31 |AT =$8C00.SCREN1| 00000A50: 20 3D 24 41 30 30 30 0D 3B 0D 3B 20 50 52 49 4E | =$A000.;.; PRIN| 00000A60: 54 20 53 54 59 4C 45 53 0D 3B 0D 55 4C 49 4E 45 |T STYLES.;.ULINE| 00000A70: 20 20 3D 24 38 30 0D 42 4F 4C 44 20 20 20 3D 24 | =$80.BOLD =$| 00000A80: 34 30 0D 52 56 53 20 20 20 20 3D 24 32 30 0D 49 |40.RVS =$20.I| 00000A90: 54 41 4C 49 43 20 3D 24 31 30 0D 4F 55 54 4C 49 |TALIC =$10.OUTLI| 00000AA0: 4E 20 3D 24 30 38 0D 3B 0D 3B 20 44 49 52 45 43 |N =$08.;.; DIREC| 00000AB0: 54 4F 52 59 20 45 4E 54 52 59 20 44 45 46 49 4E |TORY ENTRY DEFIN| 00000AC0: 49 54 49 4F 4E 53 0D 3B 0D 46 54 59 50 45 20 20 |ITIONS.;.FTYPE | 00000AD0: 3D 24 30 30 0D 46 54 52 41 43 4B 20 3D 24 30 31 |=$00.FTRACK =$01| 00000AE0: 0D 46 53 45 43 54 52 20 3D 24 30 32 0D 46 4E 41 |.FSECTR =$02.FNA| 00000AF0: 4D 45 20 20 3D 24 30 33 0D 49 4E 46 54 52 4B 20 |ME =$03.INFTRK | 00000B00: 3D 24 31 33 0D 49 4E 46 53 45 43 20 3D 24 31 34 |=$13.INFSEC =$14| 00000B10: 0D 53 54 52 55 43 54 20 3D 24 31 35 0D 47 54 59 |.STRUCT =$15.GTY| 00000B20: 50 45 20 20 3D 24 31 36 0D 43 59 45 41 52 20 20 |PE =$16.CYEAR | 00000B30: 3D 24 31 37 0D 43 4D 4F 4E 54 48 20 3D 24 31 38 |=$17.CMONTH =$18| 00000B40: 0D 43 44 41 59 20 20 20 3D 24 31 39 0D 43 48 4F |.CDAY =$19.CHO| 00000B50: 55 52 20 20 3D 24 31 41 0D 43 4D 49 4E 55 54 20 |UR =$1A.CMINUT | 00000B60: 3D 24 31 42 0D 46 53 49 5A 45 20 20 3D 24 31 43 |=$1B.FSIZE =$1C| 00000B70: 0D 3B 0D 3B 20 49 4E 46 4F 20 53 45 43 54 4F 52 |.;.; INFO SECTOR| 00000B80: 20 44 45 46 49 4E 49 54 49 4F 4E 53 0D 3B 0D 49 | DEFINITIONS.;.I| 00000B90: 43 4F 4E 20 20 20 3D 24 30 35 0D 49 46 54 59 50 |CON =$05.IFTYP| 00000BA0: 45 20 3D 24 34 34 0D 49 47 54 59 50 45 20 3D 24 |E =$44.IGTYPE =$| 00000BB0: 34 35 0D 49 53 54 52 43 54 20 3D 24 34 36 0D 4C |45.ISTRCT =$46.L| 00000BC0: 44 41 44 44 52 20 3D 24 34 37 0D 45 4E 44 41 44 |DADDR =$47.ENDAD| 00000BD0: 52 20 3D 24 34 39 0D 53 54 41 44 44 52 20 3D 24 |R =$49.STADDR =$| 00000BE0: 34 42 0D 43 4C 41 53 53 20 20 3D 24 34 44 0D 41 |4B.CLASS =$4D.A| 00000BF0: 55 54 48 4F 52 20 3D 24 36 31 0D 46 4F 4E 54 49 |UTHOR =$61.FONTI| 00000C00: 44 20 3D 24 38 30 0D 54 45 58 54 20 20 20 3D 24 |D =$80.TEXT =$| 00000C10: 41 30 0D 3B 0D 3B 20 54 48 45 53 45 20 44 45 46 |A0.;.; THESE DEF| 00000C20: 49 4E 45 20 41 4C 4C 20 54 48 45 20 45 4E 54 52 |INE ALL THE ENTR| 00000C30: 59 20 50 4F 49 4E 54 53 0D 3B 20 20 20 49 4E 54 |Y POINTS.; INT| 00000C40: 4F 20 54 48 45 20 47 45 4F 53 20 4B 45 52 4E 41 |O THE GEOS KERNA| 00000C50: 4C 0D 3B 0D 41 42 53 31 36 20 20 3D 24 43 31 36 |L.;.ABS16 =$C16| 00000C60: 46 0D 41 4C 4C 4F 43 20 20 3D 24 43 32 39 32 0D |F.ALLOC =$C292.| 00000C70: 41 50 50 45 4E 44 20 3D 24 43 32 38 39 0D 42 41 |APPEND =$C289.BA| 00000C80: 53 49 43 20 20 3D 24 43 32 34 31 0D 42 4C 4B 43 |SIC =$C241.BLKC| 00000C90: 4D 50 20 3D 24 43 32 36 45 0D 42 4C 4B 46 49 4C |MP =$C26E.BLKFIL| 00000CA0: 20 3D 24 43 31 37 42 0D 42 4C 4B 46 4C 32 20 3D | =$C17B.BLKFL2 =| 00000CB0: 24 43 31 42 34 0D 42 4C 4B 4D 4F 56 20 3D 24 43 |$C1B4.BLKMOV =$C| 00000CC0: 32 36 38 0D 42 4C 4B 53 45 54 20 3D 24 43 31 38 |268.BLKSET =$C18| 00000CD0: 31 0D 43 42 4F 58 20 20 20 3D 24 43 31 34 32 0D |1.CBOX =$C142.| 00000CE0: 43 42 4F 58 32 20 20 3D 24 43 31 41 42 0D 43 42 |CBOX2 =$C1AB.CB| 00000CF0: 4F 58 45 53 20 3D 24 43 31 35 41 0D 43 48 41 52 |OXES =$C15A.CHAR| 00000D00: 53 54 20 3D 24 43 31 42 31 0D 43 48 47 44 52 56 |ST =$C1B1.CHGDRV| 00000D10: 20 3D 24 43 32 42 43 0D 43 4B 4D 4F 55 53 20 3D | =$C2BC.CKMOUS =| 00000D20: 24 43 32 42 33 0D 43 4C 52 52 44 59 20 3D 24 43 |$C2B3.CLRRDY =$C| 00000D30: 32 33 32 0D 43 4C 52 53 54 53 20 3D 24 43 32 33 |232.CLRSTS =$C23| 00000D40: 35 0D 43 4C 53 4D 4E 55 20 3D 24 43 31 39 30 0D |5.CLSMNU =$C190.| 00000D50: 43 4C 53 53 45 52 20 3D 24 43 32 35 46 0D 43 4C |CLSSER =$C25F.CL| 00000D60: 53 57 49 4E 20 3D 24 43 32 42 46 0D 43 4D 44 54 |SWIN =$C2BF.CMDT| 00000D70: 42 4C 20 3D 24 43 31 30 33 0D 43 4D 45 4E 55 53 |BL =$C103.CMENUS| 00000D80: 20 3D 24 43 31 42 44 0D 43 4F 4E 56 52 54 20 3D | =$C1BD.CONVRT =| 00000D90: 24 43 31 45 41 0D 43 4F 50 59 42 20 20 3D 24 43 |$C1EA.COPYB =$C| 00000DA0: 31 32 44 0D 43 4F 50 59 42 32 20 3D 24 43 31 41 |12D.COPYB2 =$C1A| 00000DB0: 35 0D 43 4F 50 59 42 33 20 3D 24 43 32 35 30 0D |5.COPYB3 =$C250.| 00000DC0: 43 4F 50 59 42 34 20 3D 24 43 32 35 33 0D 43 4F |COPYB4 =$C253.CO| 00000DD0: 50 59 4C 20 20 3D 24 43 31 31 45 0D 43 4F 50 59 |PYL =$C11E.COPY| 00000DE0: 53 50 20 3D 24 43 31 43 36 0D 43 55 52 53 4F 46 |SP =$C1C6.CURSOF| 00000DF0: 20 3D 24 43 32 39 45 0D 43 55 52 53 4F 4E 20 3D | =$C29E.CURSON =| 00000E00: 24 43 32 39 42 0D 43 57 49 44 54 48 20 3D 24 43 |$C29B.CWIDTH =$C| 00000E10: 31 43 39 0D 43 57 52 49 54 45 20 3D 24 43 32 32 |1C9.CWRITE =$C22| 00000E20: 33 0D 44 45 43 31 36 20 20 3D 24 43 31 37 35 0D |3.DEC16 =$C175.| 00000E30: 44 45 43 4F 44 45 20 3D 24 43 32 30 45 0D 44 45 |DECODE =$C20E.DE| 00000E40: 4C 41 59 20 20 3D 24 43 31 39 39 0D 44 45 4C 45 |LAY =$C199.DELE| 00000E50: 54 32 20 3D 24 43 32 34 34 0D 44 45 4C 45 54 45 |T2 =$C244.DELETE| 00000E60: 20 3D 24 43 32 33 38 0D 44 49 52 44 53 4B 20 3D | =$C238.DIRDSK =| 00000E70: 24 43 31 46 30 0D 44 49 52 4D 45 4D 20 3D 24 43 |$C1F0.DIRMEM =$C| 00000E80: 31 46 33 0D 44 52 41 57 20 20 20 3D 24 43 32 41 |1F3.DRAW =$C2A| 00000E90: 41 0D 44 52 41 57 32 20 20 3D 24 43 32 43 35 0D |A.DRAW2 =$C2C5.| 00000EA0: 44 52 41 57 43 48 20 3D 24 43 32 30 32 0D 44 52 |DRAWCH =$C202.DR| 00000EB0: 56 4E 41 4D 20 3D 24 43 32 39 38 0D 44 52 56 53 |VNAM =$C298.DRVS| 00000EC0: 45 54 20 3D 24 43 32 42 30 0D 44 52 57 4D 4E 55 |ET =$C2B0.DRWMNU| 00000ED0: 20 3D 24 43 31 39 33 0D 44 53 45 54 55 50 20 3D | =$C193.DSETUP =| 00000EE0: 24 43 32 31 34 0D 44 53 50 43 48 52 20 3D 24 43 |$C214.DSPCHR =$C| 00000EF0: 31 34 35 0D 44 53 50 4E 55 4D 20 3D 24 43 31 38 |145.DSPNUM =$C18| 00000F00: 34 0D 44 53 50 54 58 32 20 3D 24 43 31 41 45 0D |4.DSPTX2 =$C1AE.| 00000F10: 44 53 50 54 58 54 20 3D 24 43 31 34 38 0D 45 4E |DSPTXT =$C148.EN| 00000F20: 41 42 4C 45 20 3D 24 43 31 30 36 0D 45 52 41 4D |ABLE =$C106.ERAM| 00000F30: 4E 53 20 3D 24 43 31 35 37 0D 45 52 41 4D 4E 55 |NS =$C157.ERAMNU| 00000F40: 20 3D 24 43 31 35 34 0D 45 58 45 52 54 4E 20 3D | =$C154.EXERTN =| 00000F50: 24 43 31 30 39 0D 46 41 4C 4C 4F 43 20 3D 24 43 |$C109.FALLOC =$C| 00000F60: 31 46 43 0D 46 41 4C 4F 43 32 20 3D 24 43 32 34 |1FC.FALOC2 =$C24| 00000F70: 44 0D 46 4F 4E 54 20 20 20 3D 24 43 31 43 43 0D |D.FONT =$C1CC.| 00000F80: 46 4F 52 42 49 44 20 3D 24 43 31 30 43 0D 46 52 |FORBID =$C10C.FR| 00000F90: 45 45 20 20 20 3D 24 43 32 32 36 0D 47 45 4F 53 |EE =$C226.GEOS| 00000FA0: 43 4B 20 3D 24 43 31 44 45 0D 47 45 54 42 59 54 |CK =$C1DE.GETBYT| 00000FB0: 20 3D 24 43 32 42 36 0D 47 45 54 49 4E 20 20 3D | =$C2B6.GETIN =| 00000FC0: 24 43 32 41 37 0D 47 4F 54 4F 20 20 20 3D 24 43 |$C2A7.GOTO =$C| 00000FD0: 32 38 30 0D 47 52 50 48 43 32 20 3D 24 43 31 41 |280.GRPHC2 =$C1A| 00000FE0: 38 0D 47 52 50 48 49 43 20 3D 24 43 31 33 36 0D |8.GRPHIC =$C136.| 00000FF0: 48 4C 49 4E 45 20 20 3D 24 43 31 31 38 0D 48 4F |HLINE =$C118.HO| 00001000: 4C 45 20 20 20 3D 24 43 31 46 36 0D 49 4E 44 4A |LE =$C1F6.INDJ| 00001010: 4D 50 20 3D 24 43 31 44 38 0D 49 4E 49 54 30 31 |MP =$C1D8.INIT01| 00001020: 20 3D 24 43 32 37 31 0D 49 4E 49 54 44 56 20 3D | =$C271.INITDV =| 00001030: 24 43 31 45 31 0D 49 4E 49 54 4D 53 20 3D 24 43 |$C1E1.INITMS =$C| 00001040: 31 34 45 0D 49 4E 50 55 54 20 20 3D 24 43 31 42 |14E.INPUT =$C1B| 00001050: 41 0D 49 4E 53 45 52 54 20 3D 24 43 32 38 36 0D |A.INSERT =$C286.| 00001060: 49 4E 54 42 4D 20 20 3D 24 43 31 37 45 0D 49 4E |INTBM =$C17E.IN| 00001070: 54 42 4D 32 20 3D 24 43 31 42 37 0D 49 4E 55 53 |TBM2 =$C1B7.INUS| 00001080: 45 20 20 3D 24 43 32 41 44 0D 49 4E 56 42 4F 58 |E =$C2AD.INVBOX| 00001090: 20 3D 24 43 31 32 41 0D 49 4E 56 4C 49 4E 20 3D | =$C12A.INVLIN =| 000010A0: 24 43 31 31 42 0D 49 52 51 52 54 4E 20 3D 24 43 |$C11B.IRQRTN =$C| 000010B0: 31 30 30 0D 4C 43 48 41 49 4E 20 3D 24 43 31 46 |100.LCHAIN =$C1F| 000010C0: 46 0D 4C 44 53 57 41 50 20 3D 24 43 32 33 45 0D |F.LDSWAP =$C23E.| 000010D0: 4C 49 4E 45 20 20 20 3D 24 43 31 33 30 0D 4C 4F |LINE =$C130.LO| 000010E0: 41 44 20 20 20 3D 24 43 32 30 38 0D 4C 4F 41 44 |AD =$C208.LOAD| 000010F0: 32 20 20 3D 24 43 32 31 31 0D 4C 4F 41 44 33 20 |2 =$C211.LOAD3 | 00001100: 20 3D 24 43 32 31 44 0D 4C 4F 41 44 41 44 20 3D | =$C21D.LOADAD =| 00001110: 24 43 32 32 39 0D 4C 4F 41 44 53 57 20 3D 24 43 |$C229.LOADSW =$C| 00001120: 32 31 37 0D 4C 4F 4F 4B 55 50 20 3D 24 43 32 30 |217.LOOKUP =$C20| 00001130: 42 0D 4D 41 49 4E 20 20 20 3D 24 43 31 43 33 0D |B.MAIN =$C1C3.| 00001140: 4D 41 4B 43 55 52 20 3D 24 43 31 43 30 0D 4D 41 |MAKCUR =$C1C0.MA| 00001150: 53 4C 20 20 20 3D 24 43 31 35 44 0D 4D 45 4E 55 |SL =$C15D.MENU| 00001160: 20 20 20 3D 24 43 31 35 31 0D 4D 4C 53 52 20 20 | =$C151.MLSR | 00001170: 20 3D 24 43 32 36 32 0D 4D 4F 55 53 4F 46 20 3D | =$C262.MOUSOF =| 00001180: 24 43 31 38 44 0D 4D 4F 55 53 4F 4E 20 3D 24 43 |$C18D.MOUSON =$C| 00001190: 31 38 41 0D 4E 45 47 31 36 20 20 3D 24 43 31 37 |18A.NEG16 =$C17| 000011A0: 32 0D 4E 45 58 54 20 20 20 3D 24 43 32 37 41 0D |2.NEXT =$C27A.| 000011B0: 4E 55 4D 42 4C 4B 20 3D 24 43 31 44 42 0D 4F 50 |NUMBLK =$C1DB.OP| 000011C0: 4E 44 53 4B 20 3D 24 43 32 41 31 0D 4F 50 4E 53 |NDSK =$C2A1.OPNS| 000011D0: 45 52 20 3D 24 43 32 35 43 0D 50 42 4F 58 20 20 |ER =$C25C.PBOX | 000011E0: 20 3D 24 43 31 32 37 0D 50 42 4F 58 32 20 20 3D | =$C127.PBOX2 =| 000011F0: 24 43 31 41 32 0D 50 45 52 4D 49 54 20 3D 24 43 |$C1A2.PERMIT =$C| 00001200: 31 30 46 0D 50 46 49 4C 4C 20 20 3D 24 43 31 32 |10F.PFILL =$C12| 00001210: 34 0D 50 46 49 4C 4C 32 20 3D 24 43 31 39 46 0D |4.PFILL2 =$C19F.| 00001220: 50 4C 4F 54 20 20 20 3D 24 43 31 33 33 0D 50 4F |PLOT =$C133.PO| 00001230: 53 53 50 52 20 3D 24 43 31 43 46 0D 50 52 45 56 |SSPR =$C1CF.PREV| 00001240: 20 20 20 3D 24 43 32 37 44 0D 52 41 4E 44 4F 4D | =$C27D.RANDOM| 00001250: 20 3D 24 43 31 38 37 0D 52 44 31 38 30 20 20 3D | =$C187.RD180 =| 00001260: 24 43 32 34 37 0D 52 45 41 44 20 20 20 3D 24 43 |$C247.READ =$C| 00001270: 31 45 34 0D 52 45 41 44 32 20 20 3D 24 43 32 31 |1E4.READ2 =$C21| 00001280: 41 0D 52 45 42 4F 4F 54 20 3D 24 43 30 30 30 0D |A.REBOOT =$C000.| 00001290: 52 45 4D 4F 56 45 20 3D 24 43 32 38 33 0D 52 45 |REMOVE =$C283.RE| 000012A0: 4E 41 4D 45 20 3D 24 43 32 35 39 0D 52 45 53 45 |NAME =$C259.RESE| 000012B0: 54 4D 20 3D 24 43 31 39 43 0D 52 45 53 54 52 54 |TM =$C19C.RESTRT| 000012C0: 20 3D 24 43 32 32 43 0D 52 4F 57 41 44 52 20 3D | =$C22C.ROWADR =| 000012D0: 24 43 31 33 43 0D 52 55 4E 20 20 20 20 3D 24 43 |$C13C.RUN =$C| 000012E0: 32 32 46 0D 53 41 56 45 20 20 20 3D 24 43 31 45 |22F.SAVE =$C1E| 000012F0: 44 0D 53 41 56 45 32 20 20 3D 24 43 31 46 39 0D |D.SAVE2 =$C1F9.| 00001300: 53 44 31 36 31 36 20 3D 24 43 31 36 43 0D 53 45 |SD1616 =$C16C.SE| 00001310: 4C 42 53 57 20 3D 24 43 31 34 42 0D 53 45 54 50 |LBSW =$C14B.SETP| 00001320: 41 54 20 3D 24 43 31 33 39 0D 53 50 52 4F 46 46 |AT =$C139.SPROFF| 00001330: 20 3D 24 43 31 44 35 0D 53 50 52 4F 4E 20 20 3D | =$C1D5.SPRON =| 00001340: 24 43 31 44 32 0D 53 54 41 52 54 20 20 3D 24 43 |$C1D2.START =$C| 00001350: 31 31 35 0D 53 54 4F 50 20 20 20 3D 24 43 31 31 |115.STOP =$C11| 00001360: 32 0D 53 54 52 43 4D 50 20 3D 24 43 32 36 42 0D |2.STRCMP =$C26B.| 00001370: 53 54 52 43 50 59 20 3D 24 43 32 36 35 0D 53 59 |STRCPY =$C265.SY| 00001380: 53 45 52 52 20 3D 24 43 32 43 32 0D 54 41 42 4C |SERR =$C2C2.TABL| 00001390: 45 20 20 3D 24 43 32 33 42 0D 54 42 4C 4A 4D 50 |E =$C23B.TBLJMP| 000013A0: 20 3D 24 43 32 41 34 0D 54 45 53 54 20 20 20 3D | =$C2A4.TEST =| 000013B0: 24 43 31 33 46 0D 54 52 41 43 45 20 20 3D 24 43 |$C13F.TRACE =$C| 000013C0: 32 30 35 0D 55 44 31 36 31 36 20 3D 24 43 31 36 |205.UD1616 =$C16| 000013D0: 39 0D 55 4D 31 36 31 36 20 3D 24 43 31 36 36 0D |9.UM1616 =$C166.| 000013E0: 55 4D 31 36 38 20 20 3D 24 43 31 36 33 0D 55 4D |UM168 =$C163.UM| 000013F0: 55 4C 38 38 20 3D 24 43 31 36 30 0D 55 50 44 41 |UL88 =$C160.UPDA| 00001400: 54 45 20 3D 24 43 32 39 35 0D 56 43 4C 4F 53 45 |TE =$C295.VCLOSE| 00001410: 20 3D 24 43 32 37 37 0D 56 4C 49 4E 45 20 20 3D | =$C277.VLINE =| 00001420: 24 43 31 32 31 0D 56 4C 4F 41 44 20 20 3D 24 43 |$C121.VLOAD =$C| 00001430: 32 38 43 0D 56 4F 50 45 4E 20 20 3D 24 43 32 37 |28C.VOPEN =$C27| 00001440: 34 0D 56 53 41 56 45 20 20 3D 24 43 32 38 46 0D |4.VSAVE =$C28F.| 00001450: 57 48 41 54 49 53 20 3D 24 43 31 39 36 0D 57 49 |WHATIS =$C196.WI| 00001460: 4E 44 4F 57 20 3D 24 43 32 35 36 0D 57 52 31 38 |NDOW =$C256.WR18| 00001470: 30 20 20 3D 24 43 32 34 41 0D 57 52 49 54 45 20 |0 =$C24A.WRITE | 00001480: 20 3D 24 43 31 45 37 0D 57 52 49 54 45 32 20 3D | =$C1E7.WRITE2 =| 00001490: 24 43 32 32 30 0D 5A 46 49 4C 4C 20 20 3D 24 43 |$C220.ZFILL =$C| 000014A0: 31 37 38 0D 3B 0D 3B 20 50 4F 49 4E 54 45 52 20 |178.;.; POINTER | 000014B0: 4D 41 43 52 4F 20 44 45 46 49 4E 49 54 49 4F 4E |MACRO DEFINITION| 000014C0: 53 0D 3B 0D 3B 20 43 4F 50 59 20 41 20 50 4F 49 |S.;.; COPY A POI| 000014D0: 4E 54 45 52 20 54 4F 20 41 4E 4F 54 48 45 52 20 |NTER TO ANOTHER | 000014E0: 50 4F 49 4E 54 45 52 0D 3B 0D 2E 4D 41 43 20 43 |POINTER.;..MAC C| 000014F0: 4F 50 59 20 20 20 3B 20 43 4F 50 59 20 53 52 43 |OPY ; COPY SRC| 00001500: 2C 44 45 53 54 0D 20 4C 44 41 20 3F 31 0D 20 53 |,DEST. LDA ?1. S| 00001510: 54 41 20 3F 32 0D 20 4C 44 41 20 3F 31 2B 31 0D |TA ?2. LDA ?1+1.| 00001520: 20 53 54 41 20 3F 32 2B 31 0D 2E 4D 4E 44 0D 3B | STA ?2+1..MND.;| 00001530: 0D 3B 20 4C 4F 41 44 20 41 20 50 4F 49 4E 54 45 |.; LOAD A POINTE| 00001540: 52 20 57 49 54 48 20 49 4D 4D 45 44 49 41 54 45 |R WITH IMMEDIATE| 00001550: 20 44 41 54 41 0D 3B 0D 2E 4D 41 43 20 4D 4F 56 | DATA.;..MAC MOV| 00001560: 45 20 20 20 3B 20 4D 4F 56 45 20 44 41 54 41 2C |E ; MOVE DATA,| 00001570: 50 4F 49 4E 54 45 52 0D 20 4C 44 41 20 23 3C 3F |POINTER. LDA #<?| 00001580: 31 0D 20 53 54 41 20 3F 32 0D 20 4C 44 41 20 23 |1. STA ?2. LDA #| 00001590: 3E 3F 31 0D 20 53 54 41 20 3F 32 2B 31 0D 2E 4D |>?1. STA ?2+1..M| 000015A0: 4E 44 0D 3B 0D 3B 20 50 55 53 48 20 41 20 50 4F |ND.;.; PUSH A PO| 000015B0: 49 4E 54 45 52 20 4F 4E 20 54 48 45 20 53 54 41 |INTER ON THE STA| 000015C0: 43 4B 0D 3B 0D 2E 4D 41 43 20 50 55 53 48 20 20 |CK.;..MAC PUSH | 000015D0: 20 3B 20 50 55 53 48 20 50 4F 49 4E 54 45 52 0D | ; PUSH POINTER.| 000015E0: 20 4C 44 41 20 3F 31 0D 20 50 48 41 0D 20 4C 44 | LDA ?1. PHA. LD| 000015F0: 41 20 3F 31 2B 31 0D 20 50 48 41 0D 2E 4D 4E 44 |A ?1+1. PHA..MND| 00001600: 0D 3B 0D 3B 20 50 55 4C 4C 20 41 20 50 4F 49 4E |.;.; PULL A POIN| 00001610: 54 45 52 20 46 52 4F 4D 20 54 48 45 20 53 54 41 |TER FROM THE STA| 00001620: 43 4B 0D 3B 0D 2E 4D 41 43 20 50 55 4C 4C 20 20 |CK.;..MAC PULL | 00001630: 20 3B 20 50 55 4C 4C 20 50 4F 49 4E 54 45 52 0D | ; PULL POINTER.| 00001640: 20 50 4C 41 0D 20 53 54 41 20 3F 31 2B 31 0D 20 | PLA. STA ?1+1. | 00001650: 50 4C 41 0D 20 53 54 41 20 3F 31 0D 2E 4D 4E 44 |PLA. STA ?1..MND| 00001660: 0D 3B 0D 3B 20 49 4E 43 52 45 4D 45 4E 54 20 41 |.;.; INCREMENT A| 00001670: 20 50 4F 49 4E 54 45 52 0D 3B 0D 2E 4D 41 43 20 | POINTER.;..MAC | 00001680: 49 4E 43 52 20 20 20 3B 20 49 4E 43 52 20 50 4F |INCR ; INCR PO| 00001690: 49 4E 54 45 52 0D 20 49 4E 43 20 3F 31 0D 20 42 |INTER. INC ?1. B| 000016A0: 4E 45 20 3F 32 0D 20 49 4E 43 20 3F 31 2B 31 0D |NE ?2. INC ?1+1.| 000016B0: 3F 32 0D 2E 4D 4E 44 0D 3B 0D 3B 20 44 45 43 52 |?2..MND.;.; DECR| 000016C0: 45 4D 45 4E 54 20 41 20 50 4F 49 4E 54 45 52 0D |EMENT A POINTER.| 000016D0: 3B 0D 2E 4D 41 43 20 44 45 43 52 20 20 20 3B 20 |;..MAC DECR ; | 000016E0: 44 45 43 52 20 50 4F 49 4E 54 45 52 0D 20 4C 44 |DECR POINTER. LD| 000016F0: 41 20 3F 31 0D 20 42 4E 45 20 3F 32 0D 20 44 45 |A ?1. BNE ?2. DE| 00001700: 43 20 3F 31 2B 31 0D 3F 32 0D 20 44 45 43 20 3F |C ?1+1.?2. DEC ?| 00001710: 31 0D 2E 4D 4E 44 0D 3B 0D 3B 20 43 4F 4D 50 41 |1..MND.;.; COMPA| 00001720: 52 45 20 54 57 4F 20 50 4F 49 4E 54 45 52 53 0D |RE TWO POINTERS.| 00001730: 3B 0D 2E 4D 41 43 20 43 4F 4D 50 20 20 20 3B 20 |;..MAC COMP ; | 00001740: 43 4F 4D 50 20 50 4E 54 31 2C 50 4E 54 32 2C 45 |COMP PNT1,PNT2,E| 00001750: 51 55 41 4C 0D 20 4C 44 41 20 3F 31 0D 20 43 4D |QUAL. LDA ?1. CM| 00001760: 50 20 3F 32 0D 20 42 4E 45 20 3F 34 0D 20 4C 44 |P ?2. BNE ?4. LD| 00001770: 41 20 3F 31 2B 31 0D 20 43 4D 50 20 3F 32 2B 31 |A ?1+1. CMP ?2+1| 00001780: 0D 20 42 4E 45 20 3F 34 0D 20 4A 4D 50 20 3F 33 |. BNE ?4. JMP ?3| 00001790: 0D 3F 34 0D 2E 4D 4E 44 0D 3B 0D 3B 20 44 45 46 |.?4..MND.;.; DEF| 000017A0: 49 4E 45 20 53 50 41 43 45 0D 3B 0D 2E 4D 41 43 |INE SPACE.;..MAC| 000017B0: 20 44 53 20 20 20 20 20 3B 20 44 53 20 23 42 59 | DS ; DS #BY| 000017C0: 54 45 53 0D 2A 3D 2A 2B 3F 31 0D 2E 4D 4E 44 0D |TES.*=*+?1..MND.| 000017D0: 3B 0D 3B 20 31 39 38 36 20 53 59 53 32 30 36 31 |;.; 1986 SYS2061| 000017E0: 0D 2A 3D 24 30 38 30 31 0D 20 2E 57 4F 52 44 20 |.*=$0801. .WORD | 000017F0: 32 30 35 39 0D 20 2E 57 4F 52 44 20 31 39 38 36 |2059. .WORD 1986| 00001800: 0D 20 2E 42 59 54 45 20 31 35 38 2C 27 32 30 36 |. .BYTE 158,'206| 00001810: 31 27 2C 30 2C 30 2C 30 0D 3B 0D 20 53 45 49 0D |1',0,0,0.;. SEI.| 00001820: 20 4C 44 41 20 23 24 33 30 20 20 20 20 3B 20 41 | LDA #$30 ; A| 00001830: 4C 4C 20 52 41 4D 0D 20 53 54 41 20 52 36 35 31 |LL RAM. STA R651| 00001840: 30 0D 0D 20 4D 4F 56 45 20 50 52 47 4E 41 4D 2C |0.. MOVE PRGNAM,| 00001850: 47 50 4E 54 31 0D 20 4A 53 52 20 44 45 4C 45 54 |GPNT1. JSR DELET| 00001860: 45 20 20 3B 20 44 45 4C 45 54 45 20 54 48 49 53 |E ; DELETE THIS| 00001870: 20 46 49 4C 45 0D 0D 20 4D 4F 56 45 20 50 52 47 | FILE.. MOVE PRG| 00001880: 4E 41 4D 2C 49 4E 46 4F 0D 20 4D 4F 56 45 20 49 |NAM,INFO. MOVE I| 00001890: 4E 46 4F 2C 44 49 52 50 54 32 0D 20 4C 44 41 20 |NFO,DIRPT2. LDA | 000018A0: 23 24 30 30 20 20 20 20 3B 20 23 44 49 52 20 53 |#$00 ; #DIR S| 000018B0: 45 43 54 4F 52 53 20 54 4F 20 53 4B 49 50 0D 20 |ECTORS TO SKIP. | 000018C0: 53 54 41 20 44 50 41 47 45 0D 20 4A 53 52 20 53 |STA DPAGE. JSR S| 000018D0: 41 56 45 20 20 20 20 3B 20 53 41 56 45 20 50 52 |AVE ; SAVE PR| 000018E0: 4F 47 52 41 4D 0D 0D 20 4D 4F 56 45 20 24 46 46 |OGRAM.. MOVE $FF| 000018F0: 30 30 2C 49 4E 46 4F 0D 20 4D 4F 56 45 20 49 4E |00,INFO. MOVE IN| 00001900: 46 4F 2C 42 55 46 50 4E 54 20 3B 20 52 45 57 52 |FO,BUFPNT ; REWR| 00001910: 49 54 45 20 49 4E 46 4F 20 53 45 43 54 4F 52 0D |ITE INFO SECTOR.| 00001920: 20 4C 44 41 20 44 45 4E 54 52 59 2B 49 4E 46 54 | LDA DENTRY+INFT| 00001930: 52 4B 0D 20 53 54 41 20 54 52 41 43 4B 0D 20 4C |RK. STA TRACK. L| 00001940: 44 41 20 44 45 4E 54 52 59 2B 49 4E 46 53 45 43 |DA DENTRY+INFSEC| 00001950: 0D 20 53 54 41 20 53 45 43 54 4F 52 0D 20 4A 53 |. STA SECTOR. JS| 00001960: 52 20 57 52 49 54 45 0D 0D 20 4D 4F 56 45 20 50 |R WRITE.. MOVE P| 00001970: 52 47 4E 41 4D 2C 46 49 4C 50 4E 54 20 3B 20 53 |RGNAM,FILPNT ; S| 00001980: 45 54 20 50 52 4F 50 45 52 0D 20 4A 53 52 20 4C |ET PROPER. JSR L| 00001990: 4F 4F 4B 55 50 20 20 20 20 20 20 20 20 20 3B 20 |OOKUP ; | 000019A0: 54 49 4D 45 20 41 4E 44 20 44 41 54 45 0D 20 4C |TIME AND DATE. L| 000019B0: 44 58 20 23 24 30 30 0D 58 59 5A 5A 59 31 0D 20 |DX #$00.XYZZY1. | 000019C0: 4C 44 59 20 58 59 5A 5A 59 32 2C 58 0D 20 4C 44 |LDY XYZZY2,X. LD| 000019D0: 41 20 50 52 47 54 41 44 2C 58 0D 20 53 54 41 20 |A PRGTAD,X. STA | 000019E0: 28 44 49 52 50 4E 54 29 2C 59 0D 20 49 4E 58 0D |(DIRPNT),Y. INX.| 000019F0: 20 43 50 58 20 23 24 30 35 0D 20 42 4E 45 20 58 | CPX #$05. BNE X| 00001A00: 59 5A 5A 59 31 0D 20 4A 53 52 20 57 52 49 54 45 |YZZY1. JSR WRITE| 00001A10: 0D 0D 20 4A 53 52 20 49 4E 49 54 30 31 20 20 3B |.. JSR INIT01 ;| 00001A20: 20 52 45 53 45 54 20 47 45 4F 53 20 56 41 52 49 | RESET GEOS VARI| 00001A30: 41 42 4C 45 53 0D 20 4A 4D 50 20 52 45 53 54 52 |ABLES. JMP RESTR| 00001A40: 54 20 20 3B 20 52 45 4C 4F 41 44 20 44 45 53 4B |T ; RELOAD DESK| 00001A50: 54 4F 50 0D 58 59 5A 5A 59 32 0D 2E 42 59 54 45 |TOP.XYZZY2..BYTE| 00001A60: 20 43 4D 4F 4E 54 48 2C 43 44 41 59 2C 43 59 45 | CMONTH,CDAY,CYE| 00001A70: 41 52 2C 43 48 4F 55 52 2C 43 4D 49 4E 55 54 0D |AR,CHOUR,CMINUT.| 00001A80: 2E 45 4E 44 0D |.END. |
.OPT ERRORS,NOLIST.;.; THIS ROUTINE DEL ETES AND RESAVES.; THE PROGRAM IN A G EOS FORMAT.;.; PRGNAM MUST BE THE LABEL FOR THE.; FILENAME.; INFO MUST BE T HE LABEL FOR THE INFO.; SECTOR DATA.; THE INFO SECTOR IS WRITTEN AGAIN TO.; ALLOW THE TEXT FIELD TO BE PRESET.; DESKTOP IS RELOADED AFTER THE.; OPERA TION IS COMPLETED.;.; THESE DEFINE USEFU L GEOS MEMORY.; LOCATIONS.R6510 =$01. GPNT1 =$02.GPNT2 =$04.TRACK =$04.SECT OR =$05.ROW =$05.GPNT3 =$06.BOXSIZ = $06.BXTOP =$06.BXBOT =$07.GPNT4 =$08. BXLEFT =$08.BUFPNT =$0A.BXRITE =$0A.DIRP NT =$0C.FILPNT =$0E.SGTYPE =$10.MAXFIL = $11.DIRPT2 =$14.DPAGE =$16.CLASSP =$16. COLUMN =$18.PATERN =$22.INPPNT =$24.FONT DT =$26.PLINE =$26.BSLEN =$27.PTSIZE = $29.BSPNTS =$2A.BSPNT =$2C.STYLE =$2E. SCNFLG =$2F.MSFLAG =$30.MSPNT =$31.TOPM =$33.BOTM =$34.LEFTM =$35.RIGHTM = $37.INPFLG =$39.MOUSEX =$3A.MOUSEY =$3C. CBPNT =$3F.JMPVEC =$41.WINPNT =$43.;.SC REN2 =$6000.;.PDRST =$7900.PDSEL =$790 3.PDOUT =$7906.PDCLOS =$7909.PDSIZE =$7 90C.PDNAME =$790F.;.BUF0 =$8000.BUF1 =$8100.BUF2 =$8200.BUF3 =$8300.;.DE NTRY =$8400.DNAME0 =$841E.DNAME1 =$8430. DNAME2 =$8442.DNAME3 =$8454.BOOTDV =$848 6.CURDRV =$8489.DRVFLG =$848A.FORMAT =$8 48B.SKEW =$848C.NUMDRV =$848D.CHAIN = $8496.NCHAIN =$8497.MODFLG =$8498.VSIZE =$8499.;.IMAIN =$849B.IGIRQ =$849D.IU IRQ =$849F.IBUTON =$84A1.ICRHIT =$84A3. IMSDIR =$84A5.ICLSMN =$84A7.IACTON =$84A 9.IMARGN =$84AB.IALARM =$84AD.IBRK =$8 4AF.ICLEAR =$84B1.;.DFTIME =$84B3.CURFLG =$84B4.CBFLAG =$84B5.POSFLG =$84B6.NUME NU =$84B7.;.WINSIZ =$84B8.WNTOP =$84B8. WNBOT =$84B9.WNLEFT =$84BA.WNRITE =$84B C.;.CURSX =$84BE.CURSY =$84C0.DMOUSE = $84C1.MAXSPD =$8501.MINSPD =$8502.ACCEL =$8503.KEY =$8504.BUTTON =$8505.MSDI R =$8506.SPEED =$8507.RNDNUM =$850A.TM PFNT =$850C.YEAR =$8516.MONTH =$8517. DAY =$8518.HOUR =$8519.MINUTE =$851 A.SECOND =$851B.TENTHS =$851C.WINCMD =$8 51D.PCOLOR =$851E.SAVBUF =$851F.NUMOPT = $86C0.;.MENSIZ =$86C1.MNTOP =$86C1.MNBO T =$86C2.MNLEFT =$86C3.MNRITE =$86C5.;. MSTACK =$86C7.OPTION =$86CF.LIMITH =$86D 3.LIMITL =$86E2.;.TIMERS =$86F1.TIMCMD = $8719.TIMRTN =$872D.TIMVAL =$8755.NUMTIM =$877D.;.DLYSP =$877E.DLYVAL =$877F.DL YRTN =$87A7.;.INPLEN =$87CF.INPMAX =$87D 0.TMPVEC =$87D1.MARFLG =$87D3.HEAD =$8 7D7.TAIL =$87D8.QFLAG =$87D9.QUEUE = $87DA.NXTKEY =$87EA.DWIDTH =$8807.BELFLG =$880A.;.CBTBL =$880C.CBMSX =$880D.CB MSY =$880F.CBDEFS =$8810.;.NUMFIL =$885 6.OFSETL =$8857.OFSETD =$8858.TBLPNT =$8 859.FSTFIL =$885B.SELFIL =$885C.;.TRY1 =$8869.LDFLAG =$886B.LDADRS =$886C.;.DT RACK =$886F.DSECTR =$8870.VDIRPT =$8871. VTRACK =$8873.VSECTR =$8874.;.TRY2 =$8 875.VERFLG =$8876.;.COLDAT =$8C00.SCREN1 =$A000.;.; PRINT STYLES.;.ULINE =$80.B OLD =$40.RVS =$20.ITALIC =$10.OUTLI N =$08.;.; DIRECTORY ENTRY DEFINITIONS.; .FTYPE =$00.FTRACK =$01.FSECTR =$02.FNA ME =$03.INFTRK =$13.INFSEC =$14.STRUCT =$15.GTYPE =$16.CYEAR =$17.CMONTH =$18 .CDAY =$19.CHOUR =$1A.CMINUT =$1B.FSI ZE =$1C.;.; INFO SECTOR DEFINITIONS.;.I CON =$05.IFTYPE =$44.IGTYPE =$45.ISTRC T =$46.LDADDR =$47.ENDADR =$49.STADDR =$ 4B.CLASS =$4D.AUTHOR =$61.FONTID =$80.T EXT =$A0.;.; THESE DEFINE ALL THE ENTR Y POINTS.; INTO THE GEOS KERNAL.;.ABS1 6 =$C16F.ALLOC =$C292.APPEND =$C289.BA SIC =$C241.BLKCMP =$C26E.BLKFIL =$C17B. BLKFL2 =$C1B4.BLKMOV =$C268.BLKSET =$C18 1.CBOX =$C142.CBOX2 =$C1AB.CBOXES =$C 15A.CHARST =$C1B1.CHGDRV =$C2BC.CKMOUS = $C2B3.CLRRDY =$C232.CLRSTS =$C235.CLSMNU =$C190.CLSSER =$C25F.CLSWIN =$C2BF.CMDT BL =$C103.CMENUS =$C1BD.CONVRT =$C1EA.CO PYB =$C12D.COPYB2 =$C1A5.COPYB3 =$C250. COPYB4 =$C253.COPYL =$C11E.COPYSP =$C1C 6.CURSOF =$C29E.CURSON =$C29B.CWIDTH =$C 1C9.CWRITE =$C223.DEC16 =$C175.DECODE = $C20E.DELAY =$C199.DELET2 =$C244.DELETE =$C238.DIRDSK =$C1F0.DIRMEM =$C1F3.DRAW =$C2AA.DRAW2 =$C2C5.DRAWCH =$C202.DR VNAM =$C298.DRVSET =$C2B0.DRWMNU =$C193. DSETUP =$C214.DSPCHR =$C145.DSPNUM =$C18 4.DSPTX2 =$C1AE.DSPTXT =$C148.ENABLE =$C 106.ERAMNS =$C157.ERAMNU =$C154.EXERTN = $C109.FALLOC =$C1FC.FALOC2 =$C24D.FONT =$C1CC.FORBID =$C10C.FREE =$C226.GEOS CK =$C1DE.GETBYT =$C2B6.GETIN =$C2A7.GO TO =$C280.GRPHC2 =$C1A8.GRPHIC =$C136. HLINE =$C118.HOLE =$C1F6.INDJMP =$C1D 8.INIT01 =$C271.INITDV =$C1E1.INITMS =$C 14E.INPUT =$C1BA.INSERT =$C286.INTBM = $C17E.INTBM2 =$C1B7.INUSE =$C2AD.INVBOX =$C12A.INVLIN =$C11B.IRQRTN =$C100.LCHA IN =$C1FF.LDSWAP =$C23E.LINE =$C130.LO AD =$C208.LOAD2 =$C211.LOAD3 =$C21D. LOADAD =$C229.LOADSW =$C217.LOOKUP =$C20 B.MAIN =$C1C3.MAKCUR =$C1C0.MASL =$C 15D.MENU =$C151.MLSR =$C262.MOUSOF = $C18D.MOUSON =$C18A.NEG16 =$C172.NEXT =$C27A.NUMBLK =$C1DB.OPNDSK =$C2A1.OPNS ER =$C25C.PBOX =$C127.PBOX2 =$C1A2.PE RMIT =$C10F.PFILL =$C124.PFILL2 =$C19F. PLOT =$C133.POSSPR =$C1CF.PREV =$C27 D.RANDOM =$C187.RD180 =$C247.READ =$C 1E4.READ2 =$C21A.REBOOT =$C000.REMOVE = $C283.RENAME =$C259.RESETM =$C19C.RESTRT =$C22C.ROWADR =$C13C.RUN =$C22F.SAVE =$C1ED.SAVE2 =$C1F9.SD1616 =$C16C.SE LBSW =$C14B.SETPAT =$C139.SPROFF =$C1D5. SPRON =$C1D2.START =$C115.STOP =$C11 2.STRCMP =$C26B.STRCPY =$C265.SYSERR =$C 2C2.TABLE =$C23B.TBLJMP =$C2A4.TEST = $C13F.TRACE =$C205.UD1616 =$C169.UM1616 =$C166.UM168 =$C163.UMUL88 =$C160.UPDA TE =$C295.VCLOSE =$C277.VLINE =$C121.VL OAD =$C28C.VOPEN =$C274.VSAVE =$C28F. WHATIS =$C196.WINDOW =$C256.WR180 =$C24 A.WRITE =$C1E7.WRITE2 =$C220.ZFILL =$C 178.;.; POINTER MACRO DEFINITIONS.;.; CO PY A POINTER TO ANOTHER POINTER.;..MAC C OPY ; COPY SRC,DEST. LDA ?1. STA ?2. L DA ?1+1. STA ?2+1..MND.;.; LOAD A POINTE R WITH IMMEDIATE DATA.;..MAC MOVE ; MO VE DATA,POINTER. LDA #<?1. STA ?2. LDA # >?1. STA ?2+1..MND.;.; PUSH A POINTER ON THE STACK.;..MAC PUSH ; PUSH POINTER. LDA ?1. PHA. LDA ?1+1. PHA..MND.;.; PUL L A POINTER FROM THE STACK.;..MAC PULL ; PULL POINTER. PLA. STA ?1+1. PLA. STA ?1..MND.;.; INCREMENT A POINTER.;..MAC INCR ; INCR POINTER. INC ?1. BNE ?2. I NC ?1+1.?2..MND.;.; DECREMENT A POINTER. ;..MAC DECR ; DECR POINTER. LDA ?1. BN E ?2. DEC ?1+1.?2. DEC ?1..MND.;.; COMPA RE TWO POINTERS.;..MAC COMP ; COMP PNT 1,PNT2,EQUAL. LDA ?1. CMP ?2. BNE ?4. LD A ?1+1. CMP ?2+1. BNE ?4. JMP ?3.?4..MND .;.; DEFINE SPACE.;..MAC DS ; DS #BY TES.*=*+?1..MND.;.; 1986 SYS2061.*=$0801 . .WORD 2059. .WORD 1986. .BYTE 158,'206 1',0,0,0.;. SEI. LDA #$30 ; ALL RAM. STA R6510.. MOVE PRGNAM,GPNT1. JSR DELET E ; DELETE THIS FILE.. MOVE PRGNAM,INFO . MOVE INFO,DIRPT2. LDA #$00 ; #DIR S ECTORS TO SKIP. STA DPAGE. JSR SAVE ; SAVE PROGRAM.. MOVE $FF00,INFO. MOVE IN FO,BUFPNT ; REWRITE INFO SECTOR. LDA DEN TRY+INFTRK. STA TRACK. LDA DENTRY+INFSEC . STA SECTOR. JSR WRITE.. MOVE PRGNAM,FI LPNT ; SET PROPER. JSR LOOKUP ; TIME AND DATE. LDX #$00.XYZZY1. LDY XYZZ Y2,X. LDA PRGTAD,X. STA (DIRPNT),Y. INX. CPX #$05. BNE XYZZY1. JSR WRITE.. JSR I NIT01 ; RESET GEOS VARIABLES. JMP RESTR T ; RELOAD DESKTOP.XYZZY2..BYTE CMONTH, CDAY,CYEAR,CHOUR,CMINUT..END.
> CLICK IMAGE PREVIEW FOR FULL MODAL