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

⟦2f6454463⟧ TextFile

    Length: 2048 (0x800)
    Types: TextFile
    Names: »RETX1«

Derivation

└─⟦92491b7d7⟧ Bits:30001772 UDVIKLING AF CALLRUTINER ETC NR 2
    └─ ⟦this⟧ »/RETX1« 
└─⟦ee9e554ad⟧ Bits:30001809 SG0107 Floppy
    └─ ⟦this⟧ »/RETX1«

TextFile

;    POUL-HENNING KAMP  GRAFD REV 1.02            
; DØDSENS FARLIG            
;            
.TITL  GRAFD            
.NREL            
.RDX    10            
.TXTM   1            
.TXTN   1            
.EJEC            
;            
PGDS:   1B0+1B7+1B15              ;PROG.DESCR            
        LOK           ;PROG.START            
        0            ;PROG.CHAIN            
        PCDS-PGDS              ;PROG.SIZE            
        .TXT 'GRAFD'            ;PROG.NAME            
.EJEC            
;            
;            
LOK:    LDA 2,CUR            
        NEXTOPERATION            
        JMP CTRL            
        JMP .+1            
SEND:   STA 3,BUFFE,2            
        SUB 0,0            
        STA 0,+5,3            
        MOV 1,3            
        LDA 0,+6            
        ADD 1,0            
TRY:    LDA 2,NAMAD            
        SENDMESSAGE            
        MOVZL#  2,2  SZC            
        JMP TRY            
        JMP LOK            
CTRL:   LDA 0,+6,3            
        LDA 1,STREAM            
        ADD 1,0            
        STA 1,.6,3            
        JMP SEND            
STREAM: 2*256            
NAMAD:  .+1            
        .TXT 'AMX«nul»