DSRIRB P8„]n¾Ȳ·¾ÈÚÍ@@************************************************************ @* '4*  PHYSICAL RECORD BLOCK (DSRIRB) 10/26/814* '6*  POINTED TO BY R1 IN DEVICE SERVICE ROUTINES. 6* REVISION "* 03/02/82- ADD FLAG FÀOR ON-LINE DIAG * PROCESSING. @************************************************************ @  DORG -2! &IRBSOC BYTE 0  SUPERVISOR OPCODE &IRBEC BYTE 0 ERROR CODE* '  DORG 0 ! IRBOC BYTE 0 ÀSUB OPCODEIRBLUN BYTE 0 LUNO IRBSFL BYTE 0 SYSTEM FLAGS IRFBSY EQU0 BUSYIRFERR EQU1 ERROR "IRFEOF EQU2 END OF FILE " IRFVNT EQU3 EVENT CHAR IRBDIA EQU7 DIAGNOSTIC E ÀXTENSION TO PRB IRBUFL BYTE 0 USER FLAGS&IRFINT EQU0 INITIATE REQUEST&&IRFRPY EQU1 REPLY REQUESTED &*IRFVAL EQU1  READ WITH VALIDATION*(IRFKFG EQU1  KEY SPECIFIES FLAG(IRFBFI EQU1 À BUFFERED FORMAT INFOIRFRES EQU2 RESERVED"IRFOS  EQU3 HEAD OFFSET "0IRFACC EQU3  ACCESS PRIVILEGES (2 BITS) 02IRFAC1 EQU4 ACCESS PRIVILEGES (2ND BIT) 2,IRFACM EQU>0018  ACCESS PRIV. BIT MAS,ÀK *IRFOSF EQU4  HEAD OFFSET FORWARD *"IRFLOC EQU5 LOCK/UNLOCK ",IRFMDS EQU5  MASTER DO NOT SUSPEND ,&IRFTIH EQU5 TRANSFER INHIBIT&0IRFIMO EQU5  IMMEDIATE OPEN FOR TPD DSR 0IRFOWN EQU€6 OWNERSHIP LEVEL *IRFEXR EQU6  EXTENDED USER FLAGS *.IRFBAD EQU7  BLANK ADJ/SET EVENT MODE .*IRFWPM EQU7  WORD PROCESSING MODE* IRFRTY EQU7 NO RETRIES (IRBDBA DATA 0  DATA BUFFER ADDRESS (,@"IRBICC DATA 0 RECORD LENGTH "$IRBOCC DATA 0 CHARACTER COUNT $$IRBRN1 DATA 0 RECORD # PART 1 $,OLDBFR EQU8  ON-LINE DIAG I/O BUFFER ,* 1 = AVAILABLE * 0 = NO AVAILABLEIRBRN2 DATA 0 RECORD # PARÀT 2 * 'PRBSIZ EQU$ * '(*  DIRECT DISK EQUATES (TRACK/ADU)(* '0PRBTRK EQUIRBRN1 [ TRACK # ] [ ADU # ] 08PRBSCT EQUIRBRN2[(SCT/RCD)/SCT #][SCT OFFSET] 8PRBBPS EQUIRBRN2BYTE€ S/SECTOR (VAR SECT LENGTH) 8PRBLTA EQUIRBRN2LOG TRACK ADDR (WRITE FORMAT) 8* '*  CALL BLOCK EXTENSION * '.IRBRPY EQUIRBRN1 REPLY BLOCK ADDRESS .2IRBVTA EQUIRBRN1 VALIDATION TABLE ADDRESS 24@.IRBXFL EQUIRBRN2 EXTENDED USER FLAGS .0IRFCSF EQU0  CURSOR START OF FIELD DEF 0 IRFNTN EQU1 INTENSITY  0IRFFKR EQU2  BLINKING CURSOR (FLICKER) 04IRFGRA EQU3 GRAPHICS DISPLAY(CHAR LT >20) 4IRÀ FEBA EQU4 8-BIT ASCII  4IRFTER EQU5 ENABLE TASK EDIT CARR CONTROL 4IRFBP  EQU6 BEEP2IRFRDB EQU7 RIGHT DISPLAY EDGE BOUNDARY 2*IRFCIF EQU8  CURSOR IN-FIELD DEF *IRFFC  EQU9 FILL CHAÀR DEFINED &IRFIF  EQU10INITIALIZE FIELD&.IRFRFF EQU11 REMAIN IF FIELD IS FULL .IRFECO EQU12NO ECHO .IRFVRQ EQU13 CHAR VALIDATION REQUIRED .,IRFVER EQU14 CHAR FIELD IS IN ERROR ,IRFWBPÀ EQU15WARNING BEEP"IRBFCH BYTE 0 FILL CHARACTER"$IRBEVT BYTE 0 EVENT CHARACTER $(IRBCRO BYTE 0  CURSOR POSITION ROW (*IRBCCO BYTE 0  CURSOR POSITION COLUMN*(IRBFRO BYTE 0  FIELD DEFINITION ROW(IRBFCO€& BYTE 0  FIELD DEFINITION COLUMN &* 'IRBSIZ EQU$   RORG "  PAGE " ED EQU13GRAPHICS SET ON READ TO ADDRESS 4&BSYCHR EQU14 TERMINAL BUSY FLAG&&CURBNK EQU15 CURSOR IS BLINKING& VDTSC3 B