00001 *************************
00002 *
00003 * CF83COR0.ASM
00004 * MDJ 06-13-91
00005 *
00006 * CF83 CORE WORDS
00007 * SET #0
00008 *
00009 *************************
00010 *
00011 * MUST ALTER  ON
00012 * ==========  ==
00013 * START2      ZBORTN
00014 * CF83COR1    ZLOCKN
00015 * CF83COR4    ZBORTC
00016 * CF83COR4    ZITERC
00017 *
00018 *************************
00019 *
00020 ZEXCLN  EQU     $5DA0
00021 DPDP    EQU     $1B
00022 ZQUITP  EQU     $5303
00023 ZITERT  EQU     $5328
00024 ZLOCKP  EQU     $5338
00025         ORG     $5D3E
00026 ZBORTN  FCB     5       BEGINNING OF FORTH DICTIONARY
00027         FCC     'ABORT'
00028         FDB     0
00029         FDB     QUITN
00030 ZBORTC  FDB     *+2
00031         LDU     #$0600
00032         JMP     ZQUITP
00033 QUITN   FCB     4
00034         FCC     'QUIT'
00035         FDB     ZBORTN
00036         FDB     XECUTN
00037         FDB     ZQUITP
00038 XECUTN  FCB     7
00039         FCC     'EXECUTE'
00040         FDB     QUITN
00041         FDB     LITERN
00042         FDB     *+2
00043         PULU    X
00044         JMP     [,X++]
00045 LITERN  FCB     135
00046         FCC     'LITERAL'
00047         FDB     XECUTN
00048         FDB     ZLOCKN
00049 ZITERC  FDB     *+2
00050         PSHS    X,Y
00051         LDX     DPDP
00052         LDY     #ZITERT
00053         STY     ,X++
00054         PULU    Y
00055         STY     ,X++
00056         STX     DPDP
00057         PULS    X,Y
00058         LDX     ,Y++
 
 
 
 
 
 
 
 
00059         JMP     [,X++]
00060 ZLOCKN  FCB     5
00061         FCC     /BLOCK/
00062 BLOCKL  FDB     LITERN
00063 BLOCKF  FDB     ZEXCLN
00064 BLOCKC  FDB     ZLOCKP
00065 ZEND    NOP
00066         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
