ASMB,R,L * * * ************************************************************** * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978. ALL RIGHTS * * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- * * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- * * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * ************************************************************** * * * * NAME: PEN AND LINE INTFC MOD * SOURCE: 92840 - 18026 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM PEN,7 92840-16001 REV.1819 780515 ENT PEN,LINE EXT PLTSU,.OPTN,PLTER * * THIS IS THE INTERFACE MODULE FOR THE AGL COMMANDS PEN * AND LINE-TYPE. * PEN NOP LDA .64 STA ERCOD LDA PEN JSB .OPTN GET PARAMETERS DEF RTN PADR DEF PARM PARAMETER BUFFER DEF M4 DEF .1 CODE DEF .2 # OF PARAMETERS DEF .0 # OF DEFAULTS DEF RETRN RTN JMP ERROR ENTRY JSB PLTSU FUNCTIONAL MODULE DEF END PARM BSS 4 END JMP RETRN,I * * LINETYP[(LINE TYPE #)[,(LENGTH)]] * LINE NOP LDA .65 STA ERCOD LDA LINE JSB .OPTN DEF RTN1 DEF PARM DEF M4 DEF .2 CODE DEF .1 NO REQUIRED PARAMETERS DEF .1 # OF DEFAULTS DEF DZER0 DEFAULTS DEF RETRN RTN1 JMP ERROR JMP ENTRY * * *CONSTANTS AND TEMPORARY STORAGE * .0 OCT 0 OCT 0 DZER0 DEF .0 DEF .0 .2 OCT 2 M4 OCT -4 .64 DEC 64 .65 DEC 65 .1 OCT 1 ERROR LDA PARM+1 STA IGCB JSB PLTER DEF RTNER DEF ERCOD IGCB NOP DEF ERCOD RTNER JMP RETRN,I RETRN NOP ERCOD NOP END