0100: JMP 3800
0103: JMP 0140
0106: LXI D,019E
0109: LXI H,3448
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,3400
011B: SUB A
011C: MOV M,A
011D: INX H
011E: DCR B
011F: JNZ 011C
0122: LHLD 02D0
0125: SHLD 341A
0128: LHLD 02D2
012B: SHLD 341C
012E: LHLD 02D4
0131: SHLD 3420
0134: LHLD 02D6
0137: SHLD 3424
013A: LHLD 02D8
013D: SHLD 3422
0140: LHLD 341C
0143: SPHL
0144: LHLD 341A
0147: SHLD 341E
014A: LXI B,015A
014D: JMP 02EF
0150: 02 00 F3 93 FF 9B 04 00 F3 83 ....
015A: LIT, 3418
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: STFILE
0192: EMPTY-BUFFERS
0194: TRUE
0196: WARNING
0198: !
019A: DECIMAL
019C: QUIT
	Vocabulary FORTH, 3219, 0000
	Const R0, 341A
	Const S0, 341C
	Const RP, 341E
	Const H, 3420
	Const VOC-LINK, 3422
	Const FENCE, 3424
	Const W-LINK, 3426
	Const BASE, 3428
	Const STATE, 342A
	Const CONTEXT, 342C
	Const CURRENT, 342E
	Const DPL, 3430
	Const HLD, 3432
	Const CSP, 3434
	Const INB, 3436
	Const #TIB, 3438
	Const >IN, 343A
	Const OUTB, 343C
	Const #TOB, 343E
	Const SPAN, 3440
	Const >OUT, 3442
	Const BLK, 3444
	Const WARNING, 3446
	Const TIB, 349D
	Asm ptr 02D0
02D0: 99 34 3F 35 09 36 09 36 02 22 4?5.6.6."
	Asm COLD
02E1: JMP 0106
02E4: LHLD 341E
02E7: DCX H
02E8: MOV M,B
02E9: DCX H
02EA: MOV M,C
02EB: SHLD 341E
02EE: POP B
02EF: LDAX B
02F0: MOV L,A
02F1: INX B
02F2: LDAX B
02F3: MOV H,A
02F4: INX B
02F5: PCHL
	Const NEXT, 02EF
	Const CALL, 02E4
	Asm EXIT
0315: LHLD 341E
0318: MOV C,M
0319: INX H
031A: MOV B,M
031B: INX H
031C: SHLD 341E
031F: JMP 02EF
	Asm EXECUTE
032C: RET
	Asm ASMCALL
0337: LHLD 341E
033A: DCX H
033B: MOV M,B
033C: DCX H
033D: MOV M,C
033E: SHLD 341E
0341: POP H
0342: POP B
0343: POP D
0344: XTHL
0345: SHLD 3543
0348: POP H
0349: POP PSW
034A: PUSH H
034B: LXI H,0354
034E: XTHL
034F: PUSH H
0350: LHLD 3543
0353: RET
0354: PUSH PSW
0355: PUSH H
0356: PUSH D
0357: PUSH B
0358: JMP 0315
	Asm OVER
0362: POP H
0363: POP D
0364: PUSH D
0365: PUSH H
0366: PUSH D
0367: JMP 02EF
	Asm PICK
0371: POP H
0372: DAD H
0373: DAD SP
0374: MOV E,M
0375: INX H
0376: MOV D,M
0377: PUSH D
0378: JMP 02EF
	Asm DROP
0382: POP H
0383: JMP 02EF
	Asm SWAP
038D: POP H
038E: XTHL
038F: PUSH H
0390: JMP 02EF
	Asm 2SWAP
039B: POP H
039C: POP D
039D: XTHL
039E: PUSH H
039F: LXI H,0004
03A2: DAD SP
03A3: MOV A,M
03A4: MOV M,E
03A5: MOV E,A
03A6: INX H
03A7: MOV A,M
03A8: MOV M,D
03A9: MOV D,A
03AA: POP H
03AB: PUSH D
03AC: PUSH H
03AD: JMP 02EF
	Asm ROT
03B6: POP D
03B7: POP H
03B8: XTHL
03B9: PUSH D
03BA: PUSH H
03BB: JMP 02EF
	Asm -ROT
03C5: POP H
03C6: POP D
03C7: XTHL
03C8: PUSH H
03C9: PUSH D
03CA: JMP 02EF
	Asm DUP
03D3: POP H
03D4: PUSH H
03D5: PUSH H
03D6: JMP 02EF
	Asm ?DUP
03E0: POP H
03E1: PUSH H
03E2: MOV A,H
03E3: ORA L
03E4: JZ 02EF
03E7: PUSH H
03E8: JMP 02EF
	Asm 2DUP
03F2: POP H
03F3: POP D
03F4: PUSH D
03F5: PUSH H
03F6: PUSH D
03F7: PUSH H
03F8: JMP 02EF
	Asm 2DROP
0403: POP D
0404: POP D
0405: JMP 02EF
	Asm PRESS
0410: POP H
0411: XTHL
0412: JMP 02EF
	Asm 2OVER
041D: LXI H,0007
0420: DAD SP
0421: MOV D,M
0422: DCX H
0423: MOV E,M
0424: DCX H
0425: PUSH D
0426: MOV D,M
0427: DCX H
0428: MOV E,M
0429: PUSH D
042A: JMP 02EF
	Asm SP@
0433: LXI H,0000
0436: DAD SP
0437: PUSH H
0438: JMP 02EF
	Asm SP!
0441: POP H
0442: SPHL
0443: JMP 02EF
	Asm +
044A: POP H
044B: POP D
044C: DAD D
044D: PUSH H
044E: JMP 02EF
	Asm -
0455: POP H
0456: POP D
0457: MOV A,E
0458: SUB L
0459: MOV L,A
045A: MOV A,D
045B: SBB H
045C: MOV H,A
045D: PUSH H
045E: JMP 02EF
	Asm NEGATE
046A: POP H
046B: CALL 058C
046E: PUSH H
046F: JMP 02EF
	Asm 1+
0477: POP H
0478: INX H
0479: PUSH H
047A: JMP 02EF
	Asm 2+
0482: POP H
0483: INX H
0484: INX H
0485: PUSH H
0486: JMP 02EF
	Asm 1-
048E: POP H
048F: DCX H
0490: PUSH H
0491: JMP 02EF
	Asm 2-
0499: POP H
049A: DCX H
049B: DCX H
049C: PUSH H
049D: JMP 02EF
	Asm 2*
04A5: POP H
04A6: DAD H
04A7: PUSH H
04A8: JMP 02EF
	Asm ABS
04B1: POP H
04B2: MOV A,H
04B3: ORA A
04B4: CM 058C
04B7: PUSH H
04B8: JMP 02EF
	Asm MIN
04C1: POP D
04C2: POP H
04C3: PUSH D
04C4: MOV A,H
04C5: XRA D
04C6: JP 04CD
04C9: XRA D
04CA: JMP 04D1
04CD: MOV A,L
04CE: SUB E
04CF: MOV A,H
04D0: SBB D
04D1: JP 02EF
04D4: XTHL
04D5: JMP 02EF
	Asm MAX
04DE: POP H
04DF: POP D
04E0: PUSH D
04E1: MOV A,H
04E2: XRA D
04E3: JP 04EA
04E6: XRA H
04E7: JMP 04EE
04EA: MOV A,E
04EB: SUB L
04EC: MOV A,D
04ED: SBB H
04EE: JP 02EF
04F1: XTHL
04F2: JMP 02EF
	Asm U<
04FA: POP D
04FB: POP H
04FC: MOV A,L
04FD: SUB E
04FE: MOV A,H
04FF: SBB D
0500: LXI H,FFFF
0503: JC 0507
0506: INX H
0507: PUSH H
0508: JMP 02EF
	Asm <
050F: POP H
0510: POP D
0511: MOV A,H
0512: XRA D
0513: JP 0520
0516: LXI H,0000
0519: XRA D
051A: JM 052B
051D: JMP 052A
0520: MOV A,E
0521: SUB L
0522: MOV A,D
0523: SBB H
0524: LXI H,0000
0527: JP 052B
052A: DCX H
052B: PUSH H
052C: JMP 02EF
	Asm >
0533: POP D
0534: POP H
0535: JMP 0511
	Asm 0<
053D: POP H
053E: MOV A,H
053F: LXI H,0000
0542: ORA A
0543: JP 0547
0546: DCX H
0547: PUSH H
0548: JMP 02EF
	Asm 0>
0550: POP D
0551: LXI H,0000
0554: MOV A,D
0555: ORA A
0556: JM 055E
0559: ORA E
055A: JZ 055E
055D: DCX H
055E: PUSH H
055F: JMP 02EF
	Asm =
0566: POP H
0567: POP D
0568: MOV A,L
0569: SUB E
056A: MOV E,A
056B: MOV A,H
056C: SBB D
056D: LXI H,0000
0570: ORA E
0571: JNZ 0575
0574: DCX H
0575: PUSH H
0576: JMP 02EF
	Asm 0=
057E: POP H
057F: MOV A,H
0580: LXI D,0000
0583: ORA L
0584: JNZ 0588
0587: DCX D
0588: PUSH D
0589: JMP 02EF
058C: MOV A,H
058D: CMA
058E: MOV H,A
058F: MOV A,L
0590: CMA
0591: MOV L,A
0592: INX H
0593: RET
	Asm -TRAILING
05A0: POP D
05A1: MOV A,E
05A2: ORA A
05A3: JZ 05B4
05A6: POP H
05A7: PUSH H
05A8: DAD D
05A9: DCX H
05AA: MOV A,M
05AB: CPI 20
05AD: JNZ 05B4
05B0: DCR E
05B1: JNZ 05A9
05B4: PUSH D
05B5: JMP 02EF
	Asm 2/
05BD: POP H
05BE: MOV A,H
05BF: ADD A
05C0: MOV A,H
05C1: RAR
05C2: MOV H,A
05C3: MOV A,L
05C4: RAR
05C5: MOV L,A
05C6: PUSH H
05C7: JMP 02EF
	Asm D+
05CF: POP D
05D0: POP H
05D1: XTHL
05D2: DAD D
05D3: POP D
05D4: XTHL
05D5: DAD D
05D6: XTHL
05D7: JNC 05DB
05DA: INX H
05DB: PUSH H
05DC: JMP 02EF
	Asm D<
05E4: POP D
05E5: POP H
05E6: XTHL
05E7: MOV A,H
05E8: XRA D
05E9: JP 05F8
05EC: LXI D,0000
05EF: XRA H
05F0: POP H
05F1: POP H
05F2: JM 0612
05F5: JMP 0611
05F8: MOV A,L
05F9: SUB E
05FA: MOV L,A
05FB: MOV A,H
05FC: SBB D
05FD: MOV H,A
05FE: POP D
05FF: XTHL
0600: MOV A,L
0601: SUB E
0602: MOV A,H
0603: SBB D
0604: POP H
0605: JNC 0609
0608: DCX H
0609: MOV A,H
060A: LXI D,0000
060D: ORA A
060E: JP 0612
0611: DCX D
0612: PUSH D
0613: JMP 02EF
	Asm DNEGATE
0620: POP H
0621: XTHL
0622: MVI D,00
0624: MOV A,D
0625: SUB L
0626: MOV L,A
0627: MOV A,D
0628: SBB H
0629: MOV H,A
062A: XTHL
062B: MOV A,D
062C: SBB L
062D: MOV L,A
062E: MOV A,D
062F: SBB H
0630: MOV H,A
0631: PUSH H
0632: JMP 02EF
	Asm -TEXT
063D: MOV H,B
063E: MOV L,C
063F: POP D
0640: POP B
0641: XTHL
0642: XCHG
0643: MOV A,B
0644: ORA C
0645: JZ 065D
0648: MOV A,C
0649: ORA A
064A: JZ 064E
064D: INR B
064E: LDAX D
064F: SUB M
0650: JNZ 065D
0653: INX D
0654: INX H
0655: DCR C
0656: JNZ 064E
0659: DCR B
065A: JNZ 064E
065D: MOV L,A
065E: MVI H,00
0660: ORA A
0661: JP 0665
0664: DCR H
0665: POP B
0666: PUSH H
0667: JMP 02EF
	Asm ROLL
