|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1093 (0x445)
Types: EM, TextFile
Names: »DISP_A_ADDRESS.EM«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »DISP_A_ADDRESS.EM«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »DISP_A_ADDRESS.EM«
[eq,%2%,UIR]
[set addr [#extract,[not,%1%],3A,6]]
[else]
[set addr %1%]
[end]
[#gt,[var addr],1F]
[eq,%3%,TYP]
[eq,%2%,uir]
[set frame [disp_frame, [#extract,[not,%4%],1C,5],wcs]]
[else]
[set frame [disp_frame, [#extract,%4%,1C,5],wcs]]
[end]
[else]
[eq,%2%,uir]
[set frame [disp_frame, [#extract,[not,%4%],2A,5],wcs]]
[else]
[set frame [disp_frame, [#extract,%4%,2A,5],wcs]]
[end]
[end]
FRAME ->,[var frame],,,OFFSET ->,[sub,[var addr],20]
[kill frame]
[else]
[#case,[var addr]]
[when,0]GP 0
[when,1]GP 1
[when,2]GP 2
[when,3]GP 3
[when,4]GP 4
[when,5]GP 5
[when,6]GP 6
[when,7]GP 7
[when,8]GP 8
[when,9]GP 9
[when,A]GP A
[when,B]GP B
[when,C]GP C
[when,D]GP D
[when,E]GP E
[when,F]GP F
[when,10]TOP
[when,11]TOP+1
[when,12]SPARE
[when,13]LOOP REGISTER
[when,14]ZEROS
[when,15]LEADING ZERO COUNTER
[when,16]MULTIPLIER OUTPUT
[when,17]LOOP COUNTER
[when,18]TOP-8
[when,19]TOP-7
[when,1A]TOP-6
[when,1B]TOP-5
[when,1C]TOP-4
[when,1D]TOP-3
[when,1E]TOP-2
[when,1F]TOP-1
[endcase]
[end]
[kill addr]