PL/M-51 COMPILER PAGE 1 ISIS-II PL/M-51 V1.0 COMPILER INVOKED BY: PLM51 :F1:UART.P51 $ROM(LARGE) $DEBUG NOSYMBOLS NOPAGING /*THIS PLM/51 PROGRAM IS THE CONTROL FOR THE VIKING ELECTRONICS UNIVERSAL PRODUCT TESTER UART. UART TEST VERSION 1.0 22 JULY 88 BY BILL HEIDEMAN */ 1 1 UART_MAIN: DO; $NOLIST $INCLUDE(TSTR.PUB) 5 1 = DECLARE DCL LITERALLY 'DECLARE'; 6 1 = DCL LIT LITERALLY 'LITERALLY'; 7 1 = DCL FOREVER LIT 'WHILE 1'; 8 1 = DCL AUX LIT 'AUXILIARY'; = 9 1 = DCL STOP LIT '0'; 10 1 = DCL MODE LIT '1'; 11 1 = DCL TEST LIT '2'; 12 1 = DCL REPEAT LIT '3'; = 13 1 = DCL (KEY_EDGE,FAULT,TICK_2MSEC) BIT PUBLIC; = 14 1 = DCL (KEY_DEBN,KEY_DATA,KEY_LAST) BYTE PUBLIC; 15 1 = DCL (TMR_CNT,BIT_CNT,COMMND,CURSOR) BYTE PUBLIC; 16 1 = DCL (FLASH_CNT,MAIN_TIMER) BYTE PUBLIC; = 17 1 = DCL (TEST_BUFF,BOARD_BUFF,ERROR_CODE,MODE_BUFF) BYTE PUBLIC; 18 1 = DCL DISP_DATA (5) BYTE PUBLIC; 19 1 = DCL DISP_BUFF (10) BYTE PUBLIC; 20 1 = DCL DIA WORD PUBLIC; = 21 1 = DCL H1_DATA (512) BYTE PUBLIC AT (4000H) AUX; 22 1 = DCL H2_DATA (512) BYTE PUBLIC AT (4200H) AUX; = 23 1 = DCL EXP0_A BYTE PUBLIC AT (0F000H) AUX; 24 1 = DCL EXP0_B BYTE PUBLIC AT (0F001H) AUX; 25 1 = DCL EXP0_C BYTE PUBLIC AT (0F002H) AUX; 26 1 = DCL EXP0_COM BYTE PUBLIC AT (0F003H) AUX; = 27 1 = DCL EXP1_A BYTE PUBLIC AT (0F100H) AUX; 28 1 = DCL EXP1_B BYTE PUBLIC AT (0F101H) AUX; 29 1 = DCL EXP1_C BYTE PUBLIC AT (0F102H) AUX; 30 1 = DCL EXP1_COM BYTE PUBLIC AT (0F103H) AUX; = 31 1 = DCL EXP2_A BYTE PUBLIC AT (0F200H) AUX; 32 1 = DCL EXP2_B BYTE PUBLIC AT (0F201H) AUX; 33 1 = DCL EXP2_C BYTE PUBLIC AT (0F202H) AUX; 34 1 = DCL EXP2_COM BYTE PUBLIC AT (0F203H) AUX; = 35 1 = DCL EXP3_A BYTE PUBLIC AT (0F300H) AUX; 36 1 = DCL EXP3_B BYTE PUBLIC AT (0F301H) AUX; 37 1 = DCL EXP3_C BYTE PUBLIC AT (0F302H) AUX; 38 1 = DCL EXP3_COM BYTE PUBLIC AT (0F303H) AUX; = 39 1 = DCL EXP4_A BYTE PUBLIC AT (0F400H) AUX; 40 1 = DCL EXP4_B BYTE PUBLIC AT (0F401H) AUX; 41 1 = DCL EXP4_C BYTE PUBLIC AT (0F402H) AUX; 42 1 = DCL EXP4_COM BYTE PUBLIC AT (0F403H) AUX; = 43 1 = DCL TTG_OUT (12) BYTE PUBLIC CONSTANT (28H, = 11H,21H,41H,12H,22H,42H,14H,24H,44H,18H,48H); = /************************************ * * * THIS IS THE MAIN LOOP * * * ***********************************/ 44 2 INIT: DO; 45 2 DCL I BYTE; 46 2 P1=0FFH; 47 2 SCON=50H; /* USART */ 48 2 TH1=0F5H; 49 2 TL1=0F5H; 50 2 TMOD=20H; 51 2 TR1=1; 52 1 END INIT; 53 2 MAIN_LOOP: DO FOREVER; 54 2 TI=0; 55 2 SBUF='A'; 56 3 DO WHILE TI=0; 57 3 END; 58 1 END MAIN_LOOP; 59 1 END UART_MAIN; MODULE INFORMATION: (STATIC+OVERLAYABLE) CODE SIZE = 001FH 31D CONSTANT SIZE = 000CH 12D DIRECT VARIABLE SIZE = 1FH+00H 31D+ 0D INDIRECT VARIABLE SIZE = 00H+00H 0D+ 0D BIT SIZE = 03H+00H 3D+ 0D BIT-ADDRESSABLE SIZE = 00H+00H 0D+ 0D AUXILIARY VARIABLE SIZE = 0000H 0D MAXIMUM STACK SIZE = 0004H 4D REGISTER-BANK(S) USED: 0 182 LINES READ 0 PROGRAM ERROR(S) END OF PL/M-51 COMPILATION