CONVRT MACRO Y05.02 Monday 15-Oct-84 16:05 Page 1 1 .LIST TTM 2 .TITLE CONVRT 3 .IDENT /V01.00/ 4 .ENABLE LC,LSB 5 ; 6 ; Program that allows for composing (designing) characters 7 ; for the VT200 family of terminals 8 ; 9 ; 10 000000 012700 CONVRT::MOV #8.,R0 ; Use R0 as a loop counter 000010 11 000004 016501 MOV 2(R5),R1 ; Obtain the address of the GRID 000002 12 000010 016502 MOV 4(R5),R2 ; Obtain the character rep. array 000004 13 000014 112762 MOVB #'/,10(R2) ; Place the delimiters into the 000057 000010 14 000022 112762 MOVB #';,21(R2) ; character rep. array 000073 000021 15 ; 16 000030 011103 10$: MOV (R1),R3 ; Obtain the GRID binary char. rep. 17 000032 072327 ASH #-6.,R3 ; Shift right 6 places 177772 18 000036 062703 ADD #'?,R3 ; Add in the base character - ? 000077 19 000042 110362 MOVB R3,11(R2) ; Store in the character rep. array 000011 20 ; 21 000046 012103 MOV (R1)+,R3 ; Obtain the GRID binary char. rep. 22 000050 042703 BIC #177700,R3 ; Clear the high order bits 177700 23 000054 062703 ADD #'?,R3 ; Add in the base character - ? 000077 24 000060 110322 MOVB R3,(R2)+ ; Store in the character rep. array 25 ; 26 000062 077016 SOB R0,10$ ; Loop until done 27 ; 28 000064 000207 RETURN 29 ; 30 000001 .END CONVRT MACRO Y05.02 Monday 15-Oct-84 16:05 Page 1-1 Symbol table CONVRT 000000RG . ABS. 000000 000 (RW,I,GBL,ABS,OVR) 000066 001 (RW,I,LCL,REL,CON) Errors detected: 0 *** Assembler statistics Work file reads: 0 Work file writes: 0 Size of work file: 39 Words ( 1 Pages) Size of core pool: 9518 Words ( 36 Pages) Operating system: RSX-11M/PLUS Elapsed time: 00:00:01.47 ,CONVRT/-SP=CONVRT