.TITLE ATTTRM .IDENT /V0.0/ ;******************************************************************************* ; MODULE: ATTTRM, ASYNCHRONOUS SYSTEM TRAP HANDLER ; AUTHOR: HARDY TICHENOR (WITH COPIOUS ASSISTANCE FROM KINNE STRONG!) ; MODIFIED BY: MICHAEL BOORSTEIN FOR BLACKJACK ;******************************************************************************* ; ; Detailed Module Description: ; ; This module handles asynchronous (unsolicited) input from the ; 8080 PDC controller during ROM Simulator loading. There are ; two entry points: one to attach the terminal device and request ; asynchronous system traps and one to process the traps (AST's). ; ; ATTTRM attaches logical unit 5 and requests AST's to be ; handled by ASTRTN. ; ; ASTRTN THROWS THE CHARACTERS AWAY AS THEY ARE RECIEVED. ; ; ; .MCALL QIOW$C,SETF$C,ASTX$S TILUN=5 RSPEFN=1 DEFEFN=2 ; ; ATTTRM DEFINES THE EXISTENCE OF AN ASYNCHRONOUS SYSTEM TRAP ROUTINE ; AT . WHILE DEFINING THE AST THE TERMINAL IS ATTACHED. ; ; INPUTS: NONE ; OUTPUTS: NONE ; ATTTRM::QIOW$C IO.ATA,TILUN,DEFEFN,,,, RTS PC ;RETURN TO FORTRAN CALLING ROUTINE ASTRTN: TST (SP)+ ;THROW AWAY THE CHARACTER ASTX$S ;RETURN FROM AST .END