|
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: »P4A07«
└─⟦a137c8bca⟧ Bits:30001766 PL FAERD ASCII NR 9
└─ ⟦this⟧ »/P4A07«
└─⟦f319a9c26⟧ Bits:30001791 SG0011 Floppy
└─ ⟦this⟧ »/P4A07«
; FILAFPUDSNING 10.3.84 $$ ; P2A07 = P2B07 == FD1FI ; SIDSTE AFPUDSNING 4.5.83 PL / LÆS $FD1 TIL FIL 'PLRÅ' / ; EVT 2 PARAM: 1. STARTTRACK, 2. SECTORSTEP ; PL 3.5.83 ; P2A07 = P2B07 == FD1FI MED 1 ELLER 2 PARAM ; FÆRDIG PROGR TIL AT RÅLÆSE $FD1 TIL FIL PLRÅ ; KONTROLUDSKRIFT VED LOAD OG VED BREAK/DEAD ONLY, MEN DET ER LET AT TILFØJE MEE ; FIL/PRGR/PROCESNAVN ÆNDRET TIL FD1FI ISTF PLFDL(1) 2.5.83 ;; PL 2.5.83 KONTROLUDSKRIFTER ; 30.4.83 VIDERE TILFØJ TTY-MONITORING ETC ; IKKE PRØVET 29.4.83!!!! ; ÆNDRES 29.4.83 TIL AT LÆSE DISKETTE OVER I EN ALM FIL 'PLRÅ' ; DER SKAL CÆRE CREATET FØR PROGRAMEXEKVERING PRG. PLFDL ; FD1FI /ASCII: P1A01 FÆRDIG 15.12.82 (LILLE RETTELSE!!) ; FD1FI PL-LÆSNING AF $FD1 OUTPUT I HEXKODE/TEXT FÆRDIG 14.12.82 ; PL-DISKETTE HEX-LÆSNING RETTET 13.12.82 ; PL-DISKETTE HEXKODE-LÆSNING AF DISKETTE $FD1 PR. 10.12.82 .TITL FD1FI .NREL .RDXO 10 .RDX 10 .TXTM 1 .TXTN 1 PGDS: 1B0+1B5+1B15 LAB00 0 PCDS-PGDS .TXT 'FD1FI' LAB00: TTZON: .TXT 'TTY<0><0><0>' Z 0 1 65535 DEAD 1 1 0 TTSO 73 0 0 TTB0*2 TTB0*2 TTSO 132 .BLK ZAUX TTSO: 0 0 0 0 TTSO 0 TTB0*2 TTB0: .BLK 66 LPZON: .TXT 'PLRÅ<0><0>' Z 0 1B11+1B12+1B13+1B14 ; CATFIL + REPEAT + POSISTIONABLE + BLOCKORIENT 65535 DEAD 1 1 0 LPS0 263 0 0 LPB0*2 LPB0*2 LPS0 512 0 .BLK ZAUX LPS0: 0 0 0 0 LPS0 0 LPB0*2 LPB0: .BLK 256 .DUSR FD1=52 TX1B: TX01B A33: A3 «ff» BIRTH: MOV 1,2 LDA 1,5,2 MOV # 1,1,SNR JMP BI2 LDA 1,+7,2 STA 1,TRACK LDA 3,.6 LDA 0,8,2 SE 0,3 JMP BI2 LDA 0,10,2 STA 0,SECSTEP BI2: LDA 0,.3 LDA 2,TTZ OPEN LDA 2,LPZO1 LDA 0,.1B15 LDA 1,.0 CREATEENTRY LDA 2,LPZO1 LDA 0,.3 OPEN LDA 2,TTZ LDA @ 0,TX1B OUTTEXT LDA 0,.1B6 DOAS 0,FD1 SKPBZ FD1 JMP .-1 LDA 2,TTZ LDA 0,TRACK OUTOCTAL OUTNL OUTNL NTRACK: LDA 0,TRACK LDA 3,.1B7 LDA 1,.1B6 ADD 3,1 ADD 0,1 DOAS 1,FD1 SKPBZ FD1 JMP .-1 SUB 0,0 STA 0,SECTO INC 0,0 STA 0,VIR NSECT: ISZ SECTO LDA 0,SECTO LDA 1,SYVOG SUB # 0,1,SNR JMP NYTRA LDA 2,TTZ LDA 0,VIR LDA 1,TEST MOV # 1,1,SNR JMP .+3 OUTOCT OUTSP LDA 0,VIR DOAS 0,FD1 SKPBZ FD1 JMP .-1 LDA 0,.128 STA 0,MDL NCHR: DIB 1,FD1 MOV 1,0 LDA 2,LPZO1 OUTCH LDA 1,TEST MOV # 1,1,SNR JMP NNN MOV 0,1 LDA 2,TTZ LDA 3,T96 LDA 0,T47 SG 1,3 SG 1,0 LDA 1,PRIK OUTEND NNN: DSZ MDL JMP NCHR LDA 0,VIR LDA 1,SECSTEP ;ANGIVER SECTIONSTEP ADD 1,0 LDA 1,SEKSO SG 0,1 JMP .+3 SUB 1,0 JMP .-3 STA 0,VIR JMP NSECT ; ER ALT DETTE NØDV???: TRACK: 0 LPZO1: LPZON SECSTEP: 1 TTZ: TTZON ARB2: ARB27*2 SEKSO: 26 MDL: 0 KOLON: 58 VIR: 0 FJOR: 32 L2TCH: 0 SYVOG: 27 SECTO: 0 CH: 0 BY: 0 T47: 31 T96: 96 T126: 126 T240: 240 LIN22: 2 TEST: 1 PRIK: 46 NYTRA: ISZ TRACK LDA 0,TRACK SUB 1,1 STA 1,TEST LDA 1,SYVOH SUB 0,1,SNR JMP DEAD JMP NTRC @ NTRC: NTRAC SYVOH: 77 DEAD: LDA 2,LPZO1 LDA 1,.1 CLOSE LDA 2,TTZ OUTNL LDA 0,TX02B OUTTEXT ;SLUTUDSKRIFT LDA 0,TRACK OUTOCTAL OUTSP LDA 0,SECSTEP OUTOCTAL OUTNL OUTNL LDA 1,A3 OUTOC LDA 1,A4 OUTOC LDA 1,A5 OUTOC LDA 1,A6 OUTOC OUTNL LDA 1,A1 LDA 2,A2 SENDMESSAGE LDA 2,CUR STOPP JMP .-1 JMP @ 1,1 BI2 ARB27: .BLK 5 TX02B: .+1*2 .TXT *FIL 'PLRÅ' LUKKET / DATAOVERF. AFBRUDT I TRACK 8'<0>* TX01B: .+1*2 .TXT *FIL 'PLRÅ' CREATET / INDLÆSN PÅBEG FRA TRACK 8'<0>* A1: .+1 1B8 0 0 0 A2: .+1 .TXT *S<0><0><0><0><0>* BUFF1: .+0 .-1 BUFF2 10 PCDS 0 A3: 0 A4: 0 A5: 0 A6: 0 BUFF2: .+0 .-1 0 10 PCDS 0 0 0 0 0 PCDS: .+0 .-1 0 0 .TXT 'FD1FI' .+0 .-1 BUFF1 PGDS 0 0 33 DEAD 0 0 0 0 BIRTH*2 0 1 2 3 4 5 6 7 8 9 10 .END PCDS «ff» «nul»