|
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: 10752 (0x2a00) Types: TextFile Names: »REA78«
└─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy └─⟦this⟧
.TITL BFDUP ;BINARY-FILE-DISASSEMBLING UTILITY-PROGRAM .NREL .RDXO 10 .RDX 10 .TXTM 1 .TXTN 1 PGDS: 1B0+1B5+1B15 LAB00 0 PCDS-PGDS .TXT 'BFDUP' LAB00: «ff» LPZON: .BLK 3 Z 0 1 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 «ff» ZONE: .BLK 3 Z 0 1 65535 DEAD 0 0 0 ZS0 263 0 0 TB0*2 TB0*2 TS0 512 0 .BLK ZAUX TS0: ZS0: 0 0 0 0 TS0 0 TB0*2 TB0: .BLK 256 «ff» LREAD: STA 3,RET00 LDA 2,INZO0 INCHA STA 1,MDL00 INCHA LDA 0,MDL00 MOVS 1,1 ADDZ 0,1 LDA 2,OUZO0 JMP @ RET00 RET00: 0 OUZO0: LPZON INZO0: ZONE MDL00: 0 «ff» ; ROUTINE OPEN-FILE ; NEARLY EQUAL TO CODEPROCEDURE 086 CONNECT-FILE ; AC0= BYTE ADDRESS OF FILENAME ; AC1= MODE ; AC2=ZONE-ADDRESS ; AC3=LINK ; CALL: JSR OPENF OPENF: STA 3,RETUH STA 1,L122 STA 2,L120 STA 0,L121 MOVZL 2,1 STA 1,L123 LDA 0,.6 STA 0,L124 L033: LDA 1,L121 GETBY LDA 1,L123 PUTBY ISZ L121 ISZ L123 DSZ L124 JMP L033 LDA 2,L120 SUB 0,0 STA 0,ZMODE,2 STA 0,L125 STA 0,L126 LDA 0,L128 STA 0,ZKIND,2 LDA 0,ZSHAR,2 LDA 1,.1B10 SUBL 0,1,SNC JMP L092 LDA 1,ZGIVE,2 STA 1,L124 LDA 1,ZMASK,2 STA 1,L123 ADC 1,1 STA 1,ZMASK,2 JSR L061 JSR L115 JMP L092 L061: STA 3,ZGIVE,2 LDA 3,ZUSED,2 LDA 1,+6,3 MOVZR 1,1 STA 1,L121 LOOKU JSR L115 LDA 3,L121 LDA 1,+6,3 LDA 0,L127 AND 0,1 SUB 0,1,SZR JMP L092 LDA 0,+10,3 STA 0,+0,2 LDA 0,+11,3 STA 0,+1,2 LDA 0,+12,3 STA 0,+2,2 LDA 0,+13,3 STA 0,+5,2 LDA 0,+14,3 STA 0,+4,2 LDA 0,+7,3 STA 0,+6,2 LDA 0,+15,3 LDA 1,.255 AND 0,1 STA 1,L126 SUBS 1,0 STA 0,L125 L092: LDA 0,L122 LDA 1,+4,2 COM 0,0 AND 0,1 ADC 0,1 STA 1,+4,2 LDA 0,+5,2 LDA 3,.1B11 AND 0,3,SNR JMP L108 LDA 3,.3 ANDZR 3,1,SBN JMP L108 LDA 0,.1B15 LDA 1,.1B15 CREAT L108: LDA 0,+4,2 OPEN LDA 1,L125 LDA 0,L126 SETPO JMP @ RETUH L115: LDA 1,L115 STA 1,+7,2 LDA 1,L123 STA 1,+6,2 JMP +0,3 L120: 0 L121: 0 L122: 0 L123: 0 L124: 0 L125: 0 L126: 0 L127: 6 L128: 30 RETUH: 0 «ff» NEWLI: STA 3,RETUJ LDA 2,OUZO2 OUTNL ISZ LINE LDA 0,LINE LDA 1,.64 SNL 0,1 JMP A LDA 0,PAGE LDA 1,.12 OUTEN B: LDA 0,TEX0B OUTTE LDA 0,PAGE LDA 1,ARB1B LDA 2,CUR BINDE LDA 2,OUZO2 LDA 0,ARB1W INCZL 0,0 OUTTE SUB 0,0 STA 0,LINE OUTNL LDA 0,TIFLG MOV 0,0,SNR JMP U LDA 0,YYMMD STA 0,ARB1B+1 LDA 0,.8 STA 0,ARB1B+2 DDT: LDA 1,ARB9 GETBY LDA 2,OUZO2 MOV 0,1 OUTCH ISZ ARB1B+1 DSZ ARB1B+2 JMP DDT OUTSP LDA 0,HHMMS STA 0,ARB1B+1 LDA 0,.8 STA 0,ARB1B+2 RRT:LDA 1,ARB9 GETBY MOV 0,1 LDA 2,OUZO2 OUTCH ISZ ARB1B+1 DSZ ARB1B+2 JMP RRT U: OUTNL OUTNL ISZ PAGE A: LDA 0,LINE LDA 1,ARB1B LDA 2,CUR BINDE LDA 2,OUZO2 LDA 0,ARB1W INCOL 0,0 OUTTE JMP @ RETUJ ARB1W: .+2 ARB1B: .+1*2 ARB9:0 0 0 TEX0B: .+1*2 .TXT '*** DISASSEMBLING OF BINARY FILE <27>3' TXT01: .TXT 'AAAAAA' .TXT '<27>4 BY BFDUP 02.01 PAGE:<0>' PAGE: 0 RETUJ: 0 OUZO2: LPZON LINE: 68 HHMMS:0 YYMMD:0 TIFLG:0 «ff» BIRTH: STA 1,MDL4 MOV 1,3 LDA 2,.10 LDA 0,+10,3 SEQ 0,2 JMP @ PARAM LDA 0,+5,3 SEQ 0,2 JMP @ PARAM LDA 2,OUZO1 LDA 0,.12 ADDZL 1,0 LDA 1,.3 JSR @ OPENE LDA 2,INZO1 LDA 1,.1 LDA 0,MDL4 LDA 3,.7 ADDZL 3,0 STA 0,MDL4 JSR @ OPENE G: LDA 1,MDL4 GETBY MOV 0,0,SNR LDA 0,.32 LDA 1,MDL6 PUTBY ISZ MDL4 ISZ MDL6 DSZ MDL5 JMP G LDA 1,PROCE LDA 2,TIMEB SEARC MOV 2,2,SNR JMP K LDA 0,-1,2 MOVZL 0,0 STA 0,HHMMS LDA 0,-2,2 MOVZL 0,0 STA 0,YYMMD STA 0,TIFLG K: JSR @ NEWL2 JMP RUNDT OUZO1: LPZON INZO1: ZONE OPENE: OPENF MDL4: 0 PARAM: DEAD3 MDL5: 6 MDL6: TXT01*2 TIMEB:.+1 .TXT 'TIME<0>' NEWL2:NEWLI «ff» ARB: .+2 ARB2: .+1*2 .BLK 3 RUNDT: LDA 2,OUZON LDA 1,.32 INC 1,1 OUTCH JSR @ LREA1 LDA 0,.48 STA 1,BLKTP ADD 0,1 OUTCH LDA 1,.32 INC 1,1 OUTCH JSR @ LREA1 NEG 1,0 LDA 1,.1 SUB 1,0 STA 0,C LDA 1,ARB2 LDA 2,CUR BINDE LDA 2,OUZON LDA 0,ARB INCOL 0,0 OUTTE LDA 1,.32 INC 1,1 OUTCH LDA 0,.3 STA 0,MDL1 LOP: LDA 0,.5 STA 0,MDL2 JSR @ LREA1 LOP1: MOVL 1,1 MOVL 0,0 MOVL 1,1 MOVL 0,0 MOVL 1,1 MOVL 0,0 STA 1,MDL3 LDA 1,.7 AND 0,1 LDA 0,.48 ADD 0,1 SNE 0,1 LDA 1,.32 OUTCH LDA 1,MDL3 DSZ MDL2 JMP LOP1 DSZ MDL1 JMP LOP LDA 1,.32 INC 1,1 OUTCH JSR @ LREA1 JSR @ LREA1 MOV 1,0 STA 0,MDL LDA 1,ARB2 LDA 2,CUR BINDE LDA 2,OUZON LDA 0,ARB2 OUTTE LDA 1,.32 INC 1,1 OUTCH LDA 0,.2 LDA 1,BLKTP SEQ 0,1 JMP Y Y: LDA 0,C MOV 0,0,SNR JMP J LOP3: LDA 2,INZON INCHA STA 1,MDL3 INCHAR LDA 2,OUZON LDA 0,.127 AND 0,1 SNE 0,1 LDA 1,.32 LDA 0,.32 SG 1,0 LDA 1,.32 OUTCH LDA 1,MDL3 LDA 0,.127 AND 0,1 SNE 0,1 LDA 1,.32 LDA 0,.32 SG 1,0 LDA 1,.32 OUTCH LDA 1,.32 INC 1,1 OUTCH DSZ C JMP LOP3 J: JSR @ NEWL1 LDA 0,.6 LDA 1,BLKTP SNE 0,1 JMP @ DEAD1 JMP RUNDT INZON: ZONE DEAD1: DEAD OUZON: LPZON MDL: 0 MDL1: 0 MDL2: 0 MDL3: 0 BLKTP: 0 NEWL1: NEWLI C: 0 LREA1: LREAD «ff» DEAD: LDA 2,OUZON LDA 1,.25 OUTEN LDA 1,.1 CLOSE LDA 2,INZON LDA 1,.1 CLOSE DEAD3: LDA 1,ADR LDA 2,NADR SENDM LDA 2,CUR STOPP JMP .-2 ADR: .+1 1B8 0 0 0 NADR: .+1 .TXT 'S<0><0><0><0><0>' «ff» BUFF1: .+0 .-1 BUFF2 10 PCDS 0 0 0 0 0 BUFF2: .+0 .-1 0 10 PCDS 0 0 0 0 0 «ff» PCDS: .+0 .-1 0 0 .TXT 'BFDUP' .+0 .-1 BUFF1 PGDS 0 0 16 DEAD 0 0 0 0 BIRTH*2 .BLK 8 .END PCDS «ff» «nul»