|
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: 5120 (0x1400) Types: TextFile Names: »P5ASG«
└─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy └─⟦this⟧
; CSØGE //; OTILA AKTIVISERET PL 21.11.82 ; BSØGE = P4ASG FÆRDIG 13.11.82 KL 17 ; BSØGE (VERS 4(B)) RETTET 13.11.82 EFTERM ; VERSIN 4 AF ASØGE 13.11.82 ; RETTET (FÆRDIG) PL 12.11.82 TIDL AFTEN / INDTAST UDELADT NYT ; 3.V3RESION AF SØGE VALGFRI LPT/TTY O.A.; PL 12.11.82 AFTEN ; 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 '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 TX: .+1*2 .TXT * <10> PL SØGEPROGRAM (4) 13.11.82 <0>* ZONAD: LPZON ADTAL: 32600 AD: 0 GODK: 0 MSYV: -7 TGAD: 0 LGAD: 0 LGMA: 0 LG: 0 GGG: 19712 ; M*256 TTG1: .+1 .TXT *TTY<0>* DEAD1: DEAD TOLV: 16 BIRTH: STA 1,TGAD MOV 1,2 LDA 3,5,2 ; FLG VERSION 3 INC 3,3 ; RETTET 12.11 MOVZR 3,3 ADD 1,3 ; ADR X LDA 1,MSYV SUB 1,3 ; ADRESSE PÅ ET EVT T LDA 1,0,3 LDA 3,GGG SL 3,1 JMP EJJ LDA 3,TTG1 LDA 0,0,3 ; TT LDA 1,1,3 ; Y<0> LDA 3,ZONAD STA 0,0,3 STA 1,1,3 LDA 0,.6 STA 0,TOLV EJJ: LDA 0,5,2 MOVZR 0,0,SNR JMP DEAD1 @ STA 0,LGMA DSZ LGMA DSZ LGMA LDA 0,.3 LDA 2,ZONAD OPEN LDA 0,TX OUTTEXT LDA 1,.0 LDA 2,CUR LDA 0,10,2 JSR UDSKR OUTSP LDA 0,TGAD SUB 1,1 JSR UDSKR LDA 3,CUR LDA 0,10,3 OUTOCTAL OUTSP LDA 0,TGAD OUTOCTAL OUTNL OUTNL 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 OUTSP ; TILF I VERS 3 FLG LDA 3,TGAD LDA 0,6,3 LDA 1,.1 SUB # 0,1,SNR JMP .+5 LDA 0,.7 ADDZL 3,0 ; BYAD OUTTEXT JMP .+3 LDA 0,7,3 OUTOC OUTNL LDA 3,ADUD LDA 2,.5 SUB 2,3 STA 3,ADUD STA 3,ADUD2 STA 3,ADUD3 LDA 2,TOLV ; RETTET 6.11 82 FRA 16 STA 2,TALLE NR22: SUB 1,1 LDA 3,ADUD LDA 0,0,3 JSR UDSKR OUTSP OUTSP ISZ ADUD DSZ TALLE JMP NR22 OUTNL LDA 3,TOLV STA 3,TALLE LDA 0,.10 SL 0,3 ; 3.VERS JMP NST NR33: LDA 3,ADUD2 LDA 0,0,3 LDA 2,ZONAD OUTOCTAL OUTSP ISZ ADUD2 DSZ TALLE JMP NR33 OUTNL JMP .+2 JMP EJBYT LDA 3,ADUD3 ; FLG TILFØJET 12.11.82 INAKTIVT LDA 2,TOLV STA 2,TALLE NR44: LDA 3,ADUD3 LDA 0,0,3 LDA 3,.255 MOVS 3,3 ANDS 3,0 JSR OTILA ; (MIDL 13.11.81) LDA 1,.2 JSR UDSKR LDA 3,ADUD3 LDA 0,0,3 LDA 3,.255 AND 3,0 JSR OTILA ;(MIDL 13.11.81) (MIDL 13.11.81) LDA 1,.2 JSR UDSKR OUTSP ISZ ADUD3 DSZ TALLE JMP NR44 ; SLUT 12.11.82 OUTNL EJBYT: 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,ZONA4 OUTTEXT LDA 1,NO5 JMP @ TILBA TILBA: 0 TALLE: 0 ADUD: 0 ADUD2: 0 ADUD3: 0 0 BYAD: 0 BYA4: 0 0 0 BYAD1:BYAD BYAD2: BYAD*2 NO5 : 0 BEGN: BIRTH DEAD: ISZ SNDN8 LDA 1,.1 LDA 2,ZONA4 CLOSE LDA 1,ADR LDA 2,NADR SENDMESSAGE ISZ SNDN9 LDA 2,CUR STOPP JMP @ BEGN ADR: .+1 1B8 0 0 0 NADR: .+1 .TXT 'S' 0 0 OTILA: ; NYT 12.11.82 (MIDL INAKTIVT) STA 3,OTADR LDA 1,.48 LDA 3,BYA4 ADD 3,1 STA 1,BYA4 JSR @ OTADR OTADR: 0 ZONA4: LPZON 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: -3 PCDS: .+0 .-1 0 0 .TXT (SØGE<0>( .+0 .-1 BUFF1 PGDS 0 0 14000 DEAD 0 0 0 0 BIRTH*2 0 1 2 3 4 5 6 7 8 9 10 .END PCDS «ff» «nul»