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 - download

⟦93c11ad57⟧

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

Derivation

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

Hex Dump

0x000…020 0d 0a 20 20 20 20 20 20 20 20 20 20 20 28 20 43 6f 70 79 72 69 67 68 74 20 31 39 38 30 20 54 68   ┆             ( Copyright 1980 Th┆
0x020…040 65 20 53 74 61 63 6b 77 6f 72 6b 73 2e 20 20 41 6c 6c 20 72 69 67 68 74 73 20 72 65 73 65 72 76   ┆e Stackworks.  All rights reserv┆
0x040…060 65 64 20 29 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ed )                            ┆
0x060…080 20 20 20 20 28 20 43 4f 4d 4d 4f 44 20 56 65 72 73 69 6f 6e 20 31 2e 32 20 29 0d 0a 20 20 20 20   ┆    ( COMMOD Version 1.2 )      ┆
0x080…0a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 20 33   ┆                             ( 3┆
0x0a0…0c0 2f 32 35 2f 38 30 20 29 0d 0a 0d 0a 0d 0a 49 4e 46 4f 46 20 40 20 20 20 20 30 20 49 4e 46 4f 46   ┆/25/80 )      INFOF @    0 INFOF┆
0x0c0…0e0 20 21 09 20 20 20 20 20 20 28 20 54 55 52 4e 20 4f 46 46 20 45 43 48 4f 20 41 4e 44 20 52 45 44   ┆ !       ( TURN OFF ECHO AND RED┆
0x0e0…100 45 46 20 4d 45 53 53 41 47 45 20 29 0d 0a 55 50 50 45 52 20 40 20 20 20 20 30 20 55 50 50 45 52   ┆EF MESSAGE )  UPPER @    0 UPPER┆
0x100…120 20 21 09 20 20 20 20 20 20 28 20 73 65 74 20 74 6f 20 6c 6f 77 65 72 20 63 61 73 65 20 29 0d 0a   ┆ !       ( set to lower case )  ┆
0x120…140 48 45 58 0d 0a 0d 0a 0d 0a 3a 20 55 53 45 52 50 20 3b 0d 0a 0d 0a 27 42 20 55 53 45 52 50 20 56   ┆HEX      : USERP ;    'B USERP V┆
0x140…160 41 52 49 41 42 4c 45 20 55 53 45 52 50 41 44 20 20 20 20 20 28 20 53 45 54 20 55 53 45 52 50 41   ┆ARIABLE USERPAD     ( SET USERPA┆
0x160…180 44 20 54 4f 20 44 55 4d 4d 59 20 49 4e 49 54 49 41 4c 49 5a 41 54 49 4f 4e 20 52 4f 55 54 49 4e   ┆D TO DUMMY INITIALIZATION ROUTIN┆
0x180…1a0 45 20 29 0d 0a 31 20 56 41 52 49 41 42 4c 45 20 3f 53 59 4d 54 41 42 20 20 20 20 20 09 20 20 20   ┆E )  1 VARIABLE ?SYMTAB         ┆
0x1a0…1c0 20 20 20 28 20 49 46 20 53 59 4d 42 4f 4c 20 54 41 42 4c 45 20 49 53 4e 27 54 20 55 53 45 44 2c   ┆   ( IF SYMBOL TABLE ISN'T USED,┆
0x1c0…1e0 20 53 45 54 20 3f 53 59 4d 54 41 42 20 54 4f 20 30 20 29 0d 0a 0d 0a 0d 0a 3a 20 43 4f 4d 55 50   ┆ SET ?SYMTAB TO 0 )      : COMUP┆
0x1e0…200 20 3f 53 59 4d 54 41 42 20 40 20 49 46 0d 0a 20 20 20 20 20 48 45 52 45 20 36 20 40 20 20 53 59   ┆ ?SYMTAB @ IF       HERE 6 @  SY┆
0x200…220 4d 54 50 20 40 20 53 59 4d 50 54 52 20 40 20 2d 20 20 20 32 44 55 50 20 2d 20 20 20 44 55 50 20   ┆MTP @ SYMPTR @ -   2DUP -   DUP ┆
0x220…240 53 59 4d 50 54 52 20 21 20 20 20 20 52 4f d4 20 53 59 4d 54 d0 20 a1 0d 0a 20 20 20 20 20 20 53   ┆SYMPTR !    RO  SYMT           S┆
0x240…260 57 41 d0 20 42 4d 4f 56 c5 20 20 20 20 a7 42 20 49 4e 54 52 4c 50 20 47 4f 51 49 41 44 20 21 20   ┆WA  BMOV      B INTRLP GOQIAD ! ┆
0x260…280 20 20 20 55 53 45 52 50 41 44 20 40 20 47 4f 20 0d 0a 20 20 20 20 20 20 46 4f 52 47 45 54 20 55   ┆   USERPAD @ GO         FORGET U┆
0x280…2a0 53 45 52 50 20 20 20 52 45 53 54 41 52 54 20 0d 0a 20 20 20 20 20 45 4c 53 45 20 27 42 20 55 53   ┆SERP   RESTART        ELSE 'B US┆
0x2a0…2c0 45 52 50 20 44 50 20 21 20 20 20 20 20 55 53 45 52 50 41 44 20 40 20 47 4f 20 20 20 20 52 45 53   ┆ERP DP !     USERPAD @ GO    RES┆
0x2c0…2e0 54 41 52 54 0d 0a 20 45 4e 44 49 46 20 3b 0d 0a 0d 0a 0d 0a 3a 20 4d 41 4b 45 43 4f 4d 20 49 4e   ┆TART   ENDIF ;      : MAKECOM IN┆
0x2e0…300 46 49 4c 45 20 4e 41 4d 49 54 20 20 20 20 20 27 42 20 43 4f 4d 55 50 20 47 4f 51 49 41 44 20 21   ┆FILE NAMIT     'B COMUP GOQIAD !┆
0x300…320 20 20 20 20 3f 53 59 4d 54 41 42 20 40 20 49 46 0d 0a 20 20 20 20 20 53 59 4d 50 54 52 20 40 20   ┆    ?SYMTAB @ IF       SYMPTR @ ┆
0x320…340 48 45 52 45 20 53 59 4d 54 50 20 40 20 53 59 4d 50 54 52 20 40 20 2d 20 42 4d 4f 56 45 20 20 20   ┆HERE SYMTP @ SYMPTR @ - BMOVE   ┆
0x340…360 20 28 20 4d 4f 56 45 20 54 48 45 20 53 59 4d 42 4f 4c 20 54 41 42 4c 45 20 29 0d 0a 20 20 20 20   ┆ ( MOVE THE SYMBOL TABLE )      ┆
0x360…380 20 20 53 59 4d 54 50 20 40 20 53 59 4d 50 54 52 20 40 20 2d 20 48 45 52 45 20 2b 20 0d 0a 20 20   ┆  SYMTP @ SYMPTR @ - HERE +     ┆
0x380…3a0 20 20 20 45 4c 53 45 20 48 45 52 45 20 0d 0a 20 45 4e 44 49 46 20 20 43 52 20 43 22 20 50 72 6f   ┆   ELSE HERE    ENDIF  CR C" Pro┆
0x3a0…3c0 67 72 61 6d 20 73 69 7a 65 20 3d 20 22 20 20 20 20 44 55 50 20 58 2e 20 20 20 43 22 20 2f 20 22   ┆gram size = "    DUP X.   C" / "┆
0x3c0…3e0 20 20 20 44 55 50 20 44 45 43 49 4d 41 4c 20 2e 20 20 48 45 58 0d 0a 20 49 4e 46 49 4c 45 20 4f   ┆   DUP DECIMAL .  HEX   INFILE O┆
0x3e0…400 50 45 4e 57 20 20 20 31 30 30 20 44 4f 0d 0a 20 20 20 20 20 49 20 49 4e 46 49 4c 45 20 42 55 46   ┆PENW   100 DO       I INFILE BUF┆
0x400…420 41 44 20 38 30 20 42 4d 4f 56 45 20 20 20 20 20 49 4e 46 49 4c 45 20 57 52 49 54 45 20 20 20 20   ┆AD 80 BMOVE     INFILE WRITE    ┆
0x420…440 38 30 0d 0a 20 2b 4c 4f 4f 50 20 20 20 49 4e 46 49 4c 45 20 43 4c 4f 53 45 20 20 47 4f 2d 4f 50   ┆80   +LOOP   INFILE CLOSE  GO-OP┆
0x440…460 53 59 53 20 3b 0d 0a 0d 0a 0d 0a 3a 20 49 4e 53 54 52 20 43 52 20 43 52 20 20 0d 0a 20 20 54 22   ┆SYS ;      : INSTR CR CR      T"┆
0x460…480 20 53 65 74 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 3f 53 59 4d 54 41 42 20 74 6f 20 30 20 69   ┆ Set the variable ?SYMTAB to 0 i┆
0x480…4a0 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 74 61 62 6c 65 20 69 73 6e 27 74 20 6e 65 65 64 65 64 2e   ┆f the symbol table isn't needed.┆
0x4a0…4c0 22 20 20 0d 0a 20 20 43 52 20 54 22 20 45 78 65 63 75 74 65 20 27 4d 41 4b 45 43 4f 4d 20 70 72   ┆"      CR T" Execute 'MAKECOM pr┆
0x4c0…4e0 6f 67 72 61 6d 2e 63 6f 6d 27 20 77 68 65 6e 20 72 65 61 64 79 22 20 20 20 43 52 20 43 52 20 20   ┆ogram.com' when ready"   CR CR  ┆
0x4e0…500 0d 0a 20 20 55 50 50 45 52 20 21 20 20 20 20 20 20 20 28 20 52 45 53 54 4f 52 45 20 55 50 50 45   ┆    UPPER !       ( RESTORE UPPE┆
0x500…520 52 20 29 0d 0a 20 20 49 4e 46 4f 46 20 21 09 28 20 52 45 53 54 4f 52 45 20 49 4e 46 4f 46 20 29   ┆R )    INFOF ! ( RESTORE INFOF )┆
0x520…540 0d 0a 20 20 5b 45 4e 44 2d 4f 46 2d 46 49 4c 45 5d 20 3b 0d 0a 0d 0a 49 4e 53 54 52 0d 0a 0d 0a   ┆    ÆEND-OF-FILEÅ ;    INSTR    ┆
0x540…560 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a   ┆                                ┆
0x560…580 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a   ┆                                ┆