|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4666 (0x123a)
Notes: pts_type(SC)
Names: »SIMHWR.SC«
└─⟦fce1dcf99⟧ Bits:30009704 Philips computer tape "KMD15"
└─⟦this⟧ »DLCSIM/SIMHWR.SC«
IDENT SIMHWR REL 1.1 78-04-21 870150240110 * * * CENTRAL COMPUTER SIMULATION * * WRITE TASK * * ENTRY SIMHWR TASK ACTIVATION ENTRY WRECB WRITE ECB ADDRESS * * EXTRN TRQ TRANSMIT QUEUE EXTRN AREA TRANSMIT BUFFER AREA EXTRN LENGTH LENGTH OF TRANSMIT AREAS * * * * RELATIVE ECB EQUATES * * ECBBA EQU 2 ECBRL EQU 4 ECBEL EQU 6 ECBRC EQU 8 ECBCW EQU /A * WRECB DATA /61,0,0,0,0,0 EJECT * * * WRITE TASK * * SIMHWR LDKL A8,WRECB LOAD ECB ADDRESS LDKL A9,TRQ QUEUE POINTER LDK A7,/86 ORDER WR100 LDR* A1,A9 TAKE FROM QUEUE CWK A1,/FFFF RF(Z) EXIT END OF QUEUE ADKL A9,2 INCR QUEUE POINTER LDR A1,A1 RF(N) WR200 DELAY IS WANTED LDR A2,A1 GET AREA NUMBER ANK A2,/F LDKL A3,AREA AREA BASE WR110 SUK A2,1 COMPUTE AREA ADDRESS RF(N) WR120 ADKL A3,LENGTH RB WR110 WR120 LDR* A4,A3 GET LENGTH OF AREA RF(Z) WR300 LENGTH ZERO LDR A1,A4 ANKL A1,/1E00 RF(NZ) WR300 ST A4,ECBRL,A8 STORE IN ECB ADK A3,2 LDR* A1,A9 ADKL A9,2 ST A1,ECBCW,A8 TIME OUT ST A3,ECBBA,A8 BUFFER ADDRESS LKM DATA 1 WRITE LD A1,ECBRC,A8 GET RETURN CODE ANKL A1,/FEFF MASK TIME OUT RB(Z) WR100 OK: NEXT PATTERN EXIT LKM DATA 3 WR200 EQU * ANK A1,/FF MASK DELAY-VALUE LDR A8,A1 LKM DATA 6 DELAY LDKL A8,WRECB RB WR100 WR300 EQU * ADKL A9,2 RB WR100 END