TB/CHECK & AWAIT

FILE INFORMATION

FILENAME(S): TB/CHECK & AWAIT

FILE TYPE(S): PRG

FILE SIZE: 1K

FIRST SEEN: 2025-11-30 16:59:31

APPEARS ON: 1 disk(s)

FILE HASH

cc960265338beec0e4545a331c65fb56c868cb9010d099275a87986fa36982e5

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
BASIC UTILITIES	TB/CHECK & AWAIT	PRG	High Voltage Complete C64 Collection	26	8	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 22 08 00 00 8F 20  43 48 45 43 4B 20 26 20  |..".... CHECK & |
00000010: 41 57 41 49 54 20 28 41  55 47 20 32 35 2F 38 34  |AWAIT (AUG 25/84|
00000020: 29 3A 00 28 08 01 00 3A  00 48 08 02 00 8F 20 30  |):.(...:.H.... 0|
00000030: 20 53 54 41 54 45 4D 45  4E 54 53 2C 20 32 20 46  | STATEMENTS, 2 F|
00000040: 55 4E 43 54 49 4F 4E 53  00 4E 08 03 00 3A 00 6B  |UNCTIONS.N...:.k|
00000050: 08 04 00 8F 20 4B 45 59  57 4F 52 44 20 43 48 41  |.... KEYWORD CHA|
00000060: 52 41 43 54 45 52 53 3A  20 31 32 00 71 08 05 00  |RACTERS: 12.q...|
00000070: 3A 00 94 08 06 00 8F 20  4B 45 59 57 4F 52 44 20  |:...... KEYWORD |
00000080: 20 52 4F 55 54 49 4E 45  20 20 4C 49 4E 45 20 20  | ROUTINE  LINE  |
00000090: 53 45 52 23 00 B6 08 07  00 8F 20 46 2F 43 48 45  |SER#...... F/CHE|
000000A0: 43 4B 28 20 43 48 45 43  4B 20 20 20 20 32 38 33  |CK( CHECK    283|
000000B0: 34 20 20 30 31 38 00 D8  08 08 00 8F 20 46 2F 41  |4  018...... F/A|
000000C0: 57 41 49 54 28 20 41 57  41 49 54 20 20 20 20 32  |WAIT( AWAIT    2|
000000D0: 38 33 38 20 20 30 31 39  00 DE 08 09 00 3A 00 F8  |838  019.....:..|
000000E0: 08 0A 00 8F 20 55 2F 47  45 54 54 45 52 20 28 32  |.... U/GETTER (2|
000000F0: 38 38 38 2F 30 32 30 29  00 FE 08 0B 00 3A 00 25  |888/020).....:.%|
00000100: 09 0C 00 8F 20 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |.... ===========|
00000110: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000120: 3D 3D 3D 3D 3D 00 2B 09  0D 00 3A 00 3F 09 5A 02  |=====.+...:.?.Z.|
00000130: 2E C6 20 22 43 48 45 43  4B 41 57 41 49 54 22 00  |.. "CHECKAWAIT".|
00000140: 55 09 42 06 2E 57 B0 44  20 43 48 45 43 4B AB 31  |U.B..W.D CHECK.1|
00000150: 2C 41 92 AB 31 00 75 09  12 0B 43 48 45 43 4B 20  |,A..1.u...CHECK |
00000160: 53 45 43 20 3B 53 45 54  20 46 4C 41 47 20 27 43  |SEC ;SET FLAG 'C|
00000170: 48 45 43 4B 27 00 8E 09  14 0B 2E 42 59 54 45 20  |HECK'......BYTE |
00000180: 24 32 34 20 3B 49 47 4E  B0 45 20 43 4C 43 00 A6  |$24 ;IGN.E CLC..|
00000190: 09 16 0B 41 92 20 43 4C  43 20 3B 9C 20 46 4C 41  |...A. CLC ;. FLA|
000001A0: 47 20 27 41 92 27 00 B6  09 18 0B 50 48 50 20 3B  |G 'A.'.....PHP ;|
000001B0: 94 20 46 4C 41 47 00 D4  09 1A 0B 4A 53 52 20 24  |. FLAG.....JSR $|
000001C0: 41 45 46 34 20 3B 45 C5  55 41 54 45 20 53 54 52  |AEF4 ;E.UATE STR|
000001D0: 49 4E 47 2C 00 F1 09 1C  0B 4A 53 52 20 24 42 36  |ING,.....JSR $B6|
000001E0: 41 33 20 3B 9C 20 44 45  53 43 52 20 53 54 41 43  |A3 ;. DESCR STAC|
000001F0: 4B 00 08 0A 1E 0B 53 54  41 20 54 33 20 3B 94 20  |K.....STA T3 ;. |
00000200: 53 54 52 20 C3 47 54 48  00 18 0A 20 0B 50 4C 50  |STR .GTH... .PLP|
00000210: 20 3B 94 20 46 4C 41 47  00 31 0A 22 0B 52 B0 20  | ;. FLAG.1.".R. |
00000220: 54 34 20 3B 4D 49 4E 55  53 B2 27 43 48 45 43 4B  |T4 ;MINUS.'CHECK|
00000230: 27 00 53 0A 24 0B 41 57  31 20 4A 53 52 20 A1 54  |'.S.$.AW1 JSR .T|
00000240: 45 52 20 3B 54 45 53 54  20 4B 45 59 20 42 55 46  |ER ;TEST KEY BUF|
00000250: 46 45 52 00 69 0A 26 0B  42 49 54 20 54 34 20 3B  |FER.i.&.BIT T4 ;|
00000260: 54 45 53 54 20 46 4C 41  47 00 85 0A 28 0B 42 4D  |TEST FLAG...(.BM|
00000270: 49 20 41 57 32 20 3B 53  4B 49 50 20 8B 20 27 43  |I AW2 ;SKIP . 'C|
00000280: 48 45 43 4B 27 00 9A 0A  2A 0B 54 41 59 20 3B 54  |HECK'...*.TAY ;T|
00000290: 52 59 20 41 47 41 49 4E  20 8B 00 B4 0A 2C 0B 42  |RY AGAIN ....,.B|
000002A0: 45 51 20 41 57 31 20 3B  42 55 46 46 45 52 20 45  |EQ AW1 ;BUFFER E|
000002B0: 4D 50 54 59 00 D7 0A 2E  0B 41 57 32 20 4C 44 59  |MPTY.....AW2 LDY|
000002C0: 20 23 24 46 46 20 3B 49  4E 49 54 49 41 4C 49 5A  | #$FF ;INITIALIZ|
000002D0: 45 20 49 4E 44 45 58 00  EF 0A 30 0B 41 57 33 20  |E INDEX...0.AW3 |
000002E0: 49 4E 59 20 3B 42 55 4D  50 20 49 4E 44 45 58 00  |INY ;BUMP INDEX.|
000002F0: 04 0B 32 0B 43 50 59 20  54 33 20 3B 53 4B 49 50  |..2.CPY T3 ;SKIP|
00000300: 20 8B 20 80 00 1B 0B 34  0B 42 45 51 20 41 57 34  | . ....4.BEQ AW4|
00000310: 20 3B 4F 46 20 53 54 52  49 4E 47 00 39 0B 36 0B  | ;OF STRING.9.6.|
00000320: 43 4D 50 20 28 24 32 32  29 2C 59 20 3B 54 45 53  |CMP ($22),Y ;TES|
00000330: 54 20 81 20 4D 41 54 43  48 00 45 0B 38 0B 42 4E  |T . MATCH.E.8.BN|
00000340: 45 20 41 57 33 00 51 0B  3A 0B 42 45 51 20 41 57  |E AW3.Q.:.BEQ AW|
00000350: 35 00 6B 0B 3C 0B 41 57  34 20 42 49 54 20 54 34  |5.k.<.AW4 BIT T4|
00000360: 20 3B 54 45 53 54 20 46  4C 41 47 00 84 0B 3E 0B  | ;TEST FLAG...>.|
00000370: 42 50 4C 20 41 57 31 20  3B 4C 4F 4F 50 20 8B 20  |BPL AW1 ;LOOP . |
00000380: 27 41 92 27 00 96 0B 40  0B 4C 44 59 20 23 24 46  |'A.'...@.LDY #$F|
00000390: 46 20 3B 8E 20 30 00 B1  0B 42 0B 41 57 35 20 49  |F ;. 0...B.AW5 I|
000003A0: 4E 59 20 3B B9 27 4E 20  49 4E 20 53 54 52 49 4E  |NY ;.'N IN STRIN|
000003B0: 47 00 D0 0B 44 0B 4A 4D  50 20 24 42 33 41 32 20  |G...D.JMP $B3A2 |
000003C0: 3B 2E 59 20 A4 20 46 50  20 49 4E 20 46 41 43 31  |;.Y . FP IN FAC1|
000003D0: 00 D6 0B 46 0B 3B 00 F5  0B 48 0B A1 54 45 52 20  |...F.;...H..TER |
000003E0: 4A 53 52 20 24 41 38 32  43 20 3B 54 45 53 54 20  |JSR $A82C ;TEST |
000003F0: 90 20 4B 45 59 00 10 0C  4A 0B 4A 4D 50 20 24 45  |. KEY...J.JMP $E|
00000400: 31 32 34 20 3B 42 41 53  49 43 27 53 20 A1 49 4E  |124 ;BASIC'S .IN|
00000410: 00 16 0C 4C 0B 3B 00 00  00                       |...L.;...       |

..".... CHECK & AWAIT (AUG 25/84):.(...:
.H.... 0 STATEMENTS, 2 FUNCTIONS.N...:.K
.... KEYWORD CHARACTERS: 12.Q...:...... 
KEYWORD  ROUTINE  LINE  SER#...... F/CHE
CK( CHECK    2834  018.X.... F/AWAIT( AW
AIT    2838  019.....:...... U/GETTER (2
888/020).....:.%.... ===================
=============.+...:.?.Z..F "CHECKAWAIT".
U.B..W.D CHECK.1,A..1.U...CHECK SEC ;SET
 FLAG 'CHECK'......BYTE $24 ;IGN.E CLC..
...A. CLC ;. FLAG 'A.'.....PHP ;. FLAG.T
...JSR $AEF4 ;EEUATE STRING,.....JSR $B6
A3 ;. DESCR STACK.....STA T3 ;. STR CGTH
... .PLP ;. FLAG.1.".R. T4 ;MINUS.'CHECK
'.S.$.AW1 JSR .TER ;TEST KEY BUFFER.I.&.
BIT T4 ;TEST FLAG...(.BMI AW2 ;SKIP . 'C
HECK'...*.TAY ;TRY AGAIN ....,.BEQ AW1 ;
BUFFER EMPTY.W...AW2 LDY #$FF ;INITIALIZ
E INDEX...0.AW3 INY ;BUMP INDEX...2.CPY 
T3 ;SKIP . ....4.BEQ AW4 ;OF STRING.9.6.
CMP ($22),Y ;TEST . MATCH.E.8.BNE AW3.Q.
:.BEQ AW5.K.<.AW4 BIT T4 ;TEST FLAG...>.
BPL AW1 ;LOOP . 'A.'...@.LDY #$FF ;. 0..
.B.AW5 INY ;.'N IN STRING.P.D.JMP $B3A2 
;.Y . FP IN FAC1.V.F.;...H..TER JSR $A82
C ;TEST . KEY...J.JMP $E124 ;BASIC'S .IN
...L.;...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL