.org $000 ; Addr, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F, Comment ; $000 db $00, $A9, $00, $AB, $00, $AD, $00, $AF, $00, $B1, $00, $B3, $8F, $31, $50, $EC ; First instruction: OQC ; $010 db $00, $FC, $B5, $DC, $F0, $CC, $10, $C3, $DE, $CA, $FC, $EC, $00, $FC, $C5, $DC ; Initialize F0-FF ; $020 db $10, $CC, $20, $C3, $DE, $CA, $FC, $31, $70, $AC, $00, $BC, $00, $06, $EA, $04 ; Initialize 10-2F ; $030 db $C2, $7A, $68, $E7, $60, $E6, $D2, $6A, $C2, $6A, $D2, $7A, $A2, $67, $6B, $ED ; Find limits of ROM ; $040 db $C8, $EA, $D8, $EB, $C9, $12, $D9, $13, $06, $EA, $04, $C2, $7A, $68, $E7, $60 ; ; $050 db $E6, $D2, $6A, $C2, $6A, $D2, $7A, $A2, $67, $EB, $ED, $A9, $22, $B9, $23, $00 ; Find limits of RAM ; $060 db $EA, $A9, $20, $B9, $21, $A9, $1A, $B9, $1B, $80, $EC, $C2, $7C, $80, $EC, $C2 ; Find starting address ; $070 db $6C, $A0, $E6, $EB, $04, $CC, $0F, $DC, $FE, $31, $50, $8C, $FF, $9C, $FD, $C2 ; Get baud rate switches ; $080 db $78, $8D, $0F, $84, $8C, $00, $9C, $E5, $02, $97, $16, $E8, $00, $C2, $78, $79 ; Initialize shared-bus ; $090 db $F4, $E6, $F1, $03, $E4, $20, $FE, $E4, $21, $FF, $E4, $22, $7A, $E4, $23, $7B ; Initialize stack adds ; $0A0 db $E6, $50, $01, $E6, $51, $A3, $9F, $30, $50, $30, $04, $30, $06, $30, $08, $30 ; Initialize NEXT vector ; $0B0 db $0A, $30, $0C, $30, $0E, $20, $00, $F0, $03, $10, $0F, $FF, $41, $B2, $2B, $10 ; Constants for F0-FF ; $0C0 db $00, $00, $50, $1F, $00, $00, $00, $10, $00, $00, $00, $00, $00, $00, $10, $00 ; Constants for 10-2F ; $0D0 db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $03, $00, $00, $00, $2c, $00 ; ; $000 db $2C, $0F, $6E, $0F, $FF, $80, $01, $02, $04, $08, $10, $AF, $40, $31, $50, $50 ; Baud rate table ; $0F0 db $EE, $50, $EF, $50, $E8, $50, $E9, $30, $5E, $31, $50, $50, $EE, $50, $EF, $50 ; Stack routines: POP8 ; $100 db $EA, $50, $EB, $8B, $EE, $31, $50, $50, $EE, $50, $EF, $50, $EC, $50, $ED, $8B ; POPA8 POPCA8 ; $110 db $EE, $31, $50, $50, $EE, $50, $EF, $70, $E9, $70, $E8, $30, $5E, $31, $50, $50 ; PUSH8 PUSHA8 ; $120 db $EE, $50, $EF, $70, $EB, $70, $EA, $8B, $EE, $31, $50, $50, $EE, $50, $EF, $70 ; PUSHCA8 ; $130 db $ED, $70, $EC, $8B, $EE, $31, $50, $50, $EE, $50, $EF, $68, $7A, $78, $7B, $C2 ; RSTACK > STACK ; $140 db $86, $A0, $E6, $C2, $96, $A0, $E6, $79, $7B, $69, $7A, $8B, $CA, $31, $50, $50 ; STACK > RSTACK ; $150 db $EE, $50, $EF, $50, $E8, $50, $E9, $68, $7A, $78, $7B, $80, $E6, $D2, $96, $80 ; ; $160 db $E6, $D2, $86, $69, $7A, $79, $7B, $30, $EE, $31, $50, $A8, $7C, $B8, $7D, $C2 ; Load next vector to W8 ; $170 db $8A, $A0, $EA, $C2, $9A, $A0, $EA, $A9, $7C, $B9, $7D, $AF, $76, $FA, $10, $6B ; Serial output ; $180 db $FB, $56, $FA, $EF, $99, $F0, $AF, $76, $FA, $08, $6B, $FB, $56, $FA, $F7, $98 ; Serial input ; $190 db $F0, $AF, $31, $50, $50, $E4, $50, $E5, $D6, $01, $35, $D6, $01, $4D, $D6, $01 ; Copy RSTACK to STACK ; $1A0 db $11, $30, $E4, $D6, $01, $69, $C2, $A8, $A0, $E8, $C2, $B8, $A0, $E8, $89, $7E ; Execute next vector ; $1B0 db $99, $7F, $30, $EA, $D6, $00, $ED, $8B, $ED, $70, $7D, $70, $7C, $D6, $01, $4D ; Execute word on stack ; $1C0 db $E4, $7E, $7C, $E4, $7F, $7D, $30, $50, $D6, $01, $35, $50, $7C, $50, $7D, $30 ; Code for 'I: " and *I; '' ; $1D0 db $50, $31, $50, $D6, $01, $87, $B0, $E8, $56, $E9, $7F, $D6, $01, $11, $30, $50 ; Code for KEY ; $001 db $D6, $00, $ED, $D6, $01, $7C, $30, $50, $D6, $00, $F9, $42, $AA, $6B, $08, $D2 ; Code for EMIT and 'I!" ; $1F0 db $8A, $A0, $EA, $D2, $9A, $30, $50, $F5, $E8, $5B, $20, $5B, $F5, $E9, $5B, $30 ; ; $200 db $50, $D6, $00, $F9, $42, $AA, $6B, $F4, $8B, $E9, $D6, $00, $ED, $42, $88, $6B ; Code for C! and '*@*' ; $210 db $0C, $C2, $A8, $A0, $E8, $C2, $B8, $70, $EB, $70, $EA, $30, $50, $E3, $A9, $9E ; ; $220 db $E3, $B9, $8B, $F3, $D6, $00, $ED, $B0, $EA, $42, $88, $6B, $F3, $8B, $E6, $D6 ; Code for C@ and >R ; $230 db $01, $4D, $30, $50, $D6, $01, $35, $30, $50, $D6, $01, $69, $D6, $01, $11, $30 ; Code for R> No. runner ; $240 db $50, $D6, $01, $69, $80, $7C, $80, $7C, $04, $E9, $7D, $14, $E8, $7C, $30, $50 ; Jump relative ; $250 db $D6, $00, $ED, $42, $89, $6B, $EA, $D6, $01, $69, $30, $50, $D6, $00, $F9, $D6 ; Cond. jump relative ; $260 db $01, $1D, $30, $50, $D6, $00, $ED, $D6, $01, $11, $D6, $01, $11, $30, $50, $D6 ; Code for SWAP and DUP ; $270 db $00, $ED, $30, $50, $D6, $00, $F9, $52, $8A, $52, $9B, $D6, $01, $11, $30, $50 ; Code for DROP and AND ; $280 db $D6, $00, $F9, $42, $8A, $42, $9B, $D6, $01, $11, $30, $50, $D6, $00, $F9, $B2 ; Code for OR and XOR ; $290 db $8A, $B2, $9B, $D6, $01, $11, $30, $50, $D6, $00, $F9, $02, $9B, $12, $8A, $D6 ; Code for -t and NEGATE ; $2A0 db $01, $11, $30, $50, $D6, $00, $ED, $60, $E9, $60, $E8, $A0, $E8, $D6, $01, $11 ; Code for U* (Unsigned ; $2B0 db $30, $50, $D6, $00, $F9, $B0, $EC, $B0, $ED, $7C, $11, $CF, $C0, $EC, $C0, $ED ; multiply) ; Addr, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F, Comment ; $2C0 db $C0, $EA, $C0, $EB, $FB, $04, $02, $D9, $12, $C8, $7A, $F0, $88, $EC, $98, $ED ; ; $2D0 db $D6, $01, $1D, $30, $50, $D6, $01, $05, $B0, $EE, $B0, $EF, $B0, $E6, $B0, $E7 ; Code for U/ (Unsigned ; $002 db $B0, $E5, $4C, $20, $CF, $76, $EE, $80, $EB, $18, $5E, $10, $ED, $10, $EC, $10 ; divide) ; $2F0 db $EF, $10, $EE, $4A, $EF, $AC, $FF, $BC, $FF, $9C, $FF, $8C, $FF, $D6, $01, $1D ; ; $300 db $30, $50, $5E, $CF, $10, $E7, $10, $E6, $22, $9D, $32, $8C, $32, $BF, $32, $AE ; ; $310 db $FB, $0A, $02, $9D, $12, $8C, $12, $BF, $12, $AE, $8B, $02, $A0, $E6, $CF, $C0 ; ; $320 db $EE, $C0, $EF, $C0, $EC, $C0, $ED, $5A, $DA, $70, $E9, $70, $E8, $70, $E7, $70 ; ; $330 db $E6, $30, $50, $D6, $00, $ED, $42, $89, $B0, $E8, $B0, $E9, $EB, $01, $9E, $D6 ; Code for 0- ; $340 db $01, $11, $30, $50, $D6, $00, $F9, $22, $9B, $32, $8A, $B0, $E8, $B0, $E9, $FB ; Code for >- ; $350 db $ED, $8B, $EC, $31, $50, $A8, $7E, $B8, $7F, $C2, $8A, $A0, $EA, $C2, $9A, $8B ; Load constant on stack ; $360 db $DE, $70, $7F, $70, $7E, $30, $50, $D6, $00, $F9, $D6, $01, $1D, $D6, $01, $4D ; Push IP onto stack ; $370 db $D6, $01, $4D, $30, $50, $D6, $01, $35, $D6, $00, $F9, $02, $9B, $12, $8A, $D6 ; Code for +LOOP ; $380 db $01, $11, $D6, $01, $92, $D6, $00, $F9, $22, $B9, $32, $A8, $7B, $09, $D6, $01 ; ; $390 db $11, $D6, $01, $4D, $8D, $02, $41, $D6, $01, $35, $D6, $00, $ED, $D6, $01, $69 ; ; $3A0 db $30, $50, $31, $50, $9C, $01, $B0, $E8, $D6, $01, $11, $8B, $C8, $D6, $01, $92 ; Code for LOOP and "I" ; $3B0 db $30, $50, $D6, $01, $35, $D6, $01, $35, $D6, $01, $92, $50, $E4, $50, $E5, $D6 ; Code for "J" ; $3C0 db $01, $4D, $D6, $01, $4D, $70, $E5, $70, $E4, $30, $50, $D6, $01, $35, $D6, $00 ; Code for LEAVE ; $3D0 db $ED, $D6, $01, $92, $D6, $01, $4D, $30, $50, $D6, $01, $05, $B0, $E7, $42, $88 ; Code for CMOVE ; $003 db $6B, $01, $7E, $42, $AA, $6B, $03, $46, $E7, $02, $42, $77, $6B, $18, $A6, $E7 ; ; $3F0 db $01, $6B, $0F, $A6, $E7, $02, $6B, $06, $C2, $68, $D2, $6A, $8B, $0C, $E3, $69 ; ; $400 db $8B, $F8, $C2, $68, $8B, $02, $E3, $69, $F3, $B6, $A0, $E8, $A0, $EA, $80, $EC ; ; $410 db $EB, $CA, $30, $50, $70, $13, $70, $12, $30, $50, $D6, $00, $ED, $A8, $12, $B8 ; Code for HERE ; $420 db $13, $D2, $8A, $A0, $EA, $D2, $9A, $A0, $EA, $A9, $12, $B9, $13, $30, $50, $D6 ; Code for C, ; $430 db $00, $ED, $A8, $12, $B8, $13, $8B, $ED, $D6, $00, $ED, $A8, $E9, $BC, $04, $98 ; Code for H. ; $440 db $E8, $F0, $E9, $56, $E9, $0F, $06, $E9, $30, $A6, $E9, $3A, $7B, $03, $06, $E9 ; ; $450 db $07, $D6, $01, $7C, $A6, $EB, $03, $EB, $04, $88, $EA, $8B, $02, $F0, $E8, $BA ; ; $460 db $DE, $30, $50, $D6, $00, $ED, $A0, $E8, $D6, $01, $11, $30, $50, $D6, $00, $ED ; Code for 1+ and 2DROP ; $470 db $D6, $00, $ED, $30, $50, $D6, $01, $69, $D6, $01, $11, $D6, $01, $69, $D6, $01 ; Code for DLITERAL ; $480 db $11, $8D, $02, $5C, $D6, $00, $F9, $50, $E6, $50, $E7, $50, $E4, $50, $E5, $02 ; Code for D+ ; $490 db $95, $12, $84, $12, $B7, $12, $A6, $D6, $01, $1D, $8B, $E5, $D6, $00, $F9, $60 ; Code for DNEGATE ; $4A0 db $E9, $60, $E8, $60, $EB, $60, $EA, $06, $E9, $01, $16, $E8, $00, $16, $EB, $00 ; ; $4B0 db $16, $EA, $00, $8B, $E2, $70, $7D, $70, $7C, $D6, $01, $4D, $31, $70, $C2, $CE ; Code for <DOES ; $4C0 db $A0, $EE, $C2, $DE, $A0, $EE, $70, $EF, $70, $EE, $30, $50, $68, $E8, $78, $E9 ; Subroutine for WORD ; $4D0 db $04, $15, $E7, $14, $14, $E6, $C2, $A6, $42, $AA, $AF, $D6, $00, $F9, $D6, $04 ; Code for WORD ; $004 db $CC, $6B, $2C, $A2, $AB, $EB, $04, $A0, $14, $8B, $F3, $C8, $E6, $D8, $E7, $A0 ; ; $4F0 db $14, $D6, $04, $CC, $6B, $19, $A2, $AB, $EB, $F5, $88, $E6, $98, $E7, $22, $9D ; ; $500 db $32, $8C, $A8, $12, $B8, $13, $D2, $9A, $A0, $EA, $D6, $01, $29, $30, $50, $B0 ; ; $510 db $14, $B0, $15, $C8, $E6, $D8, $E7, $B0, $E8, $9C, $01, $8B, $E5, $C2, $C8, $C2 ; ; $520 db $DA, $52, $C7, $52, $D7, $A2, $CD, $AF, $C2, $D8, $56, $ED, $80, $AF, $D6, $00 ; Code for FIND ; $530 db $F9, $42, $88, $EB, $0B, $E5, $59, $EC, $9E, $E5, $59, $ED, $88, $EC, $98, $ED ; ; $540 db $7C, $1F, $D6, $05, $1D, $EB, $20, $A0, $E8, $A0, $EA, $7C, $7F, $D6, $05, $1D ; ; $550 db $EB, $10, $D6, $05, $28, $6B, $F0, $A0, $E8, $A0, $E8, $A0, $E8, $D6, $01, $11 ; ; $560 db $30, $50, $D6, $05, $28, $EB, $04, $A0, $E8, $8B, $F7, $A0, $E8, $C2, $C8, $A0 ; ; $570 db $E8, $C2, $D8, $88, $EC, $98, $ED, $42, $CD, $6B, $E2, $A8, $12, $B8, $13, $8B ; Code for ." ; $580 db $BF, $31, $50, $B8, $7D, $A8, $7C, $C2, $8A, $A0, $EA, $C2, $9A, $D6, $01, $7C ; ; $590 db $8A, $F7, $A0, $EA, $B9, $7D, $A9, $7C, $30, $50, $02, $39, $02, $41, $02, $50 ; Execution vectors ; $5A0 db $03, $67, $03, $75, $03, $A2, $05, $81, $03, $53, $00, $1A, $03, $53, $00, $1C ; Load constant to stack ; $5B0 db $03, $53, $00, $1E, $03, $53, $00, $20, $03, $53, $00, $22, $03, $53, $00, $24 ; ; Addr, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F, Comment ; $5C0 db $03, $53, $00, $26, $03, $53, $00, $28, $03, $53, $00, $2A, $03, $53, $00, $2C ; ; $5D0 db $03, $53, $00, $00, $03, $53, $00, $01, $03, $53, $00, $02, $03, $53, $00, $0A ; ; $5E0 db $03, $53, $00, $0D, $03, $53, $00, $0F, $03, $53, $00, $20, $03, $53, $00, $3F ; ; $5F0 db $03, $53, $00, $80, $03, $53, $00, $FE, $03, $53, $00, $78, $03, $53, $00, $76 ; ; $600 db $01, $C8, $04, $75, $05, $2E, $04, $DB, $01, $B9, $05, $C0, $06, $F1, $07, $16 ; Execution vectors ; $610 db $05, $9E, $00, $08, $06, $CE, $05, $9C, $00, $1C, $07, $1E, $08, $FA, $07, $83 ; FORTH headless code: ; $620 db $09, $40, $05, $9A, $00, $1F, $07, $26, $09, $54, $08, $10, $05, $EC, $06, $DE ; ERRMSG ; $630 db $06, $DE, $08, $FA, $06, $00, $01, $B9, $06, $08, $05, $9A, $00, $07, $06, $DE ; FAT ALEXR ; $640 db $08, $FA, $0A, $EB, $01, $B9, $07, $C0, $06, $F1, $07, $16, $05, $9A, $04, $00 ; MSHOOK (BLK) Routine ; $650 db $07, $4A, $05, $9E, $00, $08, $07, $1E, $06, $CE, $06, $00, $07, $0E, $07, $1E ; ; $660 db $06, $00, $01, $B9, $09, $76, $07, $16, $05, $9E, $00, $34, $07, $16, $05, $D8 ; NUCLEUS ; $670 db $07, $D2, $05, $D4, $07, $D2, $05, $D4, $07, $D2, $07, $16, $06, $F8, $05, $F0 ; ; $680 db $07, $26, $05, $9E, $FF, $F2, $06, $F8, $05, $AC, $06, $F1, $07, $5F, $05, $9E ; ; $690 db $00, $08, $06, $CE, $05, $9C, $FF, $CE, $07, $89, $05, $9C, $FF, $C8, $07, $1E ; ; $6A0 db $07, $83, $0A, $4F, $05, $9A, $00, $10, $06, $F1, $07, $A6, $05, $9E, $00, $08 ; ; $6B0 db $09, $EB, $05, $9C, $FF, $B0, $07, $1E, $09, $D3, $05, $9C, $FF, $A8, $01, $B9 ; RELADR ; $6C0 db $07, $83, $07, $D2, $07, $89, $06, $00, $87, $45, $58, $C5, $00, $00, $01, $B4 ; Headed FORTH words: ; $6D0 db $83, $4B, $45, $D9, $06, $C8, $01, $D1, $84, $45, $4D, $C9, $06, $D0, $01, $E0 ; EXECUTE KEY EMIT ; $6E0 db $81, $A1, $06, $D8, $01, $E8, $82, $43, $A1, $06, $E0, $02, $01, $81, $C0, $06 ; C! e ; $6F0 db $E6, $02, $0A, $82, $43, $C0, $06, $ED, $02, $24, $82, $3E, $D2, $06, $F3, $02 ; C@ >R ; $700 db $2F, $82, $52, $BE, $06, $FA, $02, $34, $84, $53, $57, $C1, $07, $01, $02, $5C ; R> SWAP ; $710 db $83, $44, $55, $D0, $07, $08, $02, $64, $84, $44, $52, $CF, $07, $10, $02, $6F ; DUP DROP ; $720 db $83, $41, $4E, $C4, $07, $18, $02, $74, $82, $4F, $D2, $07, $20, $02, $80, $83 ; AND OR ; $730 db $58, $4F, $D2, $07, $28, $02, $8C, $81, $AB, $07, $2F, $02, $98, $86, $4E, $45 ; XOR NEG ; $740 db $C7, $07, $37, $02, $A4, $82, $55, $AA, $07, $3D, $02, $B2, $82, $55, $AF, $07 ; U* U/ ; $750 db $45, $02, $D5, $82, $30, $BD, $07, $4C, $03, $33, $82, $3E, $BD, $07, $53, $03 ; 0= >= ; $760 db $44, $81, $C9, $07, $5A, $03, $AD, $81, $CA, $07, $61, $03, $B2, $85, $4C, $45 ; I J ; $770 db $C1, $07, $67, $03, $CB, $85, $43, $4D, $CF, $07, $6D, $03, $D9, $84, $48, $45 ; CMOVE HERE ; $780 db $D2, $07, $75, $04, $14, $81, $AC, $07, $7D, $04, $1A, $82, $43, $AC, $07, $85 ; . c, ; $790 db $04, $2F, $82, $48, $AE, $07, $8B, $04, $38, $84, $43, $4F, $CC, $07, $92, $00 ; H. COLD ; $7A0 db $0C, $82, $31, $AB, $07, $99, $04, $63, $85, $32, $44, $D2, $07, $A1, $04, $6D ; 1+ 2DROP ; $7B0 db $83, $3E, $49, $CE, $07, $A8, $03, $53, $00, $14, $83, $42, $4C, $CB, $07, $B0 ; >IN BLK ; $7C0 db $03, $53, $00, $16, $84, $42, $41, $D3, $07, $BA, $03, $53, $00, $18, $81, $AD ; BASE - ; $7D0 db $07, $C4, $01, $B9, $07, $43, $07, $3B, $06, $00, $81, $BD, $07, $CE, $01, $B9 ; ; = ; $7E0 db $07, $D2, $07, $58, $06, $00, $84, $4F, $56, $C5, $07, $DA, $01, $B9, $06, $FF ; OVER ; $7F0 db $07, $16, $07, $06, $07, $0E, $06, $00, $83, $52, $4F, $D4, $07, $E6, $01, $B9 ; ROT ; $800 db $06, $FF, $07, $0E, $07, $06, $07, $0E, $06, $00, $85, $53, $50, $C1, $07, $F8 ; SPACE ; $810 db $01, $B9, $05, $E8, $06, $DE, $06, $00, $86, $45, $58, $D0, $08, $0A, $01, $B9 ; EXPECT ; $820 db $07, $EC, $07, $3B, $07, $EC, $05, $A0, $06, $D6, $07, $16, $05, $9A, $00, $08 ; ; $830 db $07, $DE, $05, $9E, $00, $2E, $07, $EC, $07, $65, $07, $DE, $05, $9E, $00, $0E ; ; $840 db $05, $D4, $07, $D2, $06, $DE, $05, $D0, $05, $9C, $00, $4C, $07, $06, $07, $0E ; ; $850 db $07, $16, $06, $DE, $08, $10, $06, $DE, $05, $D8, $07, $D2, $06, $FF, $05, $9C ; ; $860 db $00, $34, $07, $16, $05, $E0, $07, $DE, $05, $9E, $00, $22, $07, $1E, $05, $E8 ; ; $870 db $07, $65, $07, $EC, $07, $EC, $06, $EB, $07, $A6, $05, $D0, $07, $EC, $06, $EB ; ; $880 db $07, $A6, $06, $EB, $05, $E8, $07, $73, $05, $9C, $00, $08, $07, $16, $07, $65 ; ; $890 db $06, $EB, $06, $DE, $05, $D4, $05, $A2, $FF, $90, $07, $1E, $06, $00, $82, $2B ; +! ; $8A0 db $A1, $08, $18, $01, $B9, $07, $0E, $07, $EC, $06, $Fb, $07, $3B, $07, $0E, $06 ; ; $8B0 db $E4, $06, $00, $C1, $80, $08, $9E, $01, $B9, $07, $C0, $06, $F1, $05, $9E, $00 ; (NULL j, ; Addr, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F, Comment ; $8C0 db $30, $05, $D4, $07, $C0, $08, $A3, $07, $B6, $06, $F1, $05, $D0, $07, $B6, $06 ; ; $8D0 db $E4, $05, $9A, $03, $FF, $07, $DE, $05, $9E, $00, $1A, $05, $AC, $06, $F1, $05 ; ; $008 db $9A, $00, $C0, $07, $DE, $05, $9E, $00, $08, $05, $9A, $07, $4C, $06, $36, $07 ; ; $8F0 db $06, $07, $1E, $06, $00, $82, $43, $D2, $08, $B3, $01, $B9, $05, $E0, $06, $DE ; CR ; $900 db $05, $DC, $06, $DE, $06, $00, $84, $57, $4F, $D2, $08, $F5, $01, $B9, $07, $83 ; WORD ; $910 db $05, $E8, $07, $EC, $06, $EB, $07, $16, $07, $A6, $05, $E8, $07, $7B, $07, $C0 ; ; $920 db $06, $F1, $05, $9E, $00, $08, $06, $44, $05, $9C, $00, $06, $05, $A8, $06, $F1 ; ; $930 db $07, $0E, $06, $06, $07, $78, $07, $83, $06, $00, $85, $43, $4F, $D5, $09, $06 ; COUNT ; $940 db $01, $B9, $07, $16, $06, $FF, $07, $A6, $07, $06, $06, $F8, $06, $00, $84, $54 ; ; $950 db $59, $D0, $09, $3A, $01, $B9, $05, $D4, $07, $D2, $05, $D0, $05, $A0, $07, $65 ; TYPE ; $960 db $07, $EC, $07, $3B, $06, $F8, $06, $DE, $05, $A4, $FF, $F4, $07, $1E, $06, $00 ; ; $970 db $84, $46, $49, $CE, $09, $4E, $01, $B9, $05, $E8, $09, $0C, $05, $C8, $06, $F1 ; FIND ; $980 db $07, $0E, $06, $04, $07, $16, $05, $9E, $00, $04, $06, $00, $07, $1E, $05, $C4 ; ; $990 db $06, $F1, $07, $83, $06, $04, $06, $00, $82, $44, $AB, $09, $70, $04, $84, $87 ; ; $9A0 db $44, $4E, $C5, $09, $98, $04, $9C, $87, $43, $4F, $CD, $09, $9F, $01, $B9, $05 ; DNEGATE COMPILE ; $9B0 db $AC, $06, $F1, $05, $9E, $00, $12, $07, $06, $07, $16, $05, $D8, $07, $3B, $06 ; ; $9C0 db $FF, $06, $F1, $07, $89, $06, $00, $05, $9A, $01, $43, $06, $36, $C7, $4C, $49 ; LITERAL ; $9D0 db $D4, $09, $A7, $01, $B9, $05, $AC, $06, $F1, $05, $9E, $00, $08, $09, $AD, $05 ; ; $009 db $9A, $07, $89, $06, $00, $C8, $44, $4C, $C9, $09, $CD, $01, $B9, $05, $AC, $06 ; DLITERAL ; $9F0 db $F1, $05, $9E, $FF, $F0, $09, $AD, $06, $02, $07, $89, $07, $89, $06, $00, $85 ; ; $A00 db $44, $49, $C7, $09, $E5, $01, $B9, $05, $9A, $00, $30, $07, $D2, $07, $16, $05 ; DIGIT ; $A10 db $D0, $07, $5F, $05, $9E, $00, $2A, $07, $16, $05, $DC, $07, $5F, $05, $9E, $00 ; ; $A20 db $12, $05, $9A, $00, $07, $07, $D2, $07, $16, $05, $DC, $07, $5F, $05, $9E, $00 ; ; $A30 db $10, $07, $16, $07, $CA, $06, $F1, $07, $A6, $07, $5F, $05, $9E, $00, $08, $07 ; ; $A40 db $7E, $05, $D0, $06, $00, $05, $D4, $06, $00, $86, $4E, $55, $CD, $09, $FF, $01 ; NUMBER ; $A50 db $B9, $05, $D0, $05, $D0, $07, $FE, $07, $16, $07, $A6, $06, $F8, $05, $9A, $00 ; ; $A60 db $2D, $07, $DE, $07, $16, $06, $FF, $07, $3B, $05, $9A, $FF, $FF, $05, $9A, $00 ; ; $A70 db $10, $06, $E4, $07, $A6, $07, $16, $06, $FF, $06, $F8, $0A, $05, $05, $9E, $00 ; ; $A80 db $30, $07, $0E, $07, $CA, $06, $F1, $07, $4A, $07, $1E, $07, $FE, $07, $CA, $06 ; ; $A90 db $F1, $07, $4A, $09, $9D, $05, $9A, $00, $10, $06, $F1, $07, $A6, $05, $9E, $00 ; ; $AA0 db $0A, $05, $D4, $05, $9A, $00, $10, $08, $A3, $07, $06, $05, $9C, $FF, $C6, $07 ; ; $AB0 db $06, $07, $16, $06, $F8, $05, $E8, $07, $D2, $05, $9E, $00, $1E, $07, $16, $06 ; ; $AC0 db $F8, $05, $9A, $00, $2E, $07, $D2, $05, $9E, $00, $0A, $07, $06, $05, $9A, $02 ; ; $AD0 db $4E, $06, $36, $05, $D0, $05, $9C, $FF, $96, $07, $1E, $07, $06, $05, $9E, $00 ; ; $AE0 db $04, $09, $A5, $06, $00, $84, $51, $55, $C9, $0A, $49, $01, $B9, $05, $B4, $06 ; QUIT ; $AF0 db $F1, $05, $9A, $00, $FE, $06, $E4, $05, $D0, $07, $C0, $06, $E4, $05, $D0, $05 ; ; $B00 db $AC, $06, $E4, $05, $B8, $06, $F1, $05, $9A, $00, $7A, $06, $E4, $08, $FA, $05 ; ; $B10 db $D0, $07, $B6, $06, $E4, $05, $A8, $06, $F1, $05, $D0, $07, $EC, $06, $EB, $07 ; ; $B20 db $16, $07, $A6, $05, $9A, $00, $40, $07, $7B, $05, $A8, $06, $F1, $05, $9A, $00 ; ; $B30 db $40, $08, $1E, $06, $62, $05, $AC, $06, $F1, $07, $58, $05, $9E, $FF, $D0, $05 ; ; $B40 db $A6, $02, $4F, $4B, $05, $9C, $FF, $BD, $C1, $DB, $0A, $E5, $01, $B9, $05, $D0 ; [ ; $B50 db $05, $AC, $06, $E4, $06, $00, $C1, $DD, $0B, $48, $01, $B9, $05, $9A, $00, $C0 ; ] ; $B60 db $05, $AC, $06, $E4, $06, $00, $C1, $A7, $0B, $56, $01, $B9, $09, $76, $07, $16 ; ; $B70 db $05, $9E, $00, $0A, $05, $D8, $07, $3B, $09, $D3, $06, $00, $05, $9A, $05, $57 ; ; $B80 db $06, $36, $83, $4D, $49, $CE, $0B, $66, $01, $B9, $07, $EC, $07, $EC, $07, $5F ; MIN ; $B90 db $05, $9E, $00, $04, $07, $0E, $07, $1E, $06, $00, $85, $41, $4C, $CC, $0B, $82 ; ALLOT ; $BA0 db $01, $B9, $05, $9A, $00, $12, $08, $A3, $06, $00, $86, $43, $52, $C5, $0B, $9A ; CREATE ; $BB0 db $01, $B9, $09, $76, $05, $9E, $00, $08, $05, $9A, $00, $55, $06, $08, $07, $83 ; ; $BC0 db $07, $16, $06, $F8, $05, $BC, $06, $F1, $0B, $88, $0B, $A0, $05, $9A, $00, $A0 ; ; Addr, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F, Comment ; $BD0 db $07, $EC, $06, $F8, $07, $2D, $07, $EC, $06, $EB, $07, $83, $05, $F0, $07, $EC ; ; $BE0 db $06, $F8, $07, $2D, $07, $0E, $06, $EB, $05, $D4, $0B, $A0, $05, $CC, $06, $F1 ; ; $BF0 db $07, $89, $05, $CC, $06, $E4, $05, $D0, $07, $83, $06, $E4, $06, $00, $C1, $BA ; : ; $C00 db $0B, $AA, $01, $B9, $05, $AC, $06, $F1, $05, $9E, $00, $08, $05, $9A, $04, $44 ; ; $C10 db $06, $36, $05, $F4, $06, $F1, $05, $F8, $06, $E4, $05, $C8, $06, $F1, $05, $C4 ; ; $c20 db $06, $E4, $0B, $B0, $0B, $5A, $09, $AD, $01, $B9, $06, $00, $86, $53, $4D, $D5 ; SMUDGE , ; $C30 db $0B, $FE, $01, $B9, $05, $C8, $06, $F1, $06, $F1, $05, $9A, $00, $DF, $07, $EC ; ; $C40 db $06, $F8, $07, $26, $07, $0E, $06, $EB, $06, $00, $C1, $BB, $0C, $2C, $01, $B9 ; ; ; $C50 db $05, $F4, $06, $F1, $05, $F8, $06, $F1, $07, $D2, $05, $9E, $00, $08, $05, $9A ; ; $C60 db $03, $53, $06, $36, $09, $AD, $06, $00, $0C, $32, $0B, $4C, $06, $00, $88, $43 ; ; $C70 db $4F, $CE, $0C, $4A, $01, $B9, $0B, $B0, $05, $9A, $03, $53, $07, $89, $07, $89 ; CONSTANT ; $C80 db $0C, $32, $06, $00, $87, $3C, $42, $D5, $0C, $6E, $01, $B9, $05, $D0, $0C, $74 ; <BUILDS ; $C90 db $06, $00, $85, $44, $4F, $C5, $0C, $84, $01, $B9, $05, $C8, $06, $F1, $06, $F1 ; DOES> ; $CA0 db $07, $A6, $07, $16, $06, $F8, $05, $F0, $07, $26, $05, $9E, $FF, $F4, $05, $9A ; ; $CB0 db $00, $03, $07, $3B, $05, $9A, $04, $B5, $07, $EC, $06, $E4, $05, $D8, $07, $3B ; ; $CC0 db $07, $06, $07, $0E, $06, $E4, $06, $00, $89, $49, $4D, $CD, $0C, $92, $01, $B9 ; IMMEDIATE ; $CD0 db $05, $C8, $06, $F1, $06, $F1, $05, $9A, $00, $40, $07, $EC, $06, $F8, $07, $2D ; ; $CE0 db $07, $0E, $06, $EB, $06, $00, $C2, $2E, $A2, $0C, $C8, $01, $B9, $05, $D4, $07 ; ." ; $CF0 db $B6, $08, $A3, $09, $AD, $05, $A6, $05, $9A, $00, $22, $09, $0C, $06, $F8, $07 ; ; $D00 db $A6, $0B, $A0, $05, $D4, $07, $B6, $08, $A3, $06, $00, $83, $50, $41, $C4, $0C ; PAD ; $D10 db $E6, $01, $B9, $07, $83, $05, $9A, $00, $44, $07, $3B, $06, $00, $84, $48, $4F ; HOLD ; $D20 db $CC, $0D, $0B, $01, $B9, $05, $B0, $05, $9A, $FF, $FF, $07, $EC, $08, $A3, $06 ; ; $D30 db $F1, $06, $EB, $06, $00, $82, $3C, $A3, $0D, $1D, $01, $B9, $0D, $11, $05, $B0 ; # ; $D40 db $06, $E4, $06, $00, $81, $A3, $0D, $35, $01, $B9, $07, $CA, $06, $F1, $06, $FF ; <# ; $D50 db $05, $D0, $07, $65, $07, $51, $07, $06, $07, $0E, $06, $FF, $07, $51, $07, $06 ; ; $D60 db $07, $FE, $07, $16, $05, $DC, $07, $5F, $05, $9E, $00, $08, $05, $9A, $00, $07 ; ; $D70 db $07, $3B, $05, $9A, $00, $30, $07, $3B, $0D, $23, $06, $00, $82, $23, $D3, $0D ; #S ; $D80 db $44, $01, $B9, $0D, $48, $07, $EC, $07, $EC, $07, $2D, $07, $58, $05, $9E, $FF ; ; $D90 db $F4, $06, $00, $82, $23, $BE, $0D, $7C, $01, $B9, $07, $AE, $05, $B0, $06, $F1 ; #> ; $DA0 db $0D, $11, $07, $EC, $07, $D2, $06, $00, $84, $53, $49, $C7, $0D, $93, $01, $B9 ; SIGN ; $DB0 db $07, $FE, $05, $9A, $80, $00, $07, $5F, $05, $9E, $00, $08, $05, $9A, $00, $2D ; ; $DC0 db $0D, $23, $06, $00, $84, $44, $41, $C2, $0D, $A8, $01, $B9, $07, $16, $05, $9A ; DABS ; $DD0 db $80, $00, $07, $5F, $05, $9E, $00, $04, $09, $A5, $06, $00, $82, $44, $AE, $0D ; D. ; $DE0 db $C4, $01, $B9, $07, $0E, $07, $EC, $0D, $CA, $0D, $3A, $0D, $81, $0D, $AE, $0D ; ; $DF0 db $98, $09, $54, $06, $00, $84, $53, $2D, $BE, $0D, $DC, $01, $B9, $05, $D0, $07 ; S-> ; $E00 db $EC, $05, $9A, $80, $00, $07, $5F, $05, $9E, $00, $06, $05, $D4, $07, $D2, $06 ; ; $E10 db $00, $C2, $44, $CF, $0D, $F5, $01, $B9, $09, $AD, $05, $A0, $07, $83, $06, $00 ; DO $ ; $E20 db $C5, $2B, $4C, $CF, $0E, $11, $01, $B9, $09, $AD, $05, $A2, $06, $BE, $06, $00 ; =+LOOP ; $E30 db $C4, $4C, $4F, $CF, $0E, $20, $01, $B9, $09, $AD, $05, $A4, $06, $BE, $06, $00 ; LOOP ; $E40 db $C2, $49, $C6, $0E, $30, $01, $B9, $09, $AD, $05, $9E, $07, $83, $05, $D0, $07 ; IF ; $E50 db $89, $06, $00, $C4, $54, $48, $C5, $0E, $40, $01, $B9, $07, $83, $07, $EC, $07 ; THEN ; $E60 db $D2, $07, $0E, $06, $E4, $06, $00, $C4, $45, $4C, $D3, $0E, $53, $01, $B9, $09 ; ELSE ; $E70 db $AD, $05, $9C, $07, $83, $05, $D0, $07, $89, $07, $0E, $0E, $59, $06, $00, $C5 ; ; $E80 db $42, $45, $C7, $0E, $67, $01, $B9, $07, $83, $06, $00, $C5, $55, $4E, $D4, $0E ; BEGIN UNTIL ; $E90 db $7F, $01, $B9, $09, $AD, $05, $9E, $06, $BE, $06, $00, $C5, $41, $47, $C1, $0E ; AGAIN ; $EA0 db $8B, $01, $B9, $09, $AD, $05, $9C, $06, $BE, $06, $00, $C5, $57, $48, $C9, $0E ; WHILE ; $EB0 db $9B, $01, $B9, $0E, $45, $06, $00, $C6, $52, $45, $D0, $0E, $AB, $01, $B9, $06 ; REPEAT, ; Addr, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F, Comment ; $EC0 db $FF, $0E, $A1, $07, $06, $0E, $59, $06, $00, $C4, $43, $41, $D3, $0E, $B7, $01 ; CASE ; $ED0 db $B9, $05, $FC, $06, $F1, $05, $F4, $06, $F1, $05, $FC, $06, $E4, $06, $00, $C2 ; ; $EE0 db $4F, $C6, $0E, $C9, $01, $B9, $09, $AD, $07, $EC, $09, $AD, $07, $DE, $0E, $45 ; OF ; $EF0 db $09, $AD, $07, $1E, $06, $00, $C7, $45, $4E, $C4, $0E, $DF, $01, $B9, $05, $F4 ; ENDCASE ; $F00 db $06, $F1, $05, $FC, $06, $F1, $07, $D2, $05, $9E, $00, $08, $0E, $59, $05, $96 ; ; $F10 db $FF, $EE, $05, $FC, $06, $E4, $06, $00, $C6, $46, $4F, $D2, $0E, $F6, $01, $B9 ; FORGET ; $F20 db $09, $76, $07, $16, $05, $9E, $00, $10, $05, $C8, $06, $F1, $05, $C4, $06, $F1 ; ; $F30 db $07, $D2, $05, $9E, $00, $0A, $07, $1E, $05, $9A, $06, $56, $06, $36, $05, $D8 ; ; $F40 db $07, $D2, $07, $16, $06, $F1, $05, $C8, $06, $F1, $06, $E4, $05, $D4, $05, $D0 ; ; $F50 db $05, $AQ, $05, $D4, $07, $D2, $67, $16, $06, $F8, $05, $F0, $07, $26, $05, $9E ; ; $F60 db $FF, $F2, $05, $A4, $FF, $EE, $05, $9A, $00, $12, $06, $E4, $06, $00, $84, $42 ; BOOT ; $F70 db $4F, $CF, $0F, $18, $01, $B9, $05, $D0, $07, $B6, $06, $E4, $07, $C0, $06, $E4 ; ; $F80 db $06, $62, $0A, $EB, $66, $E7, $18, $6B, $11, $46, $03, $10, $E6, $06, $0F, $E6 ; Code for shared- ; $F90 db $07, $A0, $E6, $F9, $25, $B0, $FA, $46, $FB, $02, $56, $E7, $07, $8D, $00, $84 ; bus interrupt ; $FA0 db $70, $FD, $31, $50, $70, $EF, $70, $EE, $70, $ED, $70, $EC, $EC, $FF, $FC, $FD ; ; $FB0 db $C2, $DE, $56, $ED, $18, $A6, $ED, $10, $6B, $0C, $EC, $F7, $FC, $00, $E5, $5F ; ; $FC0 db $EC, $D2, $CE, $FE, $EB, $F8, $E6, $F8, $BA, $56, $03, $EF, $76, $03, $08, $6B ; ; $FD0 db $FB, $46, $03, $10, $E6, $F8, $B2, $42, $DD, $EB, $0B, $C2, $CE, $F5, $EC, $5F ; ; $FE0 db $FE, $76, $EF, $80, $6B, $F5, $50, $EC, $50, $ED, $50, $EE, $50, $EF, $50, $FD ; ; $FF0 db $BF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $0A, $EB ; Start address: QUIT