.LIST TTM .TITLE CONVRT .IDENT /V01.00/ .ENABLE LC,LSB ; ; Program that allows for composing (designing) characters ; for the VT200 family of terminals ; ; CONVRT::MOV #8.,R0 ; Use R0 as a loop counter MOV 2(R5),R1 ; Obtain the address of the GRID MOV 4(R5),R2 ; Obtain the character rep. array MOVB #'/,10(R2) ; Place the delimiters into the MOVB #';,21(R2) ; character rep. array ; 10$: MOV (R1),R3 ; Obtain the GRID binary char. rep. ASH #-6.,R3 ; Shift right 6 places ADD #'?,R3 ; Add in the base character - ? MOVB R3,11(R2) ; Store in the character rep. array ; MOV (R1)+,R3 ; Obtain the GRID binary char. rep. BIC #177700,R3 ; Clear the high order bits ADD #'?,R3 ; Add in the base character - ? MOVB R3,(R2)+ ; Store in the character rep. array ; SOB R0,10$ ; Loop until done ; RETURN ; .END