DataMuseum.dk

Presents historical artifacts from the history of:

Jet Computer Jet80

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Jet Computer Jet80

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦93c11ad57⟧ TextFile

    Length: 1408 (0x580)
    Types: TextFile
    Names: »COMMOD.SL5«

Derivation

└─⟦c50ca4728⟧ Bits:30003533 StackWorks FORTH version 1.2 for Z-80
    └─⟦this⟧ »COMMOD.SL5«

TextFile


           ( Copyright 1980 The Stackworks.  All rights reserved )

                            ( COMMOD Version 1.2 )
                                 ( 3/25/80 )


INFOF @    0 INFOF !	      ( TURN OFF ECHO AND REDEF MESSAGE )
UPPER @    0 UPPER !	      ( set to lower case )
HEX


: USERP ;

'B USERP VARIABLE USERPAD     ( SET USERPAD TO DUMMY INITIALIZATION ROUTINE )
1 VARIABLE ?SYMTAB     	      ( IF SYMBOL TABLE ISN'T USED, SET ?SYMTAB TO 0 )


: COMUP ?SYMTAB @ IF
     HERE 6 @  SYMTP @ SYMPTR @ -   2DUP -   DUP SYMPTR !    RO▶d4◀ SYMT▶d0◀ ▶a1◀
      SWA▶d0◀ BMOV▶c5◀    ▶a7◀B INTRLP GOQIAD !    USERPAD @ GO 
      FORGET USERP   RESTART 
     ELSE 'B USERP DP !     USERPAD @ GO    RESTART
 ENDIF ;


: MAKECOM INFILE NAMIT     'B COMUP GOQIAD !    ?SYMTAB @ IF
     SYMPTR @ HERE SYMTP @ SYMPTR @ - BMOVE    ( MOVE THE SYMBOL TABLE )
      SYMTP @ SYMPTR @ - HERE + 
     ELSE HERE 
 ENDIF  CR C" Program size = "    DUP X.   C" / "   DUP DECIMAL .  HEX
 INFILE OPENW   100 DO
     I INFILE BUFAD 80 BMOVE     INFILE WRITE    80
 +LOOP   INFILE CLOSE  GO-OPSYS ;


: INSTR CR CR  
  T" Set the variable ?SYMTAB to 0 if the symbol table isn't needed."  
  CR T" Execute 'MAKECOM program.com' when ready"   CR CR  
  UPPER !       ( RESTORE UPPER )
  INFOF !	( RESTORE INFOF )
  ÆEND-OF-FILEÅ ;

INSTR


«eof»