|
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: 11776 (0x2e00) Types: TextFile Names: »P1A33«
└─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy └─⟦this⟧ └─⟦95f236f17⟧ Bits:30001773 PL FAERD ASCII NR 2 └─⟦this⟧ └─⟦f319a9c26⟧ Bits:30001791 SG0011 Floppy └─⟦this⟧
; MESS LOGGER 21.6.82 ATFEN: ANDEN PARAM IKKE MERE SÅ KRITISK ; MESS LOGG : HVIS KØ DA EJ GENTAGEN UDSKRIFT AF CORE SELV OM PARAM >=4 / 21.682 AFTEN ; MESS LOGGER KØRER PÆNT MED PARAM: 2 VILK, 3 VILK, 4 CA 200, 5 CA 500 /PL 21.6.82/ VERSION 3.4 ; (0, 1 ELLER 2 PARAMETRE, MEN UDEN PARAM ER IKKE SÆRLIG SPÆNDENDE EJ HELLER GOT) ; SÅLEDES PRØVEKØRT 21.6.82 ... MEN STADIG VILLE DET VÆRE RAREST AT KUNNE STOPPE S ETC ; MESS.LOGGER 21.6.82 NU 2 PARAM (ALM DELAY 2-4, GENT DELAY FX 200) ; YDERL. ÆNDRINGER / DET ER ET PROBL AT S OA??? IKKE MÅ STOPPES ; MESS.LOGGER MED DATA/AFH AF PARAM / VIRKER NOGENLUNDE MED PAR 4 OG 2 / PL 19.6.82 EFTERM ; 18.6.82 ÆNDR TIL STOP/START AF RUNNING PROCES - ETC ; MES LOGGER VERSION 3.3 17.6.82 / FÆRDIG & KØRENDE / FLERE OPTIONS / ; 16.6.82 MODIF ; ARB-MODIF 14.6.82 ; MESSAGE-LOGGER PL 3.2 13.8.82 (SMÅÆNDR: ØGET STACK & DELAYTIME ETC) ; MESSAGE-LOGGER PL 3.2 11.6.82 ; RETTET OG RIMELIGT PÆN (*) MED FORSK PARAMOPTIONS (SE I PRG) 11.6.82 ; RETTET 11 TIL 10 OG CHECK 0 ETC FOR TEXTUDSKR / O.A. 10-11.6.82 /PL ; RETTET TEXT-UDSKRIVN.DELEN (FEJL!) OG IØVR REDIG OUTPUT ; PL MESSAGE-LOGGER 9.6.82 /// F A R L I G /// (FARE UKENDT!) /// ; VIRKER VISTNOK KORREKT, MEN NYOPSTART AF SYATEM VIGTIG EFTER BRUG !!! ;RETTET 9.6.82 AFFTEN ; STACKSTRUKTUR ÆNDRES 8.6.82 AFTEN OG PROCESS SINKES IKKE ; RETTET 8.6.82 ; RETTET / KORER ?! / 4.6.82 ; PL MESS.LOGGER VERSION 3.1 : PROCESSERNE STOPPES IKKE / 3.6.82 PÅBEG / ; PL MESS.LOGGER 25.5.82 FLYT EN OUTSP (AC2 FEJL) O.A. ; PL MESSAGELOGGER 23.5.82 AFTEN / UNDER INDKØRING ; NY VERSION 21.5.82 MERE GENEREL OG SIKKER (?!) ; LILLE RETTELSE 8.5.82 I UDSK ; P1A38/ P1B31/ MESSAGELOGGER IKKE HELT FÆRDIG 8.5.82 KL 15 ; VIRKER I VISSE TILFÆLDE MEN KRÆVER NYOPSTART, SPEC EFTER BRUG ; 8.5.82 KL 15 ; P1A38 VERS 8.5.82 MED DECIMALTAL OG RESERV/BESKYTTELSE (NÆPPE FÆRDIG) ; P1A38 /PL 6.4.82 FARLIGT OG UFÆRDIGT PROGRAM /KRÆVER TEXTPARAM/ ; PLPROJEKT LOGNING AF SENDM / EFTER PHKAMP / VILK PROC ; KALDES MED EEN TEXTPARAMERER / PL 6.5.82 STATUS ; PL FORSØG MED REA37 26.4.82 FIL P1A38 .TITL LPMES .NREL .RDXO 10 .RDX 10 .TXTM 1 .TXTN 1 PGDS: 1B0+1B5+1B15 LAB00 0 PCDS-PGDS .TXT 'LPMES' LAB00: .DO 20 0 100 .BLK 11 .ENDC ; ÆNDRET FRA 1650 I ANL AF STOP/START LAB01: .+0 0 0 0 0 0 0 0 0 0 0 0 .TXT 'STATUS FOR INDG: ' SNDN1: 0 SNDN2: 0 SNDN3: 0 SMDN3: 0 LPZON: .TXT 'LPT<0><0>' Z 0 1 65535 DEAD 1 1 0 LPS0 73 0 0 LPB0*2 LPB0*2 LPS0 132 0 .BLK ZAUX LPS0: 0 0 0 0 LPS0 0 LPB0*2 LPB0: .BLK 66 -3 .TXT *STACKPAR* STABG: LAB00 STADR: LAB00 STMAK: LAB01 STNR: 0 PIL: LAB00 AKTST: LAB00 AKTS2: 0 AKTS3: 0 -14 SODN1: 0 SODN2: 0 SODN3: 0 SODN4: 0 SODN5: 0 SODN6: 0 SODN7: 0 SODN8: 0 SODN9: 0 -4 .TXT *GODK* GOD: ISZ SNDN3 ISZ SODN1 LDA 2,STADR LDA 1,TRETT ADD 1,2 LDA 1,STMAK SUBZ # 2,1,SNC LDA 2,STABG STA 2,STADR ISZ STNR LDA 0,A0 STA 0,2,2 LDA 0,A1 STA 0,3,2 LDA 0,A2 STA 0,4,2 LDA 0,A3 STA 0,5,2 LDA 0,CUR STA 0,1,2 LDA 3,4,2 LDA 0,0,3 STA 0,6,2 LDA 0,1,3 STA 0,7,2 LDA 0,2,3 STA 0,8,2 LDA 3,3,2 LDA 0,0,3 STA 0,9,2 LDA 0,1,3 STA 0,10,2 LDA 0,2,3 STA 0,11,2 LDA 0,3,3 STA 0,12,2 SUB 1,1 STA 1,13,2 SUBZL 1,1 STA 1,0,2 ISZ SODN2 JMP BVADR LDA 2,CUR LDA 1,SPROC SE 1,2 JMP TESTS LDA 1,CPROC SE 1,2 JMP TESTS BVADR: MOV 2,0 SUB 1,1 STA @ 1,NBB1 INST: LDA 2,.16 ; ÆNDRES AF PARAM TIL 32, 64, ... ISZ SODN4 INTEN WAITINTER JMP .+1 ISZ SODN6 JMP GENST TESTS: SUBZL 1,1 STA 1,NBB1 @ LDA 2,CUR ISZ SODN5 INTEN STOPPROCES JMP .+1 GENST: INTDS ISZ SODN3 EJFLE: MOV 0,3 LDA 0,2,3 LDA 1,3,3 LDA 2,4,3 LDA 3,5,3 INTEN JMP @ SEND -25 SPROC: 9139 CPROC: 8039 TRETT: 13 NBB1: NBB ; STACKSTRUKTUR RETTET 8.6.82 ;RETTET 3.6.82 VED MANGE UDELADELSER ;SLUT 21.5.82 /PL «ff» ; SIDESKIFT >>>>>>>>>>> .TXT *INKTRL* FPCDS: PCDS LPZO2: LPZON NAMAM: .TXT 'LP ' NAMA2: .TXT 'S<0>' A0: 0 A1: 0 A2: 0 A3: 0 A10: 0 A11: 0 A12: 0 A13: 0 -2 .TXT *INDG* PRFTS: STA 0,A0 STA 1,A1 STA 2,A2 STA 3,A3 ISZ @ SNDNN JMP .+1 JMP @ AAAA SSSS: LDA 0,+000,2 LDA 1,NAMAM SNE 0,1 JMP RETU LDA 0,CUR LDA 3,.4 ADD 0,3 LDA 0,0,3 SNE 0,1 JMP RETU ISZ @ SNDNM LDA 1,NAMA2 MOV 1,1,SNR JMP GOD SNE 0,1 JMP RETU LDA 0,0,2 SE 0,1 JMP GOD RETU: LDA 0,A0 LDA 1,A1 LDA 2,A2 LDA 3,A3 JMP @ SEND AAAA: SSSS RU: PRFTS «ff» ; SIDESKIFT NR 1 >>>>>>>>>>>>>>>>>>>> .TXT *LOGKTR* -3 SEND: 0 TXB: TXC*2 GEM9: GEM8 TRET: 13 INST1: INST GOD1: GOD NAMA4: NAMAM*2 CU3: 0 INDE: 0 STABK: LAB00 STMAG: LAB01 0 TG: 62 SNDN4: 0 SNDVT: 0 SNDN5: 0 SNDSL: 0 SNDN6: 0 SNDN0: 0 LPZO6: LPZON SNDNN: SNDN1 SNDNM: SNDN2 SNDNP: SNDN3 UDSK: UDSKR TXC: .TXT 'MESSAGE-LOGGER PL VERS 3.4 21.6.82 UNDT. TIL/FRA <27>> <0>' BIRTH: MOV 1,2 LDA 0,6,2 LDA 1,.4 SNE 0,1 JMP EJPAR ; TIDL DEAD2 LDA 0,7,2 STA 0,NAMA2 LDA 1,.4 SL 0,1 STA 0,VTID MOV # 0,0,SNR DSZ INST1 @ INC # 0,0,SZR JMP .+3 LDA 0,GOD1 STA 0,AAAA ; OPTION PARAM=-1 TILFØJET 11.6.82 LDA 1,.10 SLE 0,1 JMP EJPAR DSZ INST1 @ DSZ 7,2 JMP .-2 LDA 0,10,2 STA 0,GEM9 @ EJPAR: LDA 2,LPZO3 LDA 0,.3 OPEN LDA 1,.10 OUTEN LDA 0,SNDNN OUTOC OUTSP LDA 0,SNDNN LDA 1,.0 JSR @ UDSK LDA 0,TXB LDA 2,LPZO3 OUTTEXT LDA 0,NAMA4 OUTTEXT OUTNL OUTNL INTDS LDA 0,004 STA 0,SEND LDA 0,RU STA 0,004 LOP: ISZ SNDN4 LDA 2,LPZO3 OUTNL ; FLG UDSKIFTET I DENNE VERSION 3.6.82 LDA 2,LOGAD LDA 1,TRET ADD 1,2 LDA 0,STMAG SUBZ # 2,0,SNC LDA 2,STABK STA 2,LOGAD MOV 2,0 INTEN JMP .+8 VENT: ISZ SNDVT JMP .+1 JMP .+1 SUB 1,1 LDA 2,.4 WAITINTERR JMP .+1 LDA 3,LOGAD LDA 0,0,3 LDA 2,.1 SE 0,2 JMP VENT ISZ 0,3 ISZ SNDN5 INTEN LDA 1,1,3 STA 3,INDE2 STA 1,CU2 ; ÆNDR. SLUT LDA 0,SNDNN @ LDA 1,.1 JSR @ UDSK LDA 0,SNDNM @ JSR @ UDSK LDA 1,.3 LDA 0,SNDNP @ JSR @ UDSK1 LDA 0,SNDN4 JSR @ UDSK1 LDA 0,SNDVT SUB 1,1 JSR @ UDSK1 LDA 2,LPZO3 OUTSPACE SUB 1,1 LDA 2,INDE2 LDA 0,2,2 LDA 1,.0 JSR @ UDSK1 LDA 0,3,2 JSR @ UDSK1 LDA 0,4,2 JSR @ UDSK1 LDA 0,5,2 JSR UDSK1 @ JMP .+10 0 LPZO3: LPZON LOGAD: LAB00 INDE2: 0 CU2: 0 VTID: 0 UDSK1: UDSKR -14 0 LDA 0,1,2 LDA 1,.2 STA 1,NO2 LDA 1,.4 ADD 1,0 NR2: MOVZL 0,0 STA 0,MDL LDA 1,.5 STA 1,NO LOP1: LDA 1,MDL GETBY LDA 2,LPZO1 MOV 0,1,SNR LDA 1,.32 OUTEN ISZ MDL DSZ NO JMP LOP1 OUTSPACE LDA 2,LOGAD LDA 0,.6 ADD 2,0 DSZ NO2 JMP NR2 LDA 2,LOGAD LDA 0,9,2 LDA 2,LPZO1 OUTOC OUTSP LDA 2,LOGAD LDA 0,10,2 SUB 1,1 JSR UDSK1 @ LDA 0,11,2 JSR UDSK1 @ LDA 0,12,2 JSR UDSK1 @ ISZ SMDN4 @ LDA 0,9,2 LDA 1,.2 STA 1,L2 LDA 1,.1 AND 0,1,SNR JMP IKUD ISZ SMDN6 @ BBB: SUB 0,0 STA 0,NB LDA 2,INDE2 LDA 0,11,2 STA 0,MDL LDA 1,10,2 MOV 1,1,SNR JMP IKUD LDA 0,.32 ; SKAL NORMALT VÆRE 128 PÅ OLIVETTI SG 0,1 MOV 0,1 STA 1,NO LOP2: LDA 1,MDL GETBY LDA 1,.127 AND 1,0 MOV 0,0,SNR LDA 0,.64 SNE 1,0 LDA 0,.32 LDA 1,.32 LDA 2,LPZO1 SG 0,1 LDA 0,.32 MOV 0,1 OUTEN ISZ MDL DSZ NO JMP LOP2 LDA 2,INDE2 LDA 0,9,2 LDA 1,.2 AND 0,1,SZR JMP IKUD LDA 0,VTID MOV 0,0,SNR JMP IKUD ISZ @ SMMD7 DSZ L2 JMP .+2 JMP IKUD LDA 2,NBB MOV 2,2,SNR JMP .+4 LDA 2,INDE2 LDA 2,1,2 STARTPROC SUBZL 1,1 STA 1,NB ; 18.6.82 ; LDA 0,VTID ; STA 0,VTARB ; DSZ VTARB ; LDA 2,.16 ; LISOM I INST! ; MOVZL 2,2 ; DSZ VTARB ; JMP .-2 LDA 2,SMMN5 @ LDA 1,SMMN2 @ STA 1,TES1 STA 2,TES2 SNE 1,2 ; INGEN DELAY HVIS 1=2 JMP .+5 INC 2,2 SNE 1,2 ; UBETYDELIGT DELAY HVIS KUN 1 FORSKEL JMP .+5 ; I SÅ FALD UDSKR STRAX JMP IKUD LDA 2,GEM8 SUB 1,1 WAITINT LDA 2,LPZO1 LDA 0, TXSP OUTTEXR JMP BBB IKUD: LDA 3,LOGAD ISZ 0,3 LDA 1,NBB MOV # 1,1,SNR JMP @ LOP7 LDA 1,NB LDA 2,INDE2 LDA 2,1,2 STA 2,TEST1 MOV 1,1,SNR STARTPROC JMP @ LOP7 LOP7: LOP -36 NO2: 2 NB: 0 SMDN4: SNDSL SMDN6: SNDN6 LPZO1: LPZON MDL: 0 NO: 0 A33: 0 L2: 2 VTARB: 0 SMMD7: SNDN7 NBB: 0 SMMN5: SNDN5 TES1: 100 TES2: 200 9999 SMMN2: SODN2 TEST1: 7 GEM8: 200 .-1 .TXT *UDSK* «ff» ; SIDESKIFT NR 2 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; AC0 = VALUE AC1=0-4 AC2=?? AC3=LINK ; DESROY = = DESTROY UDSKR: STA 3,TILBA STA 2,GEM2 STA 1,NO5 LDA 1 ,BYAD2 LDA 2,CUR BINDEC LDA 1,BYAD2 LDA 0,NO5 ADD 1,0 LDA 2,LPZO1 OUTTEXT OUTSPACE LDA 2,GEM2 LDA 1,NO5 JMP @ TILBA TILBA: 0 BYAD: 0 0 0 0 BYAD1:BYAD BYAD2: BYAD*2 NO5 : 0 GEM2: 0 BEGN: EJPAR SEND1: SEND TXSP: .+1*2 .TXT '<13><10>' .DO 42 .TXT ' ' .ENDC 0 .TXT *DEAD* DEAD: ISZ SNDN8 LDA 0,SEND1 @ STA 0,004 LDA 1,.1 LDA 2,LPZO1 CLOSE LDA 2,CUR STOPP ISZ SNDN9 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 'LPMES' .+0 .-1 BUFF1 PGDS 0 0 14000 DEAD 0 0 0 0 BIRTH*2 1 2 3 4 5 6 7 8 9 .END PCDS «ff» ▶11◀E«ff» «nul»