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: DEVICE SIZE * SOURCE: 92840 - 18047 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM DSIZE,7 92840-16001 REV.1819 780515 EXT .OPTN,XDSIZ,PLTER ENT DSIZE * * THIS IS THE INTERFACE MODULE FOR THE AGL COMMAND DSIZE. * CALLING SEQUENCE: * CALL DSIZE(XGDU,YGDU<,CHAR HEIGHT,ASPECT RATIO <,XRES,YRES>>) * DSIZE NOP LDA DSIZE RET ADDRESS JSB .OPTN DEF RTN DEF PARM DEF M8 DEF .1 CODE (MEANINGLESS FOR THIS COMMAND) DEF .3 # OF REQUIRED PARAMETERS DEF .4 # OF OPTIONAL PARAMETERS DEF DZER0 DEF RETRN RTN JMP ERROR JSB XDSIZ DEF END PARM BSS 8 END JMP RETRN,I * DZER0 DEF .0 DEF .0 DEF .0 DEF .0 .0 BSS 2 ANY VALUES RETURNED STORED HERE IF DEFAULTED. .1 OCT 1 .3 OCT 3 .4 OCT 4 M8 DEC -8 .56 DEC 56 ERROR LDA PARM+1 STA IGCB JSB PLTER DEF RTNER DEF .56 IGCB NOP RTNER JMP RETRN,I RETRN NOP END