0100: JMP 0106
0103: JMP 0140
0106: LXI D,019C
0109: LXI H,2F44
010C: MVI B,11
010E: LDAX D
010F: MOV M,A
0110: INX H
0111: INX D
0112: DCR B
0113: JNZ 010E
0116: MVI B,1A
0118: LXI H,2F00
011B: SUB A
011C: MOV M,A
011D: INX H
011E: DCR B
011F: JNZ 011C
0122: LHLD 02B6
0125: SHLD 2F1A
0128: LHLD 02B8
012B: SHLD 2F1C
012E: LHLD 02BA
0131: SHLD 2F20
0134: LHLD 02BC
0137: SHLD 2F24
013A: LHLD 02BE
013D: SHLD 2F22
0140: LHLD 2F1C
0143: SPHL
0144: LHLD 2F1A
0147: SHLD 2F1E
014A: LXI B,015A
014D: JMP 02D5
0150: 02 00 00 B7 0C BF 04 00 00 A0 .......
015A: LIT, 2F18
015E: @
0160: ?DUP
0162: ?BRANCH, 016A
0166: EXECUTE
0168: EXIT
016A: CONSOLE
016C: TITLE
016E: FINIT
0170: DECIMAL
0172: LIT, 0150
0176: @
0178: #BUFF1
017A: !
017C: LIT, 0152
0180: @
0182: FIRST1
0184: !
0186: LIT, 0154
018A: @
018C: LIMIT1
018E: !
0190: EMPTY-BUFFERS
0192: TRUE
0194: WARNING
0196: !
0198: DECIMAL
019A: QUIT
	Vocabulary FORTH, 2E67, 0000
	Const R0, 2F1A
	Const S0, 2F1C
	Const RP, 2F1E
	Const H, 2F20
	Const VOC-LINK, 2F22
	Const FENCE, 2F24
	Const W-LINK, 2F26
	Const BASE, 2F28
	Const STATE, 2F2A
	Const CONTEXT, 2F2C
	Const CURRENT, 2F2E
	Const DPL, 2F30
	Const HLD, 2F32
	Const CSP, 2F34
	Const INB, 2F36
	Const #TIB, 2F38
	Const >IN, 2F3A
	Const SPAN, 2F3C
	Const >OUT, 2F3E
	Const BLK, 2F40
	Const WARNING, 2F42
	Const TIB, 2F99
	Asm ptr 02B6
02B6: 95 2F 3B 30 85 30 85 30 53 2F /;000S/
	Asm COLD
02C7: JMP 0106
02CA: LHLD 2F1E
02CD: DCX H
02CE: MOV M,B
02CF: DCX H
02D0: MOV M,C
02D1: SHLD 2F1E
02D4: POP B
02D5: LDAX B
02D6: MOV L,A
02D7: INX B
02D8: LDAX B
02D9: MOV H,A
02DA: INX B
02DB: PCHL
	Const NEXT, 02D5
	Const CALL, 02CA
	Asm EXIT
02FB: LHLD 2F1E
02FE: MOV C,M
02FF: INX H
0300: MOV B,M
0301: INX H
0302: SHLD 2F1E
0305: JMP 02D5
	Asm EXECUTE
0312: RET
	Asm ASMCALL
031D: LHLD 2F1E
0320: DCX H
0321: MOV M,B
0322: DCX H
0323: MOV M,C
0324: SHLD 2F1E
0327: POP H
0328: POP B
0329: POP D
032A: XTHL
032B: SHLD 303F
032E: POP H
032F: POP PSW
0330: PUSH H
0331: LXI H,033A
0334: XTHL
0335: PUSH H
0336: LHLD 303F
0339: RET
033A: PUSH PSW
033B: PUSH H
033C: PUSH D
033D: PUSH B
033E: JMP 02FB
	Asm OVER
0348: POP H
0349: POP D
034A: PUSH D
034B: PUSH H
034C: PUSH D
034D: JMP 02D5
	Asm PICK
0357: POP H
0358: DAD H
0359: DAD SP
035A: MOV E,M
035B: INX H
035C: MOV D,M
035D: PUSH D
035E: JMP 02D5
	Asm DROP
0368: POP H
0369: JMP 02D5
	Asm SWAP
0373: POP H
0374: XTHL
0375: PUSH H
0376: JMP 02D5
	Asm 2SWAP
0381: POP H
0382: POP D
0383: XTHL
0384: PUSH H
0385: LXI H,0004
0388: DAD SP
0389: MOV A,M
038A: MOV M,E
038B: MOV E,A
038C: INX H
038D: MOV A,M
038E: MOV M,D
038F: MOV D,A
0390: POP H
0391: PUSH D
0392: PUSH H
0393: JMP 02D5
	Asm ROT
039C: POP D
039D: POP H
039E: XTHL
039F: PUSH D
03A0: PUSH H
03A1: JMP 02D5
	Asm -ROT
03AB: POP H
03AC: POP D
03AD: XTHL
03AE: PUSH H
03AF: PUSH D
03B0: JMP 02D5
	Asm DUP
03B9: POP H
03BA: PUSH H
03BB: PUSH H
03BC: JMP 02D5
	Asm ?DUP
03C6: POP H
03C7: PUSH H
03C8: MOV A,H
03C9: ORA L
03CA: JZ 02D5
03CD: PUSH H
03CE: JMP 02D5
	Asm 2DUP
03D8: POP H
03D9: POP D
03DA: PUSH D
03DB: PUSH H
03DC: PUSH D
03DD: PUSH H
03DE: JMP 02D5
	Asm 2DROP
03E9: POP D
03EA: POP D
03EB: JMP 02D5
	Asm PRESS
03F6: POP H
03F7: XTHL
03F8: JMP 02D5
	Asm 2OVER
0403: LXI H,0007
0406: DAD SP
0407: MOV D,M
0408: DCX H
0409: MOV E,M
040A: DCX H
040B: PUSH D
040C: MOV D,M
040D: DCX H
040E: MOV E,M
040F: PUSH D
0410: JMP 02D5
	Asm SP@
0419: LXI H,0000
041C: DAD SP
041D: PUSH H
041E: JMP 02D5
	Asm SP!
0427: POP H
0428: SPHL
0429: JMP 02D5
	Asm +
0430: POP H
0431: POP D
0432: DAD D
0433: PUSH H
0434: JMP 02D5
	Asm -
043B: POP H
043C: POP D
043D: MOV A,E
043E: SUB L
043F: MOV L,A
0440: MOV A,D
0441: SBB H
0442: MOV H,A
0443: PUSH H
0444: JMP 02D5
	Asm NEGATE
0450: POP H
0451: CALL 0572
0454: PUSH H
0455: JMP 02D5
	Asm 1+
045D: POP H
045E: INX H
045F: PUSH H
0460: JMP 02D5
	Asm 2+
0468: POP H
0469: INX H
046A: INX H
046B: PUSH H
046C: JMP 02D5
	Asm 1-
0474: POP H
0475: DCX H
0476: PUSH H
0477: JMP 02D5
	Asm 2-
047F: POP H
0480: DCX H
0481: DCX H
0482: PUSH H
0483: JMP 02D5
	Asm 2*
048B: POP H
048C: DAD H
048D: PUSH H
048E: JMP 02D5
	Asm ABS
0497: POP H
0498: MOV A,H
0499: ORA A
049A: CM 0572
049D: PUSH H
049E: JMP 02D5
	Asm MIN
04A7: POP D
04A8: POP H
04A9: PUSH D
04AA: MOV A,H
04AB: XRA D
04AC: JP 04B3
04AF: XRA D
04B0: JMP 04B7
04B3: MOV A,L
04B4: SUB E
04B5: MOV A,H
04B6: SBB D
04B7: JP 02D5
04BA: XTHL
04BB: JMP 02D5
	Asm MAX
04C4: POP H
04C5: POP D
04C6: PUSH D
04C7: MOV A,H
04C8: XRA D
04C9: JP 04D0
04CC: XRA H
04CD: JMP 04D4
04D0: MOV A,E
04D1: SUB L
04D2: MOV A,D
04D3: SBB H
04D4: JP 02D5
04D7: XTHL
04D8: JMP 02D5
	Asm U<
04E0: POP D
04E1: POP H
04E2: MOV A,L
04E3: SUB E
04E4: MOV A,H
04E5: SBB D
04E6: LXI H,FFFF
04E9: JC 04ED
04EC: INX H
04ED: PUSH H
04EE: JMP 02D5
	Asm <
04F5: POP H
04F6: POP D
04F7: MOV A,H
04F8: XRA D
04F9: JP 0506
04FC: LXI H,0000
04FF: XRA D
0500: JM 0511
0503: JMP 0510
0506: MOV A,E
0507: SUB L
0508: MOV A,D
0509: SBB H
050A: LXI H,0000
050D: JP 0511
0510: DCX H
0511: PUSH H
0512: JMP 02D5
	Asm >
0519: POP D
051A: POP H
051B: JMP 04F7
	Asm 0<
0523: POP H
0524: MOV A,H
0525: LXI H,0000
0528: ORA A
0529: JP 052D
052C: DCX H
052D: PUSH H
052E: JMP 02D5
	Asm 0>
0536: POP D
0537: LXI H,0000
053A: MOV A,D
053B: ORA A
053C: JM 0544
053F: ORA E
0540: JZ 0544
0543: DCX H
0544: PUSH H
0545: JMP 02D5
	Asm =
054C: POP H
054D: POP D
054E: MOV A,L
054F: SUB E
0550: MOV E,A
0551: MOV A,H
0552: SBB D
0553: LXI H,0000
0556: ORA E
0557: JNZ 055B
055A: DCX H
055B: PUSH H
055C: JMP 02D5
	Asm 0=
0564: POP H
0565: MOV A,H
0566: LXI D,0000
0569: ORA L
056A: JNZ 056E
056D: DCX D
056E: PUSH D
056F: JMP 02D5
0572: MOV A,H
0573: CMA
0574: MOV H,A
0575: MOV A,L
0576: CMA
0577: MOV L,A
0578: INX H
0579: RET
	Asm -TRAILING
0586: POP D
0587: MOV A,E
0588: ORA A
0589: JZ 059A
058C: POP H
058D: PUSH H
058E: DAD D
058F: DCX H
0590: MOV A,M
0591: CPI 20
0593: JNZ 059A
0596: DCR E
0597: JNZ 058F
059A: PUSH D
059B: JMP 02D5
	Asm 2/
05A3: POP H
05A4: MOV A,H
05A5: ADD A
05A6: MOV A,H
05A7: RAR
05A8: MOV H,A
05A9: MOV A,L
05AA: RAR
05AB: MOV L,A
05AC: PUSH H
05AD: JMP 02D5
	Asm D+
05B5: POP D
05B6: POP H
05B7: XTHL
05B8: DAD D
05B9: POP D
05BA: XTHL
05BB: DAD D
05BC: XTHL
05BD: JNC 05C1
05C0: INX H
05C1: PUSH H
05C2: JMP 02D5
	Asm D<
05CA: POP D
05CB: POP H
05CC: XTHL
05CD: MOV A,H
05CE: XRA D
05CF: JP 05DE
05D2: LXI D,0000
05D5: XRA H
05D6: POP H
05D7: POP H
05D8: JM 05F8
05DB: JMP 05F7
05DE: MOV A,L
05DF: SUB E
05E0: MOV L,A
05E1: MOV A,H
05E2: SBB D
05E3: MOV H,A
05E4: POP D
05E5: XTHL
05E6: MOV A,L
05E7: SUB E
05E8: MOV A,H
05E9: SBB D
05EA: POP H
05EB: JNC 05EF
05EE: DCX H
05EF: MOV A,H
05F0: LXI D,0000
05F3: ORA A
05F4: JP 05F8
05F7: DCX D
05F8: PUSH D
05F9: JMP 02D5
	Asm DNEGATE
0606: POP H
0607: XTHL
0608: MVI D,00
060A: MOV A,D
060B: SUB L
060C: MOV L,A
060D: MOV A,D
060E: SBB H
060F: MOV H,A
0610: XTHL
0611: MOV A,D
0612: SBB L
0613: MOV L,A
0614: MOV A,D
0615: SBB H
0616: MOV H,A
0617: PUSH H
0618: JMP 02D5
	Asm -TEXT
