DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC3600/RC7000

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

See our Wiki for more about RegneCentralen RC3600/RC7000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦b1420d354⟧ TextFile

    Length: 2560 (0xa00)
    Types: TextFile
    Names: »Q1AYY«

Derivation

└─⟦033e255c7⟧ Bits:30001790 SG0010 Floppy
    └─ ⟦this⟧ »/Q1AYY«

TextFile

         .TITL   MULTI 
         .NREL 
         .RDXO   10 
         .RDX    10 
         .TXTM   1 
         .TXTN   1 
PGDS:    1B0+1B5+1B15 
         LAB00 
         0 
         PCDS-PGDS 
         .TXT    'MULTI' 
LAB00: 
NI:9
LPADR:LPZON
TALAD:1
DATAD:X*2
X:0
0
0
0
BIRTH: LDA 0,.3
LDA 2,LPADR
OPEN
IGEN:LDA 0,TALAD
LDA 1,NI
MULTI
MOV 1,0
LDA 1,DATAD
LDA 2,CUR
BINDEC
LDA 0,DATAD
LDA 2,LPADR
OUTTEXT
ISZ TALAD
DSZ KONTR
JMP IGEN
DEAD:
LDA 2,LPADR
CLOSE
LDA 2,CUR
STOPP
JMP BIRTH
KONTR:8
LPZON:.TXT  'LPT<0><0>'            ;ZNAME  
      Z                        ;SIZE  
      0                        ;ZMODE  
      1                        ;ZKIND  
      65535                    ;ZMASK  
      DEAD                     ;GIVE  
      1                        ;ZFILE  
      1                        ;ZBLOC  
      0                        ;ZCONV  
      LPS0                     ;ZBUFF  
      73                       ;ZSIZE (132/2+SSIZE)  
      0                        ;ZFORM  
      0                        ;ZLENG  
      LPB0*2                   ;ZFIRS  
      LPB0*2                   ;ZTOP  
      LPS0                     ;ZUSED  
      132                      ;ZSHAR  
      0                        ;ZREM  
      .BLK  ZAUX               ;AUXILIARY WORDS IN ZONE  
  
LPS0: 0                        ;SOPER  
      0                        ;SCOUN  
      0                        ;SADDR  
      0                        ;SSPEC  
      LPS0                     ;SNEXT  
      0                        ;SSTAT  
      LPB0*2                   ;SFIRS  
LPB0: .BLK  66                 ;DATA BUFFER  
BUFF1:   .+0 
         .-1 
         BUFF2 
         10 
         PCDS 
         0 
         0 
         0 
         0 
         0 
BUFF2:   .+0 
         .-1 
         0 
         10 
         PCDS 
         0 
         0 
         0 
         0 
         0 
PCDS:    .+0 
         .-1 
         0 
         0 
         .TXT    'MULTI' 
         .+0 
         .-1 
         BUFF1 
         PGDS 
         0 
         0 
         100 
         DEAD 
         0 
         0 
         0 
         0 
         BIRTH*2 
0
1
2
3
4
5
6
7
8
9
10
         .END    PCDS 
«ff»
«nul»