; Exercise 7b ; MACRO main program for PackLine CR = 13 LF = 10 Prompt: .ASCID "Enter String" Result: .ASCID "Packed String" String: .BLKW 1 ; Descriptor - Length .BYTE 14 ; Data type .BYTE 2 ; Dynamic string .BLKL 1 ; Address CharCount: .BLKL 1 .ENTRY Main, 0 PUSHAL Prompt ; Prompt and PUSHAL String ; read string CALLS #2, G^Lib$Get_Input PUSHAL CharCount ; Call PackLine ; (String, Charcount) PUSHAL String CALLS #2, PackLine PUSHAL Result ; Print result message CALLS #1, G^Lib$Put_Output PUSHAL String ; Print packed string CALLS #1, G^Lib$Put_Output $EXIT_S .END Main