0671: POP H
0672: MOV A,H
0673: ORA L
0674: JZ 02EF
0677: DAD H
0678: XCHG
0679: LXI H,0000
067C: DAD SP
067D: DAD D
067E: PUSH B
067F: MOV C,M
0680: INX H
0681: MOV B,M
0682: PUSH B
0683: MOV B,H
0684: MOV C,L
0685: DCX B
0686: DCX B
0687: LDAX B
0688: MOV M,A
0689: DCX B
068A: DCX H
068B: DCX D
068C: MOV A,D
068D: ORA E
068E: JNZ 0687
0691: POP H
0692: POP B
0693: XTHL
0694: JMP 02EF
	Asm *
069B: MOV H,B
069C: MOV L,C
069D: POP B
069E: POP D
069F: PUSH H
06A0: LXI H,0000
06A3: MOV A,C
06A4: MVI C,08
06A6: CALL 06B4
06A9: MOV A,B
06AA: MVI C,08
06AC: CALL 06B4
06AF: POP B
06B0: PUSH H
06B1: JMP 02EF
06B4: RAR
06B5: JNC 06B9
06B8: DAD D
06B9: XCHG
06BA: DAD H
06BB: XCHG
06BC: DCR C
06BD: JNZ 06B4
06C0: RET
	Asm UM*
06C7: POP H
06C8: POP D
06C9: PUSH B
06CA: MOV B,D
06CB: MOV C,E
06CC: CALL 06D5
06CF: POP B
06D0: PUSH D
06D1: PUSH H
06D2: JMP 02EF
06D5: XRA A
06D6: MOV D,A
06D7: MOV E,A
06D8: DAD H
06D9: RAR
06DA: XCHG
06DB: DAD H
06DC: JNC 06E0
06DF: INX D
06E0: RAL
06E1: JNC 06E9
06E4: DAD B
06E5: JNC 06E9
06E8: INX D
06E9: XCHG
06EA: ADI 10
06EC: JNC 06D8
06EF: RET
	Asm DU/MOD
06F9: LXI H,354B
06FC: MVI A,04
06FE: POP D
06FF: MOV M,D
0700: INX H
0701: MOV M,E
0702: INX H
0703: DCR A
0704: JNZ 06FE
0707: PUSH B
0708: LXI B,0005
070B: LXI H,3545
070E: MVI E,0A
0710: PUSH H
0711: CALL 07A1
0714: DAD B
0715: MOV M,A
0716: CALL 077C
0719: INR B
071A: DCR E
071B: JZ 0769
071E: ANI F0
0720: JZ 0716
0723: DCR B
0724: PUSH B
0725: LXI H,3545
0728: CALL 077C
072B: LXI H,3549
072E: LXI D,354E
0731: PUSH D
0732: PUSH B
0733: CALL 0797
0736: POP B
0737: POP H
0738: JC 074E
073B: PUSH B
073C: LXI D,3553
073F: DCX H
0740: DCX D
0741: LDAX D
0742: SBB M
0743: STAX D
0744: DCR C
0745: JNZ 073F
0748: DCX H
0749: INR M
074A: POP B
074B: JMP 072B
074E: CALL 077C
0751: DCR B
0752: JNZ 0725
0755: LXI H,3549
0758: CALL 07A1
075B: POP B
075C: MVI A,0C
075E: MVI C,0A
0760: SUB B
0761: MOV B,A
0762: CALL 077C
0765: DCR B
0766: JNZ 0762
0769: POP H
076A: LXI H,354C
076D: POP B
076E: MVI A,04
0770: MOV E,M
0771: DCX H
0772: MOV D,M
0773: DCX H
0774: PUSH D
0775: DCR A
0776: JNZ 0770
0779: JMP 02EF
077C: PUSH B
077D: PUSH D
077E: MVI B,00
0780: DAD B
0781: XCHG
0782: DCX D
0783: LDAX D
0784: MOV L,A
0785: MVI H,00
0787: DAD H
0788: DAD H
0789: DAD H
078A: DAD H
078B: MOV A,L
078C: ADD B
078D: STAX D
078E: MOV B,H
078F: DCR C
0790: JNZ 0782
0793: XCHG
0794: POP D
0795: POP B
0796: RET
0797: LDAX D
0798: CMP M
0799: INX H
079A: INX D
079B: RNZ
079C: DCR C
079D: JNZ 0797
07A0: RET
07A1: XRA A
07A2: PUSH H
07A3: PUSH B
07A4: MOV M,A
07A5: INX H
07A6: DCR C
07A7: JNZ 07A4
07AA: POP B
07AB: POP H
07AC: RET
07AD: MOV A,H
07AE: ORA L
07AF: RZ
07B0: LXI B,0000
07B3: PUSH B
07B4: MOV A,E
07B5: SUB L
07B6: MOV A,D
07B7: SBB H
07B8: JC 07C0
07BB: PUSH H
07BC: DAD H
07BD: JNC 07B4
07C0: LXI H,0000
07C3: POP B
07C4: MOV A,B
07C5: ORA C
07C6: RZ
07C7: DAD H
07C8: PUSH D
07C9: MOV A,E
07CA: SUB C
07CB: MOV E,A
07CC: MOV A,D
07CD: SBB B
07CE: MOV D,A
07CF: JC 07D7
07D2: INX H
07D3: POP B
07D4: JMP 07C3
07D7: POP D
07D8: JMP 07C3
	Asm /MOD
07E2: POP H
07E3: POP D
07E4: PUSH B
07E5: MOV A,H
07E6: XRA D
07E7: MOV A,H
07E8: PUSH PSW
07E9: ORA A
07EA: CM 058C
07ED: PUSH H
07EE: MOV A,D
07EF: ORA A
07F0: XCHG
07F1: CM 058C
07F4: XCHG
07F5: CALL 07AD
07F8: POP B
07F9: MOV A,D
07FA: ORA E
07FB: JNZ 0808
07FE: POP PSW
07FF: CM 058C
0802: POP B
0803: PUSH D
0804: PUSH H
0805: JMP 02EF
0808: POP PSW
0809: PUSH PSW
080A: JP 0817
080D: INX H
080E: CALL 058C
0811: MOV A,C
0812: SUB E
0813: MOV E,A
0814: MOV A,B
0815: SBB D
0816: MOV D,A
0817: POP PSW
0818: ORA A
0819: XCHG
081A: CM 058C
081D: POP B
081E: PUSH H
081F: PUSH D
0820: JMP 02EF
	Asm U/MOD
082B: POP H
082C: POP D
082D: PUSH B
082E: CALL 07AD
0831: POP B
0832: PUSH D
0833: PUSH H
0834: JMP 02EF
	Asm ?WORD
083F: POP H
0840: POP D
0841: PUSH B
0842: PUSH D
0843: MVI B,00
0845: SHLD 3426
0848: MOV E,M
0849: INX H
084A: MOV D,M
084B: XCHG
084C: MOV A,H
084D: ORA L
084E: JZ 0881
0851: POP D
0852: PUSH D
0853: PUSH H
0854: MOV A,M
0855: ANI 7F
0857: MOV C,A
0858: LDAX D
0859: CMP C
085A: JNZ 0877
085D: ORA C
085E: JZ 086C
0861: INX H
0862: INX D
0863: LDAX D
0864: CMP M
0865: JNZ 087C
0868: DCR C
0869: JNZ 0861
086C: POP H
086D: POP D
086E: POP B
086F: PUSH H
0870: LXI H,FFFF
0873: PUSH H
0874: JMP 02EF
0877: MOV A,C
0878: ANI 3F
087A: MOV C,A
087B: INX B
087C: DAD B
087D: POP D
087E: JMP 0845
0881: POP D
0882: POP B
0883: PUSH D
0884: LXI H,0000
0887: PUSH H
0888: JMP 02EF
	Asm DIGIT
0893: POP D
0894: POP H
0895: MOV A,L
0896: CPI 30
0898: JM 08BB
089B: CPI 3A
089D: JP 08AF
08A0: SUI 30
08A2: CMP E
08A3: JP 08BB
08A6: MOV L,A
08A7: PUSH H
08A8: LXI H,FFFF
08AB: PUSH H
08AC: JMP 02EF
08AF: CPI 41
08B1: JM 08BB
08B4: SUI 41
08B6: ADI 0A
08B8: JMP 08A2
08BB: LXI H,0000
08BE: PUSH H
08BF: JMP 02EF
	Asm AND
08C8: POP H
08C9: POP D
08CA: MOV A,E
08CB: ANA L
08CC: MOV L,A
08CD: MOV A,D
08CE: ANA H
08CF: MOV H,A
08D0: PUSH H
08D1: JMP 02EF
	Asm OR
08D9: POP H
08DA: POP D
08DB: MOV A,E
08DC: ORA L
08DD: MOV L,A
08DE: MOV A,D
08DF: ORA H
08E0: MOV H,A
08E1: PUSH H
08E2: JMP 02EF
	Asm XOR
08EB: POP H
08EC: POP D
08ED: MOV A,E
08EE: XRA L
08EF: MOV L,A
08F0: MOV A,D
08F1: XRA H
08F2: MOV H,A
08F3: PUSH H
08F4: JMP 02EF
	Asm NOT
08FD: POP H
08FE: MOV A,H
08FF: CMA
0900: MOV H,A
0901: MOV A,L
0902: CMA
0903: MOV L,A
0904: PUSH H
0905: JMP 02EF
	Asm >R
090D: POP D
090E: LHLD 341E
0911: DCX H
0912: MOV M,D
0913: DCX H
0914: MOV M,E
0915: SHLD 341E
0918: JMP 02EF
	Asm R>
0920: LHLD 341E
0923: MOV E,M
0924: INX H
0925: MOV D,M
0926: INX H
0927: PUSH D
0928: SHLD 341E
092B: JMP 02EF
	Asm R@
0933: LHLD 341E
0936: MOV E,M
0937: INX H
0938: MOV D,M
0939: PUSH D
093A: JMP 02EF
	Asm RP@
0943: LHLD 341E
0946: PUSH H
0947: JMP 02EF
	Asm RP!
0950: POP H
0951: SHLD 341E
0954: JMP 02EF
	Asm RPICK
095F: POP H
0960: DAD H
0961: XCHG
0962: LHLD 341E
0965: DAD D
0966: MOV E,M
0967: INX H
0968: MOV D,M
0969: PUSH D
096A: JMP 02EF
	Asm RDROP
0975: LHLD 341E
0978: INX H
0979: INX H
097A: SHLD 341E
097D: JMP 02EF
	Asm @
0984: POP H
0985: MOV E,M
0986: INX H
0987: MOV D,M
0988: PUSH D
0989: JMP 02EF
	Asm C@
0991: POP H
0992: MOV E,M
0993: MVI D,00
0995: PUSH D
0996: JMP 02EF
	Asm !
099D: POP H
099E: POP D
099F: MOV M,E
09A0: INX H
09A1: MOV M,D
09A2: JMP 02EF
	Asm C!
09AA: POP H
09AB: POP D
09AC: MOV M,E
09AD: JMP 02EF
	Asm 2!
09B5: POP H
09B6: POP D
09B7: MOV M,E
09B8: INX H
09B9: MOV M,D
09BA: INX H
09BB: POP D
09BC: MOV M,E
09BD: INX H
09BE: MOV M,D
09BF: JMP 02EF
	Asm 2@
09C7: POP H
09C8: MOV E,M
09C9: INX H
09CA: MOV D,M
09CB: INX H
09CC: MOV A,M
09CD: INX H
09CE: MOV H,M
09CF: MOV L,A
09D0: PUSH H
09D1: PUSH D
09D2: JMP 02EF
	Asm +!
09DA: POP H
09DB: POP D
09DC: MOV A,M
09DD: ADD E
09DE: MOV M,A
09DF: INX H
09E0: MOV A,M
09E1: ADC D
09E2: MOV M,A
09E3: JMP 02EF
	Asm -!
09EB: POP H
09EC: POP D
09ED: MOV A,M
09EE: SUB E
09EF: MOV M,A
09F0: INX H
09F1: MOV A,M
09F2: SBB D
09F3: MOV M,A
09F4: JMP 02EF
	Asm 0!
09FC: SUB A
09FD: POP H
09FE: MOV M,A
09FF: INX H
0A00: MOV M,A
0A01: JMP 02EF
	Asm 1+!
0A0A: POP H
0A0B: INR M
0A0C: JNZ 02EF
0A0F: INX H
0A10: INR M
0A11: JMP 02EF
	Asm 1-!
0A1A: POP H
0A1B: MOV E,M
0A1C: INX H
0A1D: MOV D,M
0A1E: DCX D
0A1F: MOV M,D
0A20: DCX H
0A21: MOV M,E
0A22: JMP 02EF
	Asm LIT
0A2B: LDAX B
0A2C: MOV L,A
0A2D: INX B
0A2E: LDAX B
0A2F: MOV H,A
0A30: INX B
0A31: PUSH H
0A32: JMP 02EF
	Asm DLIT
0A3C: LDAX B
0A3D: MOV E,A
0A3E: INX B
0A3F: LDAX B
0A40: MOV D,A
0A41: INX B
0A42: LDAX B
0A43: MOV L,A
0A44: INX B
0A45: LDAX B
0A46: MOV H,A
0A47: INX B
0A48: PUSH H
0A49: PUSH D
0A4A: JMP 02EF
	Asm (")
0A53: PUSH B
0A54: LDAX B
0A55: MOV L,A
0A56: MVI H,00
0A58: INX H
0A59: DAD B
0A5A: MOV B,H
0A5B: MOV C,L
0A5C: JMP 02EF
	Asm BRANCH
0A68: MOV H,B
0A69: MOV L,C
0A6A: MOV C,M
0A6B: INX H
0A6C: MOV B,M
0A6D: JMP 02EF
	Asm ?BRANCH
0A7A: POP D
0A7B: MOV A,D
0A7C: ORA E
0A7D: JZ 0A68
0A80: INX B
0A81: INX B
0A82: JMP 02EF
	Asm N?BRANCH
0A90: POP D
0A91: MOV A,D
0A92: ORA E
0A93: JNZ 0A68
0A96: INX B
0A97: INX B
0A98: JMP 02EF
	Asm I
0A9F: LHLD 341E
0AA2: MOV E,M
0AA3: INX H
0AA4: MOV D,M
0AA5: PUSH D
0AA6: JMP 02EF
	Asm J
0AAD: LHLD 341E
0AB0: LXI D,0006
0AB3: DAD D
0AB4: MOV E,M
0AB5: INX H
0AB6: MOV D,M
0AB7: PUSH D
0AB8: JMP 02EF
	Asm K
0ABF: LHLD 341E
0AC2: LXI D,000C
0AC5: DAD D
0AC6: MOV E,M
0AC7: INX H
0AC8: MOV D,M
0AC9: PUSH D
0ACA: JMP 02EF
	Asm TOGGLE
0AD6: POP D
0AD7: MOV A,E
0AD8: POP H
0AD9: XRA M
0ADA: MOV M,A
0ADB: JMP 02EF
	Asm (DO)
0AE5: POP H
0AE6: XTHL
0AE7: PUSH H
0AE8: LHLD 341E
0AEB: LDAX B
0AEC: MOV D,A
0AED: INX B
0AEE: LDAX B
0AEF: INX B
0AF0: DCX H
0AF1: MOV M,A
0AF2: DCX H
0AF3: MOV M,D
0AF4: POP D
0AF5: DCX H
0AF6: MOV M,D
0AF7: DCX H
0AF8: MOV M,E
0AF9: POP D
0AFA: DCX H
0AFB: MOV M,D
0AFC: DCX H
0AFD: MOV M,E
0AFE: SHLD 341E
0B01: JMP 02EF
	Asm (?DO)
0B0C: POP H
0B0D: POP D
0B0E: PUSH D
0B0F: PUSH H
0B10: MOV A,L
0B11: CMP E
0B12: JNZ 0AE5
0B15: MOV A,H
0B16: CMP D
0B17: JNZ 0AE5
0B1A: LDAX B
0B1B: MOV D,A
0B1C: INX B
0B1D: LDAX B
0B1E: MOV B,A
0B1F: MOV C,D
0B20: POP H
0B21: POP H
0B22: JMP 02EF
	Asm (LOOP)
0B2E: LHLD 341E
0B31: MOV E,M
0B32: INX H
0B33: MOV D,M
0B34: INX H
0B35: INX D
0B36: MOV A,M
0B37: INX H
0B38: CMP E
0B39: JNZ 0B4C
0B3C: MOV A,M
0B3D: CMP D
0B3E: JNZ 0B4C
0B41: INX H
0B42: INX H
0B43: INX H
0B44: SHLD 341E
0B47: INX B
0B48: INX B
0B49: JMP 02EF
0B4C: DCX H
0B4D: DCX H
0B4E: MOV M,D
0B4F: DCX H
0B50: MOV M,E
0B51: MOV H,B
0B52: MOV L,C
0B53: MOV C,M
0B54: INX H
0B55: MOV B,M
0B56: JMP 02EF
	Asm (+LOOP)
0B63: POP H
0B64: PUSH B
0B65: XCHG
0B66: LHLD 341E
0B69: MOV C,M
0B6A: INX H
0B6B: MOV B,M
0B6C: INX H
0B6D: XCHG
0B6E: DAD B
0B6F: XCHG
0B70: POP B
0B71: JMP 0B36
	Asm CMOVE
0B7C: MOV H,B
0B7D: MOV L,C
0B7E: POP B
0B7F: POP D
0B80: XTHL
0B81: MOV A,C
0B82: ORA B
0B83: JZ 0B98
0B86: MOV A,C
0B87: ORA A
0B88: JZ 0B8C
0B8B: INR B
0B8C: MOV A,M
0B8D: STAX D
0B8E: INX H
0B8F: INX D
0B90: DCR C
0B91: JNZ 0B8C
0B94: DCR B
0B95: JNZ 0B8C
0B98: POP B
0B99: JMP 02EF
	Asm CMOVE>
0BA5: MOV H,B
0BA6: MOV L,C
0BA7: POP B
0BA8: POP D
0BA9: XTHL
0BAA: MOV A,C
0BAB: ORA B
0BAC: JZ 0BC8
0BAF: DAD B
0BB0: XCHG
0BB1: DAD B
0BB2: MOV A,C
0BB3: ORA A
0BB4: JZ 0BB8
0BB7: INR B
0BB8: DCX H
0BB9: DCX D
0BBA: LDAX D
0BBB: MOV M,A
0BBC: DCR C
0BBD: JNZ 0BB8
0BC0: DCR B
0BC1: JNZ 0BB8
0BC4: POP B
0BC5: JMP 02EF
0BC8: POP B
0BC9: JMP 02EF
	Asm <CMOVE>
0BD6: MOV H,B
0BD7: MOV L,C
0BD8: POP B
0BD9: POP D
0BDA: XTHL
0BDB: MOV A,C
0BDC: ORA B
0BDD: JZ 0BEA
0BE0: MOV A,L
0BE1: SUB E
0BE2: MOV A,H
0BE3: SBB D
0BE4: JNC 0B86
0BE7: JMP 0BAF
0BEA: POP B
0BEB: JMP 02EF
	Asm FILL
0BF5: POP D
0BF6: POP H
0BF7: MOV A,H
0BF8: ORA L
0BF9: JNZ 0C00
0BFC: POP H
0BFD: JMP 02EF
0C00: MOV A,E
0C01: POP D
0C02: DCX H
0C03: PUSH B
0C04: LXI B,FFFF
0C07: STAX D
0C08: INX D
0C09: DAD B
0C0A: JC 0C07
0C0D: POP B
0C0E: JMP 02EF
	Asm 0>BL
0C18: POP D
0C19: POP H
0C1A: MOV A,M
0C1B: ORA A
0C1C: JNZ 0C21
0C1F: MVI M,20
0C21: INX H
0C22: DCR E
0C23: JNZ 0C1A
0C26: JMP 02EF
	Asm ENCLOSE
0C33: MOV H,B
0C34: MOV L,C
0C35: POP B
0C36: POP D
0C37: XTHL
0C38: XCHG
0C39: DCX B
0C3A: MOV A,B
0C3B: ORA A
0C3C: JM 0C69
0C3F: MOV A,M
0C40: CMP E
0C41: DCX B
0C42: INX H
0C43: JZ 0C3A
0C46: PUSH H
0C47: MOV A,B
0C48: ORA A
0C49: JM 0C54
0C4C: MOV A,M
0C4D: CMP E
0C4E: DCX B
0C4F: INX H
0C50: JNZ 0C47
0C53: DCX H
0C54: POP D
0C55: DCX D
0C56: POP B
0C57: PUSH D
0C58: PUSH H
0C59: MOV A,L
0C5A: SUB E
0C5B: MOV L,A
0C5C: MOV A,H
0C5D: SBB D
0C5E: MOV H,A
0C5F: XTHL
0C60: INX H
0C61: PUSH H
0C62: LXI H,FFFF
0C65: PUSH H
0C66: JMP 02EF
0C69: POP B
0C6A: LXI H,0000
0C6D: PUSH H
0C6E: JMP 02EF
	Proc BYE
0C7A: LIT, F800
0C7E: EXECUTE
0C80: EXIT
	Asm (EMIT)
0C8B: POP H
0C8C: PUSH B
0C8D: MOV C,L
0C8E: CALL F809
0C91: POP B
0C92: JMP 02EF
	Asm (KEY)
0C9D: PUSH B
0C9E: CALL F803
0CA1: MVI H,00
0CA3: MOV L,A
0CA4: POP B
0CA5: PUSH H
0CA6: JMP 02EF
	Proc (CR)
0CB3: LIT, 000D
0CB7: EMIT
0CB9: LIT, 000A
0CBD: EMIT
0CBF: EXIT
	Asm ?TERMINAL
0CCD: PUSH B
0CCE: CALL F812
0CD1: POP B
0CD2: LXI H,0000
0CD5: ORA A
0CD6: JZ 0CDA
0CD9: DCX H
0CDA: PUSH H
0CDB: JMP 02EF
	Proc ?KEY
0CE8: ?TERMINAL
0CEA: ?BRANCH, 0CF6
0CEE: (KEY)
0CF0: TRUE
0CF2: BRANCH, 0CF8
0CF6: FALSE
0CF8: EXIT
	Asm LEMIT
0D02: POP H
0D03: PUSH B
0D04: MOV C,L
0D05: CALL F80F
0D08: POP B
0D09: JMP 02EF
	Proc PRINT
0D17: LIT, 0000
0D1B: (?DO), 0D2B
0D1F: DUP
0D21: C@
0D23: LEMIT
0D25: 1+
0D27: (LOOP), 0D1F
0D2B: DROP
0D2D: EXIT
	Proc (LEMIT)
0D3C: DUP
0D3E: (EMIT)
0D40: LEMIT
0D42: EXIT
	Proc +PRT
0D4E: LIT, 0D39
0D52: LIT, 340E
0D56: !
0D58: EXIT
	Proc -PRT
0D64: LIT, 0C8B
0D68: LIT, 340E
0D6C: !
0D6E: EXIT
	Proc TITLE
0D7B: CR
0D7D: (.")  OPT-CCTEMA BEPC 6.3 OT 15.05.86"
0DA4: CR
0DA6: LIT, 0009
0DAA: SPACES
0DAC: (.") (CTAHAPT FORTH-83)"
0DC2: CR
0DC4: (.") B.A.KPH A.A.KOB H.P.HOPHOB"
0DEE: CR
0DF0: (.") AOPATOP MATEMATECKOO OECEEH"
0E1A: CR
0E1C: LIT, 000A
0E20: SPACES
0E22: (.") TEPMHAHX CCTEM"
0E38: CR
0E3A: (.")   HCETMA'A B  M. A.A.AHOBA"
0E61: CR
0E63: LIT, 0005
0E67: SPACES
0E69: (.") 198904 EHHPA ETPOBOPE"
0E88: CR
0E8A: LIT, 000C
0E8E: SPACES
0E90: (.") OTEHA . . 2"
0EA8: CR
0EAA: LIT, 340A
0EAE: @
0EB0: ?DUP
0EB2: ?BRANCH, 0EB8
0EB6: EXECUTE
0EB8: EXIT
	Const -1, FFFF
	Const 0, 0000
	Const 1, 0001
	Const 2, 0002
	Const TRUE, FFFF
	Const FALSE, 0000
	Proc HERE
0F02: H
0F04: @
0F06: EXIT
	Proc ALLOT
0F13: H
0F15: +!
0F17: EXIT
	Proc ,
0F20: HERE
0F22: 2
0F24: ALLOT
0F26: !
0F28: EXIT
	Proc C,
0F32: HERE
0F34: 1
0F36: ALLOT
0F38: C!
0F3A: EXIT
	Proc ",
0F44: HERE
0F46: OVER
0F48: C@
0F4A: 1+
0F4C: DUP
0F4E: ALLOT
0F50: CMOVE
0F52: EXIT
	Proc PAD
0F5D: HERE
0F5F: LIT, 0054
0F63: +
0F65: EXIT
	Asm COUNT
0F6F: POP H
0F70: MVI D,00
0F72: MOV E,M
0F73: INX H
0F74: PUSH H
0F75: PUSH D
0F76: JMP 02EF
	Proc COMPILE
0F86: R>
0F88: DUP
0F8A: 2+
0F8C: >R
0F8E: @
0F90: ,
0F92: EXIT
	Proc S>D
0F9D: DUP
0F9F: 0<
0FA1: EXIT
	Proc M*
0FAB: 2DUP
0FAD: XOR
0FAF: >R
0FB1: ABS
0FB3: SWAP
0FB5: ABS
0FB7: UM*
0FB9: R>
0FBB: 0<
0FBD: ?BRANCH, 0FC3
0FC1: DNEGATE
0FC3: EXIT
	Proc /
0FCC: /MOD
0FCE: PRESS
0FD0: EXIT
	Proc MOD
0FDB: /MOD
0FDD: DROP
0FDF: EXIT
	Proc DABS
0FEB: DUP
0FED: 0<
0FEF: ?BRANCH, 0FF5
0FF3: DNEGATE
0FF5: EXIT
	Proc U/
0FFF: U/MOD
1001: PRESS
1003: EXIT
	Proc UM/MOD
1011: 0
1013: DU/MOD
1015: DROP
1017: PRESS
1019: EXIT
	Proc M/MOD
1026: ?DUP
1028: ?BRANCH, 106A
102C: DUP
102E: >R
1030: 2DUP
1032: XOR
1034: >R
1036: >R
1038: DABS
103A: R@
103C: ABS
103E: UM/MOD
1040: SWAP
1042: R>
1044: 0<
1046: ?BRANCH, 104C
104A: NEGATE
104C: SWAP
104E: R>
1050: 0<
1052: ?BRANCH, 1068
1056: NEGATE
1058: OVER
105A: ?BRANCH, 1068
105E: 1-
1060: R@
1062: ROT
1064: -
1066: SWAP
1068: RDROP
106A: EXIT
	Proc */MOD
1077: >R
1079: M*
107B: R>
107D: M/MOD
107F: EXIT
	Proc */
1089: */MOD
108B: PRESS
108D: EXIT
	Proc <>
1097: =
1099: 0=
109B: EXIT
	Proc QUIT
10A7: LIT, 3400
10AB: @
10AD: ?DUP
10AF: ?BRANCH, 10B5
10B3: EXECUTE
10B5: R0
10B7: @
10B9: RP!
10BB: CONSOLE
10BD: [
10BF: ptr 3450
10C1: DEFINITIONS
10C3: QUERY
10C5: INTERPRET
10C7: BRANCH, 10C3
10CB: EXIT
	Proc ABORT
10D8: LIT, 3402
10DC: @
10DE: ?DUP
10E0: ?BRANCH, 10E6
10E4: EXECUTE
10E6: BLK
10E8: @
10EA: ?DUP
10EC: ?BRANCH, 1135
10F0: CR
10F2: (.") OKA: KPAH "
1103: .
1105: (.") CTPOKA "
110F: >IN
1111: @
1113: LIT, 0040
1117: U/
1119: DUP
111B: .
111D: CR
111F: BLK
1121: @
1123: BLOCK
1125: SWAP
1127: LIT, 0040
112B: *
112D: +
112F: LIT, 0040
1133: TYPE
1135: S0
1137: @
1139: SP!
113B: QUIT
113D: EXIT
	Proc (ABORT")
114D: ?BRANCH, 1161
1151: HERE
1153: ID.
1155: SPACE
1157: R>
1159: ID.
115B: ABORT
115D: BRANCH, 116D
1161: R>
1163: DUP
1165: C@
1167: 1+
1169: +
116B: >R
116D: EXIT
	Proc ABORT" , i
117B: ?COMP
117D: COMPILE
117F: (ABORT")
1181: LIT, 0022
1185: WORD
1187: ",
1189: EXIT
	Proc #>
1193: 2DROP
1195: HLD
1197: @
1199: PAD
119B: OVER
119D: -
119F: EXIT
	Proc <#
11A9: PAD
11AB: HLD
11AD: !
11AF: EXIT
	Proc HOLD
11BB: HLD
11BD: 1-!
11BF: HLD
11C1: @
11C3: C!
11C5: EXIT
	Proc SIGN
11D1: 0<
11D3: ?BRANCH, 11DD
11D7: LIT, 002D
11DB: HOLD
11DD: EXIT
	Proc >DIG
11E9: LIT, 0009
11ED: OVER
11EF: U<
11F1: ?BRANCH, 11FD
11F5: LIT, 0037
11F9: BRANCH, 1201
11FD: LIT, 0030
1201: +
1203: EXIT
	Proc #
120C: BASE
120E: @
1210: 0
1212: DU/MOD
1214: ROT
1216: DROP
1218: ROT
121A: >DIG
121C: HOLD
121E: EXIT
	Proc #.
1228: BASE
122A: @
122C: U/MOD
122E: SWAP
1230: >DIG
1232: HOLD
1234: EXIT
	Proc #.S
123F: #.
1241: DUP
1243: 0=
1245: ?BRANCH, 123F
1249: EXIT
	Proc #S
1253: #
1255: 2DUP
1257: OR
1259: 0=
125B: ?BRANCH, 1253
125F: EXIT
	Proc D.R
126A: >R
126C: DUP
126E: >R
1270: DABS
1272: <#
1274: #S
1276: R>
1278: SIGN
127A: #>
127C: R>
127E: OVER
1280: -
1282: SPACES
1284: TYPE
1286: EXIT
	Proc D.
1290: DUP
1292: >R
1294: DABS
1296: <#
1298: #S
129A: R>
129C: SIGN
129E: #>
12A0: TYPE
12A2: SPACE
12A4: EXIT
	Proc .R
12AE: >R
12B0: DUP
12B2: >R
12B4: ABS
12B6: <#
12B8: #.S
12BA: R>
12BC: SIGN
12BE: 0
12C0: #>
12C2: R>
12C4: OVER
12C6: -
12C8: SPACES
12CA: TYPE
12CC: EXIT
	Proc .0
12D6: >R
12D8: <#
12DA: #.S
12DC: 0
12DE: #>
12E0: R>
12E2: OVER
12E4: -
12E6: 0
12E8: (?DO), 12F6
12EC: LIT, 0030
12F0: EMIT
12F2: (LOOP), 12EC
12F6: TYPE
12F8: EXIT
	Proc .
1301: DUP
1303: >R
1305: ABS
1307: <#
1309: #.S
130B: R>
130D: SIGN
130F: 0
1311: #>
1313: TYPE
1315: SPACE
1317: EXIT
	Proc U.
1321: 0
1323: D.
1325: EXIT
	Const CFL, 0003
	Proc >BODY
133D: CFL
133F: +
1341: EXIT
	Proc BODY>
134E: CFL
1350: -
1352: EXIT
	Proc >LINK
135F: 2-
1361: EXIT
	Proc LINK>
136E: 2+
1370: EXIT
	Proc N>LINK
137E: COUNT
1380: LIT, 003F
1384: AND
1386: +
1388: EXIT
	Proc NAME>
1395: N>LINK
1397: LINK>
1399: EXIT
	Proc L>NAME
13A7: LIT, 0020
13AB: 2
13AD: (DO), 13D3
13B1: DUP
13B3: I
13B5: -
13B7: C@
13B9: LIT, 007F
13BD: AND
13BF: 1+
13C1: I
13C3: =
13C5: ?BRANCH, 13CF
13C9: I
13CB: -
13CD: LEAVE
13CF: (LOOP), 13B1
13D3: EXIT
	Proc >NAME
13E0: >LINK
13E2: L>NAME
13E4: EXIT
	Proc WORD
13F0: LIT, 3416
13F4: @
13F6: ?DUP
13F8: ?BRANCH, 1400
13FC: EXECUTE
13FE: EXIT
1400: BLK
1402: @
1404: ?DUP
1406: ?BRANCH, 1416
140A: BLOCK
140C: DUP
140E: INB
1410: !
1412: BRANCH, 1418
1416: TIB
1418: >IN
141A: @
141C: +
141E: #TIB
1420: @
1422: >IN
1424: @
1426: -
1428: ENCLOSE
142A: ?BRANCH, 143C
142E: INB
1430: @
1432: -
1434: >IN
1436: !
1438: BRANCH, 1448
143C: #TIB
143E: @
1440: >IN
1442: !
1444: 0
1446: 0
1448: DUP
144A: HERE
144C: C!
144E: HERE
1450: 1+
1452: SWAP
1454: CMOVE
1456: HERE
1458: BL
145A: OVER
145C: DUP
145E: C@
1460: 1+
1462: +
1464: C!
1466: EXIT
	Const C/L, 0040
	Const ST-C, 000D
	Const B-SP, 007F
	Const C<-, 0008
	Proc EXPECT
14A2: LIT, 3408
14A6: @
14A8: ?DUP
14AA: ?BRANCH, 14B2
14AE: EXECUTE
14B0: EXIT
14B2: OVER
14B4: SWAP
14B6: 0
14B8: (?DO), 1522
14BC: KEY
14BE: DUP
14C0: B-SP
14C2: =
14C4: OVER
14C6: C<-
14C8: =
14CA: OR
14CC: ?BRANCH, 14FE
14D0: DROP
14D2: 2DUP
14D4: =
14D6: N?BRANCH, 14F2
14DA: C<-
14DC: DUP
14DE: EMIT
14E0: BL
14E2: EMIT
14E4: EMIT
14E6: 1-
14E8: R>
14EA: 1-
14EC: >R
14EE: BRANCH, 14F4
14F2: NOOP
14F4: R>
14F6: 1-
14F8: >R
14FA: BRANCH, 151E
14FE: DUP
1500: ST-C
1502: =
1504: ?BRANCH, 1514
1508: DROP
150A: BL
150C: EMIT
150E: LEAVE
1510: BRANCH, 151E
1514: DUP
1516: EMIT
1518: OVER
151A: C!
151C: 1+
151E: (LOOP), 14BC
1522: SWAP
1524: -
1526: SPAN
1528: !
152A: EXIT
	Proc  , i
1532: RDROP
1534: EXIT
	Proc EMIT
1540: LIT, 340E
1544: @
1546: EXECUTE
1548: >OUT
154A: 1+!
154C: EXIT
	Proc KEY
1557: LIT, 340C
155B: @
155D: EXECUTE
155F: EXIT
	Proc CR
1569: LIT, 3410
156D: @
156F: EXECUTE
1571: >OUT
1573: 0!
1575: EXIT
	Proc TYPE
1581: LIT, 3412
1585: @
1587: ?DUP
1589: ?BRANCH, 1591
158D: EXECUTE
158F: EXIT
1591: 0
1593: (?DO), 15A3
1597: DUP
1599: C@
159B: EMIT
159D: 1+
159F: (LOOP), 1597
15A3: DROP
15A5: EXIT
	Proc FORTH-83
15B5: CR
15B7: (.") CTAHAPT FORTH-83"
15CB: EXIT
	Const F-CODE, 0100
	Const F-DATA, 3400
	Proc QUERY
15F4: CR
15F6: LIT, 003E
15FA: EMIT
15FC: TIB
15FE: C/L
1600: 1-
1602: EXPECT
1604: SPAN
1606: @
1608: DUP
160A: #TIB
160C: !
160E: ?BRANCH, 1614
1612: CR
1614: >IN
1616: 0!
1618: TIB
161A: INB
161C: !
161E: EXIT
	Proc CONSOLE
162D: LIT, 3414
1631: @
1633: ?DUP
1635: ?BRANCH, 163D
1639: EXECUTE
163B: EXIT
163D: BLK
163F: 0!
1641: LIT, 0C8B
1645: LIT, 340E
1649: !
164B: LIT, 0C9D
164F: LIT, 340C
1653: !
1655: LIT, 0CB0
1659: LIT, 3410
165D: !
165F: CR
1661: #TIB
1663: 0!
1665: >IN
1667: 0!
1669: EXIT
	Proc ;S
1673: RDROP
1675: EXIT
	Proc HEX
1680: LIT, 0010
1684: BASE
1686: !
1688: EXIT
	Proc DECIMAL
1697: LIT, 000A
169B: BASE
169D: !
169F: EXIT
	Const BL, 0020
	Proc BLANK
16B6: BL
16B8: FILL
16BA: EXIT
	Proc SPACE
16C7: BL
16C9: EMIT
16CB: EXIT
	Proc SPACES
16D9: 0
16DB: (?DO), 16E5
16DF: SPACE
16E1: (LOOP), 16DF
16E5: EXIT
	Proc ID.
16F0: COUNT
16F2: LIT, 003F
16F6: AND
16F8: TYPE
16FA: EXIT
	Proc DEFINITIONS
170D: CONTEXT
170F: @
1711: CURRENT
1713: !
1715: EXIT
	Proc LATEST
1723: CURRENT
1725: @
1727: @
1729: EXIT
	Proc !CF
1734: LIT, 00CD
1738: OVER
173A: C!
173C: 1+
173E: !
1740: EXIT
	Proc (!CODE)
174F: LATEST
1751: NAME>
1753: !CF
1755: EXIT
	Proc SMUDGE
1763: LATEST
1765: LIT, 0040
1769: TOGGLE
176B: EXIT
	Proc [ , i
1774: STATE
1776: 0!
1778: EXIT
	Proc ]
1781: -1
1783: STATE
1785: !
1787: EXIT
	Proc FIND
1793: LIT, 3406
1797: @
1799: ?DUP
179B: ?BRANCH, 17A3
179F: EXECUTE
17A1: EXIT
17A3: CONTEXT
17A5: @
17A7: ?WORD
17A9: ?BRANCH, 17B3
17AD: TRUE
17AF: BRANCH, 17CD
17B3: CURRENT
17B5: @
17B7: DUP
17B9: CONTEXT
17BB: @
17BD: =
17BF: N?BRANCH, 17C9
17C3: ?WORD
17C5: BRANCH, 17CD
17C9: DROP
17CB: FALSE
17CD: ?BRANCH, 17EF
17D1: DUP
17D3: NAME>
17D5: SWAP
17D7: C@
17D9: LIT, 0080
17DD: AND
17DF: ?BRANCH, 17E9
17E3: 1
17E5: BRANCH, 17EB
17E9: -1
17EB: BRANCH, 17F1
17EF: FALSE
17F1: EXIT
	Proc +WORD
17FE: HERE
1800: ROT
1802: ",
1804: SWAP
1806: DUP
1808: @
180A: ,
180C: !
180E: EXIT
	Proc -WORD
181B: ?WORD
181D: ?BRANCH, 1831
1821: N>LINK
1823: @
1825: W-LINK
1827: @
1829: !
182B: ptr 0FE6
182D: BRANCH, 1835
1831: DROP
1833: FALSE
1835: EXIT
	Proc (.")
1841: R@
1843: COUNT
1845: DUP
1847: 1+
1849: R>
184B: +
184D: >R
184F: TYPE
1851: EXIT
	Proc ERASE
185E: 0
1860: FILL
1862: EXIT
	Proc '
186B: BL
186D: WORD
186F: FIND
1871: 0=
1873: (ABORT") -? "
1879: EXIT
	Proc ['] , i
1884: '
1886: LITERAL
1888: EXIT
	Proc LITERAL , i
1897: STATE
1899: @
189B: ?BRANCH, 18A5
189F: COMPILE
18A1: LIT
18A3: ,
18A5: EXIT
	Proc DLITERAL , i
18B5: STATE
18B7: @
18B9: ?BRANCH, 18C5
18BD: COMPILE
18BF: DLIT
18C1: ,
18C3: ,
18C5: EXIT
	Proc [COMPILE] , i
18D6: '
18D8: ,
18DA: EXIT
	Proc CONVERT
18E9: 1+
18EB: DUP
18ED: >R
18EF: C@
18F1: BASE
18F3: @
18F5: DIGIT
18F7: ?BRANCH, 1921
18FB: SWAP
18FD: BASE
18FF: @
1901: *
1903: ROT
1905: BASE
1907: @
1909: UM*
190B: D+
190D: DPL
190F: @
1911: 1+
1913: ?BRANCH, 191B
1917: DPL
1919: 1+!
191B: R>
191D: BRANCH, 18E9
1921: R>
1923: EXIT
	Proc NUMBER
1931: 0
1933: 0
1935: ROT
1937: DUP
1939: 1+
193B: C@
193D: LIT, 002D
1941: =
1943: DUP
1945: >R
1947: -
1949: -1
194B: DPL
194D: !
194F: CONVERT
1951: DUP
1953: DUP
1955: C@
1957: BL
1959: <>
195B: SWAP
195D: 0=
195F: 0=
1961: AND
1963: ?BRANCH, 197E
1967: DUP
1969: C@
196B: LIT, 002E
196F: <>
1971: (ABORT")  -? "
1978: 0
197A: BRANCH, 194B
197E: DROP
1980: R>
1982: ?BRANCH, 1988
1986: DNEGATE
1988: EXIT
	Proc ?STACK
1996: SP@
1998: S0
199A: @
199C: SWAP
199E: U<
19A0: (ABORT") CEPAHE CTEKA"
19B3: EXIT
	Proc INTERPRET
19C4: LIT, 3404
19C8: @
19CA: ?DUP
19CC: ?BRANCH, 19D4
19D0: EXECUTE
19D2: EXIT
19D4: BL
19D6: WORD
19D8: FIND
19DA: DUP
19DC: ?BRANCH, 19F8
19E0: 0<
19E2: STATE
19E4: @
19E6: AND
19E8: ?BRANCH, 19F2
19EC: ,
19EE: BRANCH, 19F4
19F2: EXECUTE
19F4: BRANCH, 1A10
19F8: DROP
19FA: NUMBER
19FC: DPL
19FE: @
1A00: 1+
1A02: ?BRANCH, 1A0C
1A06: DLITERAL
1A08: BRANCH, 1A10
1A0C: DROP
1A0E: LITERAL
1A10: ?STACK
1A12: BRANCH, 19D4
1A16: EXIT
	Proc CREATE
1A24: BL
1A26: WORD
1A28: WARNING
1A2A: @
1A2C: ?BRANCH, 1A52
1A30: DUP
1A32: FIND
1A34: PRESS
1A36: ?BRANCH, 1A52
1A3A: DUP
1A3C: ID.
1A3E: (.")  E OPEEEH "
1A50: CR
1A52: CURRENT
1A54: @
1A56: +WORD
1A58: CFL
1A5A: ALLOT
1A5C: NEXT
1A5E: (!CODE)
1A60: EXIT
	Proc <BUILDS
1A6F: CREATE
1A71: EXIT
	Proc (DOES>)
1A80: R>
1A82: (!CODE)
1A84: EXIT
	Proc DOES> , i
1A91: COMPILE
1A93: (DOES>)
1A95: CALL
1A97: HERE
1A99: !CF
1A9B: CFL
1A9D: ALLOT
1A9F: EXIT
	Proc CONSTANT
1AAF: CREATE
1AB1: ,
1AB3: LIT, 0984
1AB7: (!CODE)
1AB9: EXIT
	Asm TOCODE
1AC4: POP H
1AC5: DCX H
1AC6: DCX H
1AC7: DCX H
1AC8: DCX H
1AC9: POP D
1ACA: MOV M,D
1ACB: DCX H
1ACC: MOV M,E
1ACD: JMP 02EF
	Asm @EXECUTE
1ADB: POP H
1ADC: MOV E,M
1ADD: INX H
1ADE: MOV D,M
1ADF: XCHG
1AE0: PCHL
	Proc QUAN
1AEB: 0
1AED: CONSTANT
1AEF: LIT, 1AC4
1AF3: HERE
1AF5: CFL
1AF7: ALLOT
1AF9: !CF
1AFB: EXIT
	Proc VECT
1B07: QUAN
1B09: LIT, 1ADB
1B0D: (!CODE)
1B0F: EXIT
	Proc TO , i
1B19: BL
1B1B: WORD
1B1D: FIND
1B1F: ?DUP
1B21: 0=
1B23: (ABORT")  -?"
1B29: 0<
1B2B: STATE
1B2D: @
1B2F: AND
1B31: ?BRANCH, 1B3F
1B35: >BODY
1B37: 2+
1B39: ,
1B3B: BRANCH, 1B45
1B3F: >BODY
1B41: 2+
1B43: EXECUTE
1B45: EXIT
	Proc VARIABLE
1B55: CREATE
1B57: 0
1B59: ,
1B5B: NEXT
1B5D: (!CODE)
1B5F: EXIT
	Proc VOCABULARY
1B71: CREATE
1B73: LIT, 0001
1B77: C,
1B79: LIT, 0080
1B7D: C,
1B7F: CURRENT
1B81: @
1B83: 2-
1B85: ,
1B87: HERE
1B89: VOC-LINK
1B8B: @
1B8D: ,
1B8F: VOC-LINK
1B91: !
1B93: (DOES>)
	Proc ptr 1B95
1B98: 2+
1B9A: CONTEXT
1B9C: !
1B9E: EXIT
	Proc STRING
1BAC: CREATE
1BAE: ",
1BB0: NEXT
1BB2: (!CODE)
1BB4: EXIT
	Proc !CSP
1BC0: SP@
1BC2: CSP
1BC4: !
1BC6: EXIT
	Proc ?CSP
1BD2: SP@
1BD4: CSP
1BD6: @
1BD8: XOR
1BDA: (ABORT") CO CTEKA O CSP"
1BEE: EXIT
	Proc ?EXEC
1BFB: STATE
1BFD: @
1BFF: (ABORT")  TPEET PEMA BypOlHEHiq"
1C1C: EXIT
	Proc ?COMP
1C29: STATE
1C2B: @
1C2D: 0=
1C2F: (ABORT")  TPEbuET PEviMA KOMpilqcii"
1C4C: EXIT
	Proc ?PAIRS
1C5A: XOR
1C5C: (ABORT")  HEAPHA CKOKA"
1C6F: EXIT
	Proc LEAVE
1C7C: RDROP
1C7E: RDROP
1C80: RDROP
1C82: EXIT
	Proc : , i
1C8B: ?EXEC
1C8D: !CSP
1C8F: CURRENT
1C91: @
1C93: CONTEXT
1C95: !
1C97: CREATE
1C99: SMUDGE
1C9B: ]
1C9D: CALL
1C9F: (!CODE)
1CA1: EXIT
	Proc ; , i
1CAA: ?COMP
1CAC: ?CSP
1CAE: COMPILE
1CB0: EXIT
1CB2: SMUDGE
1CB4: [
1CB6: EXIT
	Proc IMMEDIATE
1CC7: LATEST
1CC9: LIT, 0080
1CCD: TOGGLE
1CCF: EXIT
	Proc DEPTH
1CDC: SP@
1CDE: S0
1CE0: @
1CE2: SWAP
1CE4: -
1CE6: 2/
1CE8: 0
1CEA: MAX
1CEC: EXIT
	Proc C" , i
1CF6: BL
1CF8: WORD
1CFA: 1+
1CFC: C@
1CFE: LITERAL
1D00: EXIT
	Proc ." , i
1D0A: ?COMP
1D0C: COMPILE
1D0E: (.")
1D10: LIT, 0022
1D14: WORD
1D16: ",
1D18: EXIT
	Proc " , i
1D21: STATE
1D23: @
1D25: ?BRANCH, 1D39
1D29: COMPILE
1D2B: (")
1D2D: LIT, 0022
1D31: WORD
1D33: ",
1D35: BRANCH, 1D4B
1D39: LIT, 0022
1D3D: WORD
1D3F: PAD
1D41: OVER
1D43: C@
1D45: 1+
1D47: CMOVE
1D49: PAD
1D4B: EXIT
	Proc .( , i
1D55: LIT, 0029
1D59: WORD
1D5B: COUNT
1D5D: TYPE
1D5F: EXIT
	Proc >MARK
1D6C: HERE
1D6E: 0
1D70: ,
1D72: EXIT
	Proc >RESOLVE
1D82: HERE
1D84: SWAP
1D86: !
1D88: EXIT
	Proc <MARK
1D95: HERE
1D97: EXIT
	Proc <RESOLVE
1DA7: ,
1DA9: EXIT
	Proc IF , i
1DB3: ?COMP
1DB5: COMPILE
1DB7: ?BRANCH
1DB9: >MARK
1DBB: 2
1DBD: EXIT
	Proc IFNOT , i
1DCA: ?COMP
1DCC: COMPILE
1DCE: N?BRANCH
1DD0: >MARK
1DD2: 2
1DD4: EXIT
	Proc ELSE , i
1DE0: ?COMP
1DE2: 2
1DE4: ?PAIRS
1DE6: COMPILE
1DE8: BRANCH
1DEA: >MARK
1DEC: SWAP
1DEE: >RESOLVE
1DF0: 2
1DF2: EXIT
	Proc THEN , i
1DFE: ?COMP
1E00: 2
1E02: ?PAIRS
1E04: >RESOLVE
1E06: EXIT
	Proc BEGIN , i
1E13: ?COMP
1E15: <MARK
1E17: 1
1E19: EXIT
	Proc AGAIN , i
1E26: ?COMP
1E28: 1
1E2A: ?PAIRS
1E2C: COMPILE
1E2E: BRANCH
1E30: <RESOLVE
1E32: EXIT
	Proc DO , i
1E3C: ?COMP
1E3E: COMPILE
1E40: (DO)
1E42: >MARK
1E44: <MARK
1E46: LIT, 0003
1E4A: EXIT
	Proc ?DO , i
1E55: ?COMP
1E57: COMPILE
1E59: (?DO)
1E5B: >MARK
1E5D: <MARK
1E5F: LIT, 0003
1E63: EXIT
	Proc LOOP , i
1E6F: ?COMP
1E71: LIT, 0003
1E75: ?PAIRS
1E77: COMPILE
1E79: (LOOP)
1E7B: <RESOLVE
1E7D: >RESOLVE
1E7F: EXIT
	Proc +LOOP , i
1E8C: ?COMP
1E8E: LIT, 0003
1E92: ?PAIRS
1E94: COMPILE
1E96: (+LOOP)
1E98: <RESOLVE
1E9A: >RESOLVE
1E9C: EXIT
	Proc UNTIL , i
1EA9: ?COMP
1EAB: 1
1EAD: ?PAIRS
1EAF: COMPILE
1EB1: ?BRANCH
1EB3: <RESOLVE
1EB5: EXIT
	Proc WHILE , i
1EC2: ?COMP
1EC4: 1
1EC6: ?PAIRS
1EC8: 1
1ECA: IF
1ECC: 2+
1ECE: EXIT
	Proc REPEAT , i
1EDC: ?COMP
1EDE: >R
1EE0: >R
1EE2: AGAIN
1EE4: R>
1EE6: R>
1EE8: 2-
1EEA: THEN
1EEC: EXIT
	Proc >PRT
1EF8: DUP
1EFA: BL
1EFC: U<
1EFE: ?BRANCH, 1F08
1F02: DROP
1F04: LIT, 002E
1F08: EXIT
	Proc PTYPE
1F15: 0
1F17: (?DO), 1F29
1F1B: DUP
1F1D: C@
1F1F: >PRT
1F21: EMIT
1F23: 1+
1F25: (LOOP), 1F1B
1F29: DROP
1F2B: EXIT
	Proc BREAK
1F38: ?KEY
1F3A: ?BRANCH, 1F5D
1F3E: DROP
1F40: KEY
1F42: LIT, 0043
1F46: =
1F48: ?DUP
1F4A: ?BRANCH, 1F5D
1F4E: CR
1F50: (ABORT")  - PEPBAH"
1F5D: EXIT
	Proc DUMP
1F69: LIT, 0007
1F6D: +
1F6F: LIT, 0008
1F73: U/
1F75: 0
1F77: (?DO), 1FC1
1F7B: CR
1F7D: BREAK
1F7F: BASE
1F81: @
1F83: SWAP
1F85: HEX
1F87: DUP
1F89: LIT, 0004
1F8D: .0
1F8F: SPACE
1F91: SPACE
1F93: DUP
1F95: LIT, 0008
1F99: 0
1F9B: (DO), 1FAF
1F9F: DUP
1FA1: C@
1FA3: 2
1FA5: .0
1FA7: SPACE
1FA9: 1+
1FAB: (LOOP), 1F9F
1FAF: SWAP
1FB1: LIT, 0008
1FB5: PTYPE
1FB7: SWAP
1FB9: BASE
1FBB: !
1FBD: (LOOP), 1F7B
1FC1: DROP
1FC3: EXIT
	Proc TRAIL
1FD0: C/L
1FD2: >OUT
1FD4: @
1FD6: -
1FD8: EXIT
	Proc NLIST
1FE5: @
1FE7: DUP
1FE9: ?BRANCH, 202B
1FED: DUP
1FEF: COUNT
1FF1: LIT, 003F
1FF5: AND
1FF7: TRAIL
1FF9: OVER
1FFB: U<
1FFD: ?BRANCH, 2003
2001: CR
2003: DUP
2005: LIT, 0008
2009: +
200B: LIT, FFF8
200F: AND
2011: OVER
2013: -
2015: -ROT
2017: TYPE
2019: TRAIL
201B: MIN
201D: 0
201F: MAX
2021: SPACES
2023: N>LINK
2025: BREAK
2027: BRANCH, 1FE5
202B: DROP
202D: EXIT
	Proc WORDS
203A: CONTEXT
203C: @
203E: NLIST
2040: EXIT
	Proc VLIST
204D: WORDS
204F: EXIT
	Proc -- , i
2059: BLK
205B: @
205D: ?BRANCH, 2075
2061: >IN
2063: @
2065: LIT, 003F
2069: +
206B: LIT, FFC0
206F: AND
2071: BRANCH, 2079
2075: #TIB
2077: @
2079: >IN
207B: !
207D: EXIT
	Proc NOOP
2089: EXIT
	Proc S.
2093: DEPTH
2095: ?DUP
2097: ?BRANCH, 20B9
209B: 1+
209D: 1
209F: (DO), 20B5
20A3: S0
20A5: @
20A7: I
20A9: 2*
20AB: -
20AD: @
20AF: .
20B1: (LOOP), 20A3
20B5: BRANCH, 20C5
20B9: (.") CTEK CT"
20C5: EXIT
	Proc ( , i
20CE: LIT, 0029
20D2: WORD
20D4: DROP
20D6: EXIT
	Proc ?CURRENT
20E6: CURRENT
20E8: @
20EA: ?WORD
20EC: 0=
20EE: (ABORT")  - ?"
20F5: EXIT
	Proc SCRATCH , i
2104: ?EXEC
2106: BL
2108: WORD
210A: CURRENT
210C: @
210E: -WORD
2110: 0=
2112: (ABORT")  - ?"
2119: EXIT
	Proc JOIN , i
2125: ?EXEC
2127: BL
2129: WORD
212B: ?CURRENT
212D: N>LINK
212F: @
2131: LATEST
2133: N>LINK
2135: !
2137: EXIT
	Proc NEW , i
2142: ?EXEC
2144: BL
2146: WORD
2148: DUP
214A: ?CURRENT
214C: CURRENT
214E: @
2150: >R
2152: DUP
2154: N>LINK
2156: CURRENT
2158: !
215A: NAME>
215C: SWAP
215E: ?CURRENT
2160: NAME>
2162: LIT, 00C3
2166: OVER
2168: C!
216A: 1+
216C: !
216E: R>
2170: CURRENT
2172: !
2174: EXIT
	Proc FORGET
2182: BL
2184: WORD
2186: ?CURRENT
2188: DUP
218A: FENCE
218C: @
218E: U<
2190: (ABORT") BXO A FENCE"
21A1: >R
21A3: VOC-LINK
21A5: @
21A7: R@
21A9: OVER
21AB: U<
21AD: ?BRANCH, 21C1
21B1: ptr 3450
21B3: DEFINITIONS
21B5: @
21B7: DUP
21B9: VOC-LINK
21BB: !
21BD: BRANCH, 21A7
21C1: DUP
21C3: LIT, 0004
21C7: -
21C9: N>LINK
21CB: @
21CD: DUP
21CF: R@
21D1: U<
21D3: ?BRANCH, 21C9
21D7: OVER
21D9: 2-
21DB: !
21DD: @
21DF: ?DUP
21E1: 0=
21E3: ?BRANCH, 21C1
21E7: R>
21E9: H
21EB: !
21ED: EXIT
	Vocabulary ASSEMBLER, 296F, 3457
	Proc ptr 2204
2207: 2*
2209: 2*
220B: 2*
220D: EXIT
	Const H, 0004
	Const L, 0005
	Const A, 0007
	Const PSW, 0006
	Const D, 0002
	Const E, 0003
	Const B, 0000
	Const C, 0001
	Const M, 0006
	Const SP, 0006
	Proc ptr 226C
226F: C@
2271: C,
2273: EXIT
	Proc ptr 2275
2278: C@
227A: +
227C: C,
227E: EXIT
	Proc ptr 2280
2283: C@
2285: SWAP
2287: ptr 2204
2289: +
228B: C,
228D: EXIT
	Proc ptr 228F
2292: C@
2294: C,
2296: C,
2298: EXIT
	Proc ptr 229A
229D: C@
229F: C,
22A1: ,
22A3: EXIT
	Const ptr 22A5, 000A
	Const ptr 22AA, 3553
	Const ptr 22AF, 000A
	Const ptr 22B4, 357D
	Proc ptr 22B9
22BC: 0x000A
22BE: 0
22C0: (DO), 22F7
22C4: I
22C6: 2*
22C8: 2*
22CA: 0x3553
22CC: +
22CE: @
22D0: (ABORT") ECT HEPAPEEHHA CCKA BEPE"
22F3: (LOOP), 22C4
22F7: EXIT
	Proc ptr 22F9
22FC: 0x3553
22FE: 0x000A
2300: 2*
2302: 2*
2304: ERASE
2306: 0x357D
2308: 0x000A
230A: 1+
230C: 2*
230E: ERASE
2310: EXIT
	Proc ptr 2312
2315: 0x000A
2317: 0
2319: (DO), 2347
231D: I
231F: 2*
2321: 2*
2323: 0x3553
2325: +
2327: 2DUP
2329: @
232B: =
232D: ?BRANCH, 2341
2331: HERE
2333: OVER
2335: 2+
2337: @
2339: +!
233B: 0!
233D: BRANCH, 2343
2341: DROP
2343: (LOOP), 231D
2347: EXIT
	Proc ptr 2349
234C: 0x000A
234E: 1+
2350: 0
2352: (DO), 23A8
2356: 0x000A
2358: I
235A: =
235C: (ABORT") CKOM MHOO CCOK BEPE"
237A: I
237C: 2*
237E: 2*
2380: 0x3553
2382: +
2384: DUP
2386: @
2388: 0=
238A: ?BRANCH, 23A2
238E: 2DUP
2390: !
2392: HERE
2394: 1+
2396: SWAP
2398: 2+
239A: !
239C: LEAVE
239E: BRANCH, 23A4
23A2: DROP
23A4: (LOOP), 2356
23A8: EXIT
	Proc ptr 23AA
23AD: CREATE
23AF: ,
23B1: (DOES>)
	Proc ptr 23B3
23B6: @
23B8: ptr 2312
23BA: HERE
23BC: SWAP
23BE: 2*
23C0: 0x357D
23C2: +
23C4: !
23C6: EXIT
	Proc ptr 23C8
23CB: CREATE
23CD: ,
23CF: (DOES>)
	Proc ptr 23D1
23D4: @
23D6: DUP
23D8: 2*
23DA: 0x357D
23DC: +
23DE: @
23E0: SWAP
23E2: OVER
23E4: 0=
23E6: ?BRANCH, 23EC
23EA: ptr 2349
23EC: DROP
23EE: EXIT
	Asm 1#:
23F6: CALL 23B3
23F9: LXI B,0300
	Asm 2#:
2401: CALL 23B3
2404: STAX B
2405: NOP
	Asm 3#:
240C: CALL 23B3
240F: INX B
2410: NOP
	Asm 4#:
2417: CALL 23B3
241A: INR B
241B: NOP
	Asm 5#:
2422: CALL 23B3
2425: DCR B
2426: NOP
	Asm 6#:
242D: CALL 23B3
2430: MVI B,00
	Asm 7#:
2438: CALL 23B3
243B: RLC
243C: NOP
	Asm 8#:
2443: CALL 23B3
2446: 
2447: NOP
	Asm 9#:
244E: CALL 23B3
2451: DAD B
2452: NOP
	Asm 10#:
245A: CALL 23B3
245D: LDAX B
245E: NOP
	Asm 1#
2464: CALL 23D1
2467: LXI B,0200
	Asm 2#
246E: CALL 23D1
2471: STAX B
2472: NOP
	Asm 3#
2478: CALL 23D1
247B: INX B
247C: NOP
	Asm 4#
2482: CALL 23D1
2485: INR B
2486: NOP
	Asm 5#
248C: CALL 23D1
248F: DCR B
2490: NOP
	Asm 6#
2496: CALL 23D1
2499: MVI B,00
	Asm 7#
24A0: CALL 23D1
24A3: RLC
24A4: NOP
	Asm 8#
24AA: CALL 23D1
24AD: 
24AE: NOP
	Asm 9#
24B4: CALL 23D1
24B7: DAD B
24B8: NOP
	Asm 10#
24BF: CALL 23D1
24C2: LDAX B
24C3: NOP
	Asm NOP
24CA: CALL 226C
24CD: NOP
	Asm HLT
24D4: CALL 226C
24D7: HLT
	Asm DI
24DD: CALL 226C
24E0: DI
	Asm EI
24E6: CALL 226C
24E9: EI
	Asm RLC
24F0: CALL 226C
24F3: RLC
	Asm RRC
24FA: CALL 226C
24FD: RRC
	Asm RAL
2504: CALL 226C
2507: RAL
	Asm RAR
250E: CALL 226C
2511: RAR
	Asm PCHL
2519: CALL 226C
251C: PCHL
	Asm SPHL
2524: CALL 226C
2527: SPHL
	Asm XTHL
252F: CALL 226C
2532: XTHL
	Asm XCHG
253A: CALL 226C
253D: XCHG
	Asm DAA
2544: CALL 226C
2547: DAA
	Asm CMA
254E: CALL 226C
2551: CMA
	Asm STC
2558: CALL 226C
255B: STC
	Asm CMC
2562: CALL 226C
2565: CMC
	Asm ADD
256C: CALL 2275
256F: ADD B
	Asm ADC
2576: CALL 2275
2579: ADC B
	Asm SUB
2580: CALL 2275
2583: SUB B
	Asm SBB
258A: CALL 2275
258D: SBB B
	Asm ANA
2594: CALL 2275
2597: ANA B
	Asm XRA
259E: CALL 2275
25A1: XRA B
	Asm ORA
25A8: CALL 2275
25AB: ORA B
	Asm CMP
25B2: CALL 2275
25B5: CMP B
	Asm DAD
25BC: CALL 2280
25BF: DAD B
	Asm POP
25C6: CALL 2280
25C9: POP B
	Asm PUSH
25D1: CALL 2280
25D4: PUSH B
	Asm STAX
25DC: CALL 2280
25DF: STAX B
	Asm LDAX
25E7: CALL 2280
25EA: LDAX B
	Asm INR
25F1: CALL 2280
25F4: INR B
	Asm DCR
25FB: CALL 2280
25FE: DCR B
	Asm INX
2605: CALL 2280
2608: INX B
	Asm DCX
260F: CALL 2280
2612: DCX B
	Asm RST
2619: CALL 2280
261C: RST 0
	Asm OUT
2623: CALL 228F
2626: OUT 02
	Asm IN
262C: CALL 228F
262F: IN 03
	Asm ADI
2636: CALL 228F
2639: ADI 03
	Asm ACI
2640: CALL 228F
2643: ACI 03
	Asm SUI
264A: CALL 228F
264D: SUI 03
	Asm SBI
2654: CALL 228F
2657: SBI 03
	Asm ANI
265E: CALL 228F
2661: ANI 03
	Asm XRI
2668: CALL 228F
266B: XRI 03
	Asm ORI
2672: CALL 228F
2675: ORI 03
	Asm CPI
267C: CALL 228F
267F: CPI 04
	Asm SHLD
2687: CALL 229A
268A: SHLD 4C04
	Asm LHLD
2692: CALL 229A
2695: LHLD 5303
	Asm STA
269C: CALL 229A
269F: STA 4C03
	Asm LDA
26A6: CALL 229A
26A9: LDA 4303
	Asm CNZ
26B0: CALL 229A
26B3: CNZ 4302
	Asm CZ
26B9: CALL 229A
26BC: CZ 4303
	Asm CNC
26C3: CALL 229A
26C6: CNC 4302
	Asm CC
26CC: CALL 229A
26CF: CC 4303
	Asm CPO
26D6: CALL 229A
26D9: CPO 4303
	Asm CPE
26E0: CALL 229A
26E3: CPE 4302
	Asm CP
26E9: CALL 229A
26EC: CP 4302
	Asm CM
26F2: CALL 229A
26F5: CM 4304
	Asm CALL
26FD: CALL 229A
2700: CALL 5203
	Asm RET
2707: CALL 226C
270A: RET
	Asm JMP
2711: CALL 229A
2714: JMP 5203
	Asm RNZ
271B: CALL 226C
271E: RNZ
	Asm RZ
2724: CALL 226C
2727: RZ
	Asm RNC
272E: CALL 226C
2731: RNC
	Asm RC
2737: CALL 226C
273A: RC
	Asm RPO
2741: CALL 226C
2744: RPO
	Asm RPE
274B: CALL 226C
274E: RPE
	Asm RP
2754: CALL 226C
2757: RP
	Asm RM
275D: CALL 226C
2760: RM
	Asm JNZ
2767: CALL 229A
276A: JNZ 4A02
	Asm JZ
2770: CALL 229A
2773: JZ 4A03
	Asm JNC
277A: CALL 229A
277D: JNC 4A02
	Asm JC
2783: CALL 229A
2786: JC 4A03
	Asm JPO
278D: CALL 229A
2790: JPO 4A03
	Asm JPE
2797: CALL 229A
279A: JPE 4A02
	Asm JP
27A0: CALL 229A
27A3: JP 4A02
	Asm JM
27A9: CALL 229A
27AC: JM 4D03
	Proc MOV
27B6: SWAP
27B8: ptr 2204
27BA: LIT, 0040
27BE: +
27C0: +
27C2: C,
27C4: EXIT
	Proc MVI
27CF: SWAP
27D1: ptr 2204
27D3: LIT, 0006
27D7: +
27D9: C,
27DB: C,
27DD: EXIT
	Proc LXI
27E8: SWAP
27EA: ptr 2204
27EC: 1
27EE: +
27F0: C,
27F2: ,
27F4: EXIT
	Const 0=, 00C2
	Const CS, 00D2
	Const PE, 00E2
	Const 0<, 00F2
	Proc NOT
2827: LIT, 0008
282B: +
282D: EXIT
	Proc THEN
2839: 2
283B: ?PAIRS
283D: HERE
283F: SWAP
2841: !
2843: EXIT
	Proc IF
284D: C,
284F: HERE
2851: 0
2853: ,
2855: 2
2857: EXIT
	Proc ELSE
2863: 2
2865: ?PAIRS
2867: LIT, 00C3
286B: IF
286D: ROT
286F: SWAP
2871: THEN
2873: 2
2875: EXIT
	Proc BEGIN
2882: HERE
2884: 1
2886: EXIT
	Proc UNTIL
2893: SWAP
2895: 1
2897: ?PAIRS
2899: C,
289B: ,
289D: EXIT
	Proc AGAIN
28AA: 1
28AC: ?PAIRS
28AE: JMP
28B0: EXIT
	Proc WHILE
28BD: IF
28BF: 2
28C1: +
28C3: EXIT
	Proc REPEAT
28D1: >R
28D3: >R
28D5: AGAIN
28D7: R>
28D9: R>
28DB: 2
28DD: -
28DF: THEN
28E1: EXIT
	Proc BEG-ASM
28F0: ptr 22F9
28F2: ASSEMBLER
28F4: !CSP
28F6: EXIT
	Proc END-ASM
2905: ptr 22B9
2907: ?CSP
2909: CURRENT
290B: @
290D: CONTEXT
290F: !
2911: EXIT
	Proc CODE
291D: CREATE
291F: SMUDGE
2921: CFL
2923: NEGATE
2925: ALLOT
2927: BEG-ASM
2929: EXIT
	Proc ;CODE , i
2936: ?COMP
2938: COMPILE
293A: (DOES>)
293C: BEG-ASM
293E: [
2940: EXIT
	Proc END-CODE
2950: SMUDGE
2952: END-ASM
2954: EXIT
	Proc LABEL
2961: VARIABLE
2963: LIT, FFFE
2967: ALLOT
2969: SMUDGE
296B: BEG-ASM
296D: EXIT
	Proc NEXT;
297A: NEXT
297C: JMP
297E: END-CODE
2980: EXIT
	Const #BLK, 3595
	Const F-BLK, 3597
	Const OFFSET, 3599
	Proc (R/W)
29B4: >R
29B6: OFFSET
29B8: @
29BA: -
29BC: DUP
29BE: 0<
29C0: OVER
29C2: #BLK
29C4: @
29C6: <
29C8: 0=
29CA: OR
29CC: ?BRANCH, 29F1
29D0: OFFSET
29D2: @
29D4: +
29D6: CR
29D8: .
29DA: (.") OKA HET B AMT"
29EF: ABORT
29F1: B/BUF
29F3: *
29F5: F-BLK
29F7: @
29F9: +
29FB: R>
29FD: ?BRANCH, 2A03
2A01: SWAP
2A03: B/BUF
2A05: CMOVE
2A07: EXIT
	Proc FINIT
2A14: LIT, 2F5A
2A18: UR/W
2A1A: !
2A1C: 1
2A1E: OFFSET
2A20: !
2A22: LIT, 0156
2A26: @
2A28: #BLK
2A2A: !
2A2C: LIT, 0158
2A30: @
2A32: F-BLK
2A34: !
2A36: EXIT
	Proc STFILE
2A44: EXIT
	Const DBH, 0004
	Const DBT, 0002
	Const B/BUF, 0400
	Const HDBT, 0406
	Const #BUFF1, 359B
	Const FIRST1, 359D
	Const LIMIT1, 359F
	Const UR/W, 35A1
	Const PREV, 35A3
	Const USE, 35A5
	Const BB-CNT, 35A7
	Const SCR, 35A9
	Const LCNT, 35AB
	Proc #BUFF
2AF2: #BUFF1
2AF4: @
2AF6: EXIT
	Proc FIRST
2B03: FIRST1
2B05: @
2B07: EXIT
	Proc LIMIT
2B14: LIMIT1
2B16: @
2B18: EXIT
	Proc DBC
2B23: 2+
2B25: EXIT
	Proc R/W
2B30: UR/W
2B32: @
2B34: EXECUTE
2B36: EXIT
	Proc EMPTY-BUFFERS
2B4B: FIRST
2B4D: LIMIT
2B4F: OVER
2B51: -
2B53: ERASE
2B55: LIMIT
2B57: FIRST
2B59: (DO), 2B6B
2B5D: LIT, 7FFF
2B61: I
2B63: !
2B65: HDBT
2B67: (+LOOP), 2B5D
2B6B: 1
2B6D: BB-CNT
2B6F: !
2B71: FIRST
2B73: DUP
2B75: PREV
2B77: !
2B79: USE
2B7B: !
2B7D: EXIT
	Proc SAVE-BUFFERS
2B91: LIMIT
2B93: FIRST
2B95: (DO), 2BC9
2B99: I
2B9B: @
2B9D: LIT, 8000
2BA1: AND
2BA3: ?BRANCH, 2BC3
2BA7: I
2BA9: @
2BAB: LIT, 7FFF
2BAF: AND
2BB1: DUP
2BB3: I
2BB5: !
2BB7: I
2BB9: DBH
2BBB: +
2BBD: SWAP
2BBF: 0
2BC1: R/W
2BC3: HDBT
2BC5: (+LOOP), 2B99
2BC9: SAVE-BUF1
	Proc FLUSH
2BD6: SAVE-BUFFERS
2BD8: EMPTY-BUFFERS
2BDA: EXIT
	Proc UPDATE
2BE8: PREV
2BEA: @
2BEC: DUP
2BEE: @
2BF0: LIT, 8000
2BF4: OR
2BF6: SWAP
2BF8: !
2BFA: EXIT
	Proc ptr 2BFC
2BFF: HDBT
2C01: +
2C03: DUP
2C05: LIMIT
2C07: =
2C09: ?BRANCH, 2C11
2C0D: DROP
2C0F: FIRST
2C11: DUP
2C13: PREV
2C15: @
2C17: =
2C19: 0=
2C1B: EXIT
	Proc ptr 2C1D
2C20: FIRST
2C22: USE
2C24: !
2C26: PREV
2C28: @
2C2A: 2DUP
2C2C: @
2C2E: LIT, 7FFF
2C32: AND
2C34: =
2C36: ?BRANCH, 2C40
2C3A: PRESS
2C3C: TRUE
2C3E: EXIT
2C40: DUP
2C42: DBC
2C44: @
2C46: USE
2C48: @
2C4A: DBC
2C4C: @
2C4E: U<
2C50: ?BRANCH, 2C5A
2C54: DUP
2C56: USE
2C58: !
2C5A: ptr 2BFC
2C5C: 0=
2C5E: ?BRANCH, 2C2A
2C62: 2DROP
2C64: FALSE
2C66: EXIT
	Proc ptr 2C68
2C6B: BB-CNT
2C6D: @
2C6F: PREV
2C71: @
2C73: DBC
2C75: !
2C77: BB-CNT
2C79: 1+!
2C7B: EXIT
	Proc ptr 2C7D
2C80: DUP
2C82: @
2C84: 0<
2C86: ?BRANCH, 2CA8
2C8A: DUP
2C8C: @
2C8E: LIT, 7FFF
2C92: AND
2C94: OVER
2C96: DBH
2C98: +
2C9A: OVER
2C9C: 0
2C9E: R/W
2CA0: SWAP
2CA2: !
2CA4: BRANCH, 2CAA
2CA8: DROP
2CAA: EXIT
	Proc ptr 2CAC
2CAF: DBH
2CB1: -
2CB3: ptr 2BFC
2CB5: SWAP
2CB7: DBH
2CB9: +
2CBB: SWAP
2CBD: EXIT
	Proc BUFFER
2CCB: DUP
2CCD: ptr 2C1D
2CCF: ?BRANCH, 2CD9
2CD3: PRESS
2CD5: BRANCH, 2CE7
2CD9: USE
2CDB: @
2CDD: DUP
2CDF: ptr 2C7D
2CE1: SWAP
2CE3: OVER
2CE5: !
2CE7: DUP
2CE9: PREV
2CEB: !
2CED: ptr 2C68
2CEF: DBH
2CF1: +
2CF3: EXIT
	Proc BLOCK
2D00: DUP
2D02: ptr 2C1D
2D04: ?BRANCH, 2D0E
2D08: PRESS
2D0A: BRANCH, 2D2A
2D0E: USE
2D10: @
2D12: DUP
2D14: ptr 2C7D
2D16: SWAP
2D18: OVER
2D1A: !
2D1C: DUP
2D1E: DBH
2D20: +
2D22: OVER
2D24: @
2D26: 1
2D28: R/W
2D2A: DUP
2D2C: PREV
2D2E: !
2D30: ptr 2C68
2D32: DBH
2D34: +
2D36: EXIT
	Proc LIST
2D42: DUP
2D44: SCR
2D46: !
2D48: DUP
2D4A: CR
2D4C: (.")  KPAH # "
2D58: .
2D5A: BLOCK
2D5C: LIT, 0010
2D60: 0
2D62: (DO), 2D86
2D66: CR
2D68: I
2D6A: 2
2D6C: .R
2D6E: SPACE
2D70: SPACE
2D72: DUP
2D74: LIT, 0040
2D78: PTYPE
2D7A: LIT, 0040
2D7E: +
2D80: BREAK
2D82: (LOOP), 2D66
2D86: DROP
2D88: EXIT
	Proc LOAD
2D94: ?DUP
2D96: N?BRANCH, 2DB1
2D9A: CR
2D9C: (.") APKA OKA 0"
2DAF: ABORT
2DB1: #TIB
2DB3: @
2DB5: >R
2DB7: >IN
2DB9: @
2DBB: >R
2DBD: INB
2DBF: @
2DC1: >R
2DC3: BLK
2DC5: @
2DC7: >R
2DC9: BLK
2DCB: !
2DCD: >IN
2DCF: 0!
2DD1: B/BUF
2DD3: #TIB
2DD5: !
2DD7: INTERPRET
2DD9: R>
2DDB: BLK
2DDD: !
2DDF: R>
2DE1: INB
2DE3: !
2DE5: R>
2DE7: >IN
2DE9: !
2DEB: R>
2DED: #TIB
2DEF: !
2DF1: EXIT
	Proc --> , i
2DFC: BLK
2DFE: 1+!
2E00: >IN
2E02: 0!
2E04: EXIT
	Proc THRU
2E10: 1+
2E12: SWAP
2E14: (DO), 2E20
2E18: I
2E1A: LOAD
2E1C: (LOOP), 2E18
2E20: EXIT
	Proc COL
2E2B: LIT, FFB2
2E2F: C!
2E31: EXIT
	Proc FON
2E3C: LIT, FFB1
2E40: C!
2E42: EXIT
	Proc W32
2E4D: LIT, 001B
2E51: EMIT
2E53: LIT, 0033
2E57: EMIT
2E59: EXIT
	Proc W64
2E64: LIT, 001B
2E68: EMIT
2E6A: LIT, 0032
2E6E: EMIT
2E70: EXIT
	Proc NEGATIV
2E7F: LIT, 001B
2E83: EMIT
2E85: LIT, 0036
2E89: EMIT
2E8B: EXIT
	Proc POZITIV
2E9A: LIT, 001B
2E9E: EMIT
2EA0: LIT, 0037
2EA4: EMIT
2EA6: EXIT
	Proc +CUR
2EB2: LIT, 001B
2EB6: EMIT
2EB8: LIT, 003A
2EBC: EMIT
2EBE: EXIT
	Proc -CUR
2ECA: LIT, 001B
2ECE: EMIT
2ED0: LIT, 003B
2ED4: EMIT
2ED6: EXIT
	Const BLK0, 002B
	Asm ptr 2EE4
2EE4: CALL 1AC4
	Asm DIO
2EED: PUSH B
2EEE: CALL E008
2EF1: POP B
2EF2: JMP 02EF
	Proc IO
2EFD: BLK0
2EFF: +
2F01: LIT, 000A
2F05: /MOD
2F07: 2*
2F09: SWAP
2F0B: LIT, 0005
2F0F: /MOD
2F11: ROT
2F13: +
2F15: LIT, E004
2F19: C!
2F1B: LIT, 0008
2F1F: *
2F21: 1+
2F23: SWAP
2F25: LIT, 0008
2F29: 0
2F2B: (DO), 2F4D
2F2F: 2DUP
2F31: LIT, E006
2F35: !
2F37: I
2F39: +
2F3B: LIT, E005
2F3F: C!
2F41: DIO
2F43: LIT, 0080
2F47: +
2F49: (LOOP), 2F2F
2F4D: 2DROP
2F4F: EXIT
	Proc (R/W1)
2F5D: 0=
2F5F: ?BRANCH, 2F6D
2F63: UPDATE
2F65: LIT, 0006
2F69: BRANCH, 2F71
2F6D: LIT, 0004
2F71: LIT, E002
2F75: C!
2F77: IO
2F79: EXIT
	Proc BEL
2F84: LIT, 0007
2F88: EMIT
2F8A: EXIT
	Proc DELAYS
2F98: 0
2F9A: (DO), 2FA2
2F9E: (LOOP), 2F9E
2FA2: EXIT
	Proc COPY
2FAE: SWAP
2FB0: BLOCK
2FB2: LIT, 0004
2FB6: -
2FB8: !
2FBA: UPDATE
2FBC: EXIT
	Proc SAVE-BUF1
2FCD: RDROP
2FCF: LIT, E005
2FD3: C@
2FD5: LIT, 0008
2FD9: /
2FDB: 1-
2FDD: LIT, E004
2FE1: C@
2FE3: LIT, 0005
2FE7: *
2FE9: +
2FEB: BLK0
2FED: -
2FEF: 1+
2FF1: DUP
2FF3: BUFFER
2FF5: SWAP
2FF7: 1
2FF9: (R/W1)
2FFB: EXIT
	Proc LOADBIN
300A: #TIB
300C: @
300E: >R
3010: >IN
3012: @
3014: >R
3016: INB
3018: @
301A: >R
301C: BLK
301E: @
3020: >R
3022: DUP
3024: >R
3026: BLK
3028: !
302A: >IN
302C: 0!
302E: B/BUF
3030: #TIB
3032: !
3034: BL
3036: WORD
3038: NUMBER
303A: DROP
303C: DUP
303E: H
3040: @
3042: <>
3044: (ABORT")   H"
3052: BL
3054: WORD
3056: NUMBER
3058: DROP
305A: BL
305C: WORD
305E: NUMBER
3060: DROP
3062: -ROT
3064: SWAP
3066: 2DUP
3068: -
306A: LIT, 03C0
306E: MIN
3070: 2DUP
3072: +
3074: -ROT
3076: R@
3078: BLOCK
307A: LIT, 0040
307E: +
3080: -ROT
3082: CMOVE
3084: 2DUP
3086: <>
3088: ?BRANCH, 30AE
308C: 2DUP
308E: -
3090: LIT, 0400
3094: MIN
3096: 2DUP
3098: +
309A: -ROT
309C: R>
309E: 1+
30A0: DUP
30A2: >R
30A4: BLOCK
30A6: -ROT
30A8: CMOVE
30AA: BRANCH, 3084
30AE: RDROP
30B0: DROP
30B2: H
30B4: !
30B6: CURRENT
30B8: @
30BA: !
30BC: R>
30BE: BLK
30C0: !
30C2: R>
30C4: INB
30C6: !
30C8: R>
30CA: >IN
30CC: !
30CE: R>
30D0: #TIB
30D2: !
30D4: EXIT
	Proc CASE , i
30E0: ?COMP
30E2: CSP
30E4: @
30E6: !CSP
30E8: LIT, 0004
30EC: EXIT
	Proc (OF)
30F8: OVER
30FA: =
30FC: ?BRANCH, 310A
3100: DROP
3102: R>
3104: 2+
3106: BRANCH, 310E
310A: R>
310C: @
310E: >R
3110: EXIT
	Proc (<OF)
311D: OVER
311F: <
3121: ?BRANCH, 312F
3125: DROP
3127: R>
3129: 2+
312B: BRANCH, 3133
312F: R>
3131: @
3133: >R
3135: EXIT
	Proc (>OF)
3142: OVER
3144: >
3146: ?BRANCH, 3154
314A: DROP
314C: R>
314E: 2+
3150: BRANCH, 3158
3154: R>
3156: @
3158: >R
315A: EXIT
	Proc (<OF<)
3168: >R
316A: OVER
316C: <
316E: OVER
3170: R>
3172: <
3174: AND
3176: ?BRANCH, 3184
317A: DROP
317C: R>
317E: 2+
3180: BRANCH, 3188
3184: R>
3186: @
3188: >R
318A: EXIT
	Proc OF , i
3194: LIT, 0004
3198: ?PAIRS
319A: COMPILE
319C: (OF)
319E: >MARK
31A0: 2
31A2: LIT, 0005
31A6: EXIT
	Proc <OF , i
31B1: LIT, 0004
31B5: ?PAIRS
31B7: COMPILE
31B9: (<OF)
31BB: >MARK
31BD: 2
31BF: LIT, 0005
31C3: EXIT
	Proc >OF , i
31CE: LIT, 0004
31D2: ?PAIRS
31D4: COMPILE
31D6: (>OF)
31D8: >MARK
31DA: 2
31DC: LIT, 0005
31E0: EXIT
	Proc <OF< , i
31EC: LIT, 0004
31F0: ?PAIRS
31F2: COMPILE
31F4: (<OF<)
31F6: >MARK
31F8: 2
31FA: LIT, 0005
31FE: EXIT
	Proc ENDOF , i
320B: LIT, 0005
320F: ?PAIRS
3211: ELSE
3213: LIT, 0004
3217: EXIT
	Proc ENDCASE , i
3226: LIT, 0004
322A: ?PAIRS
322C: COMPILE
322E: DROP
3230: SP@
3232: CSP
3234: @
3236: =
3238: 0=
323A: ?BRANCH, 3244
323E: THEN
3240: BRANCH, 3230
3244: CSP
3246: !
3248: EXIT
	Asm ptr 324A
324A: NOP
324B: NOP
324C: NOP
324D: NOP
324E: NOP
324F: NOP
...
3800: DI
3801: LXI SP,6FFF
3804: LXI H,3900
3807: LXI D,E000
380A: LXI B,2000
380D: MOV A,M
380E: STAX D
380F: INX H
3810: INX D
3811: DCX B
3812: MOV A,B
3813: ORA C
3814: JNZ 380D
3817: XRA A
3818: OUT 10
381A: MVI A,C3
381C: STA 0000
381F: LXI H,0103
3822: SHLD 0001
3825: LXI H,0103
3828: SHLD 0101
382B: CALL F800
382E: MVI A,20
3830: STA 2000
3833: CALL E008
3836: LXI H,9C00
3839: LXI D,83F3
383C: LXI B,0400
383F: MOV A,M
3840: STAX D
3841: INX H
3842: INX D
3843: DCX B
3844: MOV A,B
3845: ORA C
3846: JNZ 383F
3849: EI
384A: JMP 0106