0623: MOV H,B
0624: MOV L,C
0625: POP D
0626: POP B
0627: XTHL
0628: XCHG
0629: MOV A,B
062A: ORA C
062B: JZ 0643
062E: MOV A,C
062F: ORA A
0630: JZ 0634
0633: INR B
0634: LDAX D
0635: SUB M
0636: JNZ 0643
0639: INX D
063A: INX H
063B: DCR C
063C: JNZ 0634
063F: DCR B
0640: JNZ 0634
0643: MOV L,A
0644: MVI H,00
0646: JNC 064A
0649: DCR H
064A: POP B
064B: PUSH H
064C: JMP 02D5
	Asm ROLL
0656: POP H
0657: MOV A,H
0658: ORA L
0659: JZ 02D5
065C: DAD H
065D: XCHG
065E: LXI H,0000
0661: DAD SP
0662: DAD D
0663: PUSH B
0664: MOV C,M
0665: INX H
0666: MOV B,M
0667: PUSH B
0668: MOV B,H
0669: MOV C,L
066A: DCX B
066B: DCX B
066C: LDAX B
066D: MOV M,A
066E: DCX B
066F: DCX H
0670: DCX D
0671: MOV A,D
0672: ORA E
0673: JNZ 066C
0676: POP H
0677: POP B
0678: XTHL
0679: JMP 02D5
	Asm *
0680: MOV H,B
0681: MOV L,C
0682: POP B
0683: POP D
0684: PUSH H
0685: LXI H,0000
0688: MOV A,C
0689: MVI C,08
068B: CALL 0699
068E: MOV A,B
068F: MVI C,08
0691: CALL 0699
0694: POP B
0695: PUSH H
0696: JMP 02D5
0699: RAR
069A: JNC 069E
069D: DAD D
069E: XCHG
069F: DAD H
06A0: XCHG
06A1: DCR C
06A2: JNZ 0699
06A5: RET
	Asm UM*
06AC: POP H
06AD: POP D
06AE: PUSH B
06AF: MOV B,D
06B0: MOV C,E
06B1: CALL 06BA
06B4: POP B
06B5: PUSH D
06B6: PUSH H
06B7: JMP 02D5
06BA: XRA A
06BB: MOV D,A
06BC: MOV E,A
06BD: DAD H
06BE: RAR
06BF: XCHG
06C0: DAD H
06C1: JNC 06C5
06C4: INX D
06C5: RAL
06C6: JNC 06CE
06C9: DAD B
06CA: JNC 06CE
06CD: INX D
06CE: XCHG
06CF: ADI 10
06D1: JNC 06BD
06D4: RET
	Asm DU/MOD
06DE: LXI H,3047
06E1: MVI A,04
06E3: POP D
06E4: MOV M,D
06E5: INX H
06E6: MOV M,E
06E7: INX H
06E8: DCR A
06E9: JNZ 06E3
06EC: PUSH B
06ED: LXI B,0005
06F0: LXI H,3041
06F3: MVI E,0A
06F5: PUSH H
06F6: CALL 0786
06F9: DAD B
06FA: MOV M,A
06FB: CALL 0761
06FE: INR B
06FF: DCR E
0700: JZ 074E
0703: ANI F0
0705: JZ 06FB
0708: DCR B
0709: PUSH B
070A: LXI H,3041
070D: CALL 0761
0710: LXI H,3045
0713: LXI D,304A
0716: PUSH D
0717: PUSH B
0718: CALL 077C
071B: POP B
071C: POP H
071D: JC 0733
0720: PUSH B
0721: LXI D,304F
0724: DCX H
0725: DCX D
0726: LDAX D
0727: SBB M
0728: STAX D
0729: DCR C
072A: JNZ 0724
072D: DCX H
072E: INR M
072F: POP B
0730: JMP 0710
0733: CALL 0761
0736: DCR B
0737: JNZ 070A
073A: LXI H,3045
073D: CALL 0786
0740: POP B
0741: MVI A,0C
0743: MVI C,0A
0745: SUB B
0746: MOV B,A
0747: CALL 0761
074A: DCR B
074B: JNZ 0747
074E: POP H
074F: LXI H,3048
0752: POP B
0753: MVI A,04
0755: MOV E,M
0756: DCX H
0757: MOV D,M
0758: DCX H
0759: PUSH D
075A: DCR A
075B: JNZ 0755
075E: JMP 02D5
0761: PUSH B
0762: PUSH D
0763: MVI B,00
0765: DAD B
0766: XCHG
0767: DCX D
0768: LDAX D
0769: MOV L,A
076A: MVI H,00
076C: DAD H
076D: DAD H
076E: DAD H
076F: DAD H
0770: MOV A,L
0771: ADD B
0772: STAX D
0773: MOV B,H
0774: DCR C
0775: JNZ 0767
0778: XCHG
0779: POP D
077A: POP B
077B: RET
077C: LDAX D
077D: CMP M
077E: INX H
077F: INX D
0780: RNZ
0781: DCR C
0782: JNZ 077C
0785: RET
0786: XRA A
0787: PUSH H
0788: PUSH B
0789: MOV M,A
078A: INX H
078B: DCR C
078C: JNZ 0789
078F: POP B
0790: POP H
0791: RET
0792: MOV A,H
0793: ORA L
0794: RZ
0795: LXI B,0000
0798: PUSH B
0799: MOV A,E
079A: SUB L
079B: MOV A,D
079C: SBB H
079D: JC 07A5
07A0: PUSH H
07A1: DAD H
07A2: JNC 0799
07A5: LXI H,0000
07A8: POP B
07A9: MOV A,B
07AA: ORA C
07AB: RZ
07AC: DAD H
07AD: PUSH D
07AE: MOV A,E
07AF: SUB C
07B0: MOV E,A
07B1: MOV A,D
07B2: SBB B
07B3: MOV D,A
07B4: JC 07BC
07B7: INX H
07B8: POP B
07B9: JMP 07A8
07BC: POP D
07BD: JMP 07A8
	Asm /MOD
07C7: POP H
07C8: POP D
07C9: PUSH B
07CA: MOV A,H
07CB: XRA D
07CC: MOV A,H
07CD: PUSH PSW
07CE: ORA A
07CF: CM 0572
07D2: PUSH H
07D3: MOV A,D
07D4: ORA A
07D5: XCHG
07D6: CM 0572
07D9: XCHG
07DA: CALL 0792
07DD: POP B
07DE: MOV A,D
07DF: ORA E
07E0: JNZ 07ED
07E3: POP PSW
07E4: CM 0572
07E7: POP B
07E8: PUSH D
07E9: PUSH H
07EA: JMP 02D5
07ED: POP PSW
07EE: PUSH PSW
07EF: JP 07FC
07F2: INX H
07F3: CALL 0572
07F6: MOV A,C
07F7: SUB E
07F8: MOV E,A
07F9: MOV A,B
07FA: SBB D
07FB: MOV D,A
07FC: POP PSW
07FD: ORA A
07FE: XCHG
07FF: CM 0572
0802: POP B
0803: PUSH H
0804: PUSH D
0805: JMP 02D5
	Asm U/MOD
0810: POP H
0811: POP D
0812: PUSH B
0813: CALL 0792
0816: POP B
0817: PUSH D
0818: PUSH H
0819: JMP 02D5
	Asm ?WORD
0824: POP H
0825: POP D
0826: PUSH B
0827: LDAX D
0828: INX D
0829: MOV B,A
082A: SHLD 2F26
082D: MOV A,M
082E: INX H
082F: MOV H,M
0830: MOV L,A
0831: ORA H
0832: JZ 0870
0835: MOV A,M
0836: ANI 7F
0838: CMP B
0839: JNZ 0864
083C: ORA A
083D: JZ 0855
0840: MOV C,B
0841: INX H
0842: PUSH D
0843: LDAX D
0844: CMP M
0845: JNZ 085C
0848: INX H
0849: INX D
084A: DCR C
084B: JNZ 0843
084E: MVI A,FF
0850: MOV D,A
0851: SUB B
0852: MOV E,A
0853: DAD D
0854: POP D
0855: LXI D,FFFF
0858: XCHG
0859: JMP 0871
085C: MVI D,00
085E: MOV E,C
085F: DAD D
0860: POP D
0861: JMP 082A
0864: ANI 3F
0866: INR A
0867: ADD L
0868: MOV L,A
0869: MVI A,00
086B: ADC H
086C: MOV H,A
086D: JMP 082A
0870: DCX D
0871: POP B
0872: PUSH D
0873: PUSH H
0874: JMP 02D5
	Asm DIGIT
087F: POP D
0880: POP H
0881: MOV A,L
0882: CPI 30
0884: JC 08A7
0887: CPI 3A
0889: JNC 089B
088C: SUI 30
088E: CMP E
088F: JNC 08A7
0892: MOV L,A
0893: PUSH H
0894: LXI H,FFFF
0897: PUSH H
0898: JMP 02D5
089B: CPI 41
089D: JC 08A7
08A0: SUI 41
08A2: ADI 0A
08A4: JMP 088E
08A7: LXI H,0000
08AA: PUSH H
08AB: JMP 02D5
	Asm AND
08B4: POP H
08B5: POP D
08B6: MOV A,E
08B7: ANA L
08B8: MOV L,A
08B9: MOV A,D
08BA: ANA H
08BB: MOV H,A
08BC: PUSH H
08BD: JMP 02D5
	Asm OR
08C5: POP H
08C6: POP D
08C7: MOV A,E
08C8: ORA L
08C9: MOV L,A
08CA: MOV A,D
08CB: ORA H
08CC: MOV H,A
08CD: PUSH H
08CE: JMP 02D5
	Asm XOR
08D7: POP H
08D8: POP D
08D9: MOV A,E
08DA: XRA L
08DB: MOV L,A
08DC: MOV A,D
08DD: XRA H
08DE: MOV H,A
08DF: PUSH H
08E0: JMP 02D5
	Asm NOT
08E9: POP H
08EA: MOV A,H
08EB: CMA
08EC: MOV H,A
08ED: MOV A,L
08EE: CMA
08EF: MOV L,A
08F0: PUSH H
08F1: JMP 02D5
	Asm >R
08F9: POP D
08FA: LHLD 2F1E
08FD: DCX H
08FE: MOV M,D
08FF: DCX H
0900: MOV M,E
0901: SHLD 2F1E
0904: JMP 02D5
	Asm R>
090C: LHLD 2F1E
090F: MOV E,M
0910: INX H
0911: MOV D,M
0912: INX H
0913: PUSH D
0914: SHLD 2F1E
0917: JMP 02D5
	Asm R@
091F: LHLD 2F1E
0922: MOV E,M
0923: INX H
0924: MOV D,M
0925: PUSH D
0926: JMP 02D5
	Asm RP@
092F: LHLD 2F1E
0932: PUSH H
0933: JMP 02D5
	Asm RP!
093C: POP H
093D: SHLD 2F1E
0940: JMP 02D5
	Asm RPICK
094B: POP H
094C: DAD H
094D: XCHG
094E: LHLD 2F1E
0951: DAD D
0952: MOV E,M
0953: INX H
0954: MOV D,M
0955: PUSH D
0956: JMP 02D5
	Asm RDROP
0961: LHLD 2F1E
0964: INX H
0965: INX H
0966: SHLD 2F1E
0969: JMP 02D5
	Asm @
0970: POP H
0971: MOV E,M
0972: INX H
0973: MOV D,M
0974: PUSH D
0975: JMP 02D5
	Asm C@
097D: POP H
097E: MOV E,M
097F: MVI D,00
0981: PUSH D
0982: JMP 02D5
	Asm !
0989: POP H
098A: POP D
098B: MOV M,E
098C: INX H
098D: MOV M,D
098E: JMP 02D5
	Asm C!
0996: POP H
0997: POP D
0998: MOV M,E
0999: JMP 02D5
	Asm 2!
09A1: POP H
09A2: POP D
09A3: MOV M,E
09A4: INX H
09A5: MOV M,D
09A6: INX H
09A7: POP D
09A8: MOV M,E
09A9: INX H
09AA: MOV M,D
09AB: JMP 02D5
	Asm 2@
09B3: POP H
09B4: MOV E,M
09B5: INX H
09B6: MOV D,M
09B7: INX H
09B8: MOV A,M
09B9: INX H
09BA: MOV H,M
09BB: MOV L,A
09BC: PUSH H
09BD: PUSH D
09BE: JMP 02D5
	Asm +!
09C6: POP H
09C7: POP D
09C8: MOV A,M
09C9: ADD E
09CA: MOV M,A
09CB: INX H
09CC: MOV A,M
09CD: ADC D
09CE: MOV M,A
09CF: JMP 02D5
	Asm -!
09D7: POP H
09D8: POP D
09D9: MOV A,M
09DA: SUB E
09DB: MOV M,A
09DC: INX H
09DD: MOV A,M
09DE: SBB D
09DF: MOV M,A
09E0: JMP 02D5
	Asm 0!
09E8: SUB A
09E9: POP H
09EA: MOV M,A
09EB: INX H
09EC: MOV M,A
09ED: JMP 02D5
	Asm 1+!
09F6: POP H
09F7: INR M
09F8: JNZ 02D5
09FB: INX H
09FC: INR M
09FD: JMP 02D5
	Asm 1-!
0A06: POP H
0A07: MOV E,M
0A08: INX H
0A09: MOV D,M
0A0A: DCX D
0A0B: MOV M,D
0A0C: DCX H
0A0D: MOV M,E
0A0E: JMP 02D5
	Asm LIT
0A17: LDAX B
0A18: MOV L,A
0A19: INX B
0A1A: LDAX B
0A1B: MOV H,A
0A1C: INX B
0A1D: PUSH H
0A1E: JMP 02D5
	Asm DLIT
0A28: LDAX B
0A29: MOV E,A
0A2A: INX B
0A2B: LDAX B
0A2C: MOV D,A
0A2D: INX B
0A2E: LDAX B
0A2F: MOV L,A
0A30: INX B
0A31: LDAX B
0A32: MOV H,A
0A33: INX B
0A34: PUSH H
0A35: PUSH D
0A36: JMP 02D5
	Asm (")
0A3F: PUSH B
0A40: LDAX B
0A41: MOV L,A
0A42: MVI H,00
0A44: INX H
0A45: DAD B
0A46: MOV B,H
0A47: MOV C,L
0A48: JMP 02D5
	Asm BRANCH
0A54: MOV H,B
0A55: MOV L,C
0A56: MOV C,M
0A57: INX H
0A58: MOV B,M
0A59: JMP 02D5
	Asm ?BRANCH
0A66: POP D
0A67: MOV A,D
0A68: ORA E
0A69: JZ 0A54
0A6C: INX B
0A6D: INX B
0A6E: JMP 02D5
	Asm N?BRANCH
0A7C: POP D
0A7D: MOV A,D
0A7E: ORA E
0A7F: JNZ 0A54
0A82: INX B
0A83: INX B
0A84: JMP 02D5
	Asm I
0A8B: LHLD 2F1E
0A8E: MOV E,M
0A8F: INX H
0A90: MOV D,M
0A91: PUSH D
0A92: JMP 02D5
	Asm J
0A99: LHLD 2F1E
0A9C: LXI D,0006
0A9F: DAD D
0AA0: MOV E,M
0AA1: INX H
0AA2: MOV D,M
0AA3: PUSH D
0AA4: JMP 02D5
	Asm K
0AAB: LHLD 2F1E
0AAE: LXI D,000C
0AB1: DAD D
0AB2: MOV E,M
0AB3: INX H
0AB4: MOV D,M
0AB5: PUSH D
0AB6: JMP 02D5
	Asm TOGGLE
0AC2: POP D
0AC3: MOV A,E
0AC4: POP H
0AC5: XRA M
0AC6: MOV M,A
0AC7: JMP 02D5
	Asm (DO)
0AD1: POP H
0AD2: XTHL
0AD3: PUSH H
0AD4: LHLD 2F1E
0AD7: LDAX B
0AD8: MOV D,A
0AD9: INX B
0ADA: LDAX B
0ADB: INX B
0ADC: DCX H
0ADD: MOV M,A
0ADE: DCX H
0ADF: MOV M,D
0AE0: POP D
0AE1: DCX H
0AE2: MOV M,D
0AE3: DCX H
0AE4: MOV M,E
0AE5: POP D
0AE6: DCX H
0AE7: MOV M,D
0AE8: DCX H
0AE9: MOV M,E
0AEA: SHLD 2F1E
0AED: JMP 02D5
	Asm (?DO)
0AF8: POP H
0AF9: POP D
0AFA: PUSH D
0AFB: PUSH H
0AFC: MOV A,L
0AFD: CMP E
0AFE: JNZ 0AD1
0B01: MOV A,H
0B02: CMP D
0B03: JNZ 0AD1
0B06: LDAX B
0B07: MOV D,A
0B08: INX B
0B09: LDAX B
0B0A: MOV B,A
0B0B: MOV C,D
0B0C: POP H
0B0D: POP H
0B0E: JMP 02D5
	Asm (LOOP)
0B1A: LHLD 2F1E
0B1D: MOV E,M
0B1E: INX H
0B1F: MOV D,M
0B20: INX H
0B21: INX D
0B22: MOV A,M
0B23: INX H
0B24: CMP E
0B25: JNZ 0B38
0B28: MOV A,M
0B29: CMP D
0B2A: JNZ 0B38
0B2D: INX H
0B2E: INX H
0B2F: INX H
0B30: SHLD 2F1E
0B33: INX B
0B34: INX B
0B35: JMP 02D5
0B38: DCX H
0B39: DCX H
0B3A: MOV M,D
0B3B: DCX H
0B3C: MOV M,E
0B3D: MOV H,B
0B3E: MOV L,C
0B3F: MOV C,M
0B40: INX H
0B41: MOV B,M
0B42: JMP 02D5
	Asm (+LOOP)
0B4F: POP D
0B50: PUSH B
0B51: LHLD 2F1E
0B54: MOV A,M
0B55: MOV C,A
0B56: ADD E
0B57: MOV M,A
0B58: INX H
0B59: MOV A,M
0B5A: MOV B,A
0B5B: ADC D
0B5C: MOV M,A
0B5D: INX H
0B5E: MOV A,C
0B5F: SUB M
0B60: MOV C,A
0B61: INX H
0B62: MOV A,B
0B63: SBB M
0B64: MOV B,A
0B65: SUB A
0B66: ORA D
0B67: JM 0B87
0B6A: MOV H,B
0B6B: MOV L,C
0B6C: DAD D
0B6D: JC 0B77
0B70: POP H
0B71: MOV C,M
0B72: INX H
0B73: MOV B,M
0B74: JMP 02D5
0B77: LXI D,0006
0B7A: LHLD 2F1E
0B7D: DAD D
0B7E: SHLD 2F1E
0B81: POP B
0B82: INX B
0B83: INX B
0B84: JMP 02D5
0B87: SUB A
0B88: SUB E
0B89: MOV E,A
0B8A: MVI A,00
0B8C: SBB D
0B8D: MOV D,A
0B8E: MOV A,C
0B8F: SUB E
0B90: MOV A,B
0B91: SBB D
0B92: JNC 0B70
0B95: JMP 0B77
	Asm CMOVE
0BA0: MOV H,B
0BA1: MOV L,C
0BA2: POP B
0BA3: POP D
0BA4: XTHL
0BA5: MOV A,C
0BA6: ORA B
0BA7: JZ 0BBC
0BAA: MOV A,C
0BAB: ORA A
0BAC: JZ 0BB0
0BAF: INR B
0BB0: MOV A,M
0BB1: STAX D
0BB2: INX H
0BB3: INX D
0BB4: DCR C
0BB5: JNZ 0BB0
0BB8: DCR B
0BB9: JNZ 0BB0
0BBC: POP B
0BBD: JMP 02D5
	Asm CMOVE>
0BC9: MOV H,B
0BCA: MOV L,C
0BCB: POP B
0BCC: POP D
0BCD: XTHL
0BCE: MOV A,C
0BCF: ORA B
0BD0: JZ 0BEC
0BD3: DAD B
0BD4: XCHG
0BD5: DAD B
0BD6: MOV A,C
0BD7: ORA A
0BD8: JZ 0BDC
0BDB: INR B
0BDC: DCX H
0BDD: DCX D
0BDE: LDAX D
0BDF: MOV M,A
0BE0: DCR C
0BE1: JNZ 0BDC
0BE4: DCR B
0BE5: JNZ 0BDC
0BE8: POP B
0BE9: JMP 02D5
0BEC: POP B
0BED: JMP 02D5
	Asm <CMOVE>
0BFA: MOV H,B
0BFB: MOV L,C
0BFC: POP B
0BFD: POP D
0BFE: XTHL
0BFF: MOV A,C
0C00: ORA B
0C01: JZ 0C0E
0C04: MOV A,L
0C05: SUB E
0C06: MOV A,H
0C07: SBB D
0C08: JNC 0BAA
0C0B: JMP 0BD3
0C0E: POP B
0C0F: JMP 02D5
	Asm FILL
0C19: POP D
0C1A: POP H
0C1B: MOV A,H
0C1C: ORA L
0C1D: JNZ 0C24
0C20: POP H
0C21: JMP 02D5
0C24: MOV A,E
0C25: POP D
0C26: DCX H
0C27: PUSH B
0C28: LXI B,FFFF
0C2B: STAX D
0C2C: INX D
0C2D: DAD B
0C2E: JC 0C2B
0C31: POP B
0C32: JMP 02D5
	Asm 0>BL
0C3C: POP D
0C3D: POP H
0C3E: MOV A,M
0C3F: ORA A
0C40: JNZ 0C45
0C43: MVI M,20
0C45: INX H
0C46: DCR E
0C47: JNZ 0C3E
0C4A: JMP 02D5
	Asm ENCLOSE
0C57: MOV H,B
0C58: MOV L,C
0C59: POP B
0C5A: POP D
0C5B: XTHL
0C5C: XCHG
0C5D: DCX B
0C5E: MOV A,B
0C5F: ORA A
0C60: JM 0C8D
0C63: MOV A,M
0C64: CMP E
0C65: DCX B
0C66: INX H
0C67: JZ 0C5E
0C6A: PUSH H
0C6B: MOV A,B
0C6C: ORA A
0C6D: JM 0C78
0C70: MOV A,M
0C71: CMP E
0C72: DCX B
0C73: INX H
0C74: JNZ 0C6B
0C77: DCX H
0C78: POP D
0C79: DCX D
0C7A: POP B
0C7B: PUSH D
0C7C: PUSH H
0C7D: MOV A,L
0C7E: SUB E
0C7F: MOV L,A
0C80: MOV A,H
0C81: SBB D
0C82: MOV H,A
0C83: XTHL
0C84: INX H
0C85: PUSH H
0C86: LXI H,FFFF
0C89: PUSH H
0C8A: JMP 02D5
0C8D: POP B
0C8E: LXI H,0000
0C91: PUSH H
0C92: JMP 02D5
	Proc BYE
0C9E: FLUSH
0CA0: LIT, 0000
0CA4: EXECUTE
0CA6: EXIT
	Proc (EMIT)
0CB4: LIT, 0002
0CB8: FDOS
0CBA: 2DROP
0CBC: EXIT
	Proc (KEY)
0CC9: LIT, 00FF
0CCD: LIT, 0006
0CD1: FDOS
0CD3: PRESS
0CD5: ?DUP
0CD7: ?BRANCH, 0CC9
0CDB: EXIT
	Proc (CR)
0CE7: LIT, 000D
0CEB: EMIT
0CED: LIT, 000A
0CF1: EMIT
0CF3: EXIT
	Proc ?KEY
0CFF: LIT, 00FF
0D03: LIT, 0006
0D07: FDOS
0D09: PRESS
0D0B: ?DUP
0D0D: 0=
0D0F: 0=
0D11: EXIT
	Proc ?TERMINAL
0D22: LIT, 000B
0D26: DUP
0D28: FDOS
0D2A: PRESS
0D2C: 0=
0D2E: 0=
0D30: EXIT
	Proc LEMIT
0D3D: LIT, 0005
0D41: FDOS
0D43: 2DROP
0D45: EXIT
	Proc PRINT
0D52: LIT, 0000
0D56: (?DO), 0D66
0D5A: DUP
0D5C: C@
0D5E: LEMIT
0D60: 1+
0D62: (LOOP), 0D5A
0D66: DROP
0D68: EXIT
	Proc (LEMIT)
0D77: DUP
0D79: (EMIT)
0D7B: LEMIT
0D7D: EXIT
	Proc +COPY
0D8A: LIT, 0D74
0D8E: LIT, 2F0E
0D92: !
0D94: EXIT
	Proc -COPY
0DA1: LIT, 0CB1
0DA5: LIT, 2F0E
0DA9: !
0DAB: EXIT
	Proc TITLE
0DB8: CR
0DBA: (.")  op-ccea epc 6.3 o 10.06.87"
0DE1: CR
0DE3: (.") B.A.Kp A.A.Kyo H.P.Hopyo"
0E0D: CR
0E0F: (.") aopaop aeaecoo oecee"
0E39: CR
0E3B: LIT, 000A
0E3F: SPACES
0E41: (.") epax cce"
0E57: CR
0E59: (.")   Hcea'a   . A.A.aoa"
0E80: CR
0E82: LIT, 0005
0E86: SPACES
0E88: (.") 198904 epa epoope"
0EA7: CR
0EA9: LIT, 000C
0EAD: SPACES
0EAF: (.") oea . . 2"
0EC7: CR
0EC9: LIT, 2F0A
0ECD: @
0ECF: ?DUP
0ED1: ?BRANCH, 0ED7
0ED5: EXECUTE
0ED7: EXIT
	Const -1, FFFF
	Const 0, 0000
	Const 1, 0001
	Const 2, 0002
	Const TRUE, FFFF
	Const FALSE, 0000
	Asm HERE
0F1E: LHLD 2F20
0F21: PUSH H
0F22: JMP 02D5
	Asm ALLOT
0F2D: LHLD 2F20
0F30: POP D
0F31: DAD D
0F32: SHLD 2F20
0F35: JMP 02D5
	Asm ,
0F3C: LHLD 2F20
0F3F: POP D
0F40: MOV M,E
0F41: INX H
0F42: MOV M,D
0F43: INX H
0F44: SHLD 2F20
0F47: JMP 02D5
	Asm C,
0F4F: LHLD 2F20
0F52: POP D
0F53: MOV M,E
0F54: INX H
0F55: SHLD 2F20
0F58: JMP 02D5
	Proc ",
0F63: HERE
0F65: OVER
0F67: C@
0F69: 1+
0F6B: DUP
0F6D: ALLOT
0F6F: CMOVE
0F71: EXIT
	Proc PAD
0F7C: HERE
0F7E: LIT, 0054
0F82: +
0F84: EXIT
	Asm COUNT
0F8E: POP H
0F8F: MVI D,00
0F91: MOV E,M
0F92: INX H
0F93: PUSH H
0F94: PUSH D
0F95: JMP 02D5
	Asm COMPILE
0FA2: LHLD 2F20
0FA5: LDAX B
0FA6: MOV M,A
0FA7: INX B
0FA8: INX H
0FA9: LDAX B
0FAA: MOV M,A
0FAB: INX B
0FAC: INX H
0FAD: SHLD 2F20
0FB0: JMP 02D5
	Proc S>D
0FBC: DUP
0FBE: 0<
0FC0: EXIT
	Proc M*
0FCA: 2DUP
0FCC: XOR
0FCE: >R
0FD0: ABS
0FD2: SWAP
0FD4: ABS
0FD6: UM*
0FD8: R>
0FDA: 0<
0FDC: ?BRANCH, 0FE2
0FE0: DNEGATE
0FE2: EXIT
	Proc /
0FEB: /MOD
0FED: PRESS
0FEF: EXIT
	Proc MOD
0FFA: /MOD
0FFC: DROP
0FFE: EXIT
	Proc DABS
100A: DUP
100C: 0<
100E: ?BRANCH, 1014
1012: DNEGATE
1014: EXIT
	Proc U/
101E: U/MOD
1020: PRESS
1022: EXIT
	Proc UM/MOD
1030: 0
1032: DU/MOD
1034: DROP
1036: PRESS
1038: EXIT
	Proc M/MOD
1045: ?DUP
1047: ?BRANCH, 1089
104B: DUP
104D: >R
104F: 2DUP
1051: XOR
1053: >R
1055: >R
1057: DABS
1059: R@
105B: ABS
105D: UM/MOD
105F: SWAP
1061: R>
1063: 0<
1065: ?BRANCH, 106B
1069: NEGATE
106B: SWAP
106D: R>
106F: 0<
1071: ?BRANCH, 1087
1075: NEGATE
1077: OVER
1079: ?BRANCH, 1087
107D: 1-
107F: R@
1081: ROT
1083: -
1085: SWAP
1087: RDROP
1089: EXIT
	Proc */MOD
1096: >R
1098: M*
109A: R>
109C: M/MOD
109E: EXIT
	Proc */
10A8: */MOD
10AA: PRESS
10AC: EXIT
	Proc <>
10B6: =
10B8: 0=
10BA: EXIT
	Proc QUIT
10C6: LIT, 2F00
10CA: @
10CC: ?DUP
10CE: ?BRANCH, 10D4
10D2: EXECUTE
10D4: R0
10D6: @
10D8: RP!
10DA: CONSOLE
10DC: [
10DE: ptr 2F4C
10E0: DEFINITIONS
10E2: QUERY
10E4: INTERPRET
10E6: BRANCH, 10E2
10EA: EXIT
	Proc ABORT
10F7: LIT, 2F02
10FB: @
10FD: ?DUP
10FF: ?BRANCH, 1105
1103: EXECUTE
1105: BLK
1107: @
1109: ?DUP
110B: ?BRANCH, 1154
110F: CR
1111: (.") OKA: KPAH "
1122: .
1124: (.") CTPOKA "
112E: >IN
1130: @
1132: LIT, 0040
1136: U/
1138: DUP
113A: .
113C: CR
113E: BLK
1140: @
1142: BLOCK
1144: SWAP
1146: LIT, 0040
114A: *
114C: +
114E: LIT, 0040
1152: TYPE
1154: S0
1156: @
1158: SP!
115A: QUIT
115C: EXIT
	Proc (ABORT")
116C: ?BRANCH, 1180
1170: HERE
1172: ID.
1174: SPACE
1176: R>
1178: ID.
117A: ABORT
117C: BRANCH, 118C
1180: R>
1182: DUP
1184: C@
1186: 1+
1188: +
118A: >R
118C: EXIT
	Proc ABORT" , i
119A: ?COMP
119C: COMPILE
119E: (ABORT")
11A0: LIT, 0022
11A4: WORD
11A6: ",
11A8: EXIT
	Proc #>
11B2: 2DROP
11B4: HLD
11B6: @
11B8: PAD
11BA: OVER
11BC: -
11BE: EXIT
	Proc <#
11C8: PAD
11CA: HLD
11CC: !
11CE: EXIT
	Proc HOLD
11DA: HLD
11DC: 1-!
11DE: HLD
11E0: @
11E2: C!
11E4: EXIT
	Proc SIGN
11F0: 0<
11F2: ?BRANCH, 11FC
11F6: LIT, 002D
11FA: HOLD
11FC: EXIT
	Proc >DIG
1208: LIT, 0009
120C: OVER
120E: U<
1210: ?BRANCH, 121C
1214: LIT, 0037
1218: BRANCH, 1220
121C: LIT, 0030
1220: +
1222: EXIT
	Proc #
122B: BASE
122D: @
122F: 0
1231: DU/MOD
1233: ROT
1235: DROP
1237: ROT
1239: >DIG
123B: HOLD
123D: EXIT
	Proc #.
1247: BASE
1249: @
124B: U/MOD
124D: SWAP
124F: >DIG
1251: HOLD
1253: EXIT
	Proc #.S
125E: #.
1260: DUP
1262: 0=
1264: ?BRANCH, 125E
1268: EXIT
	Proc #S
1272: #
1274: 2DUP
1276: OR
1278: 0=
127A: ?BRANCH, 1272
127E: EXIT
	Proc D.R
1289: >R
128B: DUP
128D: >R
128F: DABS
1291: <#
1293: #S
1295: R>
1297: SIGN
1299: #>
129B: R>
129D: OVER
129F: -
12A1: SPACES
12A3: TYPE
12A5: EXIT
	Proc D.
12AF: DUP
12B1: >R
12B3: DABS
12B5: <#
12B7: #S
12B9: R>
12BB: SIGN
12BD: #>
12BF: TYPE
12C1: SPACE
12C3: EXIT
	Proc .R
12CD: >R
12CF: DUP
12D1: >R
12D3: ABS
12D5: <#
12D7: #.S
12D9: R>
12DB: SIGN
12DD: 0
12DF: #>
12E1: R>
12E3: OVER
12E5: -
12E7: 0
12E9: MAX
12EB: SPACES
12ED: TYPE
12EF: EXIT
	Proc .0
12F9: >R
12FB: <#
12FD: #.S
12FF: 0
1301: #>
1303: R>
1305: OVER
1307: -
1309: 0
130B: MAX
130D: 0
130F: (?DO), 131D
1313: LIT, 0030
1317: EMIT
1319: (LOOP), 1313
131D: TYPE
131F: EXIT
	Proc .
1328: DUP
132A: >R
132C: ABS
132E: <#
1330: #.S
1332: R>
1334: SIGN
1336: 0
1338: #>
133A: TYPE
133C: SPACE
133E: EXIT
	Proc U.
1348: 0
134A: D.
134C: EXIT
	Const CFL, 0003
	Proc >BODY
1364: CFL
1366: +
1368: EXIT
	Proc BODY>
1375: CFL
1377: -
1379: EXIT
	Proc >LINK
1386: 2-
1388: EXIT
	Proc LINK>
1395: 2+
1397: EXIT
	Proc N>LINK
13A5: COUNT
13A7: LIT, 003F
13AB: AND
13AD: +
13AF: EXIT
	Proc NAME>
13BC: N>LINK
13BE: LINK>
13C0: EXIT
	Proc L>NAME
13CE: LIT, 0020
13D2: 2
13D4: (DO), 13FA
13D8: DUP
13DA: I
13DC: -
13DE: C@
13E0: LIT, 007F
13E4: AND
13E6: 1+
13E8: I
13EA: =
13EC: ?BRANCH, 13F6
13F0: I
13F2: -
13F4: LEAVE
13F6: (LOOP), 13D8
13FA: EXIT
	Proc >NAME
1407: >LINK
1409: L>NAME
140B: EXIT
	Proc WORD
1417: LIT, 2F16
141B: @
141D: ?DUP
141F: ?BRANCH, 1427
1423: EXECUTE
1425: EXIT
1427: BLK
1429: @
142B: ?DUP
142D: ?BRANCH, 143D
1431: BLOCK
1433: DUP
1435: INB
1437: !
1439: BRANCH, 143F
143D: TIB
143F: >IN
1441: @
1443: +
1445: #TIB
1447: @
1449: >IN
144B: @
144D: -
144F: ENCLOSE
1451: ?BRANCH, 1463
1455: INB
1457: @
1459: -
145B: >IN
145D: !
145F: BRANCH, 146F
1463: #TIB
1465: @
1467: >IN
1469: !
146B: 0
146D: 0
146F: DUP
1471: HERE
1473: C!
1475: HERE
1477: 1+
1479: SWAP
147B: CMOVE
147D: HERE
147F: BL
1481: OVER
1483: DUP
1485: C@
1487: 1+
1489: +
148B: C!
148D: EXIT
	Const C/L, 0040
	Const ST-C, 000D
	Const B-SP, 0008
	Const C<-, 0008
	Proc EXPECT
14C9: LIT, 2F08
14CD: @
14CF: ?DUP
14D1: ?BRANCH, 14D9
14D5: EXECUTE
14D7: EXIT
14D9: OVER
14DB: SWAP
14DD: 0
14DF: (?DO), 1549
14E3: KEY
14E5: DUP
14E7: B-SP
14E9: =
14EB: OVER
14ED: C<-
14EF: =
14F1: OR
14F3: ?BRANCH, 1525
14F7: >R
14F9: 2DUP
14FB: =
14FD: N?BRANCH, 1519
1501: R>
1503: DUP
1505: EMIT
1507: BL
1509: EMIT
150B: EMIT
150D: 1-
150F: R>
1511: 1-
1513: >R
1515: BRANCH, 151B
1519: RDROP
151B: R>
151D: 1-
151F: >R
1521: BRANCH, 1545
1525: DUP
1527: ST-C
1529: =
152B: ?BRANCH, 153B
152F: DROP
1531: BL
1533: EMIT
1535: LEAVE
1537: BRANCH, 1545
153B: DUP
153D: EMIT
153F: OVER
1541: C!
1543: 1+
1545: (LOOP), 14E3
1549: SWAP
154B: -
154D: SPAN
154F: !
1551: EXIT
	Proc  , i
1559: RDROP
155B: EXIT
	Proc EMIT
1567: LIT, 2F0E
156B: @
156D: EXECUTE
156F: >OUT
1571: 1+!
1573: EXIT
	Proc KEY
157E: LIT, 2F0C
1582: @
1584: EXECUTE
1586: EXIT
	Proc CR
1590: LIT, 2F10
1594: @
1596: EXECUTE
1598: >OUT
159A: 0!
159C: EXIT
	Proc TYPE
15A8: LIT, 2F12
15AC: @
15AE: ?DUP
15B0: ?BRANCH, 15B8
15B4: EXECUTE
15B6: EXIT
15B8: 0
15BA: (?DO), 15CA
15BE: DUP
15C0: C@
15C2: EMIT
15C4: 1+
15C6: (LOOP), 15BE
15CA: DROP
15CC: EXIT
	Proc FORTH-83
15DC: FORTH
15DE: DECIMAL
15E0: EXIT
	Const F-CODE, 0100
	Const F-DATA, 2F00
	Proc QUERY
1609: CR
160B: LIT, 003E
160F: EMIT
1611: TIB
1613: C/L
1615: 1-
1617: EXPECT
1619: SPAN
161B: @
161D: DUP
161F: #TIB
1621: !
1623: ?BRANCH, 1629
1627: CR
1629: >IN
162B: 0!
162D: TIB
162F: INB
1631: !
1633: EXIT
	Proc CONSOLE
1642: LIT, 2F14
1646: @
1648: ?DUP
164A: ?BRANCH, 1652
164E: EXECUTE
1650: EXIT
1652: BLK
1654: 0!
1656: LIT, 0CB1
165A: LIT, 2F0E
165E: !
1660: LIT, 0CC6
1664: LIT, 2F0C
1668: !
166A: LIT, 0CE4
166E: LIT, 2F10
1672: !
1674: CR
1676: #TIB
1678: 0!
167A: >IN
167C: 0!
167E: EXIT
	Proc ;S
1688: RDROP
168A: EXIT
	Proc HEX
1695: LIT, 0010
1699: BASE
169B: !
169D: EXIT
	Proc DECIMAL
16AC: LIT, 000A
16B0: BASE
16B2: !
16B4: EXIT
	Const BL, 0020
	Proc BLANK
16CB: BL
16CD: FILL
16CF: EXIT
	Proc SPACE
16DC: BL
16DE: EMIT
16E0: EXIT
	Proc SPACES
16EE: 0
16F0: (?DO), 16FA
16F4: SPACE
16F6: (LOOP), 16F4
16FA: EXIT
	Proc ID.
1705: COUNT
1707: LIT, 003F
170B: AND
170D: TYPE
170F: EXIT
	Proc DEFINITIONS
1722: CONTEXT
1724: @
1726: CURRENT
1728: !
172A: EXIT
	Proc LATEST
1738: CURRENT
173A: @
173C: @
173E: EXIT
	Proc !CF
1749: LIT, 00CD
174D: OVER
174F: C!
1751: 1+
1753: !
1755: EXIT
	Proc (!CODE)
1764: LATEST
1766: NAME>
1768: !CF
176A: EXIT
	Proc SMUDGE
1778: LATEST
177A: LIT, 0040
177E: TOGGLE
1780: EXIT
	Proc [ , i
1789: STATE
178B: 0!
178D: EXIT
	Proc ]
1796: -1
1798: STATE
179A: !
179C: EXIT
	Proc FIND
17A8: LIT, 2F06
17AC: @
17AE: ?DUP
17B0: ?BRANCH, 17B8
17B4: EXECUTE
17B6: EXIT
17B8: CONTEXT
17BA: @
17BC: ?WORD
17BE: ?BRANCH, 17C8
17C2: TRUE
17C4: BRANCH, 17E2
17C8: CURRENT
17CA: @
17CC: DUP
17CE: CONTEXT
17D0: @
17D2: =
17D4: N?BRANCH, 17DE
17D8: ?WORD
17DA: BRANCH, 17E2
17DE: DROP
17E0: FALSE
17E2: ?BRANCH, 1804
17E6: DUP
17E8: NAME>
17EA: SWAP
17EC: C@
17EE: LIT, 0080
17F2: AND
17F4: ?BRANCH, 17FE
17F8: 1
17FA: BRANCH, 1800
17FE: -1
1800: BRANCH, 1806
1804: FALSE
1806: EXIT
	Proc +WORD
1813: HERE
1815: ROT
1817: ",
1819: SWAP
181B: DUP
181D: @
181F: ,
1821: !
1823: EXIT
	Proc -WORD
1830: ?WORD
1832: ?BRANCH, 1846
1836: N>LINK
1838: @
183A: W-LINK
183C: @
183E: !
1840: TRUE
1842: BRANCH, 184A
1846: DROP
1848: FALSE
184A: EXIT
	Proc (.")
1856: R@
1858: COUNT
185A: DUP
185C: 1+
185E: R>
1860: +
1862: >R
1864: TYPE
1866: EXIT
	Proc ERASE
1873: 0
1875: FILL
1877: EXIT
	Proc '
1880: BL
1882: WORD
1884: FIND
1886: 0=
1888: (ABORT") -? "
188E: EXIT
	Proc ['] , i
1899: '
189B: LITERAL
189D: EXIT
	Proc LITERAL , i
18AC: STATE
18AE: @
18B0: ?BRANCH, 18BA
18B4: COMPILE
18B6: LIT
18B8: ,
18BA: EXIT
	Proc DLITERAL , i
18CA: STATE
18CC: @
18CE: ?BRANCH, 18DA
18D2: COMPILE
18D4: DLIT
18D6: ,
18D8: ,
18DA: EXIT
	Proc [COMPILE] , i
18EB: '
18ED: ,
18EF: EXIT
	Proc CONVERT
18FE: 1+
1900: DUP
1902: >R
1904: C@
1906: BASE
1908: @
190A: DIGIT
190C: ?BRANCH, 1936
1910: SWAP
1912: BASE
1914: @
1916: *
1918: ROT
191A: BASE
191C: @
191E: UM*
1920: D+
1922: DPL
1924: @
1926: 1+
1928: ?BRANCH, 1930
192C: DPL
192E: 1+!
1930: R>
1932: BRANCH, 18FE
1936: R>
1938: EXIT
	Proc NUMBER
1946: 0
1948: 0
194A: ROT
194C: DUP
194E: 1+
1950: C@
1952: LIT, 002D
1956: =
1958: DUP
195A: >R
195C: -
195E: -1
1960: DPL
1962: !
1964: CONVERT
1966: DUP
1968: DUP
196A: C@
196C: BL
196E: <>
1970: SWAP
1972: 0=
1974: 0=
1976: AND
1978: ?BRANCH, 1993
197C: DUP
197E: C@
1980: LIT, 002E
1984: <>
1986: (ABORT")  -? "
198D: 0
198F: BRANCH, 1960
1993: DROP
1995: R>
1997: ?BRANCH, 199D
199B: DNEGATE
199D: EXIT
	Proc ?STACK
19AB: SP@
19AD: S0
19AF: @
19B1: SWAP
19B3: U<
19B5: (ABORT") CEPAHE CTEKA"
19C8: EXIT
	Proc INTERPRET
19D9: LIT, 2F04
19DD: @
19DF: ?DUP
19E1: ?BRANCH, 19E9
19E5: EXECUTE
19E7: EXIT
19E9: BL
19EB: WORD
19ED: FIND
19EF: DUP
19F1: ?BRANCH, 1A0D
19F5: 0<
19F7: STATE
19F9: @
19FB: AND
19FD: ?BRANCH, 1A07
1A01: ,
1A03: BRANCH, 1A09
1A07: EXECUTE
1A09: BRANCH, 1A25
1A0D: DROP
1A0F: NUMBER
1A11: DPL
1A13: @
1A15: 1+
1A17: ?BRANCH, 1A21
1A1B: DLITERAL
1A1D: BRANCH, 1A25
1A21: DROP
1A23: LITERAL
1A25: ?STACK
1A27: BRANCH, 19E9
1A2B: EXIT
	Proc CREATE
1A39: BL
1A3B: WORD
1A3D: WARNING
1A3F: @
1A41: ?BRANCH, 1A67
1A45: DUP
1A47: FIND
1A49: PRESS
1A4B: ?BRANCH, 1A67
1A4F: DUP
1A51: ID.
1A53: (.")  E OPEEEH "
1A65: CR
1A67: CURRENT
1A69: @
1A6B: +WORD
1A6D: CFL
1A6F: ALLOT
1A71: NEXT
1A73: (!CODE)
1A75: EXIT
	Proc <BUILDS
1A84: CREATE
1A86: EXIT
	Proc (DOES>)
1A95: R>
1A97: (!CODE)
1A99: EXIT
	Proc DOES> , i
1AA6: COMPILE
1AA8: (DOES>)
1AAA: CALL
1AAC: HERE
1AAE: !CF
1AB0: CFL
1AB2: ALLOT
1AB4: EXIT
	Proc CONSTANT
1AC4: CREATE
1AC6: ,
1AC8: LIT, 0970
1ACC: (!CODE)
1ACE: EXIT
	Asm TOCODE
1AD9: POP H
1ADA: DCX H
1ADB: DCX H
1ADC: DCX H
1ADD: DCX H
1ADE: POP D
1ADF: MOV M,D
1AE0: DCX H
1AE1: MOV M,E
1AE2: JMP 02D5
	Asm @EXECUTE
1AF0: POP H
1AF1: MOV E,M
1AF2: INX H
1AF3: MOV D,M
1AF4: XCHG
1AF5: PCHL
	Proc QUAN
1B00: 0
1B02: CONSTANT
1B04: LIT, 1AD9
1B08: HERE
1B0A: CFL
1B0C: ALLOT
1B0E: !CF
1B10: EXIT
	Proc VECT
1B1C: QUAN
1B1E: LIT, 1AF0
1B22: (!CODE)
1B24: EXIT
	Proc TO , i
1B2E: BL
1B30: WORD
1B32: FIND
1B34: ?DUP
1B36: 0=
1B38: (ABORT")  -?"
1B3E: 0<
1B40: STATE
1B42: @
1B44: AND
1B46: ?BRANCH, 1B54
1B4A: >BODY
1B4C: 2+
1B4E: ,
1B50: BRANCH, 1B5A
1B54: >BODY
1B56: 2+
1B58: EXECUTE
1B5A: EXIT
	Proc VARIABLE
1B6A: CREATE
1B6C: 0
1B6E: ,
1B70: NEXT
1B72: (!CODE)
1B74: EXIT
	Proc VOCABULARY
1B86: CREATE
1B88: LIT, 0001
1B8C: C,
1B8E: LIT, 0080
1B92: C,
1B94: CURRENT
1B96: @
1B98: 2-
1B9A: ,
1B9C: HERE
1B9E: VOC-LINK
1BA0: @
1BA2: ,
1BA4: VOC-LINK
1BA6: !
1BA8: (DOES>)
	Proc ptr 1BAA
1BAD: 2+
1BAF: CONTEXT
1BB1: !
1BB3: EXIT
	Proc STRING
1BC1: CREATE
1BC3: ",
1BC5: NEXT
1BC7: (!CODE)
1BC9: EXIT
	Proc !CSP
1BD5: SP@
1BD7: CSP
1BD9: !
1BDB: EXIT
	Proc ?CSP
1BE7: SP@
1BE9: CSP
1BEB: @
1BED: XOR
1BEF: (ABORT") CO CTEKA O CSP"
1C03: EXIT
	Proc ?EXEC
1C10: STATE
1C12: @
1C14: (ABORT")  TPEET PEMA BOHEH"
1C31: EXIT
	Proc ?COMP
1C3E: STATE
1C40: @
1C42: 0=
1C44: (ABORT")  TPEET PEMA KOM"
1C61: EXIT
	Proc ?PAIRS
1C6F: XOR
1C71: (ABORT")  HEAPHA CKOKA"
1C84: EXIT
	Proc LEAVE
1C91: RDROP
1C93: RDROP
1C95: RDROP
1C97: EXIT
	Proc : , i
1CA0: ?EXEC
1CA2: !CSP
1CA4: CURRENT
1CA6: @
1CA8: CONTEXT
1CAA: !
1CAC: CREATE
1CAE: SMUDGE
1CB0: ]
1CB2: CALL
1CB4: (!CODE)
1CB6: EXIT
	Proc ; , i
1CBF: ?COMP
1CC1: ?CSP
1CC3: COMPILE
1CC5: EXIT
1CC7: SMUDGE
1CC9: [
1CCB: EXIT
	Proc IMMEDIATE
1CDC: LATEST
1CDE: LIT, 0080
1CE2: TOGGLE
1CE4: EXIT
	Proc DEPTH
1CF1: SP@
1CF3: S0
1CF5: @
1CF7: SWAP
1CF9: -
1CFB: 2/
1CFD: 0
1CFF: MAX
1D01: EXIT
	Proc C" , i
1D0B: BL
1D0D: WORD
1D0F: 1+
1D11: C@
1D13: LITERAL
1D15: EXIT
	Proc ." , i
1D1F: ?COMP
1D21: COMPILE
1D23: (.")
1D25: LIT, 0022
1D29: WORD
1D2B: ",
1D2D: EXIT
	Proc " , i
1D36: STATE
1D38: @
1D3A: ?BRANCH, 1D4E
1D3E: COMPILE
1D40: (")
1D42: LIT, 0022
1D46: WORD
1D48: ",
1D4A: BRANCH, 1D60
1D4E: LIT, 0022
1D52: WORD
1D54: PAD
1D56: OVER
1D58: C@
1D5A: 1+
1D5C: CMOVE
1D5E: PAD
1D60: EXIT
	Proc .( , i
1D6A: LIT, 0029
1D6E: WORD
1D70: COUNT
1D72: TYPE
1D74: EXIT
	Proc >MARK
1D81: HERE
1D83: 0
1D85: ,
1D87: EXIT
	Proc >RESOLVE
1D97: HERE
1D99: SWAP
1D9B: !
1D9D: EXIT
	Proc <MARK
1DAA: HERE
1DAC: EXIT
	Proc <RESOLVE
1DBC: ,
1DBE: EXIT
	Proc IF , i
1DC8: ?COMP
1DCA: COMPILE
1DCC: ?BRANCH
1DCE: >MARK
1DD0: 2
1DD2: EXIT
	Proc IFNOT , i
1DDF: ?COMP
1DE1: COMPILE
1DE3: N?BRANCH
1DE5: >MARK
1DE7: 2
1DE9: EXIT
	Proc ELSE , i
1DF5: ?COMP
1DF7: 2
1DF9: ?PAIRS
1DFB: COMPILE
1DFD: BRANCH
1DFF: >MARK
1E01: SWAP
1E03: >RESOLVE
1E05: 2
1E07: EXIT
	Proc THEN , i
1E13: ?COMP
1E15: 2
1E17: ?PAIRS
1E19: >RESOLVE
1E1B: EXIT
	Proc BEGIN , i
1E28: ?COMP
1E2A: <MARK
1E2C: 1
1E2E: EXIT
	Proc AGAIN , i
1E3B: ?COMP
1E3D: 1
1E3F: ?PAIRS
1E41: COMPILE
1E43: BRANCH
1E45: <RESOLVE
1E47: EXIT
	Proc DO , i
1E51: ?COMP
1E53: COMPILE
1E55: (DO)
1E57: >MARK
1E59: <MARK
1E5B: LIT, 0003
1E5F: EXIT
	Proc ?DO , i
1E6A: ?COMP
1E6C: COMPILE
1E6E: (?DO)
1E70: >MARK
1E72: <MARK
1E74: LIT, 0003
1E78: EXIT
	Proc LOOP , i
1E84: ?COMP
1E86: LIT, 0003
1E8A: ?PAIRS
1E8C: COMPILE
1E8E: (LOOP)
1E90: <RESOLVE
1E92: >RESOLVE
1E94: EXIT
	Proc +LOOP , i
1EA1: ?COMP
1EA3: LIT, 0003
1EA7: ?PAIRS
1EA9: COMPILE
1EAB: (+LOOP)
1EAD: <RESOLVE
1EAF: >RESOLVE
1EB1: EXIT
	Proc UNTIL , i
1EBE: ?COMP
1EC0: 1
1EC2: ?PAIRS
1EC4: COMPILE
1EC6: ?BRANCH
1EC8: <RESOLVE
1ECA: EXIT
	Proc WHILE , i
1ED7: ?COMP
1ED9: 1
1EDB: ?PAIRS
1EDD: 1
1EDF: IF
1EE1: 2+
1EE3: EXIT
	Proc REPEAT , i
1EF1: ?COMP
1EF3: >R
1EF5: >R
1EF7: AGAIN
1EF9: R>
1EFB: R>
1EFD: 2-
1EFF: THEN
1F01: EXIT
	Proc >PRT
1F0D: DUP
1F0F: BL
1F11: U<
1F13: ?BRANCH, 1F1D
1F17: DROP
1F19: LIT, 002E
1F1D: EXIT
	Proc PTYPE
1F2A: 0
1F2C: (?DO), 1F3E
1F30: DUP
1F32: C@
1F34: >PRT
1F36: EMIT
1F38: 1+
1F3A: (LOOP), 1F30
1F3E: DROP
1F40: EXIT
	Proc BREAK
1F4D: ?KEY
1F4F: ?BRANCH, 1F72
1F53: DROP
1F55: KEY
1F57: LIT, 0043
1F5B: =
1F5D: ?DUP
1F5F: ?BRANCH, 1F72
1F63: CR
1F65: (ABORT")  - PEPBAH"
1F72: EXIT
	Proc DUMP
1F7E: LIT, 0007
1F82: +
1F84: LIT, 0008
1F88: U/
1F8A: 0
1F8C: (?DO), 1FD6
1F90: CR
1F92: BREAK
1F94: BASE
1F96: @
1F98: SWAP
1F9A: HEX
1F9C: DUP
1F9E: LIT, 0004
1FA2: .0
1FA4: SPACE
1FA6: SPACE
1FA8: DUP
1FAA: LIT, 0008
1FAE: 0
1FB0: (DO), 1FC4
1FB4: DUP
1FB6: C@
1FB8: 2
1FBA: .0
1FBC: SPACE
1FBE: 1+
1FC0: (LOOP), 1FB4
1FC4: SWAP
1FC6: LIT, 0008
1FCA: PTYPE
1FCC: SWAP
1FCE: BASE
1FD0: !
1FD2: (LOOP), 1F90
1FD6: DROP
1FD8: EXIT
	Proc TRAIL
1FE5: C/L
1FE7: >OUT
1FE9: @
1FEB: -
1FED: EXIT
	Proc NLIST
1FFA: @
1FFC: DUP
1FFE: ?BRANCH, 2040
2002: DUP
2004: COUNT
2006: LIT, 003F
200A: AND
200C: TRAIL
200E: OVER
2010: U<
2012: ?BRANCH, 2018
2016: CR
2018: DUP
201A: LIT, 0008
201E: +
2020: LIT, FFF8
2024: AND
2026: OVER
2028: -
202A: -ROT
202C: TYPE
202E: TRAIL
2030: MIN
2032: 0
2034: MAX
2036: SPACES
2038: N>LINK
203A: BREAK
203C: BRANCH, 1FFA
2040: DROP
2042: EXIT
	Proc WORDS
204F: CONTEXT
2051: @
2053: NLIST
2055: EXIT
	Proc VLIST
2062: WORDS
2064: EXIT
	Proc -- , i
206E: BLK
2070: @
2072: ?BRANCH, 208A
2076: >IN
2078: @
207A: LIT, 003F
207E: +
2080: LIT, FFC0
2084: AND
2086: BRANCH, 208E
208A: #TIB
208C: @
208E: >IN
2090: !
2092: EXIT
	Proc NOOP
209E: EXIT
	Proc S.
20A8: DEPTH
20AA: ?DUP
20AC: ?BRANCH, 20CE
20B0: 1+
20B2: 1
20B4: (DO), 20CA
20B8: S0
20BA: @
20BC: I
20BE: 2*
20C0: -
20C2: @
20C4: .
20C6: (LOOP), 20B8
20CA: BRANCH, 20DA
20CE: (.") CTEK CT"
20DA: EXIT
	Proc ( , i
20E3: LIT, 0029
20E7: WORD
20E9: DROP
20EB: EXIT
	Proc ?CURRENT
20FB: CURRENT
20FD: @
20FF: ?WORD
2101: 0=
2103: (ABORT")  - ?"
210A: EXIT
	Proc SCRATCH , i
2119: ?EXEC
211B: BL
211D: WORD
211F: CURRENT
2121: @
2123: -WORD
2125: 0=
2127: (ABORT")  - ?"
212E: EXIT
	Proc JOIN , i
213A: ?EXEC
213C: BL
213E: WORD
2140: ?CURRENT
2142: N>LINK
2144: @
2146: LATEST
2148: N>LINK
214A: !
214C: EXIT
	Proc NEW , i
2157: ?EXEC
2159: BL
215B: WORD
215D: DUP
215F: ?CURRENT
2161: CURRENT
2163: @
2165: >R
2167: DUP
2169: N>LINK
216B: CURRENT
216D: !
216F: NAME>
2171: SWAP
2173: ?CURRENT
2175: NAME>
2177: LIT, 00C3
217B: OVER
217D: C!
217F: 1+
2181: !
2183: R>
2185: CURRENT
2187: !
2189: EXIT
	Proc FORGET
2197: BL
2199: WORD
219B: ?CURRENT
219D: DUP
219F: FENCE
21A1: @
21A3: U<
21A5: (ABORT") BXO A FENCE"
21B6: >R
21B8: VOC-LINK
21BA: @
21BC: R@
21BE: OVER
21C0: U<
21C2: ?BRANCH, 21D6
21C6: ptr 2F4C
21C8: DEFINITIONS
21CA: @
21CC: DUP
21CE: VOC-LINK
21D0: !
21D2: BRANCH, 21BC
21D6: DUP
21D8: LIT, 0004
21DC: -
21DE: N>LINK
21E0: @
21E2: DUP
21E4: R@
21E6: U<
21E8: ?BRANCH, 21DE
21EC: OVER
21EE: 2-
21F0: !
21F2: @
21F4: ?DUP
21F6: 0=
21F8: ?BRANCH, 21D6
21FC: R>
21FE: H
2200: !
2202: EXIT
	Const UFCB, 304F
	Const SFCB, 305F
	Const FCB, 005C
	Const DOSBUFF, 0080
	Asm FDOS
223D: POP H
223E: POP D
223F: PUSH B
2240: MOV C,L
2241: CALL 0005
2244: POP B
2245: PUSH H
2246: MVI H,00
2248: MOV L,A
2249: PUSH H
224A: JMP 02D5
	Proc "SET
2257: >R
2259: COUNT
225B: R>
225D: SWAP
225F: CMOVE
2261: EXIT
	Proc MOVFCB
226F: UFCB
2271: FCB
2273: LIT, 0010
2277: CMOVE
2279: EXIT
	Proc SMOVFCB
2288: SFCB
228A: FCB
228C: LIT, 0010
2290: CMOVE
2292: FCB
2294: LIT, 0020
2298: +
229A: LIT, 0004
229E: ERASE
22A0: EXIT
	Proc STFILE
22AE: 0
22B0: UFCB
22B2: C!
22B4: (") FORTH   FRT"
22C2: UFCB
22C4: 1+
22C6: "SET
22C8: UFCB
22CA: LIT, 000C
22CE: +
22D0: LIT, 0004
22D4: ERASE
22D6: EXIT
	Proc ERRFILE
22E5: CR
22E7: (.") A "
22EF: FCB
22F1: 1+
22F3: LIT, 0008
22F7: -TRAILING
22F9: TYPE
22FB: LIT, 002E
22FF: EMIT
2301: FCB
2303: LIT, 0009
2307: +
2309: LIT, 0003
230D: -TRAILING
230F: TYPE
2311: SPACE
2313: EXIT
	Proc MAKE
231F: FCB
2321: LIT, 0016
2325: FDOS
2327: PRESS
2329: LIT, 00FF
232D: =
232F: ?BRANCH, 2343
2333: ERRFILE
2335: (.") HE COAH"
2341: ABORT
2343: EXIT
	Proc ?OPEN
2350: FCB
2352: LIT, 000F
2356: FDOS
2358: PRESS
235A: LIT, 00FF
235E: <>
2360: EXIT
	Proc OPEN
236C: ?OPEN
236E: N?BRANCH, 2382
2372: ERRFILE
2374: (.") HE HAEH"
2380: ABORT
2382: EXIT
	Proc CLOSE
238F: FCB
2391: LIT, 0010
2395: FDOS
2397: PRESS
2399: LIT, 00FF
239D: =
239F: ?BRANCH, 23B3
23A3: ERRFILE
23A5: (.") HE AKPT"
23B1: ABORT
23B3: EXIT
	Proc READ
23BF: FCB
23C1: LIT, 0021
23C5: FDOS
23C7: PRESS
23C9: ?BRANCH, 23D5
23CD: DOSBUFF
23CF: LIT, 0080
23D3: BLANK
23D5: EXIT
	Proc WRITE
23E2: FCB
23E4: LIT, 0022
23E8: FDOS
23EA: PRESS
23EC: ?BRANCH, 2408
23F0: ERRFILE
23F2: (.") - CK EPEOHEH"
2406: ABORT
2408: EXIT
	Proc SWRITE
2416: FCB
2418: LIT, 0015
241C: FDOS
241E: PRESS
2420: ?BRANCH, 243C
2424: ERRFILE
2426: (.") - CK EPEOHEH"
243A: ABORT
243C: EXIT
	Proc SREAD
2449: FCB
244B: LIT, 0014
244F: FDOS
2451: PRESS
2453: 0=
2455: EXIT
	Proc DELETE
2463: FCB
2465: LIT, 0013
2469: FDOS
246B: 2DROP
246D: EXIT
	Proc NUMREC
247B: FCB
247D: LIT, 0021
2481: +
2483: !
2485: 0
2487: FCB
2489: LIT, 0023
248D: +
248F: C!
2491: EXIT
	Proc NUMRC
249E: 0
24A0: MAX
24A2: 2*
24A4: 2*
24A6: 2*
24A8: EXIT
	Proc RBLK
24B4: NUMRC
24B6: MOVFCB
24B8: ?OPEN
24BA: N?BRANCH, 24C0
24BE: MAKE
24C0: LIT, 0008
24C4: 0
24C6: (DO), 24EA
24CA: DUP
24CC: NUMREC
24CE: READ
24D0: 1+
24D2: SWAP
24D4: DOSBUFF
24D6: OVER
24D8: LIT, 0080
24DC: CMOVE
24DE: LIT, 0080
24E2: +
24E4: SWAP
24E6: (LOOP), 24CA
24EA: 2DROP
24EC: EXIT
	Proc WBLK
24F8: NUMRC
24FA: MOVFCB
24FC: ?OPEN
24FE: N?BRANCH, 2504
2502: MAKE
2504: LIT, 0008
2508: 0
250A: (DO), 252E
250E: DUP
2510: NUMREC
2512: OVER
2514: DOSBUFF
2516: LIT, 0080
251A: CMOVE
251C: WRITE
251E: 1+
2520: SWAP
2522: LIT, 0080
2526: +
2528: SWAP
252A: (LOOP), 250E
252E: CLOSE
2530: 2DROP
2532: EXIT
	Proc (R/W)
253F: ?BRANCH, 2549
2543: RBLK
2545: BRANCH, 254B
2549: WBLK
254B: EXIT
	Proc FLINIT
2559: LIT, 253C
255D: UR/W
255F: !
2561: STFILE
2563: EXIT
	Proc FINIT
2570: FLINIT
2572: EXIT
	Proc (USING)
2581: >R
2583: BL
2585: WORD
2587: COUNT
2589: 1+
258B: >IN
258D: -!
258F: R@
2591: 1+
2593: LIT, 000B
2597: BLANK
2599: DUP
259B: 1+
259D: C@
259F: LIT, 003A
25A3: =
25A5: ?BRANCH, 25BB
25A9: 2
25AB: >IN
25AD: +!
25AF: C@
25B1: LIT, 0040
25B5: -
25B7: BRANCH, 25BF
25BB: DROP
25BD: 0
25BF: R@
25C1: C!
25C3: LIT, 002E
25C7: WORD
25C9: COUNT
25CB: LIT, 0008
25CF: MIN
25D1: R@
25D3: 1+
25D5: SWAP
25D7: CMOVE
25D9: BL
25DB: WORD
25DD: COUNT
25DF: LIT, 0003
25E3: MIN
25E5: R@
25E7: LIT, 0009
25EB: +
25ED: SWAP
25EF: CMOVE
25F1: R>
25F3: LIT, 000C
25F7: +
25F9: LIT, 0004
25FD: ERASE
25FF: EXIT
	Proc USING
260C: FLUSH
260E: UFCB
2610: (USING)
2612: EXIT
	Proc SAVC
261E: SFCB
2620: (USING)
2622: SMOVFCB
2624: DELETE
2626: MAKE
2628: F-CODE
262A: HERE
262C: OVER
262E: -
2630: LIT, 007F
2634: +
2636: LIT, 0080
263A: U/
263C: 1+
263E: 0
2640: (DO), 265A
2644: DUP
2646: DOSBUFF
2648: LIT, 0080
264C: CMOVE
264E: SWRITE
2650: LIT, 0080
2654: +
2656: (LOOP), 2644
265A: DROP
265C: CLOSE
265E: EXIT
	Proc SAVE
266A: F-CODE
266C: LIT, 0003
2670: ERASE
2672: SAVC
2674: EXIT
	Const DBH, 0004
	Const DBT, 0002
	Const B/BUF, 0400
	Const HDBT, 0406
	Const #BUFF1, 306F
	Const FIRST1, 3071
	Const LIMIT1, 3073
	Const UR/W, 3075
	Const PREV, 3077
	Const USE, 3079
	Const BB-CNT, 307B
	Const SCR, 307D
	Const LCNT, 307F
	Proc #BUFF
2722: #BUFF1
2724: @
2726: EXIT
	Proc FIRST
2733: FIRST1
2735: @
2737: EXIT
	Proc LIMIT
2744: LIMIT1
2746: @
2748: EXIT
	Proc DBC
2753: 2+
2755: EXIT
	Proc R/W
2760: UR/W
2762: @
2764: EXECUTE
2766: EXIT
	Proc EMPTY-BUFFERS
277B: FIRST
277D: LIMIT
277F: OVER
2781: -
2783: ERASE
2785: LIMIT
2787: FIRST
2789: (DO), 279B
278D: LIT, 7FFF
2791: I
2793: !
2795: HDBT
2797: (+LOOP), 278D
279B: 1
279D: BB-CNT
279F: !
27A1: FIRST
27A3: DUP
27A5: PREV
27A7: !
27A9: USE
27AB: !
27AD: EXIT
	Proc SAVE-BUFFERS
27C1: LIMIT
27C3: FIRST
27C5: (DO), 27F9
27C9: I
27CB: @
27CD: LIT, 8000
27D1: AND
27D3: ?BRANCH, 27F3
27D7: I
27D9: @
27DB: LIT, 7FFF
27DF: AND
27E1: DUP
27E3: I
27E5: !
27E7: I
27E9: DBH
27EB: +
27ED: SWAP
27EF: 0
27F1: R/W
27F3: HDBT
27F5: (+LOOP), 27C9
27F9: EXIT
	Proc FLUSH
2806: SAVE-BUFFERS
2808: EMPTY-BUFFERS
280A: EXIT
	Proc UPDATE
2818: PREV
281A: @
281C: DUP
281E: @
2820: LIT, 8000
2824: OR
2826: SWAP
2828: !
282A: EXIT
	Proc ptr 282C
282F: HDBT
2831: +
2833: DUP
2835: LIMIT
2837: =
2839: ?BRANCH, 2841
283D: DROP
283F: FIRST
2841: DUP
2843: PREV
2845: @
2847: =
2849: 0=
284B: EXIT
	Proc ptr 284D
2850: FIRST
2852: USE
2854: !
2856: PREV
2858: @
285A: 2DUP
285C: @
285E: LIT, 7FFF
2862: AND
2864: =
2866: ?BRANCH, 2870
286A: PRESS
286C: TRUE
286E: EXIT
2870: DUP
2872: DBC
2874: @
2876: USE
2878: @
287A: DBC
287C: @
287E: U<
2880: ?BRANCH, 288A
2884: DUP
2886: USE
2888: !
288A: ptr 282C
288C: 0=
288E: ?BRANCH, 285A
2892: 2DROP
2894: FALSE
2896: EXIT
	Proc ptr 2898
289B: BB-CNT
289D: @
289F: PREV
28A1: @
28A3: DBC
28A5: !
28A7: BB-CNT
28A9: 1+!
28AB: EXIT
	Proc ptr 28AD
28B0: DUP
28B2: @
28B4: 0<
28B6: ?BRANCH, 28D8
28BA: DUP
28BC: @
28BE: LIT, 7FFF
28C2: AND
28C4: OVER
28C6: DBH
28C8: +
28CA: OVER
28CC: 0
28CE: R/W
28D0: SWAP
28D2: !
28D4: BRANCH, 28DA
28D8: DROP
28DA: EXIT
	Proc ptr 28DC
28DF: DBH
28E1: -
28E3: ptr 282C
28E5: SWAP
28E7: DBH
28E9: +
28EB: SWAP
28ED: EXIT
	Proc BUFFER
28FB: DUP
28FD: ptr 284D
28FF: ?BRANCH, 2909
2903: PRESS
2905: BRANCH, 2917
2909: USE
290B: @
290D: DUP
290F: ptr 28AD
2911: SWAP
2913: OVER
2915: !
2917: DUP
2919: PREV
291B: !
291D: ptr 2898
291F: DBH
2921: +
2923: EXIT
	Proc BLOCK
2930: DUP
2932: ptr 284D
2934: ?BRANCH, 293E
2938: PRESS
293A: BRANCH, 295A
293E: USE
2940: @
2942: DUP
2944: ptr 28AD
2946: SWAP
2948: OVER
294A: !
294C: DUP
294E: DBH
2950: +
2952: OVER
2954: @
2956: 1
2958: R/W
295A: DUP
295C: PREV
295E: !
2960: ptr 2898
2962: DBH
2964: +
2966: EXIT
	Proc LIST
2972: DUP
2974: SCR
2976: !
2978: DUP
297A: CR
297C: (.")  KPAH # "
2988: .
298A: BLOCK
298C: LIT, 0010
2990: 0
2992: (DO), 29B6
2996: CR
2998: I
299A: 2
299C: .R
299E: SPACE
29A0: SPACE
29A2: DUP
29A4: LIT, 0040
29A8: TYPE
29AA: LIT, 0040
29AE: +
29B0: BREAK
29B2: (LOOP), 2996
29B6: DROP
29B8: EXIT
	Proc LOAD
29C4: ?DUP
29C6: N?BRANCH, 29E1
29CA: CR
29CC: (.") APKA OKA 0"
29DF: ABORT
29E1: #TIB
29E3: @
29E5: >R
29E7: >IN
29E9: @
29EB: >R
29ED: INB
29EF: @
29F1: >R
29F3: BLK
29F5: @
29F7: >R
29F9: BLK
29FB: !
29FD: >IN
29FF: 0!
2A01: B/BUF
2A03: #TIB
2A05: !
2A07: INTERPRET
2A09: R>
2A0B: BLK
2A0D: !
2A0F: R>
2A11: INB
2A13: !
2A15: R>
2A17: >IN
2A19: !
2A1B: R>
2A1D: #TIB
2A1F: !
2A21: EXIT
	Proc --> , i
2A2C: BLK
2A2E: 1+!
2A30: >IN
2A32: 0!
2A34: EXIT
	Proc THRU
2A40: 1+
2A42: SWAP
2A44: (DO), 2A50
2A48: I
2A4A: LOAD
2A4C: (LOOP), 2A48
2A50: EXIT
	Proc FIRST#
2A5E: FIRST1
2A60: EXIT
	Proc LIMIT#
2A6E: LIMIT1
2A70: EXIT
	Proc 0BL
2A7B: 0>BL
2A7D: EXIT
	Proc FBUFR
2A8A: DOSBUFF
2A8C: EXIT
	Proc LTYPE
2A99: PRINT
2A9B: EXIT
	Proc LLIST
2AA8: +COPY
2AAA: LIST
2AAC: CR
2AAE: -COPY
2AB0: EXIT
	Asm 8K
2AB7: MVI A,14
2AB9: STA FF7F
2ABC: RET
	Asm OS
2AC2: MVI A,5C
2AC4: STA FA7F
2AC7: RET
	Asm WRB
2ACE: MOV A,D
2ACF: ORA E
2AD0: JZ 2AE0
2AD3: PUSH H
2AD4: PUSH D
2AD5: MOV A,M
2AD6: CALL 005B
2AD9: POP D
2ADA: POP H
2ADB: INX H
2ADC: DCX D
2ADD: JMP 2ACE
2AE0: CALL 005E
2AE3: RET
	Asm WRH
2AEA: CALL 2AB7
2AED: POP D
2AEE: POP H
2AEF: PUSH B
2AF0: PUSH H
2AF1: PUSH D
2AF2: MVI A,01
2AF4: CALL 0061
2AF7: MVI A,01
2AF9: CALL 0058
2AFC: POP D
2AFD: POP H
2AFE: CALL 2ACE
2B01: POP B
2B02: CALL 2AC2
2B05: JMP 02D5
	Asm WRLEN
2B10: CALL 2AB7
2B13: POP D
2B14: POP H
2B15: PUSH B
2B16: PUSH H
2B17: PUSH D
2B18: MVI A,01
2B1A: CALL 0061
2B1D: SUB A
2B1E: CALL 0058
2B21: POP D
2B22: PUSH D
2B23: MOV A,E
2B24: CALL 005B
2B27: POP D
2B28: PUSH D
2B29: MOV A,D
2B2A: CALL 005B
2B2D: POP D
2B2E: POP H
2B2F: INX D
2B30: INX D
2B31: CALL 2ACE
2B34: CALL 2AC2
2B37: POP B
2B38: JMP 02D5
	Proc HEADR
2B46: OVER
2B48: LIT, 000A
2B4C: ROT
2B4E: FILL
2B50: HERE
2B52: LIT, 0007
2B56: BLANK
2B58: BL
2B5A: WORD
2B5C: 1+
2B5E: SWAP
2B60: LIT, 000A
2B64: +
2B66: LIT, 0006
2B6A: CMOVE
2B6C: EXIT
	Proc WRHEAD
2B7A: PAD
2B7C: SWAP
2B7E: HEADR
2B80: PAD
2B82: LIT, 0010
2B86: WRH
2B88: LIT, 1000
2B8C: 0
2B8E: (DO), 2B96
2B92: (LOOP), 2B92
2B96: EXIT
	Asm MOTOR
2BA0: CALL 2AB7
2BA3: PUSH B
2BA4: MVI A,FF
2BA6: CALL 0061
2BA9: CALL 2AC2
2BAC: POP B
2BAD: JMP 02D5
	Asm MOTOR-ON
2BBB: CALL 2AB7
2BBE: PUSH B
2BBF: MVI A,01
2BC1: CALL 0061
2BC4: CALL 2AC2
2BC7: POP B
2BC8: JMP 02D5
	Asm MOTOR-OFF
2BD7: CALL 2AB7
2BDA: PUSH B
2BDB: CALL 0055
2BDE: CALL 2AC2
2BE1: POP B
2BE2: JMP 02D5
	Proc TPAD
2BEF: PAD
2BF1: LIT, 0020
2BF5: +
2BF7: EXIT
	Proc MEMLEN
2C05: FIRST
2C07: TPAD
2C09: -
2C0B: EXIT
	Proc ?MTSIZE
2C1A: MEMLEN
2C1C: SWAP
2C1E: U<
2C20: ?BRANCH, 2C57
2C24: MEMLEN
2C26: B/BUF
2C28: U/
2C2A: CR
2C2C: (.") OMEH C HKM HE OEE EM "
2C49: .
2C4B: (.") OKAM"
2C55: ABORT
2C57: EXIT
	Proc TSAVE
2C64: 1+
2C66: SWAP
2C68: 2DUP
2C6A: -
2C6C: B/BUF
2C6E: *
2C70: >R
2C72: R@
2C74: ?MTSIZE
2C76: TPAD
2C78: -ROT
2C7A: (DO), 2C90
2C7E: I
2C80: BLOCK
2C82: OVER
2C84: B/BUF
2C86: CMOVE
2C88: B/BUF
2C8A: +
2C8C: (LOOP), 2C7E
2C90: DROP
2C92: TPAD
2C94: R>
2C96: LIT, 00D2
2C9A: WRHEAD
2C9C: WRLEN
2C9E: EXIT
	Proc CSAVE
2CAB: F-DATA
2CAD: HERE
2CAF: OVER
2CB1: -
2CB3: LIT, 00D1
2CB7: WRHEAD
2CB9: WRLEN
2CBB: EXIT
	Proc ?RD
2CC3: CALL 2AC2
2CC9: TRUE
2CCB: (ABORT") OKA P TEH C HKM"
	Asm RDB
2CEC: MOV A,D
2CED: ORA E
2CEE: JZ 2D01
2CF1: PUSH H
2CF2: PUSH D
2CF3: CALL 0052
2CF6: JC 2CC3
2CF9: POP D
2CFA: POP H
2CFB: DCX D
2CFC: MOV M,A
2CFD: INX H
2CFE: JMP 2CEC
2D01: CALL 0055
2D04: RET
	Const CASLEN, 3081
	Asm RDLEN
2D1B: CALL 2AB7
2D1E: POP D
2D1F: POP H
2D20: PUSH B
2D21: PUSH H
2D22: PUSH D
2D23: MVI A,01
2D25: CALL 0061
2D28: CALL 004F
2D2B: JC 2CC3
2D2E: CALL 0052
2D31: JC 2CC3
2D34: MOV L,A
2D35: PUSH H
2D36: CALL 0052
2D39: JC 2CC3
2D3C: POP H
2D3D: MOV H,A
2D3E: SHLD 3081
2D41: POP D
2D42: MOV A,E
2D43: SUB L
2D44: MOV A,D
2D45: SBB H
2D46: JC 2D4A
2D49: XCHG
2D4A: POP H
2D4B: CALL 2CEC
2D4E: CALL 2AC2
2D51: POP B
2D52: JMP 02D5
	Asm RDH
2D5B: CALL 2AB7
2D5E: POP D
2D5F: POP H
2D60: PUSH B
2D61: PUSH H
2D62: PUSH D
2D63: MVI A,01
2D65: CALL 0061
2D68: CALL 004F
2D6B: JC 2CC3
2D6E: POP D
2D6F: POP H
2D70: CALL 2CEC
2D73: CALL 2AC2
2D76: POP B
2D77: JMP 02D5
	Proc RDHEAD
2D86: PAD
2D88: LIT, 0010
2D8C: +
2D8E: SWAP
2D90: HEADR
2D92: PAD
2D94: LIT, 0010
2D98: 2DUP
2D9A: 2DUP
2D9C: RDH
2D9E: +
2DA0: -TEXT
2DA2: ?BRANCH, 2DCB
2DA6: CR
2DA8: PAD
2DAA: LIT, 000A
2DAE: +
2DB0: LIT, 0006
2DB4: TYPE
2DB6: SPACE
2DB8: TRUE
2DBA: (ABORT")  - HE TOT A"
2DCB: EXIT
	Asm RDPROG
2DD6: LXI SP,2F00
2DD9: CALL 2AB7
2DDC: MVI A,01
2DDE: CALL 0061
2DE1: CALL 004F
2DE4: JC 2CC3
2DE7: CALL 0052
2DEA: JC 2CC3
2DED: MOV E,A
2DEE: PUSH D
2DEF: CALL 0052
2DF2: JC 2CC3
2DF5: POP D
2DF6: MOV D,A
2DF7: LXI H,2F00
2DFA: CALL 2CEC
2DFD: CALL 2AC2
2E00: JMP 0103
	Const TBLOCKS, 3083
	Proc TLOAD
2E1D: LIT, 00D2
2E21: RDHEAD
2E23: TPAD
2E25: MEMLEN
2E27: RDLEN
2E29: 1+
2E2B: OVER
2E2D: -
2E2F: CASLEN
2E31: @
2E33: B/BUF
2E35: U/
2E37: MIN
2E39: DUP
2E3B: TBLOCKS
2E3D: !
2E3F: OVER
2E41: +
2E43: TPAD
2E45: -ROT
2E47: SWAP
2E49: (DO), 2E61
2E4D: DUP
2E4F: I
2E51: BUFFER
2E53: UPDATE
2E55: B/BUF
2E57: CMOVE
2E59: B/BUF
2E5B: +
2E5D: (LOOP), 2E4D
2E61: DROP
2E63: FLUSH
2E65: EXIT
	Proc CLOAD
2E72: LIT, 00D1
2E76: RDHEAD
2E78: RDPROG
2E7A: EXIT
	Asm ptr 2E7C
2E7C: RST 7
2E7D: RST 7
2E7E: RST 7
2E7F: RST 7
2E80: RST 7
2E81: RST 7
2E82: RST 7
2E83: RST 7
2E84: RST 7
2E85: RST 7
2E86: RST 7
2E87: RST 7
2E88: RST 7
2E89: RST 7
2E8A: RST 7
2E8B: RST 7
2E8C: RST 7
2E8D: RST 7
2E8E: RST 7
2E8F: RST 7
2E90: RST 7
2E91: RST 7
2E92: RST 7
2E93: RST 7
2E94: RST 7
2E95: RST 7
2E96: RST 7
2E97: RST 7
2E98: RST 7
2E99: RST 7
2E9A: RST 7
2E9B: RST 7
2E9C: RST 7
2E9D: RST 7
2E9E: RST 7
2E9F: RST 7
2EA0: DB 20
2EA1: DB 20
2EA2: DB 20
2EA3: DB 20
2EA4: DB 20
2EA5: DB 20
2EA6: DB 20
2EA7: DB 20
2EA8: DB 20
2EA9: DB 20
2EAA: DB 20
2EAB: DB 20
2EAC: DB 20
2EAD: DB 20
2EAE: DB 20
2EAF: DB 20
2EB0: DB 20
2EB1: DB 20
2EB2: DB 20
2EB3: DB 20
2EB4: DB 20
2EB5: DB 20
2EB6: DB 20
2EB7: DB 20
2EB8: DB 20
2EB9: DB 20
2EBA: DB 20
2EBB: DB 20
2EBC: DB 20
2EBD: DB 20
2EBE: DB 20
2EBF: DB 20
2EC0: DB 20
2EC1: DB 20
2EC2: DB 20
2EC3: DB 20
2EC4: DB 20
2EC5: DB 20
2EC6: DB 20
2EC7: DB 20
2EC8: DB 20
2EC9: DB 20
2ECA: DB 20
2ECB: DB 20
2ECC: DB 20
2ECD: DB 20
2ECE: DB 20
2ECF: DB 20
2ED0: DB 20
2ED1: DB 20
2ED2: DB 20
2ED3: DB 20
2ED4: DB 20
2ED5: DB 20
2ED6: DB 20
2ED7: DB 20
2ED8: DB 20
2ED9: DB 20
2EDA: DB 20
2EDB: DB 20
2EDC: DB 20
2EDD: DB 20
2EDE: DB 20
2EDF: DB 20
2EE0: DB 20
2EE1: DB 20
2EE2: DB 20
2EE3: DB 20
2EE4: DB 20
2EE5: DB 20
2EE6: DB 20
2EE7: DB 20
2EE8: DB 20
2EE9: DB 20
2EEA: DB 20
2EEB: DB 20
2EEC: DB 20
2EED: DB 20
2EEE: DB 20
2EEF: DB 20
2EF0: DB 20
2EF1: DB 20
2EF2: DB 20
2EF3: DB 20
2EF4: DB 20
2EF5: DB 20
2EF6: DB 20
2EF7: DB 20
2EF8: DB 20
2EF9: DB 20
2EFA: DB 20
2EFB: DB 20
2EFC: DB 20
2EFD: DB 20
2EFE: DB 20
2EFF: DB 20
