|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3584 (0xe00) Types: TextFile Names: »P2ASG«
└─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy └─⟦this⟧
; SØGE TIL TTY / ADR OSSE OCTALT / PL 6.11.82 ; P1ASG SØGEPROGRAM SØGER EN TEXT = 1.PARAMETER (LIGE ANTAL BYTE) ; SUPPLERER OP TIL LIGE MED <0> ; VIRKER KORREKT (?) !!! ; SØGEPROGRAM RETTET 15.5.82 ; 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 'TTY<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 SUB 1,1 JSR UDSKR OUTSP LDA 0,ADUD OUTOC OUTNL LDA 3,ADUD LDA 2,.5 SUB 2,3 STA 3,ADUD STA 3,ADUD2 LDA 2,.12 ; RETTET 6.11 82 FRA 16 STA 2,TALLE NR22: LDA 3,ADUD LDA 0,0,3 JSR UDSKR ISZ ADUD DSZ TALLE JMP NR22 OUTNL LDA 3,.10 STA 3,TALLE NR33: LDA 3,ADUD2 LDA 0,0,3 LDA 2,ZONAD OUTOCTAL OUTSP ISZ ADUD2 DSZ TALLE JMP NR33 OUTNL 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 OUTSPACE LDA 1,NO5 JMP @ TILBA TILBA: 0 TALLE: 0 ADUD: 0 ADUD2: 0 0 BYAD: 0 0 0 0 BYAD1:BYAD BYAD2: BYAD*2 NO5 : 0 BEGN: BIRTH DEAD: ISZ SNDN8 LDA 1,.1 LDA 2,ZONAD CLOSE LDA 1,ADR LDA 2,NADR SENDMESSAGE ISZ SNDN9 LDA 2,CUR STOPP DSZ SLUT1 JMP .-2 JMP @ BEGN ADR: .+1 1B8 0 0 0 NADR: .+1 .TXT 'S' 0 0 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 (SØGE<0>( .+0 .-1 BUFF1 PGDS 0 0 14000 DEAD 0 0 0 0 BIRTH*2 0 10 20 30 40 50 60 70 80 90 100 .END PCDS «ff» «ff» «nul»