.TITLE FAL .IDENT /V01.11/ .CSECT FAL ; ; FALP01 - CAUSE FAL TO ALLOCATE PROPER NUMBER OF Q ELEMENTS ; ; *** BEGIN FALP01 *** ; X=. .=X+162 MOVB #20.,R0 ; INDICATE 20. Q ELEMENTS ; .PSECT FALP01 FALP01:: ; ; *** END FALP01 *** ; ; ; *** BEGIN FALP03 *** ; ; FALP03 - ALLOW ACCESS COMPLETE AFTER CONTROL CONNECT ; .PSECT FAL .IDENT /V01.12/ .GLOBL FALSTD CMPMSG = X+3442 CPMSG = X+2464 MOSERR = X+4114 .=X+2436 MOV #FALP03,FALSTD(R5) ; .=X+5276 .BYTE 0,7 ; ALLOW ACCESS COMPLETE .WORD CMPMSG .WORD -1,-1 .WORD MOSERR ; .PSECT FALP03 FALP03:: .BYTE 0,4 ; ALLOW CTL PUT .WORD CPMST .BYTE 0,7 ; ALLOW ACC CMP .WORD CMPMSG .WORD 01,10 ; ELSE MOS .WORD MOSERR ; ; *** END FALP03 *** ; .END