;SUBROUTINE TO CONVERT THE DATE WORD FROM AN OS/8 DIRECTORY ;TO 3 INTEGERS WHICH REPRESENT DAY,MONTH,YEAR.YEAR =70/77 .GLOBL IGETD8 IGETD8: TST (R5)+ ;CLEAR NUMBER OF ARGUMENTS MOV @(R5)+,R1 ;DATE WORD MOV (R5)+,R2 ;OUTPUT ARRAY MOV R1,R3 ;SAVE DATE WORD BIC #177770,R1 ; ADD #70.,R1 ; MOV R1,-(SP) ;STACK YEAR MOV R3,R1 ; SWAB R1 ; BIC #177760,R1 ;CLEAR ALL BUT MONTH BITS MOV R1,-(SP) ; ASR R3 ASR R3 ASR R3 BIC #177740,R3 MOV R3,(R2)+ MOV (SP)+,(R2)+ MOV (SP)+,(R2)+ RTS PC .END