|
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: 3083 (0xc0b)
Types: EM, TextFile
Names: »DISPLAY_FRAME_INFO.EM«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »DISPLAY_FRAME_INFO.EM«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »DISPLAY_FRAME_INFO.EM«
[#eq,%1%,FFFFF]
[write THIS FRAME DOESN'T EXIT!]
[else]
[set BIT_OFFS [and,[lshift,%1%,7],0FFFFFF80]]
! - start tag_query with MEM 3 because of SET_INH problems;
[tag_query,3,1,[var CURRENT_NAME],[var BIT_OFFS]]
[#le,[var SET_NUM],0F]
[set ACTIVATION_STATE [xeq MEM[rshift,[var SET_NUM],2],
READ_MEMORY_SPECIAL,[mul,[var SET_NUM],10],
1,[var CURRENT_NAME],[var BIT_OFFS]]]
[assert_of_kind ACTIVATION_STATE [var ACTIVATION_STATE]]
[else]
[write NO BOARDS HIT - PAGE NOT IN MEMORY]
[end]
[set BIT_OFFS [and,[lshift,[add,%1%,1],7],0FFFFFF80]]
! - start tag_query with MEM 3 because of SET_INH problems;
[tag_query,3,1,[var CURRENT_NAME],[var BIT_OFFS]]
[#le,[var SET_NUM],0F]
[set ACTIVATION_LINK [xeq MEM[rshift,[var SET_NUM],2],
READ_MEMORY_SPECIAL,[mul,[var SET_NUM],10],
1,[var CURRENT_NAME],[var BIT_OFFS]]]
[assert_of_kind ACTIVATION_LINK [var ACTIVATION_LINK]]
[else]
[write NO BOARDS HIT - PAGE NOT IN MEMORY]
[end]
[#eq,[#extract,[arg 1 [var ACTIVATION_LINK]],21,1],1]
[write ,,,,,IN_RENDEZVOUS,,,= TRUE]
[set BIT_OFFS [add,[var BIT_OFFS],80]]
! - start tag_query with MEM 3 because of SET_INH problems;
[tag_query,3,1,[var CURRENT_NAME],[var BIT_OFFS]]
[#le,[var SET_NUM],0F]
[set ACCEPT_LINK [xeq MEM[rshift,[var SET_NUM],2],
READ_MEMORY_SPECIAL,[mul,[var SET_NUM],10],
1,[var CURRENT_NAME],[var BIT_OFFS]]]
[assert_of_kind ACCEPT_LINK [var ACCEPT_LINK]]
[write ,,,,,RENDEZVOUS WITH = [#extract,[arg 2 [var ACCEPT_LINK]
],0,20]]
[kill ACCEPT_LINK]
[else]
[write NO BOARDS HIT - PAGE NOT IN MEMORY]
[end]
[end]
[kill BIT_OFFS]
[kill SET_NUM]
[kill TS_DATA]
[write FRAME_OFFSET,,,,= %1%,,([lshift,%1%,7])]
[write ,,,,,OUTER_FRAME,,,,,= [#extract,[arg 1 [var ACTIVATION_LINK]],
0,20]]
[write ,,,,,ENCLOSING_FRAME,= [#extract,[arg 1 [var ACTIVATION_STATE]],
0,20],
,,,[#extract,[arg 1 [var ACTIVATION_STATE]],
25,14]]
[write ,,,,,CONTROL_PRED,,,,= [var CURRENT_NAME],
,,,[#extract,[arg 2 [var ACTIVATION_LINK]],
0,14]]
[write ,,,,,RETURN_PC_NAME,,= [#extract,[arg 2 [var ACTIVATION_STATE]],
8,18],,
([dec [#extract,[arg 2 [var ACTIVATION_STATE]],8,18]])]
[write ,,,,,RETURN_PC_REF,,,= [#extract,[arg 2 [var ACTIVATION_STATE]],
2D,F]]
[write ,,,,,LEX,,,,,,,,,,,,,= [#extract,[arg 2 [var ACTIVATION_STATE]],
3C,4]]
[kill ACTIVATION_STATE]
[end]