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

⟦b079bd8bc⟧ TextFile

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »P1ASG«

Derivation

└─⟦c19f7203c⟧ Bits:30001822 SG0121 Floppy
    └─⟦this⟧

TextFile

 ; PL PROGRAM TIL AT SØGE VILK TEXT I CORE
; TEXTEN INDTASTESSOM PARAMETER
; OG SUPPLERES AUTOMATISK MED <0> TIL LIGE ANTAL BYTES
         .TITL   PLSGE 
         .NREL 
         .RDXO   10 
         .RDX    10 
         .TXTM   1 
         .TXTN   1 
PGDS:    1B0+1B5+1B15 
         LAB00 
         0 
         PCDS-PGDS 
         .TXT    'PLSGE' 
LAB00: 
LPZON:   .TXT      'LPT<0><0>'
         Z 
         0 
         1 
         65535 
         DEAD 
         1 
         1 
         0 
         LPS0 
         83 
         0 
         0 
         LPB0*2 
         LPB0*2 
         LPS0 
         152 
         0 
         .BLK    ZAUX 
LPS0:    0 
         0 
         0 
         0 
         LPS0 
         0 
         LPB0*2 
LPB0:    .BLK    76 
ZONAD:   LPZON 
ADTAL: 32600
AD: 0
GODK: 0
TGAD: 0
LGAD: 0
LGMA: 0
LG: 0

BIRTH:

STA 1,TGAD
MOV 1,2
LDA 0,5,2
MOVZR 0,0,SNR
JMP DEAD
STA 0,LGMA
DSZ LGMA
DSZ LGMA

LDA 0,.3
LDA 2,ZONAD
OPEN

NST:

LDA 2,LGMA
STA 2,LG
LDA 2,TGAD
ISZ AD
DSZ ADTAL
JMP .+2
JMP DEAD

LDA 3,AD

FORTS:
LDA 1,0,3
LDA 0,7,2
SE 0,1
JMP NST

INC 3,3
INC 2,2
DSZ LG
JMP FORTS

LDA 0,AD
STA 0,ADUD
LDA 1,5
JSR UDSKR

LDA 3,ADUD
LDA 2,.10
STA 2,TALLE
NR22:
LDA 0,0,3
JSR UDSKR
DSZ TALLE
JMP NR22
 OUTNL
JMP NST

UDSKR:
STA 3,TILBA
STA 1,NO5
LDA 1 ,BYAD2
LDA 2,CUR
BINDEC
LDA 1,BYAD2
LDA 0,NO5
ADD 1,0
LDA 2,ZONAD
OUTTEXT
OUTSPACE
LDA 1,NO5
JMP @ TILBA
TILBA:TALLE: 0
ADUD: 0
 0
BYAD: 0
      0
      0
      0
BYAD1:BYAD
BYAD2: BYAD*2
NO5  : 0
BEGN: BIRTH
DEAD:
  ISZ SNDN8
         STA     0,004 
  LDA 1,.1
  LDA 2,ZONAD
  CLOSE
         LDA     2,CUR 
         STOPP 
         DSZ SLUT1
         JMP .-2
         JMP     @ BEGN 
ADR:     .+1 
         1B8 
         0 
         0 
         0 
NADR:    .+1 
         .TXT    'S' 
BUFF1:   .+0 
         .-1 
         BUFF2 
         10 
         PCDS 
         0 
         0 
         0 
         0 
         0 
BUFF2:   .+0 
         .-1 
         0 
         10 
         PCDS 
         0 
         0 
         0 
         0 
         0 
  SNDN8: 0

  SNDN9: 0
  SNDN7: 0
SLUT1: -1
PCDS:    .+0 
.-1

0
0
.TXT (PLSGE(
.+0
.-1
BUFF1
PGDS
0
0
14000
DEAD
0
0
0
0
BIRTH*2
0
100
200
300
400
500
600
700
800
.END PCDS
«ff»
«nul»