1 line
8.0 KiB
Plaintext
1 line
8.0 KiB
Plaintext
|
\ Information This file contains former DX-Forth words that are obsolete or no longer present in the kernel. Should an old DX-Forth source file fail to load due to obsolete words, then type 1 FLOAD OBSOLETE before loading your application. See OBSOLETE.TXT for further information \ Load screen forth definitions decimal application cr .( Loading obsolete DX-Forth words ) marker -OBSOLETE 2 #screens 1- thru freeze \ : STRING+ 2swap +string ; aka +EXT +FILENAME aka -EXT -FILENAME aka LOADFILE FNAME aka LOADFILE FILENAME aka CSEG DSEG aka REMEMBER +PRUNE aka +PRUNE PRUNES aka GET-XY AT-XY? aka GET-WINDOW WINDOW? aka 'AX regAX aka 'BX regBX aka 'CX regCX aka 'DX regDX aka 'BP regBP aka 'SI regSI aka 'DI regDI aka 'DS regDS aka 'ES regES aka 'FLAGS regFLAGS aka 'SOURCE (SOURCE) aka FYI MAP aka BEHEAD EXCISE aka CATCHER HANDLER aka PROTECT FREEZE aka PACK PACKED aka /PARSE PARSE$ code BDOS ( DX x -- AL ) ax pop dx pop bx bx sub cx cx sub al ah xchg $21 int ah ah sub 1push end-code \ ?PAIRS system : ?PAIRS ( n1 n2 -- ) - ABORT" conditionals not paired" ; application
|