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: PDIR AND LDIR * SOURCE: 92840 - 18028 * RELOC: 92840 - 16001 * * * ************************************************************* * NAM PDIR,7 92840-16001 REV.1819 780515 ENT LDIR,PDIR EXT .OPTN,LPDIR,PLTER * * THIS IS THE INTERFACE MODULE FOR THE AGL COMMANDS * PDIR AND LDIR. * PDIR NOP CLA,INA CODE FOR PDIR(THETA) STA CODE LDA .59 STA ERCOD LDA PDIR PD1 JSB .OPTN DEF RTN PADR DEF PARM DEF M4 DEF CODE DEF .2 IGCB AND ANGLE DEF .1 ACTUALLY NO DEFAULTS ADDRESS IS USED FOR ERROR CHECKING DF0 DEF DZER0 DEF RETRN RTN JMP ERROR LDA PARM+3 CPA DZER0 JMP ENTRY ISZ CODE ENTRY JSB LPDIR DEF END PARM BSS 4 END JMP RETRN,I * ERROR LDA PARM+1 STA IGCB JSB PLTER DEF RTNER DEF ERCOD IGCB NOP RTNER JMP RETRN,I * LDIR NOP LDA .3 STA CODE LDA .58 STA ERCOD LDA LDIR JMP PD1 * DZER0 DEF .0 .0 OCT 0 CODE NOP RETRN NOP .1 OCT 1 .3 OCT 3 M4 DEC -4 .2 OCT 2 ERCOD NOP .58 DEC 58 .59 DEC 59 END