TERM V4.1.SOURCE
FILE INFORMATION
FILENAME(S): TERM V4.1.SOURCE
FILE TYPE(S): SEQ
FILE SIZE: 10.8K
FIRST SEEN: 2025-11-02 16:39:50
APPEARS ON: 1 disk(s)
FILE HASH
b9733548b0f14b485d52b30aec1a0e90b2e513c1181b66fd3e52f52a97adc966
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 12 | TERM V4.1.SOURCE | SEQ | Treasure Chest - Plattfuss | 10 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0A 52 45 41 44 59 2E 0D 0A 0D 31 30 30 30 |...READY....1000| 00000010: 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ; *************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000030: 2A 2A 2A 2A 2A 0D 31 30 31 30 20 3B 20 2A 2A 2A |*****.1010 ; ***| 00000040: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 00000050: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 0D | ****.| 00000060: 31 30 32 30 20 3B 20 2A 2A 2A 2A 20 20 20 20 20 |1020 ; **** | 00000070: 4E 45 5A 54 45 52 4D 20 56 34 2E 31 20 4D 4C 20 |NEZTERM V4.1 ML | 00000080: 20 20 20 20 20 2A 2A 2A 2A 0D 31 30 33 30 20 3B | ****.1030 ;| 00000090: 20 2A 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 | **** | 000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *| 000000B0: 2A 2A 2A 0D 31 30 34 30 20 3B 20 2A 2A 2A 2A 20 |***.1040 ; **** | 000000C0: 20 20 20 42 59 3A 20 42 49 4C 4C 20 4E 45 53 42 | BY: BILL NESB| 000000D0: 49 54 54 20 20 20 20 20 20 2A 2A 2A 2A 0D 31 30 |ITT ****.10| 000000E0: 35 30 20 3B 20 2A 2A 2A 2A 20 20 20 20 20 20 4F |50 ; **** O| 000000F0: 4E 3A 20 30 34 2F 30 34 2F 38 36 20 20 20 20 20 |N: 04/04/86 | 00000100: 20 20 20 2A 2A 2A 2A 0D 31 30 36 30 20 3B 20 2A | ****.1060 ; *| 00000110: 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |*** | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A | ***| 00000130: 2A 0D 31 30 37 30 20 3B 20 2A 2A 2A 2A 20 46 4F |*.1070 ; **** FO| 00000140: 52 20 55 53 45 20 57 49 54 48 20 43 4F 4D 4D 4F |R USE WITH COMMO| 00000150: 44 4F 52 45 27 53 20 2A 2A 2A 2A 0D 31 30 38 30 |DORE'S ****.1080| 00000160: 20 3B 20 2A 2A 2A 2A 20 20 41 53 53 45 4D 42 4C | ; **** ASSEMBL| 00000170: 45 52 20 44 45 56 45 4C 4F 50 45 4D 45 4E 54 20 |ER DEVELOPEMENT | 00000180: 20 2A 2A 2A 2A 0D 31 30 39 30 20 3B 20 2A 2A 2A | ****.1090 ; ***| 00000190: 2A 20 20 20 20 53 59 53 54 45 4D 20 4F 4E 20 54 |* SYSTEM ON T| 000001A0: 48 45 20 43 36 34 20 20 20 20 20 2A 2A 2A 2A 0D |HE C64 ****.| 000001B0: 31 31 30 30 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |1100 ; *********| 000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 31 31 31 30 20 3B |*********.1110 ;| 000001E0: 0D 31 31 32 30 20 2A 3D 24 32 43 30 30 0D 31 31 |.1120 *=$2C00.11| 000001F0: 33 30 20 3B 0D 31 31 34 30 20 3B 2D 2D 2D 2D 20 |30 ;.1140 ;---- | 00000200: 4B 45 52 4E 41 4C 20 52 4F 55 54 49 4E 45 53 20 |KERNAL ROUTINES | 00000210: 2D 2D 2D 0D 31 31 35 30 20 3B 0D 31 31 36 30 20 |---.1150 ;.1160 | 00000220: 52 45 41 44 53 54 20 3D 20 24 46 46 42 37 0D 31 |READST = $FFB7.1| 00000230: 31 37 30 20 53 45 54 4C 46 53 20 3D 20 24 46 46 |170 SETLFS = $FF| 00000240: 42 41 0D 31 31 38 30 20 4F 50 45 4E 20 20 20 3D |BA.1180 OPEN =| 00000250: 20 24 46 46 43 30 0D 31 31 39 30 20 43 4C 4F 53 | $FFC0.1190 CLOS| 00000260: 45 20 20 3D 20 24 46 46 43 33 0D 31 32 30 30 20 |E = $FFC3.1200 | 00000270: 43 48 4B 49 4E 20 20 3D 20 24 46 46 43 36 0D 31 |CHKIN = $FFC6.1| 00000280: 32 31 30 20 43 48 4B 4F 55 54 20 3D 20 24 46 46 |210 CHKOUT = $FF| 00000290: 43 39 0D 31 32 32 30 20 43 48 52 49 4E 20 20 3D |C9.1220 CHRIN =| 000002A0: 20 24 46 46 43 46 0D 31 32 33 30 20 43 48 52 4F | $FFCF.1230 CHRO| 000002B0: 55 54 20 3D 20 24 46 46 44 32 0D 31 32 34 30 20 |UT = $FFD2.1240 | 000002C0: 47 45 54 49 4E 20 20 3D 20 24 46 46 45 34 0D 31 |GETIN = $FFE4.1| 000002D0: 32 35 30 20 43 4C 52 43 48 4E 20 3D 20 24 46 46 |250 CLRCHN = $FF| 000002E0: 43 43 0D 31 32 36 30 20 3B 0D 31 32 37 30 20 42 |CC.1260 ;.1270 B| 000002F0: 55 47 47 45 52 20 2E 57 4F 52 44 20 24 30 34 30 |UGGER .WORD $040| 00000300: 30 20 20 20 20 20 3B 20 53 54 41 52 54 20 4F 46 |0 ; START OF| 00000310: 20 42 55 46 46 0D 31 32 38 30 20 5A 50 20 20 20 | BUFF.1280 ZP | 00000320: 20 20 3D 20 24 37 32 20 20 20 20 20 20 20 20 20 | = $72 | 00000330: 20 20 3B 20 5A 50 20 41 44 44 52 45 53 53 20 46 | ; ZP ADDRESS F| 00000340: 4F 52 20 53 54 41 52 2F 4C 44 41 52 0D 31 32 39 |OR STAR/LDAR.129| 00000350: 30 20 53 54 41 52 20 20 20 3D 20 24 32 41 46 20 |0 STAR = $2AF | 00000360: 20 20 20 20 20 20 20 20 20 3B 20 53 54 41 20 46 | ; STA F| 00000370: 41 52 20 52 4F 55 54 49 4E 45 0D 31 33 30 30 20 |AR ROUTINE.1300 | 00000380: 4C 44 41 52 20 20 20 3D 20 24 32 41 32 20 20 20 |LDAR = $2A2 | 00000390: 20 20 20 20 20 20 20 3B 20 4C 44 41 20 46 41 52 | ; LDA FAR| 000003A0: 20 52 4F 55 54 49 4E 45 0D 31 33 31 30 20 53 54 | ROUTINE.1310 ST| 000003B0: 41 54 20 20 20 3D 20 24 39 36 20 20 20 20 20 20 |AT = $96 | 000003C0: 20 20 20 20 20 3B 20 53 54 41 54 55 53 20 42 59 | ; STATUS BY| 000003D0: 54 45 0D 31 33 32 30 20 3B 0D 31 33 33 30 20 3B |TE.1320 ;.1330 ;| 000003E0: 0D 31 33 34 30 20 20 20 20 20 20 20 20 4A 4D 50 |.1340 JMP| 000003F0: 20 53 57 41 54 20 20 20 20 20 20 20 20 3B 20 45 | SWAT ; E| 00000400: 4E 54 52 59 20 54 4F 20 54 45 52 4D 49 4E 41 4C |NTRY TO TERMINAL| 00000410: 20 4D 4F 44 45 0D 31 33 35 30 20 20 20 20 20 20 | MODE.1350 | 00000420: 20 20 4A 4D 50 20 52 53 45 51 20 20 20 20 20 20 | JMP RSEQ | 00000430: 20 20 3B 20 52 45 41 44 20 53 45 51 20 46 49 4C | ; READ SEQ FIL| 00000440: 45 0D 31 33 36 30 20 20 20 20 20 20 20 20 4A 4D |E.1360 JM| 00000450: 50 20 42 50 52 4E 54 20 20 20 20 20 20 20 3B 20 |P BPRNT ; | 00000460: 44 55 4D 50 20 42 55 46 46 45 52 0D 31 33 37 30 |DUMP BUFFER.1370| 00000470: 20 20 20 20 20 20 20 20 4A 4D 50 20 4C 42 55 46 | JMP LBUF| 00000480: 46 20 20 20 20 20 20 20 3B 20 4C 4F 41 44 20 42 |F ; LOAD B| 00000490: 55 46 46 45 52 20 46 52 4F 4D 20 44 49 53 4B 0D |UFFER FROM DISK.| 000004A0: 31 33 38 30 20 46 4C 41 47 20 20 20 2E 42 59 54 |1380 FLAG .BYT| 000004B0: 45 20 30 30 20 20 20 20 20 20 20 20 3B 20 43 4F |E 00 ; CO| 000004C0: 4D 4D 55 4E 49 43 41 54 49 4F 4E 20 52 45 47 0D |MMUNICATION REG.| 000004D0: 31 33 39 30 20 44 55 50 4C 20 20 20 2E 42 59 54 |1390 DUPL .BYT| 000004E0: 45 20 30 30 20 20 20 20 20 20 20 20 3B 20 44 55 |E 00 ; DU| 000004F0: 50 4C 45 58 20 42 59 54 45 0D 31 34 30 30 20 46 |PLEX BYTE.1400 F| 00000500: 4C 41 47 32 20 20 2E 42 59 54 45 20 30 31 20 20 |LAG2 .BYTE 01 | 00000510: 20 20 20 20 20 20 3B 20 43 4F 4D 4D 55 4E 49 43 | ; COMMUNIC| 00000520: 41 54 49 4F 4E 20 52 45 47 0D 31 34 31 30 20 20 |ATION REG.1410 | 00000530: 20 20 20 20 20 20 4A 4D 50 20 44 49 52 20 20 20 | JMP DIR | 00000540: 20 20 20 20 20 20 3B 20 52 45 41 44 20 44 49 52 | ; READ DIR| 00000550: 45 43 54 4F 52 59 20 52 4F 55 54 49 4E 45 0D 31 |ECTORY ROUTINE.1| 00000560: 34 32 30 20 53 57 41 54 20 20 20 4C 44 41 20 42 |420 SWAT LDA B| 00000570: 55 47 47 45 52 20 20 20 20 20 20 3B 20 54 52 41 |UGGER ; TRA| 00000580: 4E 53 46 45 52 20 42 55 46 46 45 52 0D 31 34 33 |NSFER BUFFER.143| 00000590: 30 20 20 20 20 20 20 20 20 53 54 41 20 5A 50 20 |0 STA ZP | 000005A0: 20 20 20 20 20 20 20 20 20 3B 20 50 4F 49 4E 54 | ; POINT| 000005B0: 45 52 20 54 4F 20 5A 50 20 4C 4F 43 41 54 49 4F |ER TO ZP LOCATIO| 000005C0: 4E 0D 31 34 34 30 20 20 20 20 20 20 20 20 4C 44 |N.1440 LD| 000005D0: 41 20 42 55 47 47 45 52 2B 31 0D 31 34 35 30 20 |A BUGGER+1.1450 | 000005E0: 20 20 20 20 20 20 20 53 54 41 20 5A 50 2B 31 0D | STA ZP+1.| 000005F0: 31 34 36 30 20 3B 0D 31 34 37 30 20 3B 20 49 4E |1460 ;.1470 ; IN| 00000600: 50 55 54 20 46 52 4F 4D 20 4D 4F 44 45 4D 0D 31 |PUT FROM MODEM.1| 00000610: 34 38 30 20 3B 0D 31 34 39 30 20 49 4E 4D 4F 44 |480 ;.1490 INMOD| 00000620: 20 20 4A 53 52 20 43 4C 52 43 48 4E 0D 31 35 30 | JSR CLRCHN.150| 00000630: 30 20 20 20 20 20 20 20 20 4C 44 58 20 23 35 20 |0 LDX #5 | 00000640: 20 20 20 20 20 20 20 20 20 3B 20 4D 4F 44 45 4D | ; MODEM| 00000650: 0D 31 35 31 30 20 20 20 20 20 20 20 20 4A 53 52 |.1510 JSR| 00000660: 20 43 48 4B 49 4E 0D 31 35 32 30 20 20 20 20 20 | CHKIN.1520 | 00000670: 20 20 20 4A 53 52 20 47 45 54 49 4E 0D 31 35 33 | JSR GETIN.153| 00000680: 30 20 20 20 20 20 20 20 20 43 4D 50 20 23 30 0D |0 CMP #0.| 00000690: 31 35 34 30 20 20 20 20 20 20 20 20 42 4E 45 20 |1540 BNE | 000006A0: 5A 5A 32 0D 31 35 35 30 20 20 20 20 20 20 20 20 |ZZ2.1550 | 000006B0: 4A 4D 50 20 45 4E 44 20 20 20 20 20 20 20 20 20 |JMP END | 000006C0: 3B 20 2D 2D 2D 20 50 45 54 41 53 43 49 49 20 43 |; --- PETASCII C| 000006D0: 4F 4E 56 45 52 53 49 4F 4E 20 2D 2D 2D 0D 31 35 |ONVERSION ---.15| 000006E0: 36 30 20 5A 5A 32 20 20 20 20 41 4E 44 20 23 25 |60 ZZ2 AND #%| 000006F0: 30 31 31 31 31 31 31 31 20 20 3B 20 42 49 54 20 |01111111 ; BIT | 00000700: 37 3D 30 0D 31 35 37 30 20 20 20 20 20 20 20 20 |7=0.1570 | 00000710: 43 4D 50 20 23 24 34 30 20 20 20 20 20 20 20 20 |CMP #$40 | 00000720: 3B 20 4C 4F 57 45 52 20 27 41 27 0D 31 35 38 30 |; LOWER 'A'.1580| 00000730: 20 20 20 20 20 20 20 20 42 4D 49 20 4E 4F 50 45 | BMI NOPE| 00000740: 0D 31 35 39 30 20 20 20 20 20 20 20 20 43 4D 50 |.1590 CMP| 00000750: 20 23 24 35 42 20 20 20 20 20 20 20 20 3B 20 4C | #$5B ; L| 00000760: 4F 57 45 52 20 27 5A 27 0D 31 36 30 30 20 20 20 |OWER 'Z'.1600 | 00000770: 20 20 20 20 20 42 50 4C 20 4E 4F 50 45 0D 31 36 | BPL NOPE.16| 00000780: 31 30 20 20 20 20 20 20 20 20 4F 52 41 20 23 24 |10 ORA #$| 00000790: 32 30 0D 31 36 32 30 20 20 20 20 20 20 20 20 4A |20.1620 J| 000007A0: 4D 50 20 46 46 49 4E 45 0D 31 36 33 30 20 4E 4F |MP FFINE.1630 NO| 000007B0: 50 45 20 20 20 43 4D 50 20 23 24 36 30 20 20 20 |PE CMP #$60 | 000007C0: 20 20 20 20 20 3B 20 55 50 50 45 52 20 27 41 27 | ; UPPER 'A'| 000007D0: 0D 31 36 34 30 20 20 20 20 20 20 20 20 42 4D 49 |.1640 BMI| 000007E0: 20 46 46 49 4E 45 0D 31 36 35 30 20 20 20 20 20 | FFINE.1650 | 000007F0: 20 20 20 43 4D 50 20 23 24 37 42 20 20 20 20 20 | CMP #$7B | 00000800: 20 20 20 3B 20 55 50 50 45 52 20 27 5A 27 0D 31 | ; UPPER 'Z'.1| 00000810: 36 36 30 20 20 20 20 20 20 20 20 42 50 4C 20 46 |660 BPL F| 00000820: 46 49 4E 45 0D 31 36 37 30 20 20 20 20 20 20 20 |FINE.1670 | 00000830: 20 41 4E 44 20 23 24 44 46 0D 31 36 38 30 20 46 | AND #$DF.1680 F| 00000840: 46 49 4E 45 20 20 4A 53 52 20 46 49 4E 45 0D 31 |FINE JSR FINE.1| 00000850: 36 39 30 20 20 20 20 20 20 20 20 4A 4D 50 20 45 |690 JMP E| 00000860: 4E 44 0D 31 37 30 30 20 46 49 4E 45 20 20 20 43 |ND.1700 FINE C| 00000870: 4D 50 20 23 31 30 20 20 20 20 20 20 20 20 20 3B |MP #10 ;| 00000880: 20 4C 46 0D 31 37 31 30 20 20 20 20 20 20 20 20 | LF.1710 | 00000890: 42 4E 45 20 5A 5A 0D 31 37 32 30 20 20 20 20 20 |BNE ZZ.1720 | 000008A0: 20 20 20 4A 4D 50 20 45 4E 44 31 0D 31 37 33 30 | JMP END1.1730| 000008B0: 20 5A 5A 20 20 20 20 20 43 4D 50 20 23 38 20 20 | ZZ CMP #8 | 000008C0: 20 20 20 20 20 20 20 20 3B 20 44 45 4C 0D 31 37 | ; DEL.17| 000008D0: 34 30 20 20 20 20 20 20 20 20 42 4E 45 20 54 45 |40 BNE TE| 000008E0: 53 54 0D 31 37 35 30 20 20 20 20 20 20 20 20 4C |ST.1750 L| 000008F0: 44 41 20 23 32 30 20 20 20 20 20 20 20 20 20 3B |DA #20 ;| 00000900: 20 43 3D 20 44 45 4C 0D 31 37 36 30 20 4A 4D 50 | C= DEL.1760 JMP| 00000910: 20 20 20 20 53 4B 49 50 0D 31 37 37 30 20 54 45 | SKIP.1770 TE| 00000920: 53 54 20 20 20 50 48 41 0D 31 37 38 30 20 20 20 |ST PHA.1780 | 00000930: 20 20 20 20 20 4C 44 41 20 46 4C 41 47 32 0D 31 | LDA FLAG2.1| 00000940: 37 39 30 20 20 20 20 20 20 20 20 42 4E 45 20 4B |790 BNE K| 00000950: 4B 4B 0D 31 38 30 30 20 20 20 20 20 20 20 20 4A |KK.1800 J| 00000960: 4D 50 20 42 55 46 46 0D 31 38 31 30 20 4B 4B 4B |MP BUFF.1810 KKK| 00000970: 20 20 20 20 50 4C 41 0D 31 38 32 30 20 20 20 20 | PLA.1820 | 00000980: 20 20 20 20 43 4D 50 20 23 33 34 20 20 20 20 20 | CMP #34 | 00000990: 20 20 20 20 3B 20 51 55 4F 54 45 0D 31 38 33 30 | ; QUOTE.1830| 000009A0: 20 20 20 20 20 20 20 20 42 4E 45 20 53 4B 49 50 | BNE SKIP| 000009B0: 0D 31 38 34 30 20 20 20 20 20 20 20 20 4A 53 52 |.1840 JSR| 000009C0: 20 43 48 52 4F 55 54 0D 31 38 35 30 20 20 20 20 | CHROUT.1850 | 000009D0: 20 20 20 20 4C 44 41 20 23 32 30 20 20 20 20 20 | LDA #20 | 000009E0: 20 20 20 20 3B 20 43 3D 20 44 45 4C 0D 31 38 36 | ; C= DEL.186| 000009F0: 30 20 20 20 20 20 20 20 20 4A 53 52 20 43 48 52 |0 JSR CHR| 00000A00: 4F 55 54 0D 31 38 37 30 20 20 20 20 20 20 20 20 |OUT.1870 | 00000A10: 4C 44 41 20 23 33 34 20 20 20 20 20 20 20 20 20 |LDA #34 | 00000A20: 3B 20 51 55 4F 54 45 0D 31 38 38 30 20 20 20 20 |; QUOTE.1880 | 00000A30: 20 20 20 20 4A 53 52 20 43 48 52 4F 55 54 0D 31 | JSR CHROUT.1| 00000A40: 38 39 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 |890 LDA #| 00000A50: 24 41 34 20 20 20 20 20 20 20 20 3B 20 43 55 52 |$A4 ; CUR| 00000A60: 53 4F 52 0D 31 39 30 30 20 20 20 20 20 20 20 20 |SOR.1900 | 00000A70: 4A 53 52 20 43 48 52 4F 55 54 0D 31 39 31 30 20 |JSR CHROUT.1910 | 00000A80: 20 20 20 20 20 20 20 4C 44 41 20 23 24 39 44 20 | LDA #$9D | 00000A90: 20 20 20 20 20 20 20 3B 20 42 41 43 4B 53 50 41 | ; BACKSPA| 00000AA0: 43 45 0D 31 39 32 30 20 20 20 20 20 20 20 20 4A |CE.1920 J| 00000AB0: 53 52 20 43 48 52 4F 55 54 0D 31 39 33 30 20 20 |SR CHROUT.1930 | 00000AC0: 20 20 20 20 20 20 4A 4D 50 20 45 4E 44 31 0D 31 | JMP END1.1| 00000AD0: 39 34 30 20 53 4B 49 50 20 20 20 43 4D 50 20 23 |940 SKIP CMP #| 00000AE0: 32 30 20 20 20 20 20 20 20 20 20 3B 20 54 45 53 |20 ; TES| 00000AF0: 54 20 43 3D 20 44 45 4C 0D 31 39 35 30 20 20 20 |T C= DEL.1950 | 00000B00: 20 20 20 20 20 42 45 51 20 44 45 4C 45 54 45 0D | BEQ DELETE.| 00000B10: 31 39 36 30 20 20 20 20 20 20 20 20 50 48 41 0D |1960 PHA.| 00000B20: 31 39 37 30 20 20 20 20 20 20 20 20 4C 44 41 20 |1970 LDA | 00000B30: 23 33 32 20 20 20 20 20 20 20 20 20 3B 20 53 50 |#32 ; SP| 00000B40: 41 43 45 0D 31 39 38 30 20 20 20 20 20 20 20 20 |ACE.1980 | 00000B50: 4A 53 52 20 43 48 52 4F 55 54 0D 31 39 39 30 20 |JSR CHROUT.1990 | 00000B60: 20 20 20 20 20 20 20 4C 44 41 20 23 24 39 44 20 | LDA #$9D | 00000B70: 20 20 20 20 20 20 20 3B 20 42 41 43 4B 53 50 41 | ; BACKSPA| 00000B80: 43 45 0D 32 30 30 30 20 20 20 20 20 20 20 20 4A |CE.2000 J| 00000B90: 53 52 20 43 48 52 4F 55 54 0D 32 30 31 30 20 20 |SR CHROUT.2010 | 00000BA0: 20 20 20 20 20 20 50 4C 41 0D 32 30 32 30 20 20 | PLA.2020 | 00000BB0: 20 20 20 20 20 20 4A 53 52 20 43 48 52 4F 55 54 | JSR CHROUT| 00000BC0: 0D 32 30 33 30 20 20 20 20 20 20 20 20 4C 44 41 |.2030 LDA| 00000BD0: 20 23 24 41 34 20 20 20 20 20 20 20 20 3B 20 43 | #$A4 ; C| 00000BE0: 55 52 53 4F 52 0D 32 30 34 30 20 20 20 20 20 20 |URSOR.2040 | 00000BF0: 20 20 4A 53 52 20 43 48 52 4F 55 54 0D 32 30 35 | JSR CHROUT.205| 00000C00: 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 39 |0 LDA #$9| 00000C10: 44 20 20 20 20 20 20 20 20 3B 20 42 41 43 4B 53 |D ; BACKS| 00000C20: 50 41 43 45 0D 32 30 36 30 20 20 20 20 20 20 20 |PACE.2060 | 00000C30: 20 4A 53 52 20 43 48 52 4F 55 54 0D 32 30 37 30 | JSR CHROUT.2070| 00000C40: 20 45 4E 44 31 20 20 20 52 54 53 0D 32 30 38 30 | END1 RTS.2080| 00000C50: 20 44 45 4C 45 54 45 20 4C 44 41 20 23 33 32 20 | DELETE LDA #32 | 00000C60: 20 20 20 20 20 20 20 20 3B 20 53 50 41 43 45 0D | ; SPACE.| 00000C70: 32 30 39 30 20 20 20 20 20 20 20 20 4A 53 52 20 |2090 JSR | 00000C80: 43 48 52 4F 55 54 0D 32 31 30 30 20 20 20 20 20 |CHROUT.2100 | 00000C90: 20 20 20 4C 44 41 20 23 24 39 44 20 20 20 20 20 | LDA #$9D | 00000CA0: 20 20 20 3B 20 42 41 43 4B 53 50 41 43 45 0D 32 | ; BACKSPACE.2| 00000CB0: 31 31 30 20 20 20 20 20 20 20 20 4A 53 52 20 43 |110 JSR C| 00000CC0: 48 52 4F 55 54 0D 32 31 32 30 20 20 20 20 20 20 |HROUT.2120 | 00000CD0: 20 20 4A 53 52 20 43 48 52 4F 55 54 0D 32 31 33 | JSR CHROUT.213| 00000CE0: 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 41 |0 LDA #$A| 00000CF0: 34 20 20 20 20 20 20 20 20 3B 20 43 55 52 53 4F |4 ; CURSO| 00000D00: 52 0D 32 31 34 30 20 20 20 20 20 20 20 20 4A 53 |R.2140 JS| 00000D10: 52 20 43 48 52 4F 55 54 0D 32 31 35 30 20 20 20 |R CHROUT.2150 | 00000D20: 20 20 20 20 20 4C 44 41 20 23 24 39 44 20 20 20 | LDA #$9D | 00000D30: 20 20 20 20 20 3B 20 42 41 43 4B 53 50 41 43 45 | ; BACKSPACE| 00000D40: 0D 32 31 36 30 20 20 20 20 20 20 20 20 4A 53 52 |.2160 JSR| 00000D50: 20 43 48 52 4F 55 54 0D 32 31 37 30 20 20 20 20 | CHROUT.2170 | 00000D60: 20 20 20 20 52 54 53 0D 32 31 38 30 20 3B 0D 32 | RTS.2180 ;.2| 00000D70: 31 39 30 20 3B 20 49 4E 50 55 54 20 46 52 4F 4D |190 ; INPUT FROM| 00000D80: 20 4B 45 59 42 4F 41 52 44 0D 32 32 30 30 20 3B | KEYBOARD.2200 ;| 00000D90: 0D 32 32 31 30 20 45 4E 44 20 20 20 20 4A 53 52 |.2210 END JSR| 00000DA0: 20 43 4C 52 43 48 4E 0D 32 32 32 30 20 20 20 20 | CLRCHN.2220 | 00000DB0: 20 20 20 20 4C 44 58 20 23 35 0D 32 32 33 30 20 | LDX #5.2230 | 00000DC0: 20 20 20 20 20 20 20 4A 53 52 20 43 48 4B 4F 55 | JSR CHKOU| 00000DD0: 54 0D 32 32 34 30 20 20 20 20 20 20 20 20 4A 53 |T.2240 JS| 00000DE0: 52 20 47 45 54 49 4E 0D 32 32 35 30 20 20 20 20 |R GETIN.2250 | 00000DF0: 20 20 20 20 42 4E 45 20 4C 4C 4C 0D 32 32 36 30 | BNE LLL.2260| 00000E00: 20 20 20 20 20 20 20 20 4A 4D 50 20 43 4C 4F 43 | JMP CLOC| 00000E10: 4B 20 20 20 20 20 20 20 3B 20 4E 4F 20 4B 45 59 |K ; NO KEY| 00000E20: 20 50 52 45 53 53 45 44 0D 32 32 37 30 20 4C 4C | PRESSED.2270 LL| 00000E30: 4C 20 20 20 20 50 48 41 0D 32 32 38 30 20 20 20 |L PHA.2280 | 00000E40: 20 20 20 20 20 4C 44 41 20 44 55 50 4C 20 20 20 | LDA DUPL | 00000E50: 20 20 20 20 20 3B 20 43 48 45 43 4B 20 44 55 50 | ; CHECK DUP| 00000E60: 4C 45 58 0D 32 32 39 30 20 20 20 20 20 20 20 20 |LEX.2290 | 00000E70: 42 45 51 20 46 55 4C 4C 0D 32 33 30 30 20 48 41 |BEQ FULL.2300 HA| 00000E80: 4C 46 20 20 20 4A 53 52 20 43 4C 52 43 48 4E 0D |LF JSR CLRCHN.| 00000E90: 32 33 31 30 20 20 20 20 20 20 20 20 50 4C 41 0D |2310 PLA.| 00000EA0: 32 33 32 30 20 20 20 20 20 20 20 20 50 48 41 0D |2320 PHA.| 00000EB0: 32 33 33 30 20 20 20 20 20 20 20 20 4A 53 52 20 |2330 JSR | 00000EC0: 46 49 4E 45 0D 32 33 34 30 20 20 20 20 20 20 20 |FINE.2340 | 00000ED0: 20 4C 44 58 20 23 35 0D 32 33 35 30 20 20 20 20 | LDX #5.2350 | 00000EE0: 20 20 20 20 4A 53 52 20 43 48 4B 4F 55 54 0D 32 | JSR CHKOUT.2| 00000EF0: 33 36 30 20 46 55 4C 4C 20 20 20 50 4C 41 20 20 |360 FULL PLA | 00000F00: 20 20 20 20 20 20 20 20 20 20 20 3B 20 2D 2D 2D | ; ---| 00000F10: 20 41 53 43 49 49 20 43 4F 4E 56 45 52 53 49 4F | ASCII CONVERSIO| 00000F20: 4E 20 2D 2D 2D 0D 32 33 37 30 20 5A 5A 31 20 20 |N ---.2370 ZZ1 | 00000F30: 20 20 43 4D 50 20 23 24 34 30 20 20 20 20 20 20 | CMP #$40 | 00000F40: 20 20 3B 20 4C 4F 57 45 52 20 27 41 27 0D 32 33 | ; LOWER 'A'.23| 00000F50: 38 30 20 20 20 20 20 20 20 20 42 4D 49 20 4E 4F |80 BMI NO| 00000F60: 50 45 31 0D 32 33 39 30 20 20 20 20 20 20 20 20 |PE1.2390 | 00000F70: 43 4D 50 20 23 24 35 42 20 20 20 20 20 20 20 20 |CMP #$5B | 00000F80: 3B 20 4C 4F 57 45 52 20 27 5A 27 0D 32 34 30 30 |; LOWER 'Z'.2400| 00000F90: 20 20 20 20 20 20 20 20 42 50 4C 20 4E 4F 50 45 | BPL NOPE| 00000FA0: 31 0D 32 34 31 30 20 20 20 20 20 20 20 20 4F 52 |1.2410 OR| 00000FB0: 41 20 23 24 32 30 0D 32 34 32 30 20 20 20 20 20 |A #$20.2420 | 00000FC0: 20 20 20 4A 4D 50 20 46 49 4E 45 31 0D 32 34 33 | JMP FINE1.243| 00000FD0: 30 20 4E 4F 50 45 31 20 20 43 4D 50 20 23 24 36 |0 NOPE1 CMP #$6| 00000FE0: 30 20 20 20 20 20 20 20 20 3B 20 55 50 50 45 52 |0 ; UPPER| 00000FF0: 20 27 41 27 0D 32 34 34 30 20 20 20 20 20 20 20 | 'A'.2440 | 00001000: 20 42 4D 49 20 46 49 4E 45 31 0D 32 34 35 30 20 | BMI FINE1.2450 | 00001010: 20 20 20 20 20 20 20 43 4D 50 20 23 24 37 42 20 | CMP #$7B | 00001020: 20 20 20 20 20 20 20 3B 20 55 50 50 45 52 20 27 | ; UPPER '| 00001030: 5A 27 0D 32 34 36 30 20 20 20 20 20 20 20 20 42 |Z'.2460 B| 00001040: 50 4C 20 46 49 4E 45 31 0D 32 34 37 30 20 20 20 |PL FINE1.2470 | 00001050: 20 20 20 20 20 41 4E 44 20 23 24 44 46 0D 32 34 | AND #$DF.24| 00001060: 38 30 20 46 49 4E 45 31 20 20 43 4D 50 20 23 32 |80 FINE1 CMP #2| 00001070: 30 20 20 20 20 20 20 20 20 20 3B 20 43 3D 20 44 |0 ; C= D| 00001080: 45 4C 0D 32 34 39 30 20 20 20 20 20 20 20 20 42 |EL.2490 B| 00001090: 4E 45 20 53 4B 49 50 31 0D 32 35 30 30 20 20 20 |NE SKIP1.2500 | 000010A0: 20 20 20 20 20 4C 44 41 20 23 38 20 20 20 20 20 | LDA #8 | 000010B0: 20 20 20 20 20 3B 20 44 45 4C 0D 32 35 31 30 20 | ; DEL.2510 | 000010C0: 53 4B 49 50 31 20 20 43 4D 50 20 23 32 37 20 20 |SKIP1 CMP #27 | 000010D0: 20 20 20 20 20 20 20 3B 20 45 53 43 0D 32 35 32 | ; ESC.252| 000010E0: 30 20 20 20 20 20 20 20 20 42 4E 45 20 53 4B 49 |0 BNE SKI| 000010F0: 50 32 0D 32 35 33 30 20 20 20 20 20 20 20 20 4C |P2.2530 L| 00001100: 44 41 20 23 30 0D 32 35 34 30 20 20 20 20 20 20 |DA #0.2540 | 00001110: 20 20 53 54 41 20 46 4C 41 47 0D 32 35 35 30 20 | STA FLAG.2550 | 00001120: 20 20 20 20 20 20 20 4A 4D 50 20 52 53 45 54 0D | JMP RSET.| 00001130: 32 35 36 30 20 53 4B 49 50 32 20 20 43 4D 50 20 |2560 SKIP2 CMP | 00001140: 23 31 33 33 20 20 20 20 20 20 20 20 3B 20 46 31 |#133 ; F1| 00001150: 20 3B 20 43 48 45 43 4B 20 46 55 4E 43 54 49 4F | ; CHECK FUNCTIO| 00001160: 4E 20 4B 45 59 53 0D 32 35 37 30 20 20 20 20 20 |N KEYS.2570 | 00001170: 20 20 20 42 4D 49 20 4E 4F 50 45 32 0D 32 35 38 | BMI NOPE2.258| 00001180: 30 20 20 20 20 20 20 20 20 43 4D 50 20 23 31 34 |0 CMP #14| 00001190: 31 20 20 20 20 20 20 20 20 3B 20 46 38 0D 32 35 |1 ; F8.25| 000011A0: 39 30 20 20 20 20 20 20 20 20 42 50 4C 20 4E 4F |90 BPL NO| 000011B0: 50 45 32 0D 32 36 30 30 20 20 20 20 20 20 20 20 |PE2.2600 | 000011C0: 53 45 43 0D 32 36 31 30 20 20 20 20 20 20 20 20 |SEC.2610 | 000011D0: 53 42 43 20 23 31 33 32 0D 32 36 32 30 20 20 20 |SBC #132.2620 | 000011E0: 20 20 20 20 20 53 54 41 20 46 4C 41 47 20 20 20 | STA FLAG | 000011F0: 20 20 20 20 20 3B 20 53 45 54 20 46 55 4E 43 54 | ; SET FUNCT| 00001200: 49 4F 4E 20 46 4C 41 47 0D 32 36 33 30 20 20 20 |ION FLAG.2630 | 00001210: 20 20 20 20 20 4A 4D 50 20 52 53 45 54 20 20 20 | JMP RSET | 00001220: 20 20 20 20 20 3B 20 52 45 54 55 52 4E 20 54 4F | ; RETURN TO| 00001230: 20 42 41 53 49 43 0D 32 36 34 30 20 4E 4F 50 45 | BASIC.2640 NOPE| 00001240: 32 20 20 4A 53 52 20 43 48 52 4F 55 54 0D 32 36 |2 JSR CHROUT.26| 00001250: 35 30 20 20 20 20 20 20 20 20 4A 4D 50 20 49 4E |50 JMP IN| 00001260: 4D 4F 44 0D 32 36 36 30 20 52 53 45 54 20 20 20 |MOD.2660 RSET | 00001270: 4C 44 41 20 5A 50 20 20 20 20 20 20 20 20 20 20 |LDA ZP | 00001280: 3B 20 52 45 53 45 54 20 42 55 46 46 20 50 4F 49 |; RESET BUFF POI| 00001290: 4E 54 45 52 0D 32 36 37 30 20 20 20 20 20 20 20 |NTER.2670 | 000012A0: 20 53 54 41 20 42 55 47 47 45 52 0D 32 36 38 30 | STA BUGGER.2680| 000012B0: 20 20 20 20 20 20 20 20 4C 44 41 20 5A 50 2B 31 | LDA ZP+1| 000012C0: 0D 32 36 39 30 20 20 20 20 20 20 20 20 53 54 41 |.2690 STA| 000012D0: 20 42 55 47 47 45 52 2B 31 0D 32 37 30 30 20 52 | BUGGER+1.2700 R| 000012E0: 53 45 54 31 20 20 4A 53 52 20 43 4C 52 43 48 4E |SET1 JSR CLRCHN| 000012F0: 20 20 20 20 20 20 3B 20 43 4C 4F 53 45 20 55 50 | ; CLOSE UP| 00001300: 20 41 4C 4C 0D 32 37 31 30 20 20 20 20 20 20 20 | ALL.2710 | 00001310: 20 52 54 53 20 20 20 20 20 20 20 20 20 20 20 20 | RTS | 00001320: 20 3B 20 52 45 54 55 52 4E 20 54 4F 20 42 41 53 | ; RETURN TO BAS| 00001330: 49 43 0D 32 37 32 30 20 52 53 45 51 20 20 20 4A |IC.2720 RSEQ J| 00001340: 53 52 20 43 4C 52 43 48 4E 0D 32 37 33 30 20 20 |SR CLRCHN.2730 | 00001350: 20 20 20 20 20 20 4C 44 58 20 23 32 0D 32 37 34 | LDX #2.274| 00001360: 30 20 20 20 20 20 20 20 20 4A 53 52 20 43 48 4B |0 JSR CHK| 00001370: 49 4E 0D 32 37 35 30 20 49 4D 50 20 20 20 20 4A |IN.2750 IMP J| 00001380: 53 52 20 43 48 52 49 4E 0D 32 37 36 30 20 20 20 |SR CHRIN.2760 | 00001390: 20 20 20 20 20 4A 53 52 20 43 48 52 4F 55 54 0D | JSR CHROUT.| 000013A0: 32 37 37 30 20 20 20 20 20 20 20 20 4C 44 41 20 |2770 LDA | 000013B0: 24 44 34 0D 32 37 38 30 20 20 20 20 20 20 20 20 |$D4.2780 | 000013C0: 43 4D 50 20 23 36 33 20 20 20 20 20 20 20 20 20 |CMP #63 | 000013D0: 3B 20 53 54 4F 50 20 4B 45 59 0D 32 37 39 30 20 |; STOP KEY.2790 | 000013E0: 20 20 20 20 20 20 20 42 45 51 20 53 54 4F 50 0D | BEQ STOP.| 000013F0: 32 38 30 30 20 20 20 20 20 20 20 20 4C 44 41 20 |2800 LDA | 00001400: 23 38 0D 32 38 31 30 20 20 20 20 20 20 20 20 4A |#8.2810 J| 00001410: 53 52 20 52 45 41 44 53 54 0D 32 38 32 30 20 20 |SR READST.2820 | 00001420: 20 20 20 20 20 20 42 45 51 20 49 4D 50 0D 32 38 | BEQ IMP.28| 00001430: 33 30 20 53 54 4F 50 20 20 20 4A 4D 50 20 52 53 |30 STOP JMP RS| 00001440: 45 54 31 0D 32 38 34 30 20 42 55 46 46 20 20 20 |ET1.2840 BUFF | 00001450: 4C 44 58 20 23 24 37 46 20 20 20 20 20 20 20 20 |LDX #$7F | 00001460: 3B 20 52 41 4D 28 31 29 0D 32 38 35 30 20 20 20 |; RAM(1).2850 | 00001470: 20 20 20 20 20 4C 44 59 20 23 30 0D 32 38 36 30 | LDY #0.2860| 00001480: 20 20 20 20 20 20 20 20 4C 44 41 20 23 5A 50 0D | LDA #ZP.| 00001490: 32 38 37 30 20 20 20 20 20 20 20 20 53 54 41 20 |2870 STA | 000014A0: 24 32 42 39 20 20 20 20 20 20 20 20 3B 20 5A 50 |$2B9 ; ZP| 000014B0: 24 20 46 4F 52 20 53 54 41 52 0D 32 38 38 30 20 |$ FOR STAR.2880 | 000014C0: 20 20 20 20 20 20 20 50 4C 41 0D 32 38 39 30 20 | PLA.2890 | 000014D0: 20 20 20 20 20 20 20 50 48 41 0D 32 39 30 30 20 | PHA.2900 | 000014E0: 20 20 20 20 20 20 20 4A 53 52 20 53 54 41 52 0D | JSR STAR.| 000014F0: 32 39 31 30 20 20 20 20 20 20 20 20 49 4E 43 20 |2910 INC | 00001500: 5A 50 0D 32 39 32 30 20 20 20 20 20 20 20 20 42 |ZP.2920 B| 00001510: 4E 45 20 4C 45 53 0D 32 39 33 30 20 20 20 20 20 |NE LES.2930 | 00001520: 20 20 20 49 4E 43 20 5A 50 2B 31 0D 32 39 34 30 | INC ZP+1.2940| 00001530: 20 4C 45 53 20 20 20 20 4C 44 41 20 5A 50 2B 31 | LES LDA ZP+1| 00001540: 0D 32 39 35 30 20 20 20 20 20 20 20 20 43 4D 50 |.2950 CMP| 00001550: 20 23 24 45 30 20 20 20 20 20 20 20 20 3B 20 48 | #$E0 ; H| 00001560: 49 20 42 55 46 54 4F 50 0D 32 39 36 30 20 20 20 |I BUFTOP.2960 | 00001570: 20 20 20 20 20 42 4E 45 20 4E 4F 0D 32 39 37 30 | BNE NO.2970| 00001580: 20 20 20 20 20 20 20 20 50 4C 41 0D 32 39 38 30 | PLA.2980| 00001590: 20 20 20 20 20 20 20 20 50 4C 41 0D 32 39 39 30 | PLA.2990| 000015A0: 20 20 20 20 20 20 20 20 50 4C 41 0D 33 30 30 30 | PLA.3000| 000015B0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 46 46 | LDA #$FF| 000015C0: 20 20 20 20 20 20 20 20 3B 20 46 4C 41 47 20 54 | ; FLAG T| 000015D0: 4F 20 43 4C 4F 53 45 20 42 55 46 46 45 52 0D 33 |O CLOSE BUFFER.3| 000015E0: 30 31 30 20 20 20 20 20 20 20 20 53 54 41 20 46 |010 STA F| 000015F0: 4C 41 47 0D 33 30 32 30 20 20 20 20 20 20 20 20 |LAG.3020 | 00001600: 4A 4D 50 20 52 53 45 54 0D 33 30 33 30 20 4E 4F |JMP RSET.3030 NO| 00001610: 20 20 20 20 20 4A 4D 50 20 4B 4B 4B 0D 33 30 34 | JMP KKK.304| 00001620: 30 20 42 50 52 4E 54 20 20 4C 44 58 20 23 32 20 |0 BPRNT LDX #2 | 00001630: 20 20 20 20 20 20 20 20 20 3B 20 53 45 54 20 55 | ; SET U| 00001640: 50 20 4F 55 54 20 43 48 41 4E 4E 45 4C 0D 33 30 |P OUT CHANNEL.30| 00001650: 35 30 20 20 20 20 20 20 20 20 4A 53 52 20 43 48 |50 JSR CH| 00001660: 4B 4F 55 54 0D 33 30 36 30 20 20 20 20 20 20 20 |KOUT.3060 | 00001670: 20 4C 44 41 20 23 30 20 20 20 20 20 20 20 20 20 | LDA #0 | 00001680: 20 3B 20 53 45 54 20 42 45 47 49 4E 49 4E 47 20 | ; SET BEGINING | 00001690: 4F 46 20 42 55 46 46 45 52 0D 33 30 37 30 20 20 |OF BUFFER.3070 | 000016A0: 20 20 20 20 20 20 53 54 41 20 5A 50 0D 33 30 38 | STA ZP.308| 000016B0: 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 34 0D |0 LDA #4.| 000016C0: 33 30 39 30 20 20 20 20 20 20 20 20 53 54 41 20 |3090 STA | 000016D0: 5A 50 2B 31 0D 33 31 30 30 20 47 4F 20 20 20 20 |ZP+1.3100 GO | 000016E0: 20 4C 44 58 20 23 24 37 46 20 20 20 20 20 20 20 | LDX #$7F | 000016F0: 20 3B 20 52 41 4D 28 31 29 0D 33 31 31 30 20 20 | ; RAM(1).3110 | 00001700: 20 20 20 20 20 20 4C 44 59 20 23 30 0D 33 31 32 | LDY #0.312| 00001710: 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 5A 50 |0 LDA #ZP| 00001720: 0D 33 31 33 30 20 20 20 20 20 20 20 20 53 54 41 |.3130 STA| 00001730: 20 24 32 41 41 20 20 20 20 20 20 20 20 3B 20 5A | $2AA ; Z| 00001740: 50 24 20 46 4F 52 20 4C 44 41 52 0D 33 31 34 30 |P$ FOR LDAR.3140| 00001750: 20 20 20 20 20 20 20 20 4A 53 52 20 4C 44 41 52 | JSR LDAR| 00001760: 0D 33 31 35 30 20 20 20 20 20 20 20 20 4A 53 52 |.3150 JSR| 00001770: 20 43 48 52 4F 55 54 0D 33 31 36 30 20 20 20 20 | CHROUT.3160 | 00001780: 20 20 20 20 49 4E 43 20 5A 50 0D 33 31 37 30 20 | INC ZP.3170 | 00001790: 20 20 20 20 20 20 20 42 4E 45 20 44 4F 4E 45 0D | BNE DONE.| 000017A0: 33 31 38 30 20 20 20 20 20 20 20 20 49 4E 43 20 |3180 INC | 000017B0: 5A 50 2B 31 0D 33 31 39 30 20 44 4F 4E 45 20 20 |ZP+1.3190 DONE | 000017C0: 20 4C 44 41 20 5A 50 2B 31 0D 33 32 30 30 20 20 | LDA ZP+1.3200 | 000017D0: 20 20 20 20 20 20 43 4D 50 20 42 55 47 47 45 52 | CMP BUGGER| 000017E0: 2B 31 0D 33 32 31 30 20 20 20 20 20 20 20 20 42 |+1.3210 B| 000017F0: 4E 45 20 4E 4F 31 0D 33 32 32 30 20 20 20 20 20 |NE NO1.3220 | 00001800: 20 20 20 4C 44 41 20 5A 50 0D 33 32 33 30 20 20 | LDA ZP.3230 | 00001810: 20 20 20 20 20 20 43 4D 50 20 42 55 47 47 45 52 | CMP BUGGER| 00001820: 0D 33 32 34 30 20 20 20 20 20 20 20 20 42 4E 45 |.3240 BNE| 00001830: 20 4E 4F 31 0D 33 32 35 30 20 20 20 20 20 20 20 | NO1.3250 | 00001840: 20 52 54 53 0D 33 32 36 30 20 4E 4F 31 20 20 20 | RTS.3260 NO1 | 00001850: 20 4C 44 41 20 24 44 34 0D 33 32 37 30 20 20 20 | LDA $D4.3270 | 00001860: 20 20 20 20 20 43 4D 50 20 23 36 33 0D 33 32 38 | CMP #63.328| 00001870: 30 20 20 20 20 20 20 20 20 42 4E 45 20 47 4F 0D |0 BNE GO.| 00001880: 33 32 39 30 20 20 20 20 20 20 20 20 52 54 53 0D |3290 RTS.| 00001890: 33 33 30 30 20 4C 42 55 46 46 20 20 4C 44 58 20 |3300 LBUFF LDX | 000018A0: 23 32 0D 33 33 31 30 20 20 20 20 20 20 20 20 4A |#2.3310 J| 000018B0: 53 52 20 43 48 4B 49 4E 0D 33 33 32 30 20 20 20 |SR CHKIN.3320 | 000018C0: 20 20 20 20 20 4C 44 41 20 42 55 47 47 45 52 0D | LDA BUGGER.| 000018D0: 33 33 33 30 20 20 20 20 20 20 20 20 53 54 41 20 |3330 STA | 000018E0: 5A 50 0D 33 33 34 30 20 20 20 20 20 20 20 20 4C |ZP.3340 L| 000018F0: 44 41 20 42 55 47 47 45 52 2B 31 0D 33 33 35 30 |DA BUGGER+1.3350| 00001900: 20 20 20 20 20 20 20 20 53 54 41 20 5A 50 2B 31 | STA ZP+1| 00001910: 0D 33 33 36 30 20 4C 4F 4F 50 20 20 20 4A 53 52 |.3360 LOOP JSR| 00001920: 20 43 48 52 49 4E 0D 33 33 37 30 20 20 20 20 20 | CHRIN.3370 | 00001930: 20 20 20 50 48 41 0D 33 33 38 30 20 20 20 20 20 | PHA.3380 | 00001940: 20 20 20 4C 44 58 20 23 24 37 46 0D 33 33 39 30 | LDX #$7F.3390| 00001950: 20 20 20 20 20 20 20 20 4C 44 59 20 23 30 0D 33 | LDY #0.3| 00001960: 34 30 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 |400 LDA #| 00001970: 5A 50 0D 33 34 31 30 20 20 20 20 20 20 20 20 53 |ZP.3410 S| 00001980: 54 41 20 24 32 42 39 0D 33 34 32 30 20 20 20 20 |TA $2B9.3420 | 00001990: 20 20 20 20 50 4C 41 0D 33 34 33 30 20 20 20 20 | PLA.3430 | 000019A0: 20 20 20 20 4A 53 52 20 53 54 41 52 0D 33 34 34 | JSR STAR.344| 000019B0: 30 20 20 20 20 20 20 20 20 49 4E 43 20 5A 50 0D |0 INC ZP.| 000019C0: 33 34 35 30 20 20 20 20 20 20 20 20 42 4E 45 20 |3450 BNE | 000019D0: 4E 45 58 54 0D 33 34 36 30 20 20 20 20 20 20 20 |NEXT.3460 | 000019E0: 20 49 4E 43 20 5A 50 2B 31 0D 33 34 37 30 20 4E | INC ZP+1.3470 N| 000019F0: 45 58 54 20 20 20 4C 44 41 20 5A 50 2B 31 0D 33 |EXT LDA ZP+1.3| 00001A00: 34 38 30 20 20 20 20 20 20 20 20 43 4D 50 20 23 |480 CMP #| 00001A10: 24 45 30 0D 33 34 39 30 20 20 20 20 20 20 20 20 |$E0.3490 | 00001A20: 42 4E 45 20 4E 4F 35 0D 33 35 30 30 20 20 20 20 |BNE NO5.3500 | 00001A30: 20 20 20 20 4A 4D 50 20 52 53 45 54 0D 33 35 31 | JMP RSET.351| 00001A40: 30 20 4E 4F 35 20 20 20 20 4C 44 41 20 23 38 0D |0 NO5 LDA #8.| 00001A50: 33 35 32 30 20 20 20 20 20 20 20 20 4A 53 52 20 |3520 JSR | 00001A60: 52 45 41 44 53 54 0D 33 35 33 30 20 20 20 20 20 |READST.3530 | 00001A70: 20 20 20 42 45 51 20 4C 4F 4F 50 0D 33 35 34 30 | BEQ LOOP.3540| 00001A80: 20 20 20 20 20 20 20 20 4A 4D 50 20 52 53 45 54 | JMP RSET| 00001A90: 0D 33 35 35 30 20 44 49 52 20 20 20 20 4C 44 58 |.3550 DIR LDX| 00001AA0: 20 23 32 20 20 20 20 20 20 20 20 20 20 3B 20 52 | #2 ; R| 00001AB0: 45 41 44 20 44 49 52 45 43 54 4F 52 59 20 52 4F |EAD DIRECTORY RO| 00001AC0: 55 54 49 4E 45 0D 33 35 36 30 20 20 20 20 20 20 |UTINE.3560 | 00001AD0: 20 20 4A 53 52 20 43 48 4B 49 4E 0D 33 35 37 30 | JSR CHKIN.3570| 00001AE0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 20 20 | LDA #0 | 00001AF0: 20 20 20 20 20 20 20 20 3B 20 4C 4F 20 4F 46 20 | ; LO OF | 00001B00: 56 41 52 0D 33 35 38 30 20 20 20 20 20 20 20 20 |VAR.3580 | 00001B10: 53 54 41 20 5A 50 0D 33 35 39 30 20 20 20 20 20 |STA ZP.3590 | 00001B20: 20 20 20 4C 44 41 20 23 24 45 30 20 20 20 20 20 | LDA #$E0 | 00001B30: 20 20 20 3B 20 48 49 20 4F 46 20 56 41 52 0D 33 | ; HI OF VAR.3| 00001B40: 36 30 30 20 20 20 20 20 20 20 20 53 54 41 20 5A |600 STA Z| 00001B50: 50 2B 31 0D 33 36 31 30 20 44 49 52 31 20 20 20 |P+1.3610 DIR1 | 00001B60: 4A 53 52 20 53 55 50 0D 33 36 32 30 20 20 20 20 |JSR SUP.3620 | 00001B70: 20 20 20 20 4A 53 52 20 4C 44 41 52 0D 33 36 33 | JSR LDAR.363| 00001B80: 30 20 20 20 20 20 20 20 20 4A 53 52 20 42 55 4D |0 JSR BUM| 00001B90: 50 0D 33 36 34 30 20 20 20 20 20 20 20 20 43 4D |P.3640 CM| 00001BA0: 50 20 23 24 34 31 20 20 20 20 20 20 20 20 3B 20 |P #$41 ; | 00001BB0: 4C 4F 4F 4B 20 46 4F 52 20 41 0D 33 36 35 30 20 |LOOK FOR A.3650 | 00001BC0: 20 20 20 20 20 20 20 42 4E 45 20 44 49 52 31 0D | BNE DIR1.| 00001BD0: 33 36 36 30 20 20 20 20 20 20 20 20 4A 53 52 20 |3660 JSR | 00001BE0: 53 55 50 0D 33 36 37 30 20 20 20 20 20 20 20 20 |SUP.3670 | 00001BF0: 4A 53 52 20 4C 44 41 52 0D 33 36 38 30 20 20 20 |JSR LDAR.3680 | 00001C00: 20 20 20 20 20 4A 53 52 20 42 55 4D 50 0D 33 36 | JSR BUMP.36| 00001C10: 39 30 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 |90 CMP #$| 00001C20: 38 30 20 20 20 20 20 20 20 20 3B 20 4C 4F 4F 4B |80 ; LOOK| 00001C30: 20 46 4F 52 20 24 0D 33 37 30 30 20 20 20 20 20 | FOR $.3700 | 00001C40: 20 20 20 42 4E 45 20 44 49 52 31 0D 33 37 31 30 | BNE DIR1.3710| 00001C50: 20 20 20 20 20 20 20 20 4A 53 52 20 42 55 4D 50 | JSR BUMP| 00001C60: 0D 33 37 32 30 20 20 20 20 20 20 20 20 4A 53 52 |.3720 JSR| 00001C70: 20 53 55 50 0D 33 37 33 30 20 20 20 20 20 20 20 | SUP.3730 | 00001C80: 20 4A 53 52 20 4C 44 41 52 0D 33 37 34 30 20 20 | JSR LDAR.3740 | 00001C90: 20 20 20 20 20 20 4A 53 52 20 42 55 4D 50 0D 33 | JSR BUMP.3| 00001CA0: 37 35 30 20 20 20 20 20 20 20 20 50 48 41 20 20 |750 PHA | 00001CB0: 20 20 20 20 20 20 20 20 20 20 20 3B 20 4C 4F 20 | ; LO | 00001CC0: 4F 46 20 41 24 0D 33 37 36 30 20 20 20 20 20 20 |OF A$.3760 | 00001CD0: 20 20 4A 53 52 20 53 55 50 0D 33 37 37 30 20 20 | JSR SUP.3770 | 00001CE0: 20 20 20 20 20 20 4A 53 52 20 4C 44 41 52 0D 33 | JSR LDAR.3| 00001CF0: 37 38 30 20 20 20 20 20 20 20 20 53 54 41 20 5A |780 STA Z| 00001D00: 50 2B 31 20 20 20 20 20 20 20 20 3B 20 48 49 20 |P+1 ; HI | 00001D10: 4F 46 20 41 24 0D 33 37 39 30 20 20 20 20 20 20 |OF A$.3790 | 00001D20: 20 20 50 4C 41 0D 33 38 30 30 20 20 20 20 20 20 | PLA.3800 | 00001D30: 20 20 53 54 41 20 5A 50 0D 33 38 31 30 20 44 49 | STA ZP.3810 DI| 00001D40: 52 32 20 20 20 4A 53 52 20 47 45 54 49 4E 20 20 |R2 JSR GETIN | 00001D50: 20 20 20 20 20 3B 20 47 45 54 20 42 59 54 45 20 | ; GET BYTE | 00001D60: 4F 46 20 44 49 52 0D 33 38 32 30 20 20 20 20 20 |OF DIR.3820 | 00001D70: 20 20 20 43 4D 50 20 23 33 34 20 20 20 20 20 20 | CMP #34 | 00001D80: 20 20 20 3B 20 51 55 4F 54 45 0D 33 38 33 30 20 | ; QUOTE.3830 | 00001D90: 20 20 20 20 20 20 20 42 45 51 20 44 49 52 38 0D | BEQ DIR8.| 00001DA0: 33 38 34 30 20 20 20 20 20 20 20 20 4A 53 52 20 |3840 JSR | 00001DB0: 52 45 41 44 53 54 0D 33 38 35 30 20 20 20 20 20 |READST.3850 | 00001DC0: 20 20 20 42 45 51 20 44 49 52 32 0D 33 38 36 30 | BEQ DIR2.3860| 00001DD0: 20 20 20 20 20 20 20 20 4A 4D 50 20 52 53 45 54 | JMP RSET| 00001DE0: 31 0D 33 38 37 30 20 44 49 52 38 20 20 20 4C 44 |1.3870 DIR8 LD| 00001DF0: 58 20 23 30 20 20 20 20 20 20 20 20 20 20 3B 20 |X #0 ; | 00001E00: 43 4F 55 4E 54 45 52 0D 33 38 38 30 20 20 20 20 |COUNTER.3880 | 00001E10: 20 20 20 20 53 54 58 20 24 46 41 20 20 20 20 20 | STX $FA | 00001E20: 20 20 20 20 3B 20 46 52 45 45 20 5A 50 0D 33 38 | ; FREE ZP.38| 00001E30: 39 30 20 44 49 52 33 20 20 20 4A 53 52 20 47 45 |90 DIR3 JSR GE| 00001E40: 54 49 4E 0D 33 39 30 30 20 20 20 20 20 20 20 20 |TIN.3900 | 00001E50: 43 4D 50 20 23 33 34 0D 33 39 31 30 20 20 20 20 |CMP #34.3910 | 00001E60: 20 20 20 20 42 45 51 20 44 49 52 30 0D 33 39 32 | BEQ DIR0.392| 00001E70: 30 20 20 20 20 20 20 20 20 49 4E 43 20 24 46 41 |0 INC $FA| 00001E80: 20 20 20 20 20 20 20 20 20 3B 20 43 4F 55 4E 54 | ; COUNT| 00001E90: 45 52 0D 33 39 33 30 20 20 20 20 20 20 20 20 4A |ER.3930 J| 00001EA0: 53 52 20 53 55 50 31 0D 33 39 34 30 20 20 20 20 |SR SUP1.3940 | 00001EB0: 20 20 20 20 4A 53 52 20 53 54 41 52 0D 33 39 35 | JSR STAR.395| 00001EC0: 30 20 20 20 20 20 20 20 20 4A 53 52 20 42 55 4D |0 JSR BUM| 00001ED0: 50 0D 33 39 36 30 20 20 20 20 20 20 20 20 4A 4D |P.3960 JM| 00001EE0: 50 20 44 49 52 33 0D 33 39 37 30 20 44 49 52 30 |P DIR3.3970 DIR0| 00001EF0: 20 20 20 4C 44 41 20 23 27 2C 0D 33 39 38 30 20 | LDA #',.3980 | 00001F00: 20 20 20 20 20 20 20 4A 53 52 20 53 55 50 31 0D | JSR SUP1.| 00001F10: 33 39 39 30 20 20 20 20 20 20 20 20 4A 53 52 20 |3990 JSR | 00001F20: 53 54 41 52 0D 34 30 30 30 20 20 20 20 20 20 20 |STAR.4000 | 00001F30: 20 4A 53 52 20 42 55 4D 50 0D 34 30 31 30 20 20 | JSR BUMP.4010 | 00001F40: 20 20 20 20 20 20 49 4E 43 20 24 46 41 0D 34 30 | INC $FA.40| 00001F50: 32 30 20 44 49 52 34 20 20 20 4A 53 52 20 47 45 |20 DIR4 JSR GE| 00001F60: 54 49 4E 0D 34 30 33 30 20 20 20 20 20 20 20 20 |TIN.4030 | 00001F70: 43 4D 50 20 23 27 50 20 20 20 20 20 20 20 20 20 |CMP #'P | 00001F80: 3B 20 50 52 47 0D 34 30 34 30 20 20 20 20 20 20 |; PRG.4040 | 00001F90: 20 20 42 45 51 20 44 49 52 35 0D 34 30 35 30 20 | BEQ DIR5.4050 | 00001FA0: 20 20 20 20 20 20 20 43 4D 50 20 23 27 53 20 20 | CMP #'S | 00001FB0: 20 20 20 20 20 20 20 3B 20 53 45 51 0D 34 30 36 | ; SEQ.406| 00001FC0: 30 20 20 20 20 20 20 20 20 42 45 51 20 44 49 52 |0 BEQ DIR| 00001FD0: 35 0D 34 30 37 30 20 20 20 20 20 20 20 20 43 4D |5.4070 CM| 00001FE0: 50 20 23 27 52 20 20 20 20 20 20 20 20 20 3B 20 |P #'R ; | 00001FF0: 52 45 4C 0D 34 30 38 30 20 20 20 20 20 20 20 20 |REL.4080 | 00002000: 42 4E 45 20 44 49 52 39 0D 34 30 39 30 20 20 20 |BNE DIR9.4090 | 00002010: 20 20 20 20 20 4A 4D 50 20 44 49 52 0D 34 31 30 | JMP DIR.410| 00002020: 30 20 44 49 52 39 20 20 20 43 4D 50 20 23 27 55 |0 DIR9 CMP #'U| 00002030: 20 20 20 20 20 20 20 20 20 3B 20 55 53 52 0D 34 | ; USR.4| 00002040: 31 31 30 20 20 20 20 20 20 20 20 42 4E 45 20 44 |110 BNE D| 00002050: 49 52 34 0D 34 31 32 30 20 20 20 20 20 20 20 20 |IR4.4120 | 00002060: 4A 4D 50 20 44 49 52 0D 34 31 33 30 20 44 49 52 |JMP DIR.4130 DIR| 00002070: 35 20 20 20 4A 53 52 20 53 55 50 31 0D 34 31 34 |5 JSR SUP1.414| 00002080: 30 20 20 20 20 20 20 20 20 4A 53 52 20 53 54 41 |0 JSR STA| 00002090: 52 0D 34 31 35 30 20 20 20 20 20 20 20 20 4A 53 |R.4150 JS| 000020A0: 52 20 42 55 4D 50 0D 34 31 36 30 20 20 20 20 20 |R BUMP.4160 | 000020B0: 20 20 20 49 4E 43 20 24 46 41 0D 34 31 37 30 20 | INC $FA.4170 | 000020C0: 44 49 52 36 20 20 20 4C 44 41 20 24 46 41 0D 34 |DIR6 LDA $FA.4| 000020D0: 31 38 30 20 20 20 20 20 20 20 20 43 4D 50 20 23 |180 CMP #| 000020E0: 31 38 20 20 20 20 20 20 20 20 20 3B 20 4C 45 4E |18 ; LEN| 000020F0: 47 54 48 20 4F 46 20 41 24 0D 34 31 39 30 20 20 |GTH OF A$.4190 | 00002100: 20 20 20 20 20 20 42 45 51 20 44 49 52 37 0D 34 | BEQ DIR7.4| 00002110: 32 30 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 |200 LDA #| 00002120: 33 32 0D 34 32 31 30 20 20 20 20 20 20 20 20 4A |32.4210 J| 00002130: 53 52 20 53 55 50 31 0D 34 32 32 30 20 20 20 20 |SR SUP1.4220 | 00002140: 20 20 20 20 4A 53 52 20 53 54 41 52 0D 34 32 33 | JSR STAR.423| 00002150: 30 20 20 20 20 20 20 20 20 4A 53 52 20 42 55 4D |0 JSR BUM| 00002160: 50 0D 34 32 34 30 20 20 20 20 20 20 20 20 49 4E |P.4240 IN| 00002170: 43 20 24 46 41 0D 34 32 35 30 20 20 20 20 20 20 |C $FA.4250 | 00002180: 20 20 4A 4D 50 20 44 49 52 36 0D 34 32 36 30 20 | JMP DIR6.4260 | 00002190: 44 49 52 37 20 20 20 4A 4D 50 20 52 53 45 54 31 |DIR7 JMP RSET1| 000021A0: 0D 34 32 37 30 20 53 55 50 20 20 20 20 4C 44 58 |.4270 SUP LDX| 000021B0: 20 23 24 37 46 20 20 20 20 20 20 20 20 3B 20 52 | #$7F ; R| 000021C0: 41 4D 28 31 29 0D 34 32 38 30 20 20 20 20 20 20 |AM(1).4280 | 000021D0: 20 20 4C 44 59 20 23 30 0D 34 32 39 30 20 20 20 | LDY #0.4290 | 000021E0: 20 20 20 20 20 4C 44 41 20 23 5A 50 0D 34 33 30 | LDA #ZP.430| 000021F0: 30 20 20 20 20 20 20 20 20 53 54 41 20 24 32 41 |0 STA $2A| 00002200: 41 20 20 20 20 20 20 20 20 3B 20 5A 50 24 20 46 |A ; ZP$ F| 00002210: 4F 52 20 4C 44 41 52 0D 34 33 31 30 20 20 20 20 |OR LDAR.4310 | 00002220: 20 20 20 20 52 54 53 0D 34 33 32 30 20 42 55 4D | RTS.4320 BUM| 00002230: 50 20 20 20 49 4E 43 20 5A 50 0D 34 33 33 30 20 |P INC ZP.4330 | 00002240: 20 20 20 20 20 20 20 42 4E 45 20 42 55 4D 50 31 | BNE BUMP1| 00002250: 0D 34 33 34 30 20 20 20 20 20 20 20 20 49 4E 43 |.4340 INC| 00002260: 20 5A 50 2B 31 0D 34 33 35 30 20 42 55 4D 50 31 | ZP+1.4350 BUMP1| 00002270: 20 20 52 54 53 0D 34 33 36 30 20 53 55 50 31 20 | RTS.4360 SUP1 | 00002280: 20 20 50 48 41 0D 34 33 37 30 20 20 20 20 20 20 | PHA.4370 | 00002290: 20 20 4C 44 58 20 23 24 37 46 20 20 20 20 20 20 | LDX #$7F | 000022A0: 20 20 3B 20 52 41 4D 28 31 29 0D 34 33 38 30 20 | ; RAM(1).4380 | 000022B0: 20 20 20 20 20 20 20 4C 44 59 20 23 30 0D 34 33 | LDY #0.43| 000022C0: 39 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 5A |90 LDA #Z| 000022D0: 50 0D 34 34 30 30 20 20 20 20 20 20 20 20 53 54 |P.4400 ST| 000022E0: 41 20 24 32 42 39 0D 34 34 31 30 20 20 20 20 20 |A $2B9.4410 | 000022F0: 20 20 20 50 4C 41 0D 34 34 32 30 20 20 20 20 20 | PLA.4420 | 00002300: 20 20 20 52 54 53 0D 34 34 33 30 20 43 4C 4F 43 | RTS.4430 CLOC| 00002310: 4B 20 20 49 4E 43 20 24 46 44 20 20 20 20 20 20 |K INC $FD | 00002320: 20 20 20 3B 20 49 4E 43 52 45 41 43 45 20 43 4F | ; INCREACE CO| 00002330: 55 4E 54 45 52 0D 34 34 34 30 20 20 20 20 20 20 |UNTER.4440 | 00002340: 20 20 42 45 51 20 43 4C 31 20 20 20 20 20 20 20 | BEQ CL1 | 00002350: 20 20 3B 20 43 48 45 43 4B 20 46 4F 52 20 52 49 | ; CHECK FOR RI| 00002360: 47 48 54 20 54 49 4D 45 0D 34 34 35 30 20 20 20 |GHT TIME.4450 | 00002370: 20 20 20 20 20 4A 4D 50 20 49 4E 4D 4F 44 20 20 | JMP INMOD | 00002380: 20 20 20 20 20 3B 20 4E 4F 20 2D 20 47 45 54 20 | ; NO - GET | 00002390: 46 52 4F 4D 20 4D 4F 44 45 4D 0D 34 34 36 30 20 |FROM MODEM.4460 | 000023A0: 43 4C 31 20 20 20 20 4C 44 59 20 23 33 20 20 20 |CL1 LDY #3 | 000023B0: 20 20 20 20 20 20 20 3B 20 48 4F 55 52 53 2F 4D | ; HOURS/M| 000023C0: 49 4E 2F 53 45 43 0D 34 34 37 30 20 20 20 20 20 |IN/SEC.4470 | 000023D0: 20 20 20 4C 44 41 20 24 44 43 30 42 20 20 20 20 | LDA $DC0B | 000023E0: 20 20 20 3B 20 48 4F 55 52 20 53 45 54 54 49 4E | ; HOUR SETTIN| 000023F0: 47 0D 34 34 38 30 20 20 20 20 20 20 20 20 41 4E |G.4480 AN| 00002400: 44 20 23 24 31 46 20 20 20 20 20 20 20 20 3B 20 |D #$1F ; | 00002410: 4F 4E 4C 59 20 46 49 52 53 54 20 35 20 42 49 54 |ONLY FIRST 5 BIT| 00002420: 53 0D 34 34 39 30 20 20 20 20 20 20 20 20 4A 4D |S.4490 JM| 00002430: 50 20 43 4C 33 0D 34 35 30 30 20 43 4C 32 20 20 |P CL3.4500 CL2 | 00002440: 20 20 4C 44 41 20 24 44 43 30 38 2C 59 20 20 20 | LDA $DC08,Y | 00002450: 20 20 3B 20 54 49 4D 45 0D 34 35 31 30 20 43 4C | ; TIME.4510 CL| 00002460: 33 20 20 20 20 41 4E 44 20 23 24 46 30 0D 34 35 |3 AND #$F0.45| 00002470: 32 30 20 20 20 20 20 20 20 20 4C 53 52 20 20 20 |20 LSR | 00002480: 20 20 20 20 20 20 20 20 20 20 3B 20 53 48 49 46 | ; SHIF| 00002490: 54 20 42 49 54 53 20 34 2D 37 0D 34 35 33 30 20 |T BITS 4-7.4530 | 000024A0: 20 20 20 20 20 20 20 4C 53 52 20 20 20 20 20 20 | LSR | 000024B0: 20 20 20 20 20 20 20 3B 20 54 4F 20 42 49 54 53 | ; TO BITS| 000024C0: 20 30 2D 33 0D 34 35 34 30 20 20 20 20 20 20 20 | 0-3.4540 | 000024D0: 20 4C 53 52 20 20 20 20 20 20 20 20 20 20 20 20 | LSR | 000024E0: 20 3B 20 2D 0D 34 35 35 30 20 20 20 20 20 20 20 | ; -.4550 | 000024F0: 20 4C 53 52 20 20 20 20 20 20 20 20 20 20 20 20 | LSR | 00002500: 20 3B 20 2D 0D 34 35 36 30 20 20 20 20 20 20 20 | ; -.4560 | 00002510: 20 50 48 41 20 20 20 20 20 20 20 20 20 20 20 20 | PHA | 00002520: 20 3B 20 53 54 4F 52 45 20 4F 4E 20 53 54 41 43 | ; STORE ON STAC| 00002530: 4B 0D 34 35 37 30 20 20 20 20 20 20 20 20 4C 44 |K.4570 LD| 00002540: 41 20 24 44 43 30 38 2C 59 20 20 20 20 20 3B 20 |A $DC08,Y ; | 00002550: 54 49 4D 45 0D 34 35 38 30 20 20 20 20 20 20 20 |TIME.4580 | 00002560: 20 41 4E 44 20 23 24 46 20 20 20 20 20 20 20 20 | AND #$F | 00002570: 20 3B 20 53 45 43 4F 4E 44 53 0D 34 35 39 30 20 | ; SECONDS.4590 | 00002580: 20 20 20 20 20 20 20 50 48 41 20 20 20 20 20 20 | PHA | 00002590: 20 20 20 20 20 20 20 3B 20 53 54 4F 52 45 20 4F | ; STORE O| 000025A0: 4E 20 53 54 41 43 4B 0D 34 36 30 30 20 20 20 20 |N STACK.4600 | 000025B0: 20 20 20 20 4C 44 41 20 23 24 30 41 20 20 20 20 | LDA #$0A | 000025C0: 20 20 20 20 3B 20 43 4F 4C 45 4E 20 2D 20 24 33 | ; COLEN - $3| 000025D0: 30 0D 34 36 31 30 20 20 20 20 20 20 20 20 50 48 |0.4610 PH| 000025E0: 41 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 |A ; | 000025F0: 53 54 4F 52 45 0D 34 36 32 30 20 20 20 20 20 20 |STORE.4620 | 00002600: 20 20 44 45 59 0D 34 36 33 30 20 20 20 20 20 20 | DEY.4630 | 00002610: 20 20 42 4E 45 20 43 4C 32 0D 34 36 34 30 20 20 | BNE CL2.4640 | 00002620: 20 20 20 20 20 20 4C 44 41 20 24 44 43 30 38 20 | LDA $DC08 | 00002630: 20 20 20 20 20 20 3B 20 54 45 4E 54 48 53 0D 34 | ; TENTHS.4| 00002640: 36 35 30 20 20 20 20 20 20 20 20 50 48 41 20 20 |650 PHA | 00002650: 20 20 20 20 20 20 20 20 20 20 20 3B 20 53 54 4F | ; STO| 00002660: 52 45 0D 34 36 36 30 20 20 20 20 20 20 20 20 4C |RE.4660 L| 00002670: 44 59 20 23 31 30 0D 34 36 37 30 20 43 4C 34 20 |DY #10.4670 CL4 | 00002680: 20 20 20 50 4C 41 20 20 20 20 20 20 20 20 20 20 | PLA | 00002690: 20 20 20 3B 20 47 45 54 20 44 49 47 49 54 0D 34 | ; GET DIGIT.4| 000026A0: 36 38 30 20 20 20 20 20 20 20 20 43 4C 43 0D 34 |680 CLC.4| 000026B0: 36 39 30 20 20 20 20 20 20 20 20 41 44 43 20 23 |690 ADC #| 000026C0: 24 33 30 20 20 20 20 20 20 20 20 3B 20 43 4F 4E |$30 ; CON| 000026D0: 56 45 52 54 20 54 4F 20 41 53 43 49 49 0D 34 37 |VERT TO ASCII.47| 000026E0: 30 30 20 20 20 20 20 20 20 20 4A 53 52 20 43 4C |00 JSR CL| 000026F0: 35 20 20 20 20 20 20 20 20 20 3B 20 4F 55 54 20 |5 ; OUT | 00002700: 54 4F 20 38 30 20 43 4F 4C 20 53 43 52 45 45 4E |TO 80 COL SCREEN| 00002710: 0D 34 37 31 30 20 20 20 20 20 20 20 20 44 45 59 |.4710 DEY| 00002720: 0D 34 37 32 30 20 20 20 20 20 20 20 20 42 4E 45 |.4720 BNE| 00002730: 20 43 4C 34 0D 34 37 33 30 20 20 20 20 20 20 20 | CL4.4730 | 00002740: 20 4A 4D 50 20 49 4E 4D 4F 44 20 20 20 20 20 20 | JMP INMOD | 00002750: 20 3B 20 47 45 54 20 46 52 4F 4D 20 4D 4F 44 45 | ; GET FROM MODE| 00002760: 4D 0D 34 37 34 30 20 43 4C 35 20 20 20 20 53 54 |M.4740 CL5 ST| 00002770: 59 20 24 46 42 20 20 20 20 20 20 20 20 20 3B 20 |Y $FB ; | 00002780: 53 54 4F 52 45 20 43 4F 55 4E 54 45 52 0D 34 37 |STORE COUNTER.47| 00002790: 35 30 20 20 20 20 20 20 20 20 50 48 41 20 20 20 |50 PHA | 000027A0: 20 20 20 20 20 20 20 20 20 20 3B 20 53 54 4F 52 | ; STOR| 000027B0: 45 20 43 48 52 0D 34 37 36 30 20 20 20 20 20 20 |E CHR.4760 | 000027C0: 20 20 54 59 41 20 20 20 20 20 20 20 20 20 20 20 | TYA | 000027D0: 20 20 3B 20 41 44 44 20 43 48 52 20 4E 55 4D 42 | ; ADD CHR NUMB| 000027E0: 45 52 20 54 4F 0D 34 37 37 30 20 20 20 20 20 20 |ER TO.4770 | 000027F0: 20 20 41 44 43 20 23 24 43 41 20 20 20 20 20 20 | ADC #$CA | 00002800: 20 20 3B 20 4C 4F 57 20 41 44 44 52 45 53 53 0D | ; LOW ADDRESS.| 00002810: 34 37 38 30 20 20 20 20 20 20 20 20 50 48 41 20 |4780 PHA | 00002820: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 53 54 | ; ST| 00002830: 4F 52 45 0D 34 37 39 30 20 20 20 20 20 20 20 20 |ORE.4790 | 00002840: 4C 44 41 20 23 33 31 20 20 20 20 20 20 20 20 20 |LDA #31 | 00002850: 3B 20 48 49 47 48 20 41 44 44 52 45 53 53 0D 34 |; HIGH ADDRESS.4| 00002860: 38 30 30 20 20 20 20 20 20 20 20 50 48 41 20 20 |800 PHA | 00002870: 20 20 20 20 20 20 20 20 20 20 20 3B 20 53 54 4F | ; STO| 00002880: 52 45 0D 34 38 31 30 20 20 20 20 20 20 20 20 4C |RE.4810 L| 00002890: 44 41 20 23 32 0D 34 38 32 30 20 20 20 20 20 20 |DA #2.4820 | 000028A0: 20 20 53 54 41 20 24 41 32 38 0D 34 38 33 30 20 | STA $A28.4830 | 000028B0: 20 20 20 20 20 20 20 4C 44 58 20 23 24 31 32 20 | LDX #$12 | 000028C0: 20 20 20 20 20 20 20 3B 20 57 52 49 54 45 20 52 | ; WRITE R| 000028D0: 45 47 20 48 49 47 48 0D 34 38 34 30 20 20 20 20 |EG HIGH.4840 | 000028E0: 20 20 20 20 50 4C 41 20 20 20 20 20 20 20 20 20 | PLA | 000028F0: 20 20 20 20 3B 20 47 45 54 20 56 41 4C 55 45 0D | ; GET VALUE.| 00002900: 34 38 35 30 20 20 20 20 20 20 20 20 4A 53 52 20 |4850 JSR | 00002910: 43 4C 36 20 20 20 20 20 20 20 20 20 3B 20 57 52 |CL6 ; WR| 00002920: 49 54 45 20 56 41 4C 55 45 0D 34 38 36 30 20 20 |ITE VALUE.4860 | 00002930: 20 20 20 20 20 20 49 4E 58 20 20 20 20 20 20 20 | INX | 00002940: 20 20 20 20 20 20 3B 20 57 52 49 54 45 20 52 45 | ; WRITE RE| 00002950: 47 20 4C 4F 57 0D 34 38 37 30 20 20 20 20 20 20 |G LOW.4870 | 00002960: 20 20 50 4C 41 20 20 20 20 20 20 20 20 20 20 20 | PLA | 00002970: 20 20 3B 20 47 45 54 20 56 41 4C 55 45 0D 34 38 | ; GET VALUE.48| 00002980: 38 30 20 20 20 20 20 20 20 20 4A 53 52 20 43 4C |80 JSR CL| 00002990: 36 20 20 20 20 20 20 20 20 20 3B 20 57 52 49 54 |6 ; WRIT| 000029A0: 45 20 56 41 4C 55 45 0D 34 38 39 30 20 20 20 20 |E VALUE.4890 | 000029B0: 20 20 20 20 4C 44 58 20 23 24 31 46 20 20 20 20 | LDX #$1F | 000029C0: 20 20 20 20 3B 20 43 48 52 20 52 45 47 0D 34 39 | ; CHR REG.49| 000029D0: 30 30 20 20 20 20 20 20 20 20 50 4C 41 20 20 20 |00 PLA | 000029E0: 20 20 20 20 20 20 20 20 20 20 3B 20 47 45 54 20 | ; GET | 000029F0: 43 48 52 0D 34 39 31 30 20 43 4C 36 20 20 20 20 |CHR.4910 CL6 | 00002A00: 53 54 58 20 24 44 36 30 30 20 20 20 20 20 20 20 |STX $D600 | 00002A10: 3B 20 41 44 44 52 45 53 53 20 52 45 47 0D 34 39 |; ADDRESS REG.49| 00002A20: 32 30 20 43 4C 37 20 20 20 20 42 49 54 20 24 44 |20 CL7 BIT $D| 00002A30: 36 30 30 20 20 20 20 20 20 20 3B 20 43 48 45 43 |600 ; CHEC| 00002A40: 4B 20 46 4F 52 20 41 44 44 52 45 53 53 0D 34 39 |K FOR ADDRESS.49| 00002A50: 33 30 20 20 20 20 20 20 20 20 42 50 4C 20 43 4C |30 BPL CL| 00002A60: 37 20 20 20 20 20 20 20 20 20 3B 20 54 52 41 4E |7 ; TRAN| 00002A70: 53 46 45 52 20 54 4F 20 43 4F 4D 50 4C 45 54 45 |SFER TO COMPLETE| 00002A80: 0D 34 39 34 30 20 20 20 20 20 20 20 20 53 54 41 |.4940 STA| 00002A90: 20 24 44 36 30 31 20 20 20 20 20 20 20 3B 20 44 | $D601 ; D| 00002AA0: 41 54 41 20 52 45 47 0D 34 39 35 30 20 20 20 20 |ATA REG.4950 | 00002AB0: 20 20 20 20 4C 44 59 20 24 46 42 20 20 20 20 20 | LDY $FB | 00002AC0: 20 20 20 20 3B 20 47 45 54 20 43 4F 55 4E 54 45 | ; GET COUNTE| 00002AD0: 52 0D 34 39 36 30 20 20 20 20 20 20 20 20 52 54 |R.4960 RT| 00002AE0: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 |S ; | 00002AF0: 46 49 4E 49 53 48 45 44 0D 34 39 37 30 20 2E 45 |FINISHED.4970 .E| 00002B00: 4E 44 0D 0D 0A 52 45 41 44 59 2E 0D 0A 0D |ND...READY.... |
...READY....1000 ; *********************
*************.1010 ; ****
****.1020 ; **** NEZTERM
V4.1 ML ****.1030 ; ****
****.1040 ; **** BY: B
ILL NESBITT ****.1050 ; **** O
N: 04/04/86 ****.1060 ; ****
****.1070 ; **** FO
R USE WITH COMMODORE'S ****.1080 ; ****
ASSEMBLER DEVELOPEMENT ****.1090 ; ***
* SYSTEM ON THE C64 ****.1100 ; *
*********************************.1110 ;
.1120 *=$2C00.1130 ;.1140 ;---- KERNAL R
OUTINES ---.1150 ;.1160 READST = $FFB7.1
170 SETLFS = $FFBA.1180 OPEN = $FFC0.1
190 CLOSE = $FFC3.1200 CHKIN = $FFC6.1
210 CHKOUT = $FFC9.1220 CHRIN = $FFCF.1
230 CHROUT = $FFD2.1240 GETIN = $FFE4.1
250 CLRCHN = $FFCC.1260 ;.1270 BUGGER .W
ORD $0400 ; START OF BUFF.1280 ZP
= $72 ; ZP ADDRESS FOR STAR/
LDAR.1290 STAR = $2AF ; STA F
AR ROUTINE.1300 LDAR = $2A2 ;
LDA FAR ROUTINE.1310 STAT = $96
; STATUS BYTE.1320 ;.1330 ;.1340
JMP SWAT ; ENTRY TO TERMINAL
MODE.1350 JMP RSEQ ; READ
SEQ FILE.1360 JMP BPRNT ;
DUMP BUFFER.1370 JMP LBUFF
; LOAD BUFFER FROM DISK.1380 FLAG .BYT
E 00 ; COMMUNICATION REG.1390 DUP
L .BYTE 00 ; DUPLEX BYTE.1400 F
LAG2 .BYTE 01 ; COMMUNICATION RE
G.1410 JMP DIR ; READ DIR
ECTORY ROUTINE.1420 SWAT LDA BUGGER
; TRANSFER BUFFER.1430 STA ZP
; POINTER TO ZP LOCATION.1440
LDA BUGGER+1.1450 STA ZP+1.
1460 ;.1470 ; INPUT FROM MODEM.1480 ;.14
90 INMOD JSR CLRCHN.1500 LDX #5
; MODEM.1510 JSR CHKIN.1
520 JSR GETIN.1530 CMP #0.
1540 BNE ZZ2.1550 JMP END
; --- PETASCII CONVERSION ---.15
60 ZZ2 AND #%01111111 ; BIT 7=0.1570
CMP #$40 ; LOWER 'A'.1580
BMI NOPE.1590 CMP #$5B
; LOWER 'Z'.1600 BPL NOPE.16
10 ORA #$20.1620 JMP FFINE
.1630 NOPE CMP #$60 ; UPPER 'A'
.1640 BMI FFINE.1650 CMP #
$7B ; UPPER 'Z'.1660 BPL F
FINE.1670 AND #$DF.1680 FFINE JS
R FINE.1690 JMP END.1700 FINE C
MP #10 ; LF.1710 BNE ZZ.1
720 JMP END1.1730 ZZ CMP #8
; DEL.1740 BNE TEST.1750
LDA #20 ; C= DEL.1760 JMP
SKIP.1770 TEST PHA.1780 LDA
FLAG2.1790 BNE KKK.1800 J
MP BUFF.1810 KKK PLA.1820 CMP
#34 ; QUOTE.1830 BNE SKIP
.1840 JSR CHROUT.1850 LDA
#20 ; C= DEL.1860 JSR CHR
OUT.1870 LDA #34 ; QUOTE.
1880 JSR CHROUT.1890 LDA #
$A4 ; CURSOR.1900 JSR CHRO
UT.1910 LDA #$9D ; BACKSPA
CE.1920 JSR CHROUT.1930 JM
P END1.1940 SKIP CMP #20 ; TES
T C= DEL.1950 BEQ DELETE.1960
PHA.1970 LDA #32 ; SP
ACE.1980 JSR CHROUT.1990 L
DA #$9D ; BACKSPACE.2000 J
SR CHROUT.2010 PLA.2020 JS
R CHROUT.2030 LDA #$A4 ; C
URSOR.2040 JSR CHROUT.2050
LDA #$9D ; BACKSPACE.2060
JSR CHROUT.2070 END1 RTS.2080 DELETE
LDA #32 ; SPACE.2090 JSR
CHROUT.2100 LDA #$9D ; BAC
KSPACE.2110 JSR CHROUT.2120
JSR CHROUT.2130 LDA #$A4
; CURSOR.2140 JSR CHROUT.2150
LDA #$9D ; BACKSPACE.2160
JSR CHROUT.2170 RTS.2180 ;.2
190 ; INPUT FROM KEYBOARD.2200 ;.2210 EN
D JSR CLRCHN.2220 LDX #5.2230
JSR CHKOUT.2240 JSR GETIN.
2250 BNE LLL.2260 JMP CLOC
K ; NO KEY PRESSED.2270 LLL PHA
.2280 LDA DUPL ; CHECK DUP
LEX.2290 BEQ FULL.2300 HALF JSR
CLRCHN.2310 PLA.2320 PHA.
2330 JSR FINE.2340 LDX #5.
2350 JSR CHKOUT.2360 FULL PLA
; --- ASCII CONVERSION ---.23
70 ZZ1 CMP #$40 ; LOWER 'A'.23
80 BMI NOPE1.2390 CMP #$5B
; LOWER 'Z'.2400 BPL NOPE
1.2410 ORA #$20.2420 JMP F
INE1.2430 NOPE1 CMP #$60 ; UPPER
'A'.2440 BMI FINE1.2450 C
MP #$7B ; UPPER 'Z'.2460 B
PL FINE1.2470 AND #$DF.2480 FINE1
CMP #20 ; C= DEL.2490 B
NE SKIP1.2500 LDA #8 ; D
EL.2510 SKIP1 CMP #27 ; ESC.252
0 BNE SKIP2.2530 LDA #0.25
40 STA FLAG.2550 JMP RSET.
2560 SKIP2 CMP #133 ; F1 ; CHECK
FUNCTION KEYS.2570 BMI NOPE2.258
0 CMP #141 ; F8.2590
BPL NOPE2.2600 SEC.2610
SBC #132.2620 STA FLAG ; S
ET FUNCTION FLAG.2630 JMP RSET
; RETURN TO BASIC.2640 NOPE2 JSR C
HROUT.2650 JMP INMOD.2660 RSET
LDA ZP ; RESET BUFF POINTER.267
0 STA BUGGER.2680 LDA ZP+1
.2690 STA BUGGER+1.2700 RSET1 JS
R CLRCHN ; CLOSE UP ALL.2710
RTS ; RETURN TO BASIC.2720
RSEQ JSR CLRCHN.2730 LDX #2.274
0 JSR CHKIN.2750 IMP JSR CHRIN
.2760 JSR CHROUT.2770 LDA
$D4.2780 CMP #63 ; STOP K
EY.2790 BEQ STOP.2800 LDA
#8.2810 JSR READST.2820 BE
Q IMP.2830 STOP JMP RSET1.2840 BUFF
LDX #$7F ; RAM(1).2850 LDY
#0.2860 LDA #ZP.2870 STA
$2B9 ; ZP$ FOR STAR.2880 P
LA.2890 PHA.2900 JSR STAR.
2910 INC ZP.2920 BNE LES.2
930 INC ZP+1.2940 LES LDA ZP+1
.2950 CMP #$E0 ; HI BUFTOP
.2960 BNE NO.2970 PLA.2980
PLA.2990 PLA.3000
LDA #$FF ; FLAG TO CLOSE BUFFER.3
010 STA FLAG.3020 JMP RSET
.3030 NO JMP KKK.3040 BPRNT LDX #2
; SET UP OUT CHANNEL.3050
JSR CHKOUT.3060 LDA #0
; SET BEGINING OF BUFFER.3070 ST
A ZP.3080 LDA #4.3090 STA
ZP+1.3100 GO LDX #$7F ; RAM(1
).3110 LDY #0.3120 LDA #ZP
.3130 STA $2AA ; ZP$ FOR L
DAR.3140 JSR LDAR.3150 JSR
CHROUT.3160 INC ZP.3170 B
NE DONE.3180 INC ZP+1.3190 DONE
LDA ZP+1.3200 CMP BUGGER+1.3210
BNE NO1.3220 LDA ZP.3230
CMP BUGGER.3240 BNE NO1.325
0 RTS.3260 NO1 LDA $D4.3270
CMP #63.3280 BNE GO.3290
RTS.3300 LBUFF LDX #2.3310 J
SR CHKIN.3320 LDA BUGGER.3330
STA ZP.3340 LDA BUGGER+1.3350
STA ZP+1.3360 LOOP JSR CHRIN.3
370 PHA.3380 LDX #$7F.3390
LDY #0.3400 LDA #ZP.3410
STA $2B9.3420 PLA.3430
JSR STAR.3440 INC ZP.3450
BNE NEXT.3460 INC ZP+1.3470 N
EXT LDA ZP+1.3480 CMP #$E0.3490
BNE NO5.3500 JMP RSET.351
0 NO5 LDA #8.3520 JSR READST.3
530 BEQ LOOP.3540 JMP RSET
.3550 DIR LDX #2 ; READ DIRE
CTORY ROUTINE.3560 JSR CHKIN.3570
LDA #0 ; LO OF VAR.3580
STA ZP.3590 LDA #$E0
; HI OF VAR.3600 STA ZP+1.3610
DIR1 JSR SUP.3620 JSR LDAR.363
0 JSR BUMP.3640 CMP #$41
; LOOK FOR A.3650 BNE DIR1.
3660 JSR SUP.3670 JSR LDAR
.3680 JSR BUMP.3690 CMP #$
80 ; LOOK FOR $.3700 BNE D
IR1.3710 JSR BUMP.3720 JSR
SUP.3730 JSR LDAR.3740 JS
R BUMP.3750 PHA ; LO
OF A$.3760 JSR SUP.3770 JS
R LDAR.3780 STA ZP+1 ; HI
OF A$.3790 PLA.3800 STA ZP
.3810 DIR2 JSR GETIN ; GET BYTE
OF DIR.3820 CMP #34 ; QUO
TE.3830 BEQ DIR8.3840 JSR
READST.3850 BEQ DIR2.3860
JMP RSET1.3870 DIR8 LDX #0 ;
COUNTER.3880 STX $FA ; FR
EE ZP.3890 DIR3 JSR GETIN.3900
CMP #34.3910 BEQ DIR0.3920
INC $FA ; COUNTER.3930 J
SR SUP1.3940 JSR STAR.3950
JSR BUMP.3960 JMP DIR3.3970 DIR0
LDA #',.3980 JSR SUP1.3990
JSR STAR.4000 JSR BUMP.4010
INC $FA.4020 DIR4 JSR GETIN.4030
CMP #'P ; PRG.4040
BEQ DIR5.4050 CMP #'S ;
SEQ.4060 BEQ DIR5.4070 CM
P #'R ; REL.4080 BNE DIR9
.4090 JMP DIR.4100 DIR9 CMP #'U
; USR.4110 BNE DIR4.4120
JMP DIR.4130 DIR5 JSR SUP1.414
0 JSR STAR.4150 JSR BUMP.4
160 INC $FA.4170 DIR6 LDA $FA.4
180 CMP #18 ; LENGTH OF A
$.4190 BEQ DIR7.4200 LDA #
32.4210 JSR SUP1.4220 JSR
STAR.4230 JSR BUMP.4240 IN
C $FA.4250 JMP DIR6.4260 DIR7 J
MP RSET1.4270 SUP LDX #$7F ; R
AM(1).4280 LDY #0.4290 LDA
#ZP.4300 STA $2AA ; ZP$ F
OR LDAR.4310 RTS.4320 BUMP INC
ZP.4330 BNE BUMP1.4340 INC
ZP+1.4350 BUMP1 RTS.4360 SUP1 PHA.43
70 LDX #$7F ; RAM(1).4380
LDY #0.4390 LDA #ZP.4400
STA $2B9.4410 PLA.4420
RTS.4430 CLOCK INC $FD ; INC
REACE COUNTER.4440 BEQ CL1
; CHECK FOR RIGHT TIME.4450 JMP
INMOD ; NO - GET FROM MODEM.4460
CL1 LDY #3 ; HOURS/MIN/SEC.4
470 LDA $DC0B ; HOUR SETTIN
G.4480 AND #$1F ; ONLY FIR
ST 5 BITS.4490 JMP CL3.4500 CL2
LDA $DC08,Y ; TIME.4510 CL3 AND
#$F0.4520 LSR ; SHIF
T BITS 4-7.4530 LSR ;
TO BITS 0-3.4540 LSR
; -.4550 LSR ; -.456
0 PHA ; STORE ON STAC
K.4570 LDA $DC08,Y ; TIME.458
0 AND #$F ; SECONDS.4590
PHA ; STORE ON STACK.
4600 LDA #$0A ; COLEN - $3
0.4610 PHA ; STORE.46
20 DEY.4630 BNE CL2.4640
LDA $DC08 ; TENTHS.4650
PHA ; STORE.4660 L
DY #10.4670 CL4 PLA ; GET
DIGIT.4680 CLC.4690 ADC #
$30 ; CONVERT TO ASCII.4700
JSR CL5 ; OUT TO 80 COL SCREEN
.4710 DEY.4720 BNE CL4.473
0 JMP INMOD ; GET FROM MODE
M.4740 CL5 STY $FB ; STORE CO
UNTER.4750 PHA ; STOR
E CHR.4760 TYA ; ADD
CHR NUMBER TO.4770 ADC #$CA
; LOW ADDRESS.4780 PHA
; STORE.4790 LDA #31
; HIGH ADDRESS.4800 PHA
; STORE.4810 LDA #2.4820
STA $A28.4830 LDX #$12 ;
WRITE REG HIGH.4840 PLA
; GET VALUE.4850 JSR CL6
; WRITE VALUE.4860 INX
; WRITE REG LOW.4870 PLA
; GET VALUE.4880 JSR CL
6 ; WRITE VALUE.4890 LDX
#$1F ; CHR REG.4900 PLA
; GET CHR.4910 CL6 STX $D60
0 ; ADDRESS REG.4920 CL7 BIT $D
600 ; CHECK FOR ADDRESS.4930
BPL CL7 ; TRANSFER TO COMPLETE
.4940 STA $D601 ; DATA REG.
4950 LDY $FB ; GET COUNTE
R.4960 RTS ; FINISHED
.4970 .END...READY....
> CLICK IMAGE PREVIEW FOR FULL MODAL