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: SET ASPECT RATIO (SETAR) * SOURCE: 92840 - 18003 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM SETAR,7 92840-16001 REV.1819 780515 ENT SETAR EXT .OPTN,XETAR,PLTER * * INTERFACE MODULE FOR SETAR(ASPECT RATIO) * SETAR NOP LDA SETAR JSB .OPTN DEF RTN DEF PARM DEF M3 DEF .1 DEF .1 REQUIRED PARAMETERS DEF .1 ONE DEFAULT DEF DF1 DEF RETRN RTN JMP ERROR JSB XETAR SETAR DEF END PARM BSS 3 END JMP RETRN,I * M3 DEC -3 .1 OCT 1 DF1 DEF D1 D1 DEC 1. .0 OCT 0 RETRN NOP ERROR LDA PARM+1 STA IGCB JSB PLTER DEF RTNER DEF .68 IGCB NOP RTNER JMP RETRN,I .68 DEC 68 END