ANTIC FORTH#

'Screens of Disk Two'


SCR # F 
  0 (  ERROR MESSAGES  )   135  159
  1  9  8  7  10  ;S
  2 empty stack
  3 
  4 dictionary full
  5 
  6 has incorrect address mode
  7 
  8 isn't unique
  9 
  A 
  B 
  C disc range ??
  D 
  E full stack !
  F 
 10 disc error !
 11 
 12 
 13 
 14 
 15 
 16 
 17 
 18 
 19 
 1A 
 1B 
 1C THIS IS IT
 1D 
 1E HELP ME!
 1F 

SCR # 10 
  0 ( USER INDEX SCR ... ....... ;S
  1  PHYSICAL OFFSET: SCREEN # 1A   
  2 SCR #|       Contents
  3 00/00| INDEX
  4 01/01| COVER SCREEN
  5 02/06| ERROR MESSAGES
  6 07/0A| BOOT MAKER - call SYS
  7      |
  8      |
  9 0B/0B| disk RPM checker
  A 0C/0E| FREE
  B 0F/0F| low level DECOMP info
  C  DO NOT MOVE THESE SCREENS !!!  
  D 17/18| REV.G COMMENTS
  E 10/23| TUTORIAL
  F 24/2A| COMMAND SUMMARY/REV NOTES
 10 30/32| DUMB TERMINAL V.1.0
 11 33/37| Formatted LIST program
 12 38/3F| FREE
 13      |
 14      |
 15      |
 16      |
 17      |
 18      |
 19      |
 1A      |
 1B TO CONTINUE TO THE DOCUMENTATION
 1C PART OF THE DISK TYPE           
 1D                                 
 1E   10 UE     and press <RETURN>  
 1F                                 

SCR # 11 
  0 ******  fig-FORTH  MODEL  ******
  1 
  2 
  3      Through the courtesy of
  4 
  5 
  6       FORTH INTEREST GROUP
  7          P. O. BOX 1105
  8       SAN CARLOS, CA. 94070
  9 
  A        Implemented on the
  B          ATARI  800/400
  C                by
  D           Steve Calfee
  E              1/26/81
  F              4/01/82
 10    PETER LIPSON/ROBIN ZIEGLER
 11              4/10/82
 12          HARALD  STRIEPE
 13         5/5/82 - 10/16/82
 14  XL Mods - John Stanley 18Jun85
 15      RELEASE 1.4S     REV.H
 16      WITH COMPILER SECURITY
 17      VARIABLE  LENGTH NAMES
 18  SWITCHABLE TOP OF STACK DISPLAY
 19      DECOMPILER/DISSASSEMBLER
 1A   ENHANCED SCREEN EDITOR & FAST
 1B  EDIT WORDS, BASE BORDER DISPLAY
 1C  ENHANCED SYSTEM SET UP/BOOTMKR
 1D        DRIVE 2 LINK/UNLINK
 1E      Further distribution must
 1F      include the above notice.

SCR # 12 
  0 BREAK Abort.
  1 
  2 IOCB already open.
  3 
  4 Non-existant device.
  5 
  6 IOCB is write-only.
  7 
  8 Invalid command (for this device
  9 )
  A Device or file not open.
  B 
  C Bad IOCB #
  D 
  E IOCB is read-only
  F 
 10 End Of File
 11 
 12 Truncated Record
 13 
 14 Device Timeout
 15 
 16 Device NAK (Negative AcKnowledge
 17 )
 18 Serial Bus input framing error
 19 
 1A Cursor out of range
 1B 
 1C Serial Bus data-frame overrun
 1D 
 1E Serial Bus data-frame checksum e
 1F rror.

SCR # 13 
  0 Device-done error
  1 
  2 Read-after-write compare error
  3 
  4 Function not implemented in hand
  5 ler
  6 Insufficient RAM
  7 
  8 
  9 
  A 
  B 
  C 
  D 
  E 
  F 
 10 
 11 
 12 
 13 
 14 
 15 
 16 
 17 
 18 
 19 
 1A 
 1B 
 1C 
 1D 
 1E 
 1F 

SCR # 14 
  0 (  ERROR MESSAGES  )   135  159
  1  9  8  7  10  ;S
  2 empty stack
  3 
  4 dictionary full
  5 
  6 has incorrect address mode
  7 
  8 isn't unique
  9 
  A 
  B 
  C disc range ??
  D 
  E full stack !
  F 
 10 disc error !
 11 
 12 
 13 
 14 
 15 
 16 
 17 
 18 
 19 
 1A 
 1B 
 1C THIS IS IT
 1D 
 1E HELP ME!
 1F 

SCR # 15 
  0 (  ERROR MESSAGES  )
  1 
  2 compilation only, use in definit
  3 ion
  4 execution only
  5 
  6 conditionals not paired
  7 
  8 definition not finished
  9 
  A in protected dictionary
  B 
  C use only when loading
  D 
  E off current editing screen
  F 
 10 declare vocabulary
 11 
 12 outside allocated file space
 13 
 14 writing off current line
 15 
 16 
 17 
 18 
 19 
 1A string stack empty !!
 1B 
 1C 
 1D 
 1E 
 1F 

SCR # 16 
  0 (  TARGET COMPILER ERROR MESSAGE
  1 S                 WFR-79JUN02 )
  2 
  3 
  4 below lower bound of virtual mem
  5 ory
  6 disc compiler assembly error in
  7 mode of
  8 can't find in TARGET
  9 
  A target redef.
  B 
  C T: error, is it paired with T;
  D ?
  E above virtual memory bounds
  F 
 10 
 11 
 12 
 13 
 14 
 15 
 16 
 17 
 18 
 19 
 1A 
 1B 
 1C 
 1D 
 1E 
 1F 

SCR # 17 
  0 ( SYS/BOOTMAKER        1/4 )
  1    FORTH DEFINITIONS   HEX
  2    SAVENFAs
  3  HERE 1C +ORIGIN !  ( FENCE )
  4 
  5  HERE 1E +ORIGIN !  ( DP )
  6 
  7  HERE DUP FENCE  ! 0 +ORIGIN -
  8 
  9  80 / 1+  CONSTANT  #SECT
  A 
  B   CODE CALLDK XSAVE STX, E453
  C    JSR, TYA, PHA, ( STATUS )
  D   XSAVE LDX, PUSH JMP, C;
  E 
  F 
 10 : DKIO 301 ! ( CMD, DRIVE # )
 11   30A ! ( SECT. # ) 304 !
 12   ( RAM BUFFER ) CALLDK ( DKHND)
 13   DUP 0< IF ." ERROR " 0FF AND
 14   BASE @ SWAP DECIMAL
 15   . BASE ! QUIT ENDIF DROP ;
 16 : WTSEC SWAP 304 ! 130 300 !
 17 ( verif $57->) 50 302 C! SECIO ;
 18  : RDSEC SWAP 304 ! 130 300 !
 19          52 302 C! SECIO   ;
 1A : FORMAT ." FORMAT DRIVE " DUP .
 1B   ." -ARE YOU SURE?" 0 PAD ! PAD
 1C  1      EXPECT PAD C@ 59 ( Y) =
 1D   IF 2100 OR PAD 0 ROT DKIO ELSE
 1E         DROP THEN ;
 1F  0 VARIABLE BOOT ( ->CODE ) -->

SCR # 18 
  0 ( SYS SET UP/BOOTMKR   2/4 )
  1 : MAKEBOOT FLUSH  EMPTY-BUFFERS
  2  ." INSERT NEW DISK, TYPE Y" CR
  3 0 PAD ! ( DEFAULT ) PAD 3 EXPECT
  4  PAD C@ 59 = IF 1  52  C! CR
  5  ." Writing sectors:" CR CR BOOT
  6  @   1 DUP .  WTSEC #SECT 0 DO I
  7  80 * +ORIGIN I 2 + WTSEC I 2 +
  8  . LOOP 0 52 C! CR ." BOOT COMPL
  9 ETED" CR THEN ; ( BOOT CODE:)
  A  HERE BOOT ! ( PT TO US )
  B  ASSEMBLER 1FF , 480 , ' V1.4S ,
  C  #SECT # LDA, 0= IF, 0 +ORIGIN ,
  D  1 , ENDIF, N STA,    2C8 C@
  E  # LDA, 2C8 STA,  D01A STA,
  F     2C6  C@   # LDA, 2C6 STA,
 10   D018 STA,
 11  52 # LDA, 302 STA, 48C LDA, 30A
 12  STA, 48D LDA, 30B STA, ( SCT1 )
 13  1 # LDA, 301 STA, 48A LDA, 304
 14 STA, 48B LDA, 305 STA, ( ORIGIN)
 15  BEGIN, 30A INC, 0= IF, 30B INC,
 16        ENDIF, E453 JSR, 303 LDA,
 17  .A ASL, CS IF, RTS, ( FRETURN )
 18        ENDIF, 304 LDA, 80 # EOR,
 19  304 STA, 0< NOT IF, 305 INC,
 1A  ENDIF, ( BUMP PTR.) N DEC, 0=
 1B UNTIL, 48A LDA, 0A STA, 48B LDA,
 1C  0B STA,  E C@ # LDA, 2E7 STA,
 1D  F C@ # LDA, 2E8 STA, CLC, RTS,
 1E    FORTH
 1F   -->

SCR # 19 
  0 ( BACKUP HES 82AUG15   3/4 ) (
  1 35F ARRAY BUCD BLK @ BLOCK A0 +
  2 BUCD 35F CMOVE CODE bg E474 JMP,
  3  C; : BACKUP  BUCD 480 35F CMOVE
  4  480 C ! bg  ;         )   -->
 11 fig-FORTH 1.4S FAST
 12  BACKUP Vers.1.2   BY H.E.STRIEP
 13 E 1982
 14   START   - commence I/O
 15   SELECT  - write with verify
 16   OPTION  - REBOOT
 17 Insert source disk and press STA
 18 RT,   or select OPTION to REBOOT
 19 
 1A Reading SOURCE disk...
 1B Insert destination disk, press S
 1C TART, or SELECT
 1D Writing DESTINATION disk...
 1E }****** DUPLICATION SUCCESSFUL *
 1F *****

SCR # 1A 
  0 ( SYS SET UP/BOOTMKR   4/4 )
  1  : DoFORget  ( Forgets below   )
  2      ' TEXT NFA FENCE ! ( fence)
  3      0 FORGET TEXT  ;
  4 
  5    HEX
  6    LMARGN @ 2700 LMARGN !
  7 ." }fig-FORTH 1.4S SYSTEM SET-
  8 UP Vers.1.1 " CR CR
  9 ." DoFORget WORD  forgets below
  A FENCE." CR CR
  B ." n SETPHYS      permanently ch
  C anges the                 OFFSET
  D  of screen #0." CR CR
  E ." RESPHYS        resets the OFF
  F SET to its                origin
 10 al value; use" CR
 11 ."                n SETPHYS twic
 12 e to set                  RESPHY
 13 S to a new value" CR CR
 14 ." n FORMAT       formats disk i
 15 n drive n. " CR CR
 16 
 17 ." MAKEBOOT       writes out com
 18 piled boot
 19        sectors." CR
 1A ." SETSYS         sets booton pa
 1B rameters:" CR ."
 1C screen margins, colors" CR CR (
 1D ." BACKUP         fast single dr
 1E ive utility " CR  )
 1F  LMARGN ! EMPTY-BUFFERS SP!  ;S

SCR # 1B 
  0 ( DISK RPM CHECKER     1/1 )
  1 CODE ZIO XSAVE STX, BOT LDA,
  2          E459 JSR, XSAVE LDX,
  3          BOT STY, BOT 1+ STA,
  4      NEXT JMP, C;
  5 246 CONSTANT DSKTIM
  6 : DSIO ( DISK HNDLR VIA SIO )
  7 ( BADDR AUXS UNIT-CMD DATFLG )
  8    303 C! ( SET DATA-FLAG )
  9    301 ! ( DUNIT,CMD) 31 300 C!
  A    ( DEVICE) 30A ! ( AUXES )
  B    304 ! ( BUFER-ADDR ) 0 ZIO ;
  C 1 VARIABLE DR#
  D  : BIO DSKTIM @ 306 C! 80 308 !
  E          ( BUFLEN) DSIO ;
  F  : RDSEC 5200 OR 40 BIO ;
 10 ( DISK SPEED CHECKER )
 11 
 12   14 CONSTANT RTCLOCK
 13  2F2 CONSTANT KBCHAR
 14   FF CONSTANT EPTY
 15 : READ-SEC PAD 1 DR# C@ RDSEC ;
 16 : CLR-KBRD   EPTY KBCHAR C! ;
 17 : RPM DECIMAL CLR-KBRD 1 2F0 C!
 18   DR# C! 0 17 POS. ." RPM=    "
 19   BEGIN KBCHAR C@  EPTY = WHILE
 1A   READ-SEC DROP 0 RTCLOCK C!
 1B  10 1 DO READ-SEC DROP LOOP D2F0
 1C   0 RTCLOCK C@ U/ SWAP DROP
 1D   4 17 POS. . REPEAT CLR-KBRD
 1E   0 2F0 C! HEX ;  ;S
 1F ( NEEDS DRIVE # ON THE STACK )

SCR # 1C 
  0 ( DISK RPM CHECKER     1/1 )
  1 CODE ZIO XSAVE STX, BOT LDA,
  2          E459 JSR, XSAVE LDX,
  3          BOT STY, BOT 1+ STA,
  4      NEXT JMP, C;
  5 246 CONSTANT DSKTIM
  6 : DSIO ( DISK HNDLR VIA SIO )
  7 ( BADDR AUXS UNIT-CMD DATFLG )
  8    303 C! ( SET DATA-FLAG )
  9    301 ! ( DUNIT,CMD) 31 300 C!
  A    ( DEVICE) 30A ! ( AUXES )
  B    304 ! ( BUFER-ADDR ) 0 ZIO ;
  C 1 VARIABLE DR#
  D  : BIO DSKTIM @ 306 C! 80 308 !
  E          ( BUFLEN) DSIO ;
  F  : RDSEC 5200 OR 40 BIO ;
 10 ( DISK SPEED CHECKER )
 11 
 12   14 CONSTANT RTCLOCK
 13  2F2 CONSTANT KBCHAR
 14   FF CONSTANT EPTY
 15 : READ-SEC PAD 1 DR# C@ RDSEC ;
 17 : RPM DECIMAL CLR-KBRD 1 2F0 C!
 18   DR# C! 0 17 POS. ." RPM=    "
 19   BEGIN KBCHAR C@  EPTY = WHILE
 1A   READ-SEC DROP 0 RTCLOCK C!
 1B  10 1 DO READ-SEC DROP LOOP D2F0
 1C   0 RTCLOCK C@ U/ SWAP DROP
 1D   4 17 POS. . REPEAT CLR-KBRD
 1E   0 2F0 C! HEX ;  ;S
 1F ( NEEDS DRIVE # ON THE STACK )

SCR # 1D 
  0 ( EMPTY BLOCK D  ) ;S
  1 
  2 
  3 
  4 
  5 
  6 
  7 
  8 
  9 
  A 
  B 
  C 
  D 
  E 
  F 
 10 
 11 
 12 
 13 
 14 
 15 
 16 
 17 
 18 
 19 
 1A 
 1B 
 1C 
 1D 
 1E 
 1F 

SCR # 1E 
  0 \ scr# E   empty block       1/1
  1  ;S
  2 
  3 
  4 
  5 
  6 
  7 
  8 
  9 
  A 
  B 
  C 
  D 
  E 
  F 
 10 
 11 
 12 
 13 
 14 
 15 
 16 
 17 
 18 
 19 
 1A 
 1B 
 1C 
 1D 
 1E 
 1F 

SCR # 1F 
 10 ???ADCANDASLBCCBCSBEQBITBMIBNEBP
 11 LBRKBVCBVSCLCCLDCLICLVCMPCPXCPYD
 12 ECDEXDEYEORINCINXINYJMPJSRLDALDX
 13 LDYLSRNOPORAPHAPHPPLAPLPROLROR
 14 RTIRTSSBCSECSEDSEISTASTXSTYTAXTA
 15 YTSXTXATXSTYA
 16 
 17 
 18    #X))Y,X,YN).A
 19 
 1A 
 1B 
 1C 
 1D >> DECOMP DISASSEMBLER STUFF <<
 1E  DO NOT MOVE FROM THIS SCREEN !
 1F 

SCR # 20 
  0 ( Greetings from  Team Forth  )
  1           24 LIST = crib sheet >
  2 Team Forth welcomes you to the
  3 world of Atari fig-Forth. We are
  4 trying to make FORTH easy for
  5 you to learn and use. Since we
  6 are learning too, we would be
  7 pleased to get any feed back you
  8 may have on this version of fig-
  9 FORTH, and the included documen-
  A tation. Please send any comments
  B to Team Atari, 4029 Payne Ave.,
  C San Jose, Ca., 95117 or leave
  D E-mail on Compuserve for ~[70525,
  E 434] We'll try to answer all
  F correspondence. (TYPE LL) Rev.H+
 10 This disk is an attempt to write
 11 a self-tutorial on using this
 12 version of fig-FORTH. Just read
 13 the text and try the examples by
 14 placing the cursor on the line
 15 with the example and pressing
 16 the <RETURN> key. Have fun.
 17     NOTE 0 LIST is a catalogue.
 18 Let's try out a couple of words.
 19 ( UPPER LIST & LOWER LIST )
 1A 
 1B Ok To begin, type in the lower
 1C screen area. First type UL <RE
 1D TURN> then to return here type
 1E LL <RETURN>, then to go to the
 1F next screen by pressing <N>

SCR # 21 
  0 ( PREVIOUS, NEXT, TOGGLE       )
  1 Now type P and then use the T
  2 command to get back here. OK,
  3 N = next, P = previous and  T =
  4 toggle; FORTH stores the last
  5 two screens you LOADed or LISTed
  6 or EDITed in two buffers which
  7 you can toggle by using <T>.
  8 This is especially handy to
  9 compare screens from different
  A areas of a disk, or from two
  B different disks.
  C 
  D The next handy-dandy command to
  E learn is the INDEX word.
  F       (TYPE  LL TO CONT.)
 10 INDEX is the word you use to see
 11 what is on one of your FORTH
 12 source disks. It shows you the
 13 first line of each screen on the
 14 disk. ( perhaps I should mention
 15 that FORTH organizes the disk in
 16 screens, the units you have been
 17 looking at, i.e. that which will
 18 fill up a TV screen. A good rule
 19 to follow is to make the first
 1A line of any screen you write a
 1B short description of what is on
 1C the screen. Then when you use
 1D INDEX you get a quick list of
 1E the contents. By printing this
 1F you have a nice (TYPE N)

SCR # 22 
  0 ( ."/LPINDEX/SHOWLP/LPOPEN/    )
  1 listing of the contents of the
  2 disk. To try this out type in
  3 the following line down below:
  4 0 GR. 0 4D INDEX  or you might
  5 try useing <SHIFT> <CLEAR> and
  6 then typing 0 4D INDEX.
  7       ( Must be in caps )
  8 <."> is a FORTH word pronounced
  9 DOT QUOTE that works with <">
  A pronounced QUOTE to print the
  B text included between them.
  C  Make a note...                 
  D  TO RETURN HERE TYPE   12 UE    
  E   (for page 12, uppper edit)    
  F   then type LL to continue.    
 10 Now to print the Index, you need
 11 to get your printer all ready,
 12 type LPOPEN,  and then type-
 13 0 4D LPINDEX. This will print it
 14 out. To print any single screen
 15 you type xx LISTLP (xx being the
 16 screen number). Two screens may
 17 be shown side by side on a page
 18 from the printer by typing -
 19 xx SHOWLP. This will print scrn.
 1A xx and the next screen after xx.
 1B 
 1C                                 
 1D REMEMBER TO RETURN TYPE  12 LE  
 1E                                 
 1F 

SCR # 23 
  0 ( BACKUP/CSECTS/WARN/GS/WS/N/+ )
  1 By now you may have wondered how
  2 to copy this disk. You can't do
  3 it using standard DOS as there
  4 is no Directory on a FORTH disk.
  5 You can use 'SUPERDUP', ARCHIVE,
  6 or any other sector copier.
  7 The word SYS will load several
  8 useful words like FORMAT and
  9 MAKEBOOT. MAKEBOOT makes a boot-
  A able disk with all the words you
  B have defined included.    SYS
  C will load a menu screen giving
  D instructions. NOTE: DO NOT MOVE
  E any of the screens 1 through B
  F and F !!!             (type LL)
 10 To turn on the english error
 11 message system, type WARNON. To
 12 turn them off and get only #
 13 msgs type WARNOFF.
 14 
 15 The options available now for
 16 screen color are GS=green scrn,
 17 WS=white screen, NS=normal scrn,
 18 BS=black screen. Give them a try
 19 and see which ones you like.
 1A 
 1B Now try HX, DX. The border color
 1C will change to remind you which
 1D number base you are in. NOTE
 1E HEX & DEC or DECIMAL are good
 1F too.          (type N to cont.)

SCR # 24 
  0 ( GENERAL INFO.               )
  1 Now that we have some basic
  2 tools with which to find our
  3 way around the disk, a little
  4 general information on how the
  5 goodies are stored here. This
  6 disk contains most of the words
  7 of this version of fig-FORTH in
  8 the compiled form, i.e. they are
  9 LOADed and ready to use. You got
  A the list of words available to
  B you if you printed out the
  C VLIST. The second disk in this
  D package contains a very small #
  E of words in compiled form and
  F      (type LL to cont.)
 10 the rest are on source screens.
 11 This allows you to keep your
 12 kernel (the compiled words) of
 13 FORTH as small as possible, thus
 14 saving as much memory space in
 15 RAM as possible. The more words
 16 compiled in RAM the less room
 17 for you to work with in your own
 18 applications. In order to add a
 19 section of words to the kernel
 1A just LOAD the screen they are on
 1B by typing xx LOAD. (xx is the
 1C screen number). xx L& turns of
 1D the screen for faster compila-
 1E tion, but use it only on tested
 1F screens.      (type N to cont.)

SCR # 25 
  0 ( LIST/L./DOIT/WIPE            )
  1 The format you have been using
  2 so far is the EDITOR format.
  3 You can look at screens in two
  4 different formats. By typing L#
  5 you will get line numbers on the
  6 editing screen to facilitate use
  7 of line edit commands. If you
  8 want to get rid of them later
  9 just type NL# and they will go.
  A 
  B The other major format for look-
  C ing at screens is the LIST or L.
  D format. Type xx L. to see this
  E one.
  F               (type LL to cont.)
 10 In the LIST format you have to
 11 use the <CTRL><1> key to stop
 12 and start the scrolling of the
 13 screen.
 14 
 15 The next screen is blank so you
 16 can try some screen editing.
 17 Type N to go there and then type
 18 on the screen. When done use the
 19 cursor arrow keys to move down
 1A to the line with "DOIT" on it &
 1B press the <RETURN> key. Then
 1C type FH or FLUSH to save it to
 1D the disk. To erase it type
 1E 16 WIPE, or W while in the
 1F editor (TYPE 17 UE TO SKIP THAT)

SCR # 26 
  0 \ scr# 16  empty block       1/1
  1 HELLO
  2 
  3 
  4 
  5 
  6 
  7 
  8 
  9 
  A 
  B 
  C 
  D 
  E 
  F 
 10 
 11 
 12 
 13 
 14 
 15 
 16 
 17 
 18 
 19 
 1A 
 1B 
 1C 
 1D 
 1E 
 1F 

SCR # 27 
  0 ( scr# 17  REV.G COMMENTS  ) ;S
  1 ( HES   82SEP27            )
  2 REV.G has a number of bug fixes
  3 for REV.A OS. It also intercepts
  4 the DOSINI vector during BOOT,
  5 and at WARMSTART (RESET). This
  6 makes it possible to set screen
  7 colors and margins at boot up
  8 and reset.
  9 Simply set your margins and
  A screen colors before calling SYS
  B Select STACKON or STACKOFF. Then
  C command SETSYS,  and MAKEBOOT.
  D Your new disk will now boot in
  E your colors,  and have your mar-
  F gins.       <LL>
 10 You can also hook in an ML SUB-
 11 ROUT.at this time. It must have
 12 been defined prior calling SYS.
 13 After calling SYS, command
 14 HOOK word (<your assembler word)
 15 UNHOOK reverses the process, if
 16 you think you made a mistake.
 17  NOTE:  Your word is called as
 18 a machine subroutine, and must
 19 end with RTS,.
 1A   The screen editor now has a
 1B KEYBOARD intercept,  so you can
 1C not accidentally hit CR while
 1D editing the upper screen. To
 1E override CR on the upper portion
 1F ( while editing) hit CTRL CR (N)

SCR # 28 
  0 ( scr# 18  REV.G contd.    ) ;S
  1   UNLINK  (DEFAULT) disconnects
  2 Dr2 (810 only) from PHYSOFF,
  3 your second disk normally does
  4 not contain the BOOT,  e.g. SCR
  5 # 0 starts at sector 1. LINK
  6 reverses UNLINK.
  7 Note that a lot of screens have
  8 been changed from the previous
  9 REV., so full compilation
  A requires staying with one group
  B of source screens. The enhanced
  C SYS commands should not be used
  D with KERNELS of previous REV.s.
  E CHECK SCR#'s $24 for EDIT comnds
  F  ETC.. #$38 has REV H comments
 10 If you have questions, contact
 11 me (at reasonable hours, please)
 12     at <408>356-3921,
 13    or you can leave MESSAGES at
 14  the following BBS's:
 15    TABBS   <408> ???-????
 16    IBBS    <408> 298-6930
 17  (The latter is the preferred
 18   communications technique.)
 19 Since DAVE FLORY is distributing
 1A this package, naturally he can
 1B also be contacted.
 1C 
 1D May fig-FORTH be with you...
 1E H.E.STRIEPE
 1F NOTES by John A. Peters 239-5393

SCR # 29 
  0 ( PLAYER/MISSILE DEMO          )
  1 Now let's take a look at the
  2 player/missile demo. To do this
  3 please type 1A 1B SHOWLP. If you
  4 have not previously used the
  5 printer words type LPOPEN first.
  6 Then you will have the two scrns
  7 printed out and can compare them
  8 as you read the rest of this.
  9 
  A The B/H word is used to convert
  B a binary shape table to hex and
  C decimal for use in Players and
  D missiles. See screen 1C for more
  E info.
  F         ( type 1C UE to cont.)
 10 
 11 
 12 
 13 
 14 
 15 
 16 
 17 
 18 
 19 
 1A 
 1B 
 1C 
 1D 
 1E 
 1F 

SCR # 2A 
  0 ( PLAYER/MISS.STUFF-RZ 1/1 )
  1  0 VARIABLE 0VP 64 VARIABLE 0HP
  2  0 VARIABLE 0VPOLD
  3 : SPB  HIMEM @ 1+  F800 AND
  4     800 - DUP Qbase ! 17F +
  5               HIMEM ! ;
  6 : GETPS  0VP  ! ROT BLOCK ROT +
  7     Qbase @ 400 + 0VP  @ + ROT
  8     CMOVE ;
  9 : SPLAY  0 0 HPOS! 7 GR. SPB
  A   Qbase 1+ C@  PMBASE C!
  B   2A 0 COLPM!
  C   1 0 SIZE!   3E D400 C!
  D   3E DMACTL C! 3 GRACTL C!
  E   1C 20 8 64 GETPS  ;
  F  : CLRPM  Qbase @ 800 ERASE ;
 10 : MOVEH   0 STICK F XOR C AND
 11    DUP IF 2 / 3 - ENDIF 0HP @
 12    + DUP 0HP ! 0 HPOS!  ;
 13 : VPOS!  0VPOLD @ 9C00 + DUP
 14   9800 8 CMOVE  8 ERASE  9C00 +
 15   9800 SWAP 8 CMOVE ;
 16 : MOVEV        0 STICK F XOR
 17   3 AND   DUP IF 2 * 3 - ENDIF
 18   -DUP IF 0VP @ DUP 0VPOLD ! +
 19   DUP 0VP !  VPOS! ENDIF ;
 1A : RUNIT BEGIN   MOVEH MOVEV
 1B     2FC C@ FF = NOT END ;
 1C : BN BINARY ; : OCT OCTAL ;
 1D : B/H DUP HEX ." H
 1E EX =" . DX  ." DEC.=" . BN QUIT
 1F ;      6 GPRIOR C! ;S

SCR # 2B 
  0 ;S ( P/M COMMENT & INSTRUCTIONS
  1    by Dave Flory/ Bay Area ATARI
  2 User Group.
  3 0VP = P/0 vert. position
  4 0HP = P/0 hor. position
  5 0VPOLD = P/0 old vert. position
  6 GETPS = get player shape & place
  7 in P/M memory space.
  8 SPLAY = show player. The 2A in
  9 front of the COLPM! is the color
  A of player in HEX. <setcolor colo
  B r * 16 + luminance>  The first
  C no. in front of SIZE! is the P/M
  D width no., 2nd is no. of P/M.
  E The no.s for GETPS in SPLAY are:
  F 1. the no. of screen holding P/M
 10 2. the # of bytes into the scrn.
 11 where the Player data starts.
 12 3. the # of bytes of player data
 13 4. the hor. pos. to show player
 14 
 15 You must be careful to place the
 16 data correctly on the data scrn.
 17 Count in carefully and enter the
 18 data in characters. This is done
 19 by using BDUMP to enter the HEX
 1A numbers into RAM buffer position
 1B corresponding to the screen. See
 1C BDUMP comments & comments on the
 1D next screen which holds sample
 1E player data.   )
 1F             (TYPE N TO CONT.)

SCR # 2C 
  0 ( PLAYER/MISSILE SHAPE TABLE )
  1 Z<   ~$<
  2 
  3 
  4 
  5 
  6 
  7 The characters on the top of the
  8 screen were entered into the scr
  9 buffer usinG BDUMP after getting
  A the correct HEX numbers using
  B the B/H word. It is already
  C available in this version. (When
  D working with the source disk
  E Load the P/M screen.)
  F          (Type LL to cont.)
 10 This will give the numbers for a
 11 small flat box shape:
 12 
 13 BN
 14 11111111 B/H HEX =FF DEC.=FF
 15 10000001 B/H HEX =81 DEC.=81
 16 10000001 B/H HEX =81 DEC.=81
 17 11111111 B/H HEX =FF DEC.=FF
 18 
 19 To use B/H you must be in BN or
 1A binary base, then you enter the
 1B binary shape line and type B/H
 1C and press <RETURN>, FORTH will
 1D type the HEX and DEC. no.s for
 1E you.
 1F       (Type N to cont.)

SCR # 2D 
  0 ( BDUMP/ EXAMPLE            )
  1 To put these numbers onto the
  2 disk without having to look up
  3 Atari control keys in the table,
  4 you use the BDUMP word. In this
  5 case it works like this. You
  6 type the following: 1C BLOCK
  7 DUP 2A + BDUMP    This gives you
  8 the top 2A character positions
  9 of screen 1C displayed on the
  A monitor. You then count in the
  B number of spaces you want the
  C data to be and enter it on the
  D screen using the cursor and
  E pressing <RETURN> on the same
  F line.  (Type LL to cont. )
 10 It looks like this:
 11 
 12 1C BLOCK DUP 2A + BDUMP
 13 0500 28 20 50 4C 41 59 45 52 
 14 0508 2F 4D 49 53 53 49 4C 45 
 15 0510 20 53 48 41 50 45 20 54 
 16 0518 41 42 4C 45 20 29 20 20 
 17 0520 18 FF 24 DB 24 5A 99 81 
 18 0528 20 20 20 20 20 20 20 20 
 19  oK
 1A The place that the player is on
 1B now is displayed on line 520.
 1C By putting the cursor on that
 1D line and typing in the no.s you
 1E see how I entered the player
 1F shape.   (type N to cont.)

SCR # 2E 
  0 ( SPLAY/RUNIT/GRAPHICS WORDS )
  1 Enter 6 GPRIOR C!
  2 To see the shape and run the
  3 player/missile demo type SPLAY
  4 and RUNIT. This will display the
  5 shape under the control of joy-
  6 stick 0. You will notice that
  7 the shape "hides" behind the
  8 text window and and the stack
  9 display (if the latter is on).
  A Later you can draw some play-
  B field stuff and experiment with
  C making him go in front of some
  D and behind others by putting a
  E different # in GPRIOR.
  F             ( LL )
 10 The graphics commands in this
 11 FORTH for the Atari are very
 12 like those you use in BASIc
 13 except that as you have noted
 14 here the numbers come first not
 15 after the commands.
 16 
 17 x C. = COLOR x
 18 x GR. = GRAPHICS x
 19 x y PL. = PLOT x y
 1A x y DR. = DRAWTO x y
 1B similarly POS. is POSITION, SE =
 1C SETCOLOR, etc. The fill command
 1D is XIO18 and it requires you to
 1E put the fill color on the stack
 1F first.            (N)

SCR # 2F 
  0 ( DEMO OF P/M PRIORITY         )
  1 ( For a demo load this screen.
  2 It will draw a couple of bars
  3 of vertical colors for the bug
  4 to play in. After typing SPLAY
  5 type 1F LOAD then type RUNIT. )
  6 
  7 DX  1 C. 90 90 PL. 90 10 DR. 80
  8 10  DR. 80 90 POS. 1 XIO18 ( FIR
  9 ST BAR ) 2 C. 70 90 PL. 70 15
  A DR. 50 15 DR. 50 90 POS. 2 XIO18
  B  ( 2ND BAR ) 3 C. 30 40 PL.
  C 30 20 DR. 10 15 DR. 10 80 POS.
  D 3 XIO18 ;S 3rd bar fill runs
  E over to the right this time
  F            (LL)
 10 as the POS. statement is lower
 11 than the initial PL. statement
 12 for this bar.
 13 
 14 After looking at this one play
 15 around a little. It will take
 16 some work to make this display
 17 four players at the same time,
 18 but its fun to try. You may want
 19 to go back and redefine some of
 1A the words to expect the player
 1B number on the stack to tell them
 1C which player to work on, or you
 1D can just define a word for each
 1E player and call them by name.
 1F Hope you have fun.  (N)

SCR # 30 
  0 ( STACK DISPLAY                )
  1 One of the nice features of this
  2 system is the stack display. To
  3 use it just type STACKON. Then
  4 type a few numbers and press
  5 <RETURN>. You will see them show
  6 on the stack display at the top
  7 of your monitor screen. To turn
  8 it off when unwanted STACKOFF.
  9 You will find the STACK display
  A very useful to you as you start
  B defining your own words as you
  C can go through each step in the
  D word singly and watch what it
  E does to the stack. The stack is
  F the single most difficult  (LL)
 10 thing for most begiinning FORTH
 11 nuts to understand, and this
 12 display is used by even the
 13 experienced programmers I know.
 14 
 15 Put some numbers on the stack
 16 and try some of the Math words
 17 like + and /, and *. Use SWAP,
 18 and ROT, and . and DROP, etc.
 19 and observe their stack effects.
 1A 
 1B NOTE THIS Forth is based on the
 1C HEX number system ( 1 2 3 4 5 6
 1D 7 8 9 A B C D 10 11 12 etc.)
 1E 
 1F 

SCR # 31 
  0 ( DECOMPILER/DCP/ZZ            )
  1 Now we come to one of the most
  2 useful and powerful words in the
  3 vocabulary of this FORTH version
  4 the decompiler word. To use it
  5 just type DC xxxx, with xxxx the
  6 word you want decompiled or
  7 taken apart. This word works on
  8 even the primitive words in the
  9 fig-FORTH kernel. Try a few of
  A the simple words first, like
  B GS, or NS. When you do you will
  C find that the numbers above 0,1,
  D and 2 all have LIT after them.
  E The first three are used so much
  F that they are FORTH words. (LL)
 10 ( screen 21 )
 11 The LIT tells FORTH that the
 12 They are to be taken as literal
 13 values. To give you an idea how
 14 this works try typing in this
 15 definition and then DC AS.
 16 
 17 DX : AS 26 709 C! 18 710 C!
 18 16 712 C! ;
 19 
 1A You now have another word avail.
 1B to you AS or amber screen. To
 1C make this a permanent part of
 1D your disk you can use MAKEBOOT
 1E to write out all the compiled
 1F words you have in RAM. (N)

SCR # 32 
  0 ( TEXTS ON FORTH               )
  1 This should give you enough to
  2 think about for quite a while if
  3 you are new to FORTH. We haven't
  4 tried to make you a programmer,
  5 but just to introduce you to the
  6 features of this version of the
  7 language and help you over a few
  8 of the initial rough spots.
  9 
  A There are several good books for
  B new people in FORTH. The one I
  C personally found most helpful
  D was DISCOVER FORTH published by
  E McGraw Hill. The best next book
  F and probably the best    (LL)
 10 if you can only afford to buy
 11 one is STARTING FORTH by Leo
 12 Brodie, and published by FORTH
 13 Inc.
 14 
 15 I wish you the best of luck and
 16 hope that you will keep us up to
 17 date on your extensions to this
 18 language. We will try to act as
 19 a clearing house for ATARI FORTH
 1A people. AS we come up with more
 1B features we will add them to the
 1C package. we will try to upload
 1D the new stuff onto Compuserve
 1E ACCESS area so that you can get
 1F              (N)

SCR # 33 
  0 ( CONCLUSION                   )
  1 updates without a lot of mailing
  2 disks and paying postage. To
  3 this end I suggest that you keep
  4 the original source disk without
  5 change so that you can recompile
  6 your working kernel as you get
  7 updates. If someone writes us
  8 a terminal prgram written in
  9 Atari FORTH we will make it
  A available immediately so that we
  B can all communicate FORTH stuff
  C more easily, without typing in
  D the screens on the keyboard.
  E 
  F             (LL)
 10 That's all, keep on SWAPing,
 11 
 12     Dave Flory Presently pres.
 13 
 14   BAY AREA ATARI USER GROUP
 15      4029 PAYNE AVENUE
 16       SAN JOSE, CALIF.
 17           95117
 18 
 19       408) 244-7181
 1A    COMPUSERVE ~[70424,434]
 1B 
 1C       02:26 27 June, 1982      
 1D 
 1E PLEASE COPY AND PASS THESE DISKS
 1F AROUNDTO EVERY ONE YOU KNOW <N>

SCR # 34 
  0 \ scr# 24  empty block       1/1
  1  ;S
  2 
  3 
  4 L,N,P      - List current,next
  5              or previous screens
  6 LL         - List lower 1/2 of
  7              current edit screen
  8 UL         - List upper 1/2 of
  9              current edit screen
  A DOIT       - Take top 16 lines
  B              of screen and place
  C              them into the top
  D              or bottom 1/2 ( LL
  E              or UL ) of the edit
  F              screen.
 10 x y COPY   - Copy block x to
 11              block y. No change
 12              to block x
 13   n LIST   - Set SCR to n and
 14              list the block
 15 x y SHOW   - List blocks x to y
 16              inclusive
 17 x y INDEX  - List first line of
 18              blocks x thru y
 19    FLUSH   - Return to FORTH voc
 1A              and write out all
 1B              updated blocks
 1C   UPDATE   - Mark block (SCR) as
 1D              updated
 1E 
 1F fig-FORTH 1.4S comnds next block

SCR # 35 
  0       FAST EDIT  COMMANDS
  1 
  2   EDT   - same as EDITOR
  3   FORTH - exits EDITOR without
  4           action
  5   n UE  - same as n EDIT UL
  6   n LE  - same as n EDIT LL
  7     N   - edit next upper scrn
  8     N.  - edit next lower scrn
  9     P   - edit prev upper scrn
  A     p.  - edit prev lower scrn
  B     T   - edit other upper scrn
  C           in buffer
  D     T.  - edit other lower scrn
  E           in buffer
  F     FH  - same as FLUSH
 10   WIPE   - clr scrn to be edited
 11     W    - WIPE,will respond
 12            with question, RETURN
 13            or Y will execute
 14   LOAD   - FLUSH scrn edited,and
 15            LOAD
 16   n LOAD - will flush and load n
 17   L#OFF  - off LINE # display
 18   L#ON   - on  LINE # display
 19   SOUNDOFF - remove tone cue
 1A            (the beep heard for
 1B             various edit comnds)
 1C   SOUNDON  - reset tone cue
 1D 
 1E 
 1F   LINE EDITOR COMMNANDS NXT SCRN

SCR # 36 
  0   EDITOR LINE EDITING COMMANDS
  1 
  2   n TL  - Type line n    >(PAD)
  3   n HL  -      line n    >(PAD)
  4   n DL  - Delete line n  >(PAD)
  5   n IL  - Insert (PAD) after n
  6   n RL  - Replace n with (PAD)
  7   n SL  - Spread at line n
  8   n BL  - Blank line n
  9 
  A   n $_  - Text following $_ will
  B           replace line n and go
  C           to PAD
  D   n %_  - Text following %_ will
  E           be inserted after line
  F           n and go to PAD
 10 s n CL  - Move line n of block s
 11           to PAD
 12 
 13 
 14 *** NOTE ***
 15 
 16  >(PAD) : Means that line n is
 17           also moved to PAD
 18 
 19 
 1A 
 1B 
 1C 
 1D  ( fig-FORTH 1.4S COMNDS NXT )
 1E 
 1F 

SCR # 37 
  0     fig-FORTH 1.4S COMMANDS
  1 
  2 n1 n2 n3 COPIES
  3         - move scrns n1 to n2
  4           to location starting
  5           at scrn n3 (n1-->n3,
  6           n1+1-->n3+1 etc.)
  7 n1 n2 DUPLICATE
  8         - will duplicate scrns
  9           on a single drive
  A SYS     - loads bootmaker and
  B           related words on
  C           SCREEN # $7
  D STACKON - turn stackdisplay on
  E STACKOFF- turn stackdisplay off
  F  NOTE:  BORDER REFLECTS # BASE
 10  STON   - STACKON
 11  STOF   - STACKOFF
 12  WARNON - display warning txt
 13  WARNOFF- just display error #
 14  DRAIN  - EMPTY-BUFFERS
 15  n1 n2 LZERO
 16         - CLEARS scrns n1 to n2
 17  n SETPHYS
 18         - set PHYSOFF to n
 19  RESPHYS- reset PHYSOFF to orgnl
 1A           value, use n STEPHYS
 1B           twice to chnge RESPHYS
 1C  DCP    - DECOMP
 1D  ZZ     - DECOMP
 1E  x y CDUMP - dump char. x to y,
 1F   USE LIKE BDUMP-  cont nxt scrn

SCR # 38 
  0      fig-FORTH 1.4S COMMANDS
  1 BY BOB GONSALVES/ANTIC MAGAZINE 
  2 n ><     - swap bytes
  3 n MSBYTE - leave MSB of n
  4 n LSBYTE - leave LSB of n
  5   VAR    - TO variable
  6            n TO <varname> will !
  7            n <varname> will @
  8 n MSB    - shortform MSBYTE
  9 n LSB    - shortform LSBYTE
  A 
  B BY R.MANSFIELD /COMPUTE! & HES  
  C x y FIND text - search for text
  D  starting with scr# x to y, will
  E search all scr of DR1 as default
  F abort by pressing START button
 10   NS,GS,WS,BS
 11          - change screen colors
 12   n U.   - n . unsigned
 13   VERIFY & NOVERIFY
 14          - change diskhandler
 15            write command
 16   n SNDOFF - turn off channel n
 17            (e.g. n 0 0 0 SOUND)
 18   THERE  - returns adr below
 19            display
 1A   FREE   - THERE HERE -
 1B   OCTAL  - change BASE to 8
 1C   BINARY - change BASE to 2
 1D   HX,DX,BX - shortforms
 1E   PON now does not require POFF
 1F   in same expression.   (contd.)

SCR # 39 
  0 ( fig-FORTH 1.4S COMMANDS  ) ;S
  1 
  2 n CHR  selects between three
  3          character sets, 0 is
  4          the normal ATARI vers
  5 
  6 n .CHRSET   prints out the
  7             desired set
  8 
  9 
  A read the TUTORIAL on the use of
  B  BDUMP and CDUMP ( note that
  C     CDUMP has a bug, and cannot
  D     handle  's )
  E 
  F 
 10 There are several ways to access
 11 the second drive in a two drive
 12 system. Screens starting at $800
 13 will access the second drive. If
 14 you are in the LINKed mode, SCR#
 15 $0 will start with the same
 16 PHYSOFF as dr 1. UNLINK starts
 17 drive two on the first sector.
 18 You can also use the standard
 19 Forth procedure and call DR0 for
 1A dr 1,  and DR1 for dr 2. Each in
 1B this case have their own PHYSOFF
 1C , which can be set with XXYY SET
 1D PHYS,  where YY is the PHYSOFF
 1E for dr1, and XX for dr2.
 1F            < N >

SCR # 3A 
  0 \ scr# 2A  REV H NOTES HES
  1 
  2  Note that a 2 SETPHYS will set
  3 the PHYSOFF for dr2 to 0.
  4  NEWDATE lets you enter your ini
  5 tials and date that will be used
  6 in the EDITOR by DATE to date th
  7 e comment line. In FORTH, DATE
  8 requires a screen range on the s
  9 tack. ( Works well with LZERO ).
  A PNS will convert a PNS screen th
  B at you might be editing. Just do
  C  the normal n UE (n is scr#),  t
  D han command PNS.  The \ comment
  E line is now also acceptable to f
  F ig-Forth.
 10 PICK and ROLL also have been add
 11 ed. n PICK will take the nth ite
 12 m on the stack, and duplicate it
 13 on top,  n ROLL just rolls it to
 14  the top.
 15 SETSYS, HOOK/UNHOOK are now part
 16 of the std. vocabulary.  JMP and
 17 JSR permit ML experiments,  just
 18 leave the address of your routin
 19 e on TOS.
 1A DR2 adds $800 to scr# (makes it
 1B easier when using DECIMAL mode).
 1C 
 1D 
 1E 
 1F 

SCR # 3B 
  0 ( scr# 2B  empty block 1/1 ) ;S
  1 
  2 
  3 
  4 
  5 
  6 
  7 
  8 
  9 
  A 
  B 
  C 
  D 
  E 
  F 
 10 
 11 
 12 
 13 
 14 
 15 
 16 
 17 
 18 
 19 
 1A 
 1B 
 1C 
 1D 
 1E 
 1F 

SCR # 3C 
  0 ( scr# 2C  empty block 1/1 ) ;S
  1 
  2 
  3 
  4 
  5 
  6 
  7 
  8 
  9 
  A 
  B 
  C 
  D 
  E 
  F 
 10 
 11 
 12 
 13 
 14 
 15 
 16 
 17 
 18 
 19 
 1A 
 1B 
 1C 
 1D 
 1E 
 1F 

SCR # 3D 
  0 ( scr# 2D  empty block 1/1 ) ;S
  1 
  2 
  3 
  4 
  5 
  6 
  7 
  8 
  9 
  A 
  B 
  C 
  D 
  E 
  F 
 10 
 11 
 12 
 13 
 14 
 15 
 16 
 17 
 18 
 19 
 1A 
 1B 
 1C 
 1D 
 1E 
 1F 

SCR # 3E 
  0 ( scr# 2E  empty block 1/1 ) ;S
  1 
  2 
  3 
  4 
  5 
  6 
  7 
  8 
  9 
  A 
  B 
  C 
  D 
  E 
  F 
 10 
 11 
 12 
 13 
 14 
 15 
 16 
 17 
 18 
 19 
 1A 
 1B 
 1C 
 1D 
 1E 
 1F 

SCR # 3F 
  0 ( scr# 2F  empty block 1/1 ) ;S
  1 
  2 
  3 
  4 
  5 
  6 
  7 
  8 
  9 
  A 
  B 
  C 
  D 
  E 
  F 
 10 
 11 
 12 
 13 
 14 
 15 
 16 
 17 
 18 
 19 
 1A 
 1B 
 1C 
 1D 
 1E 
 1F 

SCR # 40 
  0 ( FORTH TERMINAL HES   1/3 )
  1 ( V.1.0    HES 82AUG24     )
  2 ( USES IOCB #2/R1:,HANDLER )
  3 ( already booted           )
  4   FORTH DEFINITIONS   HEX
  5 
  6 ( OPEN #2,R1: INPUT/OUTPUT )
  7  : OPNR:  2 IOCB ( IOCB #2 )
  8     0 D R1: OPEN ( INP/OUT )
  9   ( ICSTA CH? ) ; ( STATUS )
  A 
  B ( CONFIG.#2,NO TRANSL,ATASCII )
  C  : CNFGR:  2 IOCB ( IOCB #2 )
  D      26 ICCOM C! R1: ICBAL !
  E      20 I1CAX ! CIO
  F   (  ICSTA CH? ) ; ( STATUS )
 10  0 VARIABLE STR:
 11 ( COMMAND n ---        )
 12  : STATR:   2 IOCB
 13      D  ICCOM C! ( COMMAND )
 14      CIO       ; ( STATUS  )
 15 ( START CONCURRENT IO )
 16  : STRTR:   2 IOCB 28 ICCOM C!
 17      R1: ICBAL ! 0 I1CAX C!
 18      CIO  ( ICSTA CH? ) ;
 19 ( CLOSE R: )
 1A  : CLSR:   2 IOCB CLOSE  ;
 1B ( CHECK   R:BUFFER )
 1C  : ?RBUF
 1D      STATR: 2EB @ ;
 1E   -->
 1F 

SCR # 41 
  0 ( FORTHTERM V.1.0      2/3 )
  1 ( CHECK KEYBOARD
  2  : ?CHLEAVE CH C@ FF = NOT IF
  3      FF CH C! ." Leaving MODE"
  4      CR LEAVE THEN ; )
  5 ( GET R: ROUTINE )
  6  : GETR    2 IOCB GET ;
  7 
  8 ( PUT R: ROUTINE )
  9  : PUTR    2 IOCB PUT ;
  A 
  B ( K: routines use IOCB #3  )
  C  : K: " K: " DROP ;
  D 
  E ( Open for INPUT )
  F  : OPNK:  3 IOCB ( IOCB #3   )
 10     0 4 K: OPEN ( INPUT ONLY )
 11    ( ICSTA CH? ) ; ( STATUS  )
 12 
 13 ( CLOSE )
 14  : CLSK:  3 IOCB  CLOSE  ;
 15 
 16 ( GET INPUT  --- n )
 17  : GETK   3 IOCB  GET ;
 18 
 19 
 1A   -->
 1B 
 1C 
 1D 
 1E 
 1F 

SCR # 42 
  0 ( FORTHTERM V.1.0      3/3 )
  1 
  2 : TERMINAL  CR CR
  3 ." fig-FORTH TERMINAL V.1.0"
  4 CR CR ."     START  --> exit"
  5 CR CR
  6 ."  ATASCII mode, full DUPLEX
  7 " CR CR 0 2BE C! ( lower case )
  8  OPNK: OPNR:   CNFGR:   STRTR:
  9 
  A 
  B  BEGIN
  C   ?RBUF IF       ( BUFFER ?? )
  D      GETR EMIT THEN ( GETIT  )
  E   CH C@ FF = NOT ( KEY PRESS )
  F   IF GETK PUTR THEN ( SEND IT)
 10   ?CONSOL 7 AND  UNTIL ( EXIT )
 11   CLSK: CLSR: CR
 12 
 13    CR ." Leaving terminal mode."
 14    40 2BE C!  CR CR ;
 15 
 16 
 17 
 18 
 19  ;S
 1A 
 1B 
 1C 
 1D 
 1E 
 1F 

SCR # 43 
  0 ( FORMATTED LIST PROG. 1/5 )
  1 
  2  VOCABULARY FORMY   IMMEDIATE
  3  FORMY   DEFINITIONS
  4   BASE @ OCTAL 40 CN SPACBYT 54
  5 CN COMCHR : IARRAY 0 VARIABLE -2
  6  ALLOT ; : 0> DUP 0= IF DROP  0
  7 ELSE  0< 0= THEN ;
  8 0 VARIABLE INDENT 106 CN FCONS
  9 111 CN ICONS 0 VARIABLE TLFLG
  A 0 VARIABLE KERKNT 100 CN MAXLIN
  B : NXSPACE >R 1+ >R 0   R> R> DO
  C SPACBYT I C@ = IF DROP I LEAVE
  D THEN LOOP ; : NXNSPACE >R 1+ >R
  E 0 R> R> DO SPACBYT I C@ = 0= IF
  F 
 10  DROP I LEAVE THEN LOOP ; : GTNX
 11 WD DUP IF + OVER SWAP NXSPACE
 12 ELSE DROP THEN DUP IF OVER SWAP
 13 NXNSPACE DUP IF OVER OVER
 14 NXSPACE DUP IF OVER - ELSE DROP
 15 OVER OVER - 1+ THEN ELSE DUP
 16 THEN ELSE DUP THEN ; : TORLCR TL
 17 FLG @ IF CRLP ELSE CR THEN KERKN
 18 T 0SET ; : TORLY DUP 1+ KERKNT +
 19 ! TLFLG @ IF LYPE ELSE TYPE SPAC
 1A E THEN ; : DOIND INDENT @ 0> IF
 1B INDENT @ 0 DO 0 0 TORLY LOOP THE
 1C N ; : PRWORD DUP 1+ KERKNT @ + M
 1D AXLIN > IF TORLCR THEN KERKNT @
 1E 0= IF DOIND THEN OVER OVER TORLY
 1F  ; : 1SET 1 SWAP ! ;  -->

SCR # 44 
  0 ( FORMATTED LIST PROG. 2/5 )
  1 : ( 51 WORD 6 ALLOT ;
  2 : IA IARRAY ; IA L1G 10  , ( :)
  3 ( CODE) ( ,CODE) ( SUBROUTINE)
  4  ( IA) ( IARRAY) ( LABEL) ( TBL)
  5  IA L2G 2 , ( ;) ( C;)
  6  IA L3G 2 , ( NXT,) ( NEXT,) IA
  7 L4G 6 , ( IF) ( DO) ( IF,)
  8   ( CASE) ( BEGIN) ( BEGIN,) IA
  9 L5G 3 , ( ELSE,) ( ELSE)
  A   ( WHILE) IA L6G 16 , ( THEN,)
  B ( THEN) ( END,) ( END) ( SOB,)
  C ( BACK) ( UNTIL) ( AGAIN) ( REPE
  D AT) ( ENDIF,)
  E   ( UNTIL,) ( LOOP) ( +LOOP) ( E
  F NDIF) IA L7G 7 , ( CONSTANT)
 10 ( IR)   ( VARIABLE)       ( CN)
 11 ( ARRAY) ( INTEGER) ( ORCON)
 12    IA L8G 1 , ( () IA L9G 3 , (
 13 LD,) ( ST,) ( LOAD)
 14 IA LAG 1 , ( ;CODE)
 15 
 16 : CMPWORD DUP >R C@ OVER = R>
 17 SWAP IF >R OVER
 18   R> SWAP OVER DUP C@ DUP 4 > IF
 19  DROP 4 THEN 0
 1A   DO I OVER + 1+ C@ >R OVER R>
 1B SWAP I + C@
 1C   = 0= IF 0 LEAVE THEN LOOP
 1D 
 1E   0= IF DROP DROP 0 THEN ELSE 0
 1F THEN ;   -->

SCR # 45 
  0 ( FORMATTED LIST PROG. 3/5 )
  1 : GSCAN DUP @ SWAP 2+ SWAP 0 DO
  2 CMPWORD IF LEAVE
  3   0 ELSE 6 + THEN LOOP IF 0 ELSE
  4  DROP 1 THEN ;
  5 : NEWCR KERKNT @ IF TORLCR THEN
  6 ;
  7 : DUPBC OVER >R >R OVER R> SWAP
  8 R> ;
  9 : FINDCHAR SWAP >R SWAP 1+ R>
  A DO DUP I C@ =
  B   IF DROP I LEAVE 0 THEN LOOP IF
  C  0 THEN ;
  D : PRNEWL PRWORD TORLCR ;
  E : >= OVER OVER = IF DROP DROP
  F 1 ELSE > THEN ;   -->
 10 
 11 
 12 
 13 
 14 
 15 
 16 
 17 
 18 
 19 
 1A 
 1B 
 1C 
 1D 
 1E 
 1F 

SCR # 46 
  0 ( FORMATTED LIST PROG. 4/5 )
  1 : EL1G NEWCR INDENT 0SET PRWORD
  2 GTNXWD PRNEWL
  3   10 INDENT ! ;
  4 : EL2G NEWCR PRNEWL INDENT 0SET
  5 ;
  6 : EL3G NEWCR PRNEWL ;
  7 
  8 : EL4G NEWCR PRNEWL 2 INDENT +!
  9 ;
  A : EL5G NEWCR -2 INDENT +! PRNEWL
  B  2 INDENT +! ;
  C : EL6G NEWCR -2 INDENT +! PRNEWL
  D  ;
  E : EL7G PRWORD GTNXWD PRNEWL INDE
  F NT 0SET ;
 10 : EL8G DUPBC 51 FINDCHAR DUP
 11 
 12   IF SWAP DROP OVER - 1+ PRNEWL
 13 ELSE DROP PRWORD THEN ;
 14 : EL9G PRNEWL ;
 15 
 16 : ELAG NEWCR 10 INDENT ! PRNEWL
 17 ;
 18 : ASSWRD DUP 4 >= IF OVER OVER +
 19  1- C@ COMCHR = IF
 1A    OVER DUP C@ ICONS =  SWAP 1+
 1B C@ FCONS = AND
 1C   IF 2 ELSE 1 THEN ELSE 0 THEN E
 1D LSE 0 THEN ;
 1E -->
 1F 

SCR # 47 
  0 ( FORMATTED LIST PROG. 5/5 )
  1 : PRCWRD L1G GSCAN IF EL1G ELSE
  2 L2G GSCAN IF EL2G ELSE
  3   L3G GSCAN IF EL3G ELSE L4G GSC
  4 AN IF EL4G ELSE L5G GSCAN
  5   IF EL5G ELSE L6G GSCAN IF EL6G
  6  ELSE L7G GSCAN IF EL7G
  7   ELSE L8G GSCAN IF EL8G ELSE L9
  8 G GSCAN IF EL9G ELSE
  9   LAG GSCAN IF ELAG ELSE ASSWRD
  A IF ASSWRD 2 =
  B   IF EL4G ELSE PRNEWL THEN ELSE
  C PRWORD THEN THEN THEN THEN THEN
  D THEN THEN THEN THEN THEN THEN ;
  E : FORLST TORLCR DUP TLFLG @ IF L
  F ISTLP ELSE
 10  TORLCR LIST THEN TORLCR TORLCR
 11 DUP BLK !
 12   BLOCK DUP 1777 + SWAP KERKNT 0
 13 SET INDENT 0SET 0 BEGIN GTNXWD
 14   DUP IF PRCWRD THEN DUP 0= END
 15 DROP DROP DROP BLK 0SET ;
 16 : ASTER TORLCR 40 0 DO 52 SP@ 1
 17 TORLY DROP LOOP TORLCR ;
 18 : FORSHW 1+ OVER DO ASTER I FORL
 19 ST TORLCR LOOP DROP ;
 1A FORTH DEFINITIONS : FLST FORMY T
 1B LFLG 0SET FORLST ; : FLSTLP FORM
 1C Y TLFLG 1SET FORLST FFLP ; : FSH
 1D W FORMY TLFLG 0SET FORSHW ; : FS
 1E HWLP FORMY  TLFLG 1SET FORSHW
 1F FFLP  ;  LPOPEN ;S

Add new attachment

Only authorized users are allowed to upload new attachments.
« This page (revision-4) was last changed on 05-Apr-2010 22:10 by Carsten Strotmann