|
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: 4774 (0x12a6)
Notes: pts_type(SC)
Names: »WRITE.SC«
└─⟦8ac270cab⟧ Bits:30009705 Philips computer tape "LINSIM8-2"
└─⟦this⟧ »LINSIM82/WRITE.SC«
└─⟦fce1dcf99⟧ Bits:30009704 Philips computer tape "KMD15"
└─⟦this⟧ »LINSIM/WRITE.SC«
IDENT WRITE REL 1.1 82-09-28 870150040110 UPDATE #0 77.01.20 JES * * * CENTRAL COMPUTER SIMULATION * * WRITE TASK * * ENTRY WRITE 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 /62,0,0,0,0,0 EJECT * * * WRITE TASK * * WRITE 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 CWK A1,/CCCC CONTINUOUS WRITE? RB(E) WRITE YES, CONTINUE THEN 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 RF(N) WR300 CWK A4,500 RF(G) 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