home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
ti-990
/
forthdat.dsk
< prev
next >
Wrap
Text File
|
2006-10-19
|
256KB
|
1 lines
TI 990 FORTH 1.0.0 Dave Pitts c 1983 980 West 6th Avenue Broomfield, CO 80020 ( Index of screens ) 000 System Info 001 - 003 System Index 004 - 005 System error messages 006 System Dump and Patch 007 System Printer support 051 - 062 System Editor ( Error messages ) EMPTY STACK DICTIONARY FULL HAS INCORRECT ADDRESS MODE ISN'T UNIQUE DISK RANGE ? FULL STACK DISK ERROR ! ( Error messages cont. ) COMPILATION ONLY, USE IN DEFINITION EXECUTION ONLY CONDITIONALS NOT PAIRED DEFINITION NOT FINISHED IN PROTECTED DICTIONARY USE ONLY WHEN LOADING OFF CURRENT EDITING SCREEN DECLARE VOCABULARY ( Dump and Patch ) FORTH DEFINITIONS HEX : ?NON-PRINTING DUP 020 < SWAP 07E > OR ; : &TYPE 0 DO DUP I + C@ DUP ?NON-PRINTING IF DROP 02E ( .) THEN EMIT LOOP DROP ; : &DUMP 0 DO DUP I + @ 0 5 D.R 2 +LOOP DROP ; : A-LINE CR SWAP DUP 0 6 D.R SPACE SWAP ." (" 4 .R ." )" 010 OVER OVER &DUMP 2 SPACES &TYPE ; : DUMP 0 DO DUP I + I A-LINE 010 ?TERMINAL IF LEAVE ENDIF +LOOP DROP CR ; : PATCH DUP 010 DUMP DUP ROT SWAP C! 010 DUMP ; : ZPEEK @ 0 D. ; : PEEK 0A0 + @ 0 D. ; : POKE DUP DUP >R PEEK 0A0 + ! R> PEEK ; : ZPOKE DUP DUP >R ZPEEK ! R> ZPEEK ; ( Printer support words ) FORTH DEFINITIONS HEX : FF ( Emit form feed with null timing ) 0C EMIT 6 0 DO 0 EMIT LOOP ; 0 VARIABLE S/PAGE : PRINT ( Print screens, form-2 to-1 ) 1+ 040 PBASE ! FF SWAP 0 S/PAGE ! DO I LIST S/PAGE @ 1+ DUP S/PAGE ! 3 = IF FF 0 S/PAGE ! ENDIF LOOP S/PAGE @ IF FF ENDIF 0 PBASE ! ; : TOF ( Force out a top of form ) 040 PBASE ! CR FF 0 PBASE ! ; DECIMAL ( Dump Disk ) FORTH DEFINITIONS HEX : DDUMP ( Dump disk from-2 to-1 ) 1+ SWAP DO CR DUP DECIMAL ." BLOCK " I DUP 5 .R DUP 01A /MOD 6 SPACES ." TRACK " 3 .R ." SECTOR " 3 .R CR HEX BLOCK 080 DUMP LOOP ; 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103