|
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⟧ »/REA78«
.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»