Kod: Markera allt
.MACRO/OBJECT:PC PC.MAC
U 1 .MCALL .MODULE
OQ 2 000000 .MODULE PC,VERSION=07,COMMENT=<Paper Tape Handler>,AUDIT=YES
U 3 .MCALL .DRDEF
OQ 8 000000 .DRDEF PC,7,<PR11$X*RONLY$>,0,177550,70,DMA=NO
A 14 000002 000000G 000000G 000000 .DREST CLASS=DVC.SB ;Rdr/Punch is Device Class Serial Bidirectional
A 17 000002 PCB == PC$CSR+2 ;DATA REGISTER
A 20 000004 .IIF NDF PP$VEC, PP$VEC == PC$VEC+4 ;PUNCH VECTOR ADDR
A 21 000004 .IIF NDF PP$CSR, PP$CSR == PC$CSR+4 ;PUNCH CONTROL REGISTER
A 22 000006 PPB = PP$CSR+2 ;PUNCH DATA BUFFER
A 3 000010 000000G 000007 .DRBEG PC ;DEFINE ENTRY POINT AND QUEUE HEADS
A 10 000056 000000G 000007 000000G .DRVTB PC,PC$VEC,PCINT
000064 000000G
A 15 000074 000000G 000046' 000004 .DRAST PP,4,PCDONE
000102 000232'
A 20 .IF EQ MMG$T
A 3 000146 000000G 000007 000004 .DRAST PC,4,PCDONE
000154 000232'
A 5 .IF EQ MMG$T
A 11 .IF EQ MMG$T
A 25 000216 000000G 000252' .FORK PCFBLK ;REQUEST SYSTEM PROCESS
A 27 .IF EQ MMG$T
A 42 000246 000000G 000007 PCFIN: .DRFIN PC ;GO TO I/O COMPLETION
A 46 000262 000000G 000007 .DREND PC
?MACRO-E-Errors detected: 20
DK:PC=DK:PC.MAC
.DIR SYSMAC.SML
0 Files, 0 Blocks
4433 Free blocks
.
