$title "Intel MCS BASIC-52 V. 1.1" ; INTEL EQU 0 ; ; 28-MAR-1987 ; Modified for compatibility with Binary Technologys SXA51 Cross-Assembler: ; 1. All 'HIGH' and 'LOW' operands are now in parentheses. ; 2. The 'XSEG' directive becomes 'ORG 0' when assembled with 'INTEL'= 0. ; ; December 18, 1986 ; MS-DOS compatible Source code for MCS BASIC-52 (tm) ; Assembles with ASM51 Macro Assembler Version 2.2 ; ; The following source code does not include the floating point math ; routines. These are seperately compiled using FP52.SRC. ; ; Both the BASIC.SRC and FP52.SRC programs assemble into ABSOLUTE ; object files, and do not need to be relocated or linked. The FP52 ; object code and the BASIC object code, when compiled without modification ; of the source listings, create the same object code that is found on ; the MCS BASIC-52 Version 1.1 microcontrollers. ; ; The original source code had 7 "include" files that have been incorporated ; into this file for ease of assembly. ; These 7 files are: LOOK52.SRC, BAS52.RST, BAS52.PGM, BAS52.TL, BAS52.OUT, ; BAS52.PWM, and BAS52.CLK. ; ; ; Intel Corporation, Embedded Controller Operations $EJECT ;************************************************************** ; ; TRAP VECTORS TO MONITOR ; ; RESET TAG (0AAH) ---------2001H ; ; TAG LOCATION (5AH) ------ 2002H ; ; EXTERNAL INTERRUPT 0 ---- 2040H ; ; COMMAND MODE ENTRY ------ 2048H ; ; SERIAL PORT ------------- 2050H ; ; MONITOR (BUBBLE) OUTPUT - 2058H ; ; MONITOR (BUBBLE) INPUT -- 2060H ; ; MONITOR (BUBBLE) CSTS --- 2068H ; ; GET USER JUMP VECTOR ---- 2070H ; ; GET USER LOOKUP VECTOR -- 2078H ; ; PRINT AT VECTOR --------- 2080H ; ; INTERRUPT PWM ----------- 2088H ; ; EXTERNAL RESET ---------- 2090H ; ; USER OUTPUT-------------- 4030H ; ; USER INPUT -------------- 4033H ; ; USER CSTS --------------- 4036H ; ; USER RESET -------------- 4039H ; ; USER DEFINED PRINT @ --- 403CH ; ;*************************************************************** ; $EJECT ;*************************************************************** ; ; MCS - 51 - 8K BASIC VERSION 1.1 ; ;*************************************************************** ; AJMP CRST ;START THE PROGRAM ; ORG 3H ; ;*************************************************************** ; ;EXTERNAL INTERRUPT 0 ; ;*************************************************************** ; JB DRQ,STQ ;SEE IF DMA IS SET PUSH PSW ;SAVE THE STATUS LJMP 4003H ;JUMP TO USER IF NOT SET ; ORG 0BH ; ;*************************************************************** ; ;TIMER 0 OVERFLOW INTERRUPT ; ;*************************************************************** ; PUSH PSW ;SAVE THE STATUS JB C_BIT,STJ ;SEE IF USER WANTS INTERRUPT LJMP 400BH ;EXIT IF USER WANTS INTERRUPTS ; ORG 13H ; ;*************************************************************** ; ;EXTERNAL INTERRUPT 1 ; ;*************************************************************** ; JB INTBIT,STK PUSH PSW LJMP 4013H ; $EJECT ; ORG 1BH ; ;*************************************************************** ; ;TIMER 1 OVERFLOW INTERRUPT ; ;*************************************************************** ; PUSH PSW LJMP CKS_I ; STJ: LJMP I_DR ;DO THE INTERRUPT ; ;*************************************************************** ; ;SERIAL PORT INTERRUPT ; ;*************************************************************** ; ORG 23H ; PUSH PSW JB SPINT,STU ;SEE IF MONITOR EANTS INTERRUPT LJMP 4023H ; ORG 2BH ; ;************************************************************** ; ;TIMER 2 OVERFLOW INTERRUPT ; ;************************************************************** ; PUSH PSW LJMP 402BH ; $EJECT ;************************************************************** ; ;USER ENTRY ; ;************************************************************** ; ORG 30H ; LJMP IBLK ;LINK TO USER BLOCK ; STQ: JB I_T0,STS ;SEE IF MONITOR WANTS IT CLR DACK JNB P3.2,$ ;WAIT FOR DMA TO END SETB DACK RETI ; STS: LJMP 2040H ;GO TO THE MONITOR ; STK: SETB INTPEN ;TELL BASIC AN INTERRUPT WAS RECEIVED RETI ; STU: LJMP 2050H ;SERIAL PORT INTERRUPT ; $EJECT ;$INCLUDE(:F2:LOOK52.SRC) ; INCLUDED BELOW ; ;************************************************************** ; ; This is the equate table for 8052 basic. ; ;************************************************************** ; ; The register to direct equates for CJNE instructions. ; R0B0 EQU 0 R1B0 EQU 1 R2B0 EQU 2 R3B0 EQU 3 R4B0 EQU 4 R5B0 EQU 5 R6B0 EQU 6 R7B0 EQU 7 ; ; Register bank 1 contains the text pointer ; and the arg stack pointer. ; TXAL EQU 8 ;R0 BANK 1 = TEXT POINTER LOW ASTKA EQU 9 ;R1 BANK 1 = ARG STACK TXAH EQU 10 ;R2 BANK 1 = TEXT POINTER HIGH ; ; Now five temporary locations that are used by basic. ; TEMP1 EQU 11 TEMP2 EQU 12 TEMP3 EQU 13 TEMP4 EQU 14 TEMP5 EQU 15 ; $EJECT ; Register bank 2 contains the read text pointer ; and the control stack pointer. ; RTXAL EQU 16 ;R0 BANK 2 = READ TEXT POINTER LOW CSTKA EQU 17 ;R1 BANK 2 = CONTROL STACK POINTER RTXAH EQU 18 ;R2 BANK 2 = READ TEXT POINTER HIGH ; ; Now some internal system equates. ; BOFAH EQU 19 ;START OF THE BASIC PROGRAM, HIGH BYTE BOFAL EQU 20 ;START OF THE BASIC PROGRAM, LOW BYTE NULLCT EQU 21 ;NULL COUNT PHEAD EQU 22 ;PRINT HEAD POSITION FORMAT EQU 23 ; ; Register bank 3 is for the user and can be loaded ; by basic ; ; ; ; Now everything else is used by basic. ; First the bit locations, these use bytes 34, 35, 36, 37 and 38 ; $EJECT OTS BIT 16 ;34.0-ON TIME INSTRUCTION EXECUTED INPROG BIT 17 ;34.1-INTERRUPT IN PROCESS INTBIT BIT 18 ;34.2-INTERRUPT SET BIT ON_ERR BIT 19 ;34.3-ON ERROR EXECUTED OTI BIT 20 ;34.4-ON TIME INTERRUPT IN PROGRESS LINEB BIT 21 ;34.5-LINE CHANGE OCCURED INTPEN BIT 22 ;34.6-INTERRUPT PENDING BIT CONB BIT 23 ;34.7-CAN CONTINUE IF SET GTRD BIT 24 ;35.0-READ GET LOCATION LPB BIT 25 ;35.1-PRINT TO LINE PRINTER PORT CKS_B BIT 26 ;35.2-FOR PWM INTERRUPT COB BIT 27 ;35.3-CONSOLE OUT BIT ; 0 = SERIAL PORT ; 1 = LINE PRINTER COUB BIT 28 ;35.4-USER CONSOLE OUT BIT ; 0 = SERIAL PORT ; 1 = USER DRIVER INBIT BIT 29 ;35.5-INITIALIZATION BIT CIUB BIT 30 ;35.6-USER CONSOLE IN BIT ; 0 = SERIAL PORT ; 1 = USER ROUTINE SPINT BIT 31 ;35.7-SERIAL PORT INTERRUPT STOPBIT BIT 32 ;36.0-PROGRAM STOP ENCOUNTERED U_IDL BIT 33 ;36.1-USER IDLE BREAK INP_B BIT 34 ;36.2-SET DURING INPUT INSTRUCTION ;DCMPXZ BIT 35 ;36.3-DCMPX ZERO FLAG ARGF BIT 36 ;36.4-ARG STACK HAS A VALUE RETBIT BIT 37 ;36.5-RET FROM INTERRUPT EXECUTED I_T0 BIT 38 ;36.6-TRAP INTERRUPT ZERO TO MON UPB BIT 39 ;36.7-SET WHEN @ IS VALID JKBIT BIT 40 ;37.0-WB TRIGGER ENDBIT BIT 41 ;37.1-GET END OF PROGRAM UBIT BIT 42 ;37.2-FOR DIM STATEMENT ISAV BIT 43 ;37.3-SAVE INTERRUPT STATUS BO BIT 44 ;37.4-BUBBLE OUTPUT XBIT BIT 45 ;37.5-EXTERNAL PROGRAM PRESENT C_BIT BIT 46 ;37.6-SET WHEN CLOCK RUNNING DIRF BIT 47 ;37.7-DIRECT INPUT MODE NO_C BIT 48 ;38.0-NO CONTROL C DRQ BIT 49 ;38.1-DMA ENABLED BI BIT 50 ;38.2-BUBBLE INPUT INTELB BIT 51 ;38.3-INTELLIGENT PROM PROGRAMMING C0ORX1 BIT 52 ;38.4-PRINT FROM ROM OR RAM CNT_S BIT 53 ;38.5-CONTROL S ENCOUNTERED ZSURP BIT 54 ;38.6-ZERO SUPRESS HMODE BIT 55 ;38.7-HEX MODE PRINT LP BIT P1.7 ;SOFTWARE LINE PRINTER DACK BIT P1.6 ;DMA ACK PROMV BIT P1.5 ;TURN ON PROM VOLTAGE PROMP BIT P1.4 ;PROM PULSE ALED BIT P1.3 ;ALE DISABLE T_BIT BIT P1.2 ;I/O TOGGLE BIT ; $EJECT ; ; The next location is a bit addressable byte counter ; BABC EQU 39 ; ; Now floating point and the other temps ; ; FP Uses to locations 03CH ; ; Now the stack designators. ; SPSAV EQU 3EH S_LEN EQU 3FH T_HH EQU 40H T_LL EQU 41H INTXAH EQU 42H INTXAL EQU 43H MT1 EQU 45H MT2 EQU 46H MILLIV EQU 47H ;TIMER LOCATIONS TVH EQU 48H TVL EQU 49H SAVE_T EQU 4AH SP_H EQU 4BH ;SERIAL PORT TIME OUT SP_L EQU 4CH CMNDSP EQU 4DH ;SYSTEM STACK POINTER IRAMTOP EQU 0FFH ;TOP OF RAM STACKTP EQU 0FEH ;ARG AND CONTROL STACK TOPS ; ; The character equates ; CR EQU 0DH ;CARRIAGE RETURN LF EQU 0AH ;LINE FEED BELL EQU 07H ;BELL CHARACTER BS EQU 08H ;BACK SPACE CNTRLC EQU 03H ;CONTROL C CNTRLD EQU 04H ;CONTROL D NULL EQU 00H ;NULL ; $EJECT ; ; The internal system equates ; LINLEN EQU 73 ;THE LENGTH OF AN INPUT LINE EOF EQU 01 ;END OF FILE CHARACTER ASTKAH EQU 01 ;ASTKA IS IN PAGE 1 OF RAM CSTKAH EQU 00 ;CSTKA IS IN PAGE 0 OF RAM FTYPE EQU 01 ;CONTROL STACK "FOR" GTYPE EQU 02 ;CONTROL STACK "GOSUB" DTYPE EQU 03 ;DO-WHILE/UNTIL TYPE ROMADR EQU 8000H ;LOCATION OF ROM ; ; The floating point equates ; FPSIZ EQU 6 ;NO. OF BYTES IN A FLOATING NUM DIGIT EQU FPSIZ-2 ;THE MANTISSA OF A FLOATING NUM STESIZ EQU FPSIZ+3 ;SIZE OF SYMBOL ADJUSTED TABLE ELEMENT FP_BASE EQU 1993H ;BASE OF FLOATING POINT ROUTINES PSTART EQU 512 ;START OF A PROGRAM IN RAM FSIZE EQU FPSIZ+FPSIZ+2+2+1 ; $EJECT ;************************************************************** ; USENT: ; User entry jump table ; ;************************************************************** ; DW CMND1 ;(00, 00H)COMMAND MODE JUMP DW IFIX ;(01, 01H)CONVERT FP TO INT DW PUSHAS ;(02, 02H)PUSH VALUE ONTO ARG STACK DW POPAS ;(03, 03H)POP VALUE OFF ARG STACK DW PG1 ;(04, 04H)PROGRAM A PROM DW INLINE ;(05, 05H)INPUT A LINE DW UPRNT ;(06, 06H)PRINT A LINR DW CRLF ;(07, 07H)OUTPUT A CRLF ; ;************************************************************** ; ; This is the operation jump table for arithmetics ; ;************************************************************** ; OPTAB: DW ALPAR ;(08, 08H)LEFT PAREN DW AEXP ;(09, 09H)EXPONENTAION DW AMUL ;(10, 0AH)FP MUL DW AADD ;(11, 0BH)FLOATING POINT ADD DW ADIV ;(12, 0CH)FLOATING POINT DIVIDE DW ASUB ;(13, 0DH)FLOATING POINT SUBTRACTION DW AXRL ;(14, 0EH)XOR DW AANL ;(15, 0FH)AND DW AORL ;(16, 10H)OR DW ANEG ;(17, 11H)NEGATE DW AEQ ;(18, 12H)EQUAL DW AGE ;(19, 13H)GREATER THAN OR EQUAL DW ALE ;(20, 14H)LESS THAN OR EQUAL DW ANE ;(21, 15H)NOT EQUAL DW ALT ;(22, 16H)LESS THAN DW AGT ;(23, 17H)GREATER THAN ; $EJECT ;*************************************************************** ; ; This is the jump table for unary operators ; ;*************************************************************** ; DW AABS ;(24, 18H)ABSOLUTE VALUE DW AINT ;(25, 19H)INTEGER OPERATOR DW ASGN ;(26, 1AH)SIGN OPERATOR DW ANOT ;(27, 1BH)ONE'S COMPLEMENT DW ACOS ;(28, 1CH)COSINE DW ATAN ;(29, 1DH)TANGENT DW ASIN ;(30, 1EH)SINE DW ASQR ;(31, 1FH)SQUARE ROOT DW ACBYTE ;(32, 20H)READ CODE DW AETOX ;(33, 21H)E TO THE X DW AATAN ;(34, 22H)ARC TANGENT DW ALN ;(35, 23H)NATURAL LOG DW ADBYTE ;(36, 24H)READ DATA MEMORY DW AXBYTE ;(37, 25H)READ EXTERNAL MEMORY DW PIPI ;(38, 26H)PI DW ARND ;(39, 27H)RANDOM NUMBER DW AGET ;(40, 28H)GET INPUT CHARACTER DW AFREE ;(41, 29H)COMPUTE #BYTES FREE DW ALEN ;(42, 2AH) COMPUTE LEN OF PORGRAM DW AXTAL ;(43, 2BH) CRYSTAL DW PMTOP ;(44, 2CH)TOP OF MEMORY DW ATIME ;(45, 2DH) TIME DW A_IE ;(46, 2EH) IE DW A_IP ;(47, 2FH) IP DW ATIM0 ;(48, 30H) TIMER 0 DW ATIM1 ;(49, 31H) TIMER 1 DW ATIM2 ;(50, 32H) TIMER 2 DW AT2CON ;(51, 33H) T2CON DW ATCON ;(52, 34H) TCON DW ATMOD ;(53, 35H) ATMOD DW ARCAP2 ;(54, 36H) RCAP2 DW AP1 ;(55, 37H) P1 DW APCON ;(56, 38H) PCON DW EXPRB ;(57, 39H) EVALUATE AN EXPRESSION DW AXTAL1 ;(58, 3AH) CALCULATE CRYSTAL DW LINE ;(59, 3BH) EDIT A LINE DW PP ;(60, 3CH) PROCESS A LINE DW UPPL-3 ;(61, 3DH) UNPROCESS A LINE DW VAR ;(62, 3EH) FIND A VARIABLE DW GC ;(63, 3FH) GET A CHARACTER DW GCI ;(64, 40H) GET CHARACTER AND INCREMENT DW INCHAR ;(65, 41H) INPUT A CHARACTER DW CRUN ;(66, 42H) RUN A PROGRAM $EJECT OPBOL: DB 1 ; ; DB 15 ;LEFT PAREN DB 14 ;EXPONENTIAN ** DB 10 ;MUL DB 8 ;ADD DB 10 ;DIVIDE DB 8 ;SUB DB 3 ;XOR DB 5 ;AND DB 4 ;OR DB 12 ;NEGATE DB 6 ;EQ DB 6 ;GT DB 6 ;LT DB 6 ;NE DB 6 ;LE DB 6 ;GE ; UOPBOL: DB 15 ;AABS DB 15 ;AAINT DB 15 ;ASGN DB 15 ;ANOT DB 15 ;ACOS DB 15 ;ATAN DB 15 ;ASIN DB 15 ;ASQR DB 15 ;ACBYTE DB 15 ;E TO THE X DB 15 ;AATAN DB 15 ;NATURAL LOG DB 15 ;DBYTE DB 15 ;XBYTE ; $EJECT ;*************************************************************** ; ; The ASCII printed messages. ; ;*************************************************************** ; STP: DB 'STOP"' ; IAN: DB 'TRY AGAIN"' ; RDYS: DB 'READY"' ; INS: DB ' - IN LINE "' ; ;************************************************************** ; ; This is the command jump table ; ;************************************************************** ; CMNDD: DW CRUN ;RUN DW CLIST ;LIST DW CNULL ;NULL DW CNEW ;NEW DW CCONT ;CONTINUE DW CPROG ;PROGRAM A PROM DW CXFER ;TRANSFER FROM ROM TO RAM DW CRAM ;RAM MODE DW CROM ;ROM MODE DW CIPROG ;INTELLIGENT PROM PROGRAMMING ; $EJECT ;*************************************************************** ; ; This is the statement jump table. ; ;************************************************************** ; STATD: ; DW SLET ;LET 80H DW SCLR ;CLEAR 81H DW SPUSH ;PUSH VAR 82H DW SGOTO ;GO TO 83H DW STONE ;TONE 84H DW SPH0 ;PRINT MODE 0 85H DW SUI ;USER INPUT 86H DW SUO ;USER OUTPUT 87H DW SPOP ;POP VAR 88H DW SPRINT ;PRINT 89H DW SCALL ;CALL 8AH DW SDIMX ;DIMENSION 8BH DW STRING ;STRING ALLO 8CH DW SBAUD ;SET BAUD 8DH DW SCLOCK ;CLOCK 8EH DW SPH1 ;PRINT MODE 1 8FH ; ; No direct mode from here on ; DW SSTOP ;STOP 90H DW SOT ;ON TIME 91H DW SONEXT ;ON EXT INT 92H DW SRETI ;RET FROM INT 93H DW S_DO ;DO 94H DW SRESTR ;RESTOR 95H DW WCR ;REM 96H DW SNEXT ;NEXT 97H DW SONERR ;ON ERROR 98H DW S_ON ;ON 99H DW SINPUT ;INPUT 9AH DW SREAD ;READ 9BH DW FINDCR ;DATA 9CH DW SRETRN ;RETURN 9DH DW SIF ;IF 9EH DW SGOSUB ;GOSUB 9FH DW SFOR ;FOR A0H DW SWHILE ;WHILE A1H DW SUNTIL ;UNTIL A2H DW CMND1 ;END A3H DW I_DL ;IDLE A4H DW ST_A ;STORE AT A5H DW LD_A ;LOAD AT A6H DW PGU ;PGM A7H DW RROM ;RUN A ROM A9H ; $EJECT ;************************************************************** ; TOKTAB: ; This is the basic token table ; ;************************************************************** ; ; First the tokens for statements ; DB 80H ;LET TOKEN DB 'LET' ; DB 81H ;CLEAR TOKEN DB 'CLEAR' ; DB 82H ;PUSH TOKEN DB 'PUSH' ; T_GOTO EQU 83H ; DB 83H ;GO TO TOKEN DB 'GOTO' ; DB 84H ;TOGGLE TOKEN DB 'PWM' ; DB 85H ;PRINT HEX MODE 0 DB 'PH0.' ; DB 86H ;USER IN TOKEN DB 'UI' ; DB 87H ;USER OUT TOKEN DB 'UO' ; DB 88H ;POP TOKEN DB 'POP' ; $EJECT DB 89H ;PRINT TOKEN DB 'PRINT' DB 89H DB 'P.' ;P. ALSO MEANS PRINT DB 89H ;? ALSO DB '?' ; DB 8AH ;CALL TOKEN DB 'CALL' ; DB 8BH ;DIMENSION TOKEN DB 'DIM' ; DB 8CH ;STRING TOKEN DB 'STRING' ; DB 8DH ;SET BAUD RATE DB 'BAUD' ; DB 8EH ;CLOCK DB 'CLOCK' ; DB 8FH ;PRINT HEX MODE 1 DB 'PH1.' ; T_STOP EQU 90H ;STOP TOKEN DB T_STOP DB 'STOP' ; T_DIR EQU T_STOP ;NO DIRECT FROM HERE ON ; DB T_STOP+1 ;ON TIMER INTERRUPT DB 'ONTIME' ; DB T_STOP+2 ;ON EXTERNAL INTERRUPT DB 'ONEX1' ; DB T_STOP+3 ;RETURN FROM INTERRUPT DB 'RETI' ; DB T_STOP+4 ;DO TOKEN DB 'DO' ; DB T_STOP+5 ;RESTORE TOKEN DB 'RESTORE' ; $EJECT T_REM EQU T_STOP+6 ;REMARK TOKEN DB T_REM DB 'REM' ; DB T_REM+1 ;NEXT TOKEN DB 'NEXT' ; DB T_REM+2 ;ON ERROR TOKEN DB 'ONERR' ; DB T_REM+3 ;ON TOKEN DB 'ON' ; DB T_REM+4 ;INPUT DB 'INPUT' ; DB T_REM+5 ;READ DB 'READ' ; T_DATA EQU T_REM+6 ;DATA DB T_DATA DB 'DATA' ; DB T_DATA+1 ;RETURN DB 'RETURN' ; DB T_DATA+2 ;IF DB 'IF' ; T_GOSB EQU T_DATA+3 ;GOSUB DB T_GOSB DB 'GOSUB' ; DB T_GOSB+1 ;FOR DB 'FOR' ; DB T_GOSB+2 ;WHILE DB 'WHILE' ; DB T_GOSB+3 ;UNTIL DB 'UNTIL' ; DB T_GOSB+4 ;END DB 'END' ; $EJECT T_LAST EQU T_GOSB+5 ;LAST INITIAL TOKEN ; T_TAB EQU T_LAST ;TAB TOKEN DB T_TAB DB 'TAB' ; T_THEN EQU T_LAST+1 ;THEN TOKEN DB T_THEN DB 'THEN' ; T_TO EQU T_LAST+2 ;TO TOKEN DB T_TO DB 'TO' ; T_STEP EQU T_LAST+3 ;STEP TOKEN DB T_STEP DB 'STEP' ; T_ELSE EQU T_LAST+4 ;ELSE TOKEN DB T_ELSE DB 'ELSE' ; T_SPC EQU T_LAST+5 ;SPACE TOKEN DB T_SPC DB 'SPC' ; T_CR EQU T_LAST+6 DB T_CR DB 'CR' ; DB T_CR+1 DB 'IDLE' ; DB T_CR+2 DB 'ST@' ; DB T_CR+3 DB 'LD@' ; DB T_CR+4 DB 'PGM' ; DB T_CR+5 DB 'RROM' ; $EJECT ; Operator tokens ; T_LPAR EQU 0E0H ;LEFT PAREN DB T_LPAR DB '(' ; DB T_LPAR+1 ;EXPONENTIAN DB '**' ; DB T_LPAR+2 ;FP MULTIPLY DB '*' ; T_ADD EQU T_LPAR+3 DB T_LPAR+3 ;ADD TOKEN DB '+' ; DB T_LPAR+4 ;DIVIDE TOKEN DB '/' ; T_SUB EQU T_LPAR+5 ;SUBTRACT TOKEN DB T_SUB DB '-' ; DB T_LPAR+6 ;LOGICAL EXCLUSIVE OR DB '.XOR.' ; DB T_LPAR+7 ;LOGICAL AND DB '.AND.' ; DB T_LPAR+8 ;LOGICAL OR DB '.OR.' ; T_NEG EQU T_LPAR+9 ; T_EQU EQU T_LPAR+10 ;EQUAL DB T_EQU DB '=' ; DB T_LPAR+11 ;GREATER THAN OR EQUAL DB '>=' ; DB T_LPAR+12 ;LESS THAN OR EQUAL DB '<=' ; DB T_LPAR+13 ;NOT EQUAL DB '<>' ; DB T_LPAR+14 ;LESS THAN DB '<' ; DB T_LPAR+15 ;GREATER THAN DB '>' ; ; T_UOP EQU 0B0H ;UNARY OP BASE TOKEN ; DB T_UOP ;ABS TOKEN DB 'ABS' ; DB T_UOP+1 ;INTEGER TOKEN DB 'INT' ; DB T_UOP+2 ;SIGN TOKEN DB 'SGN' ; DB T_UOP+3 ;GET TOKEN DB 'NOT' ; DB T_UOP+4 ;COSINE TOKEN DB 'COS' ; DB T_UOP+5 ;TANGENT TOKEN DB 'TAN' ; DB T_UOP+6 ;SINE TOKEN DB 'SIN' ; DB T_UOP+7 ;SQUARE ROOT TOKEN DB 'SQR' ; DB T_UOP+8 ;CBYTE TOKEN DB 'CBY' ; DB T_UOP+9 ;EXP (E TO THE X) TOKEN DB 'EXP' ; DB T_UOP+10 DB 'ATN' ; DB T_UOP+11 DB 'LOG' ; DB T_UOP+12 ;DBYTE TOKEN DB 'DBY' ; DB T_UOP+13 ;XBYTE TOKEN DB 'XBY' ; T_ULAST EQU T_UOP+14 ;LAST OPERATOR NEEDING PARENS ; DB T_ULAST DB 'PI' ; DB T_ULAST+1 ;RND TOKEN DB 'RND' ; DB T_ULAST+2 ;GET TOKEN DB 'GET' ; DB T_ULAST+3 ;FREE TOKEN DB 'FREE' ; DB T_ULAST+4 ;LEN TOKEN DB 'LEN' ; T_XTAL EQU T_ULAST+5 ;CRYSTAL TOKEN DB T_XTAL DB 'XTAL' ; T_MTOP EQU T_ULAST+6 ;MTOP DB T_MTOP DB 'MTOP' ; T_IE EQU T_ULAST+8 ;IE REGISTER DB T_IE DB 'IE' ; T_IP EQU T_ULAST+9 ;IP REGISTER DB T_IP DB 'IP' ; TMR0 EQU T_ULAST+10 ;TIMER 0 DB TMR0 DB 'TIMER0' ; TMR1 EQU T_ULAST+11 ;TIMER 1 DB TMR1 DB 'TIMER1' ; TMR2 EQU T_ULAST+12 ;TIMER 2 DB TMR2 DB 'TIMER2' ; T_TIME EQU T_ULAST+7 ;TIME DB T_TIME DB 'TIME' ; TT2C EQU T_ULAST+13 ;T2CON DB TT2C DB 'T2CON' ; TTC EQU T_ULAST+14 ;TCON DB TTC DB 'TCON' ; TTM EQU T_ULAST+15 ;TMOD DB TTM DB 'TMOD' ; TRC2 EQU T_ULAST+16 ;RCAP2 DB TRC2 DB 'RCAP2' ; T_P1 EQU T_ULAST+17 ;P1 DB T_P1 DB 'PORT1' ; T_PC EQU T_ULAST+18 ;PCON DB T_PC DB 'PCON' ; T_ASC EQU T_ULAST+19 ;ASC TOKEN DB T_ASC DB 'ASC(' ; T_USE EQU T_ULAST+20 ;USING TOKEN DB T_USE DB 'USING(' DB T_USE DB 'U.(' ; T_CHR EQU T_ULAST+21 ;CHR TOKEN DB T_CHR DB 'CHR(' ; $EJECT T_CMND EQU 0F0H ;COMMAND BASE ; DB 0F0H ;RUN TOKEN DB 'RUN' ; DB 0F1H ;LIST TOKEN DB 'LIST' ; DB 0F2H ;NULL TOKEN DB 'NULL' ; DB 0F3H ;NEW TOKEN DB 'NEW' ; DB 0F4H ;CONTINUE TOKEN DB 'CONT' ; DB 0F5H ;PROGRAM TOKEN DB 'PROG' ; DB 0F6H ;TRANSFER TOKEN DB 'XFER' ; DB 0F7H ;RAM MODE DB 'RAM' ; DB 0F8H ;ROM MODE DB 'ROM' ; DB 0F9H ;INTELLIGENT PROM PROGRAMMING DB 'FPROG' ; DB 0FFH ;END OF TABLE ; ; END OF INCLUDE LOOK52 ;$INCLUDE(:F2:LOOK52.SRC) ; EIG: DB 'EXTRA IGNORED"' ; EXA: DB 'A-STACK"' ; EXC: DB 'C-STACK"' ; $EJECT ;$INCLUDE(:F2:BAS52.RST) ; BEGINNING ;************************************************************** ; CRST: ; This performs system initialzation, it was moved here so the ; new power on reset functions could be tested in an 8751. ; ;************************************************************** ; ; First, initialize SFR's ; MOV SCON,#5AH ;INITIALIZE SFR'S MOV TMOD,#10H MOV TCON,#54H DB 75H ;MOV DIRECT, # OP CODE DB 0C8H ;T2CON LOCATION DB 34H ;CONFIGURATION BYTE ; MOV DPTR,#2001H ;READ CODE AT 2001H CLR A MOVC A,@A+DPTR CJNE A,#0AAH,$+6 ;IF IT IS AN AAH, DO USER RESET LCALL 2090H ; MOV R0,#IRAMTOP ;PUT THE TOP OF RAM IN R0 CLR A ;ZERO THE ACC ; MOV @R0,A ;CLEAR INTERNAL MEMORY DJNZ R0,$-1 ;LOOP TIL DONE ; ; Now, test the external memory ; MOV SPSAV,#CMNDSP ;SET UP THE STACK MOV SP,SPSAV ; MOV BOFAH,#HIGH (ROMADR) MOV BOFAL,#LOW (ROMADR+17) MOV DPTR,#ROMADR ;GET THE BYTE AT 8000H MOVX A,@DPTR CLR C SUBB A,#31H ;FOR BIAS MOV MT1,A ;SAVE IN DIRECT MATH LOC CLR ACC.2 ;SAVE FOR RESET MOV R7,A ;SAVE IT IN R7 INC DPTR ACALL L31DPI ;SAVE BAUD RATE LCALL RCL INC DPTR ;GET MEMTOP ACALL L31DPI MOV DPTR,#5FH ;READ THE EXTERNAL BYTE MOVX A,@DPTR MOV DPTR,#0 ;ESTABLISH BASE FOR CLEAR CJNE A,#0A5H,CRS MOV A,MT1 CLR ACC.0 ;CLEAR BIT ONE XRL A,#4H JZ CR2 ; CRS: CJNE R7,#2,$+5 SJMP $+5 CJNE R7,#3,$+7 ACALL CL_1 SJMP CR1 ; CR0: MOV R3,DPH ;SAVE THE DPTR MOV R1,DPL INC DPTR MOV A,#5AH MOVX @DPTR,A MOVX A,@DPTR CJNE A,#5AH,CR1 CLR A MOVX @DPTR,A CJNE R3,#0E0H,CR0 ; CR1: CJNE R3,#03H,$+3 ;NEED THIS MUCH RAM JC CRST MOV DPTR,#MEMTOP ;SAVE MEMTOP ACALL S31DP2 ;SAVE MEMTOP AND SEED RCELL ACALL CNEW ;CLEAR THE MEMORY AND SET UP POINTERS ; CR2: ACALL RC1 ;SET UP STACKS IF NOT DONE ; LCALL AXTAL0 ;DO THE CRYSTAL MOV A,MT1 ;GET THE RESET BYTE CJNE A,#5,$+6 LCALL 4039H JNC BG1 ;CHECK FOR 0,1,2,3, OR 4 JNB ACC.0,BG3 ;NO RUN IF WRONG TYPE MOV DPTR,#ROMADR+16 MOVX A,@DPTR ;READ THE BYTE CJNE A,#55H,BG3 LJMP CRUN ; BG1: CLR A ;DO BAUD RATE MOV R3,A MOV R1,A MOV R0,#4 JB RXD,$ ;LOOP UNTIL A CHARACTER IS RECEIVED ; BG2: DJNZ R0,$ ;FOUR CLOCKS, IN LOOP CALL DEC3210+4 ;NINE CLOCKS MOV R0,#2 ;ONE CLOCK JNB RXD,BG2 ;TWO CLOCKS, LOOP UNTIL DONE JB RXD,$ ;WAIT FOR STOP CHARACTER TO END JNB RXD,$ CALL RCL ;LOAD THE TIMER ; BG3: MOV DPTR,#S_N ;GET THE MESSAGE ACALL CRP ;PRINT IT LJMP CRAM ; END ;$INCLUDE(:F2:BAS52.RST) ; $EJECT ;*************************************************************** ; ; CIPROG AND CPROG - Program a prom ; ;*************************************************************** ; ;$INCLUDE(:F2:BAS52.PGM) ;BEGINNING PG8: MOV R7,#00H ;PROGRAM ONE BYTE AT A TIME MOV R6,#01H MOV R2,#HIGH (ROMADR-1) MOV R0,#LOW (ROMADR-1);LOAD PROM ADDRESS ACALL PG1+3 INC R6 DB 0E5H ;MOV A DIRECT OP CODE DB 0CBH ;ADDRESS OF R2CAP HIGH ACALL PG1+3 DB 0E5H ;MOV A, DIRECT OP CODE DB 0CAH ;R2CAP LOW MOV R6,#3 MOV R1,#LOW (MEMTOP-1) MOV R3,#HIGH (MEMTOP) ACALL PG1+3 ;SAVE MEMTOP SJMP PGR ; CIPROG: MOV DPTR,#IPROGS ;LOAD IPROG LOCATION SETB INTELB SJMP $+7 ;GO DO PROG ; CPROG: MOV DPTR,#PROGS ;LOAD PROG LOCATION CLR INTELB ; ACALL LD_T ;LOAD THE TIMER CLR PROMV ;TURN ON THE PROM VOLTAGE CALL DELTST ;SEE IF A CR JNZ PG8 ;SAVE TIMER IF SO MOV R4,#0FEH SETB INBIT ACALL ROMFD ;GET THE ROM ADDRESS OF THE LAST LOCATION CALL TEMPD ;SAVE THE ADDRESS MOV A,R4 ;GET COUNT CPL A CALL TWO_R2 ;PUT IT ON THE STACK CALL FP_BASE+14 ;OUTPUT IT ACALL CCAL ;GET THE PROGRAM ACALL CRLF ;DO CRLF MOV R0,TEMP4 ;GET ADDRESS MOV R2,TEMP5 MOV A,#55H ;LOAD SIGNIFIER INC R6 ;LOAD LEN + 1 CJNE R6,#00,$+4 INC R7 ACALL PG2-2 ; $EJECT PGR: SETB PROMV AJMP C_K ; PG1: MOV P2,R3 ;GET THE BYTE TO PROGRAM MOVX A,@R1 LCALL INC3210 ;BUMP POINTERS MOV R5,#1 ;SET UP INTELLIGENT COUMTER ; PG2: MOV R4,A ;SAVE THE BYTE IN R4 ACALL PG7 ;PROGRAM THE BYTE ACALL PG9 JB INTELB,PG4 ;SEE IF INTELLIGENT PROGRAMMING ; PG3: XRL A,R4 JNZ PG6 ;ERROR IF NOT THE SAME CALL DEC76 ;BUMP THE COUNTERS JNZ PG1 ;LOOP IF NOT DONE ANL PSW,#11100111B ;INSURE RB0 RET ; PG4: XRL A,R4 ;SEE IF PROGRAMMED JNZ PG5 ;JUMP IF NOT MOV A,R4 ;GET THE DATA BACK ACALL PG7 ;PROGRAM THE LOCATION ACALL ZRO ;AGAIN ACALL ZRO ;AND AGAIN ACALL ZRO ;AND AGAIN DJNZ R5,$-6 ;KEEP DOING IT ACALL PG9 ;RESET PROG SJMP PG3 ;FINISH THE LOOP ; PG5: INC R5 ;BUMP THE COUNTER MOV A,R4 ;GET THE BYTE CJNE R5,#25,PG2 ;SEE IF TRIED 25 TIMES ; PG6: SETB PROMV ;TURN OFF PROM VOLTAGE MOV PSW,#0 ;INSURE RB0 JNB DIRF,PG4-1 ;EXIT IF IN RUN MODE MOV DPTR,#E16X ;PROGRAMMING ERROR ; ERRLK: LJMP ERROR ;PROCESS THE ERROR ; $EJECT PG7: MOV P0,R0 ;SET UP THE PORTS MOV P2,R2 ;LATCH LOW ORDER ADDRESS ACALL PG11 ;DELAY FOR 8748/9 CLR ALED MOV P0,A ;PUT DATA ON THE PORT ; ZRO: NOP ;SETTLEING TIME + FP ZERO NOP NOP NOP NOP NOP ACALL PG11 ;DELAY A WHILE CLR PROMP ;START PROGRAMMING ACALL TIMER_LOAD ;START THE TIMER JNB TF1,$ ;WAIT FOR PART TO PROGRAM RET ;EXIT ; PG9: SETB PROMP ACALL PG11 ;DELAY FOR A WHILE JNB P3.2,$ ;LOOP FOR EEPROMS MOV P0,#0FFH CLR P3.7 ;LOWER READ ACALL PG11 MOV A,P0 ;READ THE PORT SETB P3.7 SETB ALED RET ; PG11: MOV TEMP5,#12 ;DELAY 30uS AT 12 MHZ DJNZ TEMP5,$ RET ; ;END ;$INCLUDE(:F2:BAS52.PGM) $EJECT ;************************************************************** ; PGU: ;PROGRAM A PROM FOR THE USER ; ;************************************************************** ; CLR PROMV ;TURN ON THE VOLTAGE MOV PSW,#00011000B ;SELECT RB3 ACALL PG1 ;DO IT SETB PROMV ;TURN IT OFF RET ; ; ;************************************************************* ; CCAL: ; Set up for prom moves ; R3:R1 gets source ; R7:R6 gets # of bytes ; ;************************************************************* ; ACALL GETEND ;GET THE LAST LOCATION INC DPTR ;BUMP TO LOAD EOF MOV R3,BOFAH MOV R1,BOFAL ;RESTORE START CLR C ;PREPARE FOR SUBB MOV A,DPL ;SUB DPTR - BOFA > R7:R6 SUBB A,R1 MOV R6,A MOV A,DPH SUBB A,R3 MOV R7,A RET ; ; ;$INCLUDE(:F2:BAS52.TL) ;BEGINNING ;************************************************************** ; TIMER_LOAD:; Load the timer ; ;************************************************************* ; ACALL $-1 ;DELAY FOUR CLOCKS CLR TR1 ;STOP IT WHILE IT'S LOADED MOV TH1,T_HH MOV TL1,T_LL CLR TF1 ;CLEAR THE OVERFLOW FLAG SETB TR1 ;START IT NOW RET ; ;END ;$INCLUDE(:F2:BAS52.TL) $EJECT ;*************************************************************** ; CROM: ; The command action routine - ROM - Run out of rom ; ;*************************************************************** ; CLR CONB ;CAN'T CONTINUE IF MODE CHANGE ACALL RO1 ;DO IT ; C_K: LJMP CL3 ;EXIT ; RO1: CALL INTGER ;SEE IF INTGER PRESENT MOV R4,R0B0 ;SAVE THE NUMBER JNC $+4 MOV R4,#01H ;ONE IF NO INTEGER PRESENT ACALL ROMFD ;FIND THE PROGRAM CJNE R4,#0,RFX ;EXIT IF R4 <> 0 INC DPTR ;BUMP PAST TAG MOV BOFAH,DPH ;SAVE THE ADDRESS MOV BOFAL,DPL RET ; ROMFD: MOV DPTR,#ROMADR+16 ;START OF USER PROGRAM ; RF1: MOVX A,@DPTR ;GET THE BYTE CJNE A,#55H,RF3 ;SEE IF PROPER TAG DJNZ R4,RF2 ;BUMP COUNTER ; RFX: RET ;DPTR HAS THE START ADDRESS ; RF2: INC DPTR ;BUMP PAST TAG ACALL G5 INC DPTR ;BUMP TO NEXT PROGRAM SJMP RF1 ;DO IT AGAIN ; RF3: JBC INBIT,RFX ;EXIT IF SET ; NOGO: MOV DPTR,#NOROM AJMP ERRLK ; $EJECT ;*************************************************************** ; L20DPI: ; load R2:R0 with the location the DPTR is pointing to ; ;*************************************************************** ; MOVX A,@DPTR MOV R2,A INC DPTR MOVX A,@DPTR MOV R0,A RET ;DON'T BUMP DPTR ; ;*************************************************************** ; X31DP: ; swap R3:R1 with DPTR ; ;*************************************************************** ; XCH A,R3 XCH A,DPH XCH A,R3 XCH A,R1 XCH A,DPL XCH A,R1 RET ; ;*************************************************************** ; LD_T: ; Load the timer save location with the value the DPTR is ; pointing to. ; ;**************************************************************** ; MOVX A,@DPTR MOV T_HH,A INC DPTR MOVX A,@DPTR MOV T_LL,A RET ; $EJECT ; ;*************************************************************** ; ;GETLIN - FIND THE LOCATION OF THE LINE NUMBER IN R3:R1 ; IF ACC = 0 THE LINE WAS NOT FOUND I.E. R3:R1 ; WAS TOO BIG, ELSE ACC <> 0 AND THE DPTR POINTS ; AT THE LINE THAT IS GREATER THAN OR EQUAL TO THE ; VALUE IN R3:R1. ; ;*************************************************************** ; GETEND: SETB ENDBIT ;GET THE END OF THE PROGRAM ; GETLIN: CALL DP_B ;GET BEGINNING ADDRESS ; G1: CALL B_C JZ G3 ;EXIT WITH A ZERO IN A IF AT END INC DPTR ;POINT AT THE LINE NUMBER JB ENDBIT,G2 ;SEE IF WE WANT TO FIND THE END ACALL DCMPX ;SEE IF (DPTR) = R3:R1 ACALL DECDP ;POINT AT LINE COUNT MOVX A,@DPTR ;PUT LINE LENGTH INTO ACC JB UBIT,G3 ;EXIT IF EQUAL JC G3 ;SEE IF LESS THAN OR ZERO ; G2: ACALL ADDPTR ;ADD IT TO DPTR SJMP G1 ;LOOP ; G3: CLR ENDBIT ;RESET ENDBIT RET ;EXIT ; G4: MOV DPTR,#PSTART ;DO RAM ; G5: SETB ENDBIT SJMP G1 ;NOW DO TEST ; $EJECT ;*************************************************************** ; ; LDPTRI - Load the DATA POINTER with the value it is pointing ; to - DPH = (DPTR) , DPL = (DPTR+1) ; ; acc gets wasted ; ;*************************************************************** ; LDPTRI: MOVX A,@DPTR ;GET THE HIGH BYTE PUSH ACC ;SAVE IT INC DPTR ;BUMP THE POINTER MOVX A,@DPTR ;GET THE LOW BYTE MOV DPL,A ;PUT IT IN DPL POP DPH ;GET THE HIGH BYTE RET ;GO BACK ; ;*************************************************************** ; ;L31DPI - LOAD R3 WITH (DPTR) AND R1 WITH (DPTR+1) ; ;ACC GETS CLOBBERED ; ;*************************************************************** ; L31DPI: MOVX A,@DPTR ;GET THE HIGH BYTE MOV R3,A ;PUT IT IN THE REG INC DPTR ;BUMP THE POINTER MOVX A,@DPTR ;GET THE NEXT BYTE MOV R1,A ;SAVE IT RET ; ;*************************************************************** ; ;DECDP - DECREMENT THE DATA POINTER - USED TO SAVE SPACE ; ;*************************************************************** ; DECDP2: ACALL DECDP ; DECDP: XCH A,DPL ;GET DPL JNZ $+4 ;BUMP IF ZERO DEC DPH DEC A ;DECREMENT IT XCH A,DPL ;GET A BACK RET ;EXIT ; $EJECT ;*************************************************************** ; ;DCMPX - DOUBLE COMPARE - COMPARE (DPTR) TO R3:R1 ;R3:R1 - (DPTR) = SET CARRY FLAG ; ;IF R3:R1 > (DPTR) THEN C = 0 ;IF R3:R1 < (DPTR) THEN C = 1 ;IF R3:R1 = (DPTR) THEN C = 0 ; ;*************************************************************** ; DCMPX: CLR UBIT ;ASSUME NOT EQUAL MOVX A,@DPTR ;GET THE BYTE CJNE A,R3B0,D1 ;IF A IS GREATER THAN R3 THEN NO CARRY ;WHICH IS R3<@DPTR = NO CARRY AND ;R3>@DPTR CARRY IS SET INC DPTR ;BUMP THE DATA POINTER MOVX A,@DPTR ;GET THE BYTE ACALL DECDP ;PUT DPTR BACK CJNE A,R1B0,D1 ;DO THE COMPARE CPL C ;FLIP CARRY ; CPL UBIT ;SET IT D1: CPL C ;GET THE CARRY RIGHT RET ;EXIT ; ;*************************************************************** ; ; ADDPTR - Add acc to the dptr ; ; acc gets wasted ; ;*************************************************************** ; ADDPTR: ADD A,DPL ;ADD THE ACC TO DPL MOV DPL,A ;PUT IT IN DPL JNC $+4 ;JUMP IF NO CARRY INC DPH ;BUMP DPH RET ;EXIT ; $EJECT ;************************************************************* ; LCLR: ; Set up the storage allocation ; ;************************************************************* ; ACALL ICLR ;CLEAR THE INTERRUPTS ACALL G4 ;PUT END ADDRESS INTO DPTR MOV A,#6 ;ADJUST MATRIX SPACE ACALL ADDPTR ;ADD FOR PROPER BOUNDS ACALL X31DP ;PUT MATRIX BOUNDS IN R3:R1 MOV DPTR,#MT_ALL ;SAVE R3:R1 IN MATRIX FREE SPACE ACALL S31DP ;DPTR POINTS TO MEMTOP ACALL L31DPI ;LOAD MEMTOP INTO R3:R1 MOV DPTR,#STR_AL ;GET MEMORY ALLOCATED FOR STRINGS ACALL LDPTRI CALL DUBSUB ;R3:R1 = MEMTOP - STRING ALLOCATION MOV DPTR,#VARTOP ;SAVE R3:R1 IN VARTOP ; ; FALL THRU TO S31DP2 ; ;*************************************************************** ; ;S31DP - STORE R3 INTO (DPTR) AND R1 INTO (DPTR+1) ; ;ACC GETS CLOBBERED ; ;*************************************************************** ; S31DP2: ACALL S31DP ;DO IT TWICE ; S31DP: MOV A,R3 ;GET R3 INTO ACC MOVX @DPTR,A ;STORE IT INC DPTR ;BUMP DPTR MOV A,R1 ;GET R1 MOVX @DPTR,A ;STORE IT INC DPTR ;BUMP IT AGAIN TO SAVE PROGRAM SPACE RET ;GO BACK ; ; ;*************************************************************** ; STRING: ; Allocate memory for strings ; ;*************************************************************** ; LCALL TWO ;R3:R1 = NUMBER, R2:R0 = LEN MOV DPTR,#STR_AL ;SAVE STRING ALLOCATION ACALL S31DP INC R6 ;BUMP MOV S_LEN,R6 ;SAVE STRING LENGTH AJMP RCLEAR ;CLEAR AND SET IT UP ; $EJECT ;*************************************************************** ; ; F_VAR - Find the variable in symbol table ; R7:R6 contain the variable name ; If not found create a zero entry and set the carry ; R2:R0 has the address of variable on return ; ;*************************************************************** ; F_VAR: MOV DPTR,#VARTOP ;PUT VARTOP IN DPTR ACALL LDPTRI ACALL DECDP2 ;ADJUST DPTR FOR LOOKUP ; F_VAR0: MOVX A,@DPTR ;LOAD THE VARIABLE JZ F_VAR2 ;TEST IF AT THE END OF THE TABLE INC DPTR ;BUMP FOR NEXT BYTE CJNE A,R7B0,F_VAR1 ;SEE IF MATCH MOVX A,@DPTR ;LOAD THE NAME CJNE A,R6B0,F_VAR1 ; ; Found the variable now adjust and put in R2:R0 ; DLD: MOV A,DPL ;R2:R0 = DPTR-2 SUBB A,#2 MOV R0,A MOV A,DPH SUBB A,#0 ;CARRY IS CLEARED MOV R2,A RET ; F_VAR1: MOV A,DPL ;SUBTRACT THE STACK SIZE+ADJUST CLR C SUBB A,#STESIZ MOV DPL,A ;RESTORE DPL JNC F_VAR0 DEC DPH SJMP F_VAR0 ;CONTINUE COMPARE ; $EJECT ; ; Add the entry to the symbol table ; F_VAR2: LCALL R76S ;SAVE R7 AND R6 CLR C ACALL DLD ;BUMP THE POINTER TO GET ENTRY ADDRESS ; ; Adjust pointer and save storage allocation ; and make sure we aren't wiping anything out ; First calculate new storage allocation ; MOV A,R0 SUBB A,#STESIZ-3 ;NEED THIS MUCH RAM MOV R1,A MOV A,R2 SUBB A,#0 MOV R3,A ; ; Now save the new storage allocation ; MOV DPTR,#ST_ALL CALL S31DP ;SAVE STORAGE ALLOCATION ; ; Now make sure we didn't blow it, by wiping out MT_ALL ; ACALL DCMPX ;COMPARE STORAGE ALLOCATION JC CCLR3 ;ERROR IF CARRY SETB C ;DID NOT FIND ENTRY RET ;EXIT IF TEST IS OK ; $EJECT ;*************************************************************** ; ; Command action routine - NEW ; ;*************************************************************** ; CNEW: MOV DPTR,#PSTART ;SAVE THE START OF PROGRAM MOV A,#EOF ;END OF FILE MOVX @DPTR,A ;PUT IT IN MEMORY ; ; falls thru ; ;***************************************************************** ; ; The statement action routine - CLEAR ; ;***************************************************************** ; CLR LINEB ;SET UP FOR RUN AND GOTO ; RCLEAR: ACALL LCLR ;CLEAR THE INTERRUPTS, SET UP MATRICES MOV DPTR,#MEMTOP ;PUT MEMTOP IN R3:R1 ACALL L31DPI ACALL G4 ;DPTR GETS END ADDRESS ACALL CL_1 ;CLEAR THE MEMORY ; RC1: MOV DPTR,#STACKTP ;POINT AT CONTROL STACK TOP CLR A ;CONTROL UNDERFLOW ; RC2: MOVX @DPTR,A ;SAVE IN MEMORY MOV CSTKA,#STACKTP MOV ASTKA,#STACKTP CLR CONB ;CAN'T CONTINUE RET ; $EJECT ;*************************************************************** ; ; Loop until the memory is cleared ; ;*************************************************************** ; CL_1: INC DPTR ;BUMP MEMORY POINTER CLR A ;CLEAR THE MEMORY MOVX @DPTR,A ;CLEAR THE RAM MOVX A,@DPTR ;READ IT JNZ CCLR3 ;MAKE SURE IT IS CLEARED MOV A,R3 ;GET POINTER FOR COMPARE CJNE A,DPH,CL_1 ;SEE TO LOOP MOV A,R1 ;NOW TEST LOW BYTE CJNE A,DPL,CL_1 ; CL_2: RET ; CCLR3: JMP TB ;ALLOCATED MEMORY DOESN'T EXSIST ; ;************************************************************** ; SCLR: ;Entry point for clear return ; ;************************************************************** ; CALL DELTST ;TEST FOR A CR JNC RCLEAR CALL GCI1 ;BUMP THE TEST POINTER CJNE A,#'I',RC1 ;SEE IF I, ELSE RESET THE STACK ; ;************************************************************** ; ICLR: ; Clear interrupts and system garbage ; ;************************************************************** ; JNB INTBIT,$+5 ;SEE IF BASIC HAS INTERRUPTS CLR EX1 ;IF SO, CLEAR INTERRUPTS ANL 34,#00100000B ;SET INTERRUPTS + CONTINUE RETI ; $EJECT ;*************************************************************** ; ;OUTPUT ROUTINES ; ;*************************************************************** ; CRLF2: ACALL CRLF ;DO TWO CRLF'S ; CRLF: MOV R5,#CR ;LOAD THE CR ACALL TEROT ;CALL TERMINAL OUT MOV R5,#LF ;LOAD THE LF AJMP TEROT ;OUTPUT IT AND RETURN ; ;PRINT THE MESSAGE ADDRESSED IN ROM OR RAM BY THE DPTR ;ENDS WITH THE CHARACTER IN R4 ;DPTR HAS THE ADDRESS OF THE TERMINATOR ; CRP: ACALL CRLF ;DO A CR THEN PRINT ROM ; ROM_P: CLR A ;CLEAR A FOR LOOKUP MOVC A,@A+DPTR ;GET THE CHARACTER CLR ACC.7 ;CLEAR MS BIT CJNE A,#'"',$+4 ;EXIT IF TERMINATOR RET SETB C0ORX1 ; PN1: MOV R5,A ;OUTPUT THE CHARACTER ACALL TEROT INC DPTR ;BUMP THE POINTER SJMP PN0 ; UPRNT: ACALL X31DP ; PRNTCR: MOV R4,#CR ;OUTPUT UNTIL A CR ; PN0: JBC C0ORX1,ROM_P MOVX A,@DPTR ;GET THE RAM BYTE JZ $+5 CJNE A,R4B0,$+4 ;SEE IF THE SAME AS TERMINATOR RET ;EXIT IF THE SAME CJNE A,#CR,PN1 ;NEVER PRINT A CR IN THIS ROUTINE LJMP E1XX ;BAD SYNTAX ; $EJECT ;*************************************************************** ; ; INLINE - Input a line to IBUF, exit when a CR is received ; ;*************************************************************** ; INL2: CJNE A,#CNTRLD,INL2B ;SEE IF A CONTROL D ; INL0: ACALL CRLF ;DO A CR ; INLINE: MOV P2,#HIGH (IBUF) ;IBUF IS IN THE ZERO PAGE MOV R0,#LOW (IBUF) ;POINT AT THE INPUT BUFFER ; INL1: ACALL INCHAR ;GET A CHARACTER MOV R5,A ;SAVE IN R5 FOR OUTPUT CJNE A,#7FH,INL2 ;SEE IF A DELETE CHARACTER CJNE R0,#LOW (IBUF),INL6 MOV R5,#BELL ;OUTPUT A BELL ; INLX: ACALL TEROT ;OUTPUT CHARACTER SJMP INL1 ;DO IT AGAIN ; INL2B: MOVX @R0,A ;SAVE THE CHARACTER CJNE A,#CR,$+5 ;IS IT A CR AJMP CRLF ;OUTPUT A CRLF AND EXIT CJNE A,#20H,$+3 JC INLX ;ONLY ECHO CONTROL CHARACTERS INC R0 ;BUMP THE POINTER CJNE R0,#IBUF+79,INLX DEC R0 ;FORCE 79 SJMP INLX-2 ;OUTPUT A BELL ; INL6: DEC R0 ;DEC THE RAM POINTER MOV R5,#BS ;OUTPUT A BACK SPACE ACALL TEROT ACALL STEROT ;OUTPUT A SPACE MOV R5,#BS ;ANOTHER BACK SPACE SJMP INLX ;OUTPUT IT ; PTIME: DB 128-2 ; PROM PROGRAMMER TIMER DB 00H DB 00H DB 50H DB 67H DB 41H ; $EJECT ;$INCLUDE(:F2:BAS52.OUT) ;BEGINNING ;*************************************************************** ; ; TEROT - Output a character to the system console ; update PHEAD position. ; ;*************************************************************** ; STEROT: MOV R5,#' ' ;OUTPUT A SPACE ; TEROT: PUSH ACC ;SAVE THE ACCUMULATOR PUSH DPH ;SAVE THE DPTR PUSH DPL JNB CNT_S,$+7 ;WAIT FOR A CONTROL Q ACALL BCK ;GET SERIAL STATUS SJMP $-5 MOV A,R5 ;PUT OUTPUT BYTE IN A JNB BO,$+8 ;CHECK FOR MONITOR LCALL 2040H ;DO THE MONITOR AJMP TEROT1 ;CLEAN UP JNB COUB,$+8 ;SEE IF USER WANTS OUTPUT LCALL 4030H AJMP TEROT1 JNB UPB,T_1 ;NO AT IF NO XBIT JNB LPB,T_1 ;AT PRINT LCALL 403CH ;CALL AT LOCATION AJMP TEROT1 ;FINISH OFF OUTPUT ; T_1: JNB COB,TXX ;SEE IF LIST SET MOV DPTR,#SPV ;LOAD BAUD RATE ACALL LD_T CLR LP ;OUTPUT START BIT ACALL TIMER_LOAD ;LOAD AND START THE TIMER MOV A,R5 ;GET THE OUTPUT BYTE SETB C ;SET CARRY FOR LAST OUTPUT MOV R5,#9 ;LOAD TIMER COUNTDOWN ; LTOUT1: RRC A ;ROTATE A JNB TF1,$ ;WAIT TILL TIMER READY MOV LP,C ;OUTPUT THE BIT ACALL TIMER_LOAD ;DO THE NEXT BIT DJNZ R5,LTOUT1 ;LOOP UNTIL DONE JNB TF1,$ ;FIRST STOP BIT ACALL TIMER_LOAD JNB TF1,$ ;SECOND STOP BIT MOV R5,A ;RESTORE R5 SJMP TEROT1 ;BACK TO TEROT ; $EJECT TXX: JNB TI,$ ;WAIT FOR TRANSMIT READY CLR TI MOV SBUF,R5 ;SEND OUT THE CHARACTER ; TEROT1: CJNE R5,#CR,$+6 ;SEE IF A CR MOV PHEAD,#00H ;IF A CR, RESET PHEAD AND ; CJNE R5,#LF,NLC ;SEE IF A LF MOV A,NULLCT ;GET THE NULL COUNT JZ NLC ;NO NULLS IF ZERO ; TEROT2: MOV R5,#NULL ;PUT THE NULL IN THE OUTPUT REGISTER ACALL TEROT ;OUTPUT THE NULL DEC A ;DECREMENT NULL COUNT JNZ TEROT2 ;LOOP UNTIL DONE ; NLC: CJNE R5,#BS,$+5 ;DEC PHEAD IF A BACKSPACE DEC PHEAD CJNE R5,#20H,$+3 ;IS IT A PRINTABLE CHARACTER? JC $+4 ;DON'T INCREMENT PHEAD IF NOT PRINTABLE INC PHEAD ;BUMP PRINT HEAD POP DPL ;RESTORE DPTR POP DPH POP ACC ;RESTORE ACC RET ;EXIT ; ;END ;$INCLUDE(:F2:BAS52.OUT) ; BCK: ACALL CSTS ;CHECK STATUS JNC CI_RET+1 ;EXIT IF NO CHARACTER ; $EJECT ;*************************************************************** ; ;INPUTS A CHARACTER FROM THE SYSTEM CONSOLE. ; ;*************************************************************** ; INCHAR: JNB BI,$+8 ;CHECK FOR MONITOR (BUBBLE) LCALL 2060H SJMP INCH1 JNB CIUB,$+8 ;CHECK FOR USER LCALL 4033H SJMP INCH1 JNB RI,$ ;WAIT FOR RECEIVER READY. MOV A,SBUF CLR RI ;RESET READY CLR ACC.7 ;NO BIT 7 ; INCH1: CJNE A,#13H,$+5 SETB CNT_S CJNE A,#11H,$+5 CLR CNT_S CJNE A,#CNTRLC,$+7 JNB NO_C,C_EX ;TRAP NO CONTROL C RET ; CLR JKBIT CJNE A,#17H,CI_RET ;CONTROL W SETB JKBIT ; CI_RET: SETB C ;CARRY SET IF A CHARACTER RET ;EXIT ; ;************************************************************* ; ;RROM - The Statement Action Routine RROM ; ;************************************************************* ; RROM: SETB INBIT ;SO NO ERRORS ACALL RO1 ;FIND THE LINE NUMBER JBC INBIT,CRUN RET ;EXIT ; $EJECT ;*************************************************************** ; CSTS: ; RETURNS CARRY = 1 IF THERE IS A CHARACTER WAITING FROM ; THE SYSTEM CONSOLE. IF NO CHARACTER THE READY CHARACTER ; WILL BE CLEARED ; ;*************************************************************** ; JNB BI,$+6 ;BUBBLE STATUS LJMP 2068H JNB CIUB,$+6 ;SEE IF EXTERNAL CONSOLE LJMP 4036H MOV C,RI RET ; MOV DPTR,#WB ;EGO MESSAGE ACALL ROM_P ; C_EX: CLR CNT_S ;NO OUTPUT STOP LCALL SPRINT+4 ;ASSURE CONSOLE ACALL CRLF JBC JKBIT,C_EX-5 ; JNB DIRF,SSTOP0 AJMP C_K ;CLEAR COB AND EXIT ; T_CMP: MOV A,TVH ;COMPARE TIMER TO SP_H AND SP_L MOV R1,TVL CJNE A,TVH,T_CMP XCH A,R1 SUBB A,SP_L MOV A,R1 SUBB A,SP_H RET ; ;************************************************************* ; BR0: ; Trap the timer interrupt ; ;************************************************************* ; CALL T_CMP ;COMPARE TIMER JC BCHR+6 ;EXIT IF TEST FAILS SETB OTI ;DOING THE TIMER INTERRUPT CLR OTS ;CLEAR TIMER BIT MOV C,INPROG ;SAVE IN PROGRESS MOV ISAV,C MOV DPTR,#TIV SJMP BR2 ; $EJECT ;*************************************************************** ; ; The command action routine - RUN ; ;*************************************************************** ; CRUN: LCALL RCLEAR-2 ;CLEAR THE STORAGE ARRAYS ACALL SRESTR+2 ;GET THE STARTING ADDRESS ACALL B_C JZ CMNDLK ;IF NULL GO TO COMMAND MODE ; ACALL T_DP ACALL B_TXA ;BUMP TO STARTING LINE ; CILOOP: ACALL SP0 ;DO A CR AND A LF CLR DIRF ;NOT IN DIRECT MODE ; ;INTERPERTER DRIVER ; ILOOP: MOV SP,SPSAV ;RESTORE THE STACK EACH TIME JB DIRF,$+9 ;NO INTERRUPTS IF IN DIRECT MODE MOV INTXAH,TXAH ;SAVE THE TEXT POINTER MOV INTXAL,TXAL LCALL BCK ;GET CONSOLE STATUS JB DIRF,I_L ;DIRECT MODE ANL C,/GTRD ;SEE IF CHARACTER READY JNC BCHR ;NO CHARACTER = NO CARRY ; ; DO TRAP OPERATION ; MOV DPTR,#GTB ;SAVE TRAP CHARACTER MOVX @DPTR,A SETB GTRD ;SAYS READ A BYTE ; BCHR: JB OTI,I_L ;EXIT IF TIMER INTERRUPT IN PROGRESS JB OTS,BR0 ;TEST TIMER VALUE IF SET JNB INTPEN,I_L ;SEE IF INTERRUPT PENDING JB INPROG,I_L ;DON'T DO IT AGAIN IF IN PROGRESS MOV DPTR,#INTLOC ;POINT AT INTERRUPT LOCATION ; BR2: MOV R4,#GTYPE ;SETUP FOR A FORCED GOSUB ACALL SGS1 ;PUT TXA ON STACK SETB INPROG ;INTERRUPT IN PROGRESS ; ERL4: CALL L20DPI AJMP D_L1 ;GET THE LINE NUMBER ; I_L: ACALL ISTAT ;LOOP ACALL CLN_UP ;FINISH IT OFF JNC ILOOP ;LOOP ON THE DRIVER JNB DIRF,CMNDLK ;CMND1 IF IN RUN MODE LJMP CMNDR ;DON'T PRINT READY ; CMNDLK: JMP CMND1 ;DONE $EJECT ;************************************************************** ; ; The Statement Action Routine - STOP ; ;************************************************************** ; SSTOP: ACALL CLN_UP ;FINISH OFF THIS LINE MOV INTXAH,TXAH ;SAVE TEXT POINTER FOR CONT MOV INTXAL,TXAL ; SSTOP0: SETB CONB ;CONTINUE WILL WORK MOV DPTR,#STP ;PRINT THE STOP MESSAGE SETB STOPBIT ;SET FOR ERROR ROUTINE JMP ERRS ;JUMP TO ERROR ROUTINE ; $EJECT ;************************************************************** ; ; ITRAP - Trap special function register operators ; ;************************************************************** ; ITRAP: CJNE A,#TMR0,$+8 ;TIMER 0 MOV TH0,R3 MOV TL0,R1 RET ; CJNE A,#TMR1,$+8 ;TIMER 1 MOV TH1,R3 MOV TL1,R1 RET ; CJNE A,#TMR2,$+8 ;TIMER 2 DB 8BH ;MOV R3 DIRECT OP CODE DB 0CDH ;T2H LOCATION DB 89H ;MOV R1 DIRECT OP CODE DB 0CCH ;T2L LOCATION RET ; CJNE A,#TRC2,$+8 ;RCAP2 TOKEN RCL: DB 8BH ;MOV R3 DIRECT OP CODE DB 0CBH ;RCAP2H LOCATION DB 89H ;MOV R1 DIRECT OP CODE DB 0CAH ;RCAP2L LOCATION RET ; ACALL R3CK ;MAKE SURE THAT R3 IS ZERO CJNE A,#TT2C,$+6 DB 89H ;MOV R1 DIRECT OP CODE DB 0C8H ;T2CON LOCATION RET ; CJNE A,#T_IE,$+6 ;IE TOKEN MOV IE,R1 RET ; CJNE A,#T_IP,$+6 ;IP TOKEN MOV IP,R1 RET ; CJNE A,#TTC,$+6 ;TCON TOKEN MOV TCON,R1 RET ; CJNE A,#TTM,$+6 ;TMOD TOKEN MOV TMOD,R1 RET ; CJNE A,#T_P1,T_T2 ;P1 TOKEN MOV P1,R1 RET ; ;*************************************************************** ; ; T_TRAP - Trap special operators ; ;*************************************************************** ; T_T: MOV TEMP5,A ;SAVE THE TOKEN ACALL GCI1 ;BUMP POINTER ACALL SLET2 ;EVALUATE AFTER = MOV A,TEMP5 ;GET THE TOKEN BACK CJNE A,#T_XTAL,$+6 LJMP AXTAL1 ;SET UP CRYSTAL ; ACALL IFIXL ;R3:R1 HAS THE TOS MOV A,TEMP5 ;GET THE TOKEN AGAIN CJNE A,#T_MTOP,T_T1 ;SEE IF MTOP TOKEN MOV DPTR,#MEMTOP CALL S31DP JMP RCLEAR ;CLEAR THE MEMORY ; T_T1: CJNE A,#T_TIME,ITRAP ;SEE IF A TIME TOKEN MOV C,EA ;SAVE INTERRUPTS CLR EA ;NO TIMER 0 INTERRUPTS DURING LOAD MOV TVH,R3 ;SAVE THE TIME MOV TVL,R1 MOV EA,C ;RESTORE INTERRUPTS RET ;EXIT ; T_T2: CJNE A,#T_PC,INTERX ;PCON TOKEN DB 89H ;MOV DIRECT, R1 OP CODE DB 87H ;ADDRESS OF PCON RET ;EXIT ; T_TRAP: CJNE A,#T_ASC,T_T ;SEE IF ASC TOKEN ACALL IGC ;EAT IT AND GET THE NEXT CHARACTER CJNE A,#'$',INTERX ;ERROR IF NOT A STRING ACALL CSY ;CALCULATE ADDRESS ACALL X3120 CALL TWO_EY ACALL SPEOP+4 ;EVALUATE AFTER EQUALS AJMP ISTAX1 ;SAVE THE CHARACTER ; $EJECT ;************************************************************** ; ;INTERPERT THE STATEMENT POINTED TO BY TXAL AND TXAH ; ;************************************************************** ; ISTAT: ACALL GC ;GET THR FIRST CHARACTER JNB XBIT,IAT ;TRAP TO EXTERNAL RUN PACKAGE CJNE A,#20H,$+3 JNC IAT LCALL 2070H ;LET THE USER SET UP THE DPTR ACALL GCI1 ANL A,#0FH ;STRIP OFF BIAS SJMP ISTA1 ; IAT: CJNE A,#T_XTAL,$+3 JNC T_TRAP JNB ACC.7,SLET ;IMPLIED LET IF BIT 7 NOT SET CJNE A,#T_UOP+12,ISTAX ;DBYTE TOKEN ACALL SPEOP ;EVALUATE SPECIAL OPERATOR ACALL R3CK ;CHECK LOCATION MOV @R1,A ;SAVE IT RET ; ISTAX: CJNE A,#T_UOP+13,ISTAY ;XBYTE TOKEN ACALL SPEOP ; ISTAX1: MOV P2,R3 MOVX @R1,A RET ; ISTAY: CJNE A,#T_CR+1,$+3 ;TRAP NEW OPERATORS JC I_S CJNE A,#0B0H,$+3 ;SEE IF TOO BIG JNC INTERX ADD A,#0F9H ;BIAS FOR LOOKUP TABLE SJMP ISTA0 ;DO THE OPERATION ; I_S: CJNE A,#T_LAST,$+3 ;MAKE SURE AN INITIAL RESERVED WORD JC $+5 ;ERROR IF NOT ; INTERX: LJMP E1XX ;SYNTAX ERROR ; JNB DIRF,ISTA0 ;EXECUTE ALL STATEMENTS IF IN RUN MODE CJNE A,#T_DIR,$+3 ;SEE IF ON TOKEN JC ISTA0 ;OK IF DIRECT CJNE A,#T_GOSB+1,$+5 ;SEE IF FOR SJMP ISTA0 ;FOR IS OK CJNE A,#T_REM+1,$+5 ;NEXT IS OK SJMP ISTA0 CJNE A,#T_STOP+6,INTERX ;SO IS REM ; $EJECT ISTA0: ACALL GCI1 ;ADVANCE THE TEXT POINTER MOV DPTR,#STATD ;POINT DPTR TO LOOKUP TABLE CJNE A,#T_GOTO-3,$+5 ;SEE IF LET TOKEN SJMP ISTAT ;WASTE LET TOKEN ANL A,#3FH ;STRIP OFF THE GARBAGE ; ISTA1: RL A ;ROTATE FOR OFFSET ADD A,DPL ;BUMP MOV DPL,A ;SAVE IT CLR A MOVC A,@A+DPTR ;GET HIGH BYTE PUSH ACC ;SAVE IT INC DPTR CLR A MOVC A,@A+DPTR ;GET LOW BYTE POP DPH MOV DPL,A ; AC1: CLR A JMP @A+DPTR ;GO DO IT ; $EJECT ;*************************************************************** ; ; The statement action routine - LET ; ;*************************************************************** ; SLET: ACALL S_C ;CHECK FOR POSSIBLE STRING JC SLET0 ;NO STRING CLR LINEB ;USED STRINGS ; CALL X31DP ;PUT ADDRESS IN DPTR MOV R7,#T_EQU ;WASTE = ACALL EATC ACALL GC ;GET THE NEXT CHARACTER CJNE A,#'"',S_3 ;CHECK FOR A " MOV R7,S_LEN ;GET THE STRING LENGTH ; S_0: ACALL GCI1 ;BUMP PAST " ACALL DELTST ;CHECK FOR DELIMITER JZ INTERX ;EXIT IF CARRIAGE RETURN MOVX @DPTR,A ;SAVE THE CHARACTER CJNE A,#'"',S_1 ;SEE IF DONE ; S_E: MOV A,#CR ;PUT A CR IN A MOVX @DPTR,A ;SAVE CR AJMP GCI1 ; S_3: PUSH DPH PUSH DPL ;SAVE DESTINATION ACALL S_C ;CALCULATE SOURCE JC INTERX ;ERROR IF CARRY POP R0B0 ;GET DESTINATION BACK POP R2B0 ; SSOOP: MOV R7,S_LEN ;SET UP COUNTER ; S_4: CALL TBYTE ;TRANSFER THE BYTE CJNE A,#CR,$+4 ;EXIT IF A CR RET DJNZ R7,S_5 ;BUMP COUNTER MOV A,#CR ;SAVE A CR MOVX @R0,A AJMP EIGP ;PRINT EXTRA IGNORED ; $EJECT ; S_5: CALL INC3210 ;BUMP POINTERS SJMP S_4 ;LOOP ; S_1: DJNZ R7,$+8 ;SEE IF DONE ACALL S_E ACALL EIGP ;PRINT EXTRA IGNORED AJMP FINDCR ;GO FIND THE END INC DPTR ;BUMP THE STORE POINTER SJMP S_0 ;CONTINUE TO LOOP ; E3XX: MOV DPTR,#E3X ;BAD ARG ERROR AJMP EK ; SLET0: ACALL SLET1 AJMP POPAS ;COPY EXPRESSION TO VARIABLE ; SLET1: ACALL VAR_ER ;CHECK FOR A"VARIABLE" ; SLET2: PUSH R2B0 ;SAVE THE VARIABLE ADDRESS PUSH R0B0 MOV R7,#T_EQU ;GET EQUAL TOKEN ACALL WE POP R1B0 ;POP VARIABLE TO R3:R1 POP R3B0 RET ;EXIT ; R3CK: CJNE R3,#00H,E3XX ;CHECK TO SEE IF R3 IS ZERO RET ; SPEOP: ACALL GCI1 ;BUMP TXA ACALL P_E ;EVALUATE PAREN ACALL SLET2 ;EVALUATE AFTER = CALL TWOL ;R7:R6 GETS VALUE, R3:R1 GETS LOCATION MOV A,R6 ;SAVE THE VALUE ; CJNE R7,#00H,E3XX ;R2 MUST BE = 0 RET ; $EJECT ;************************************************************** ; ; ST_CAL - Calculate string Address ; ;************************************************************** ; IST_CAL:; ; ACALL I_PI ;BUMP TEXT, THEN EVALUATE ACALL R3CK ;ERROR IF R3 <> 0 INC R1 ;BUMP FOR OFFSET MOV A,R1 ;ERROR IF R1 = 255 JZ E3XX MOV DPTR,#VARTOP ;GET TOP OF VARIABLE STORAGE MOV B,S_LEN ;MULTIPLY FOR LOCATION ACALL VARD ;CALCULATE THE LOCATION MOV DPTR,#MEMTOP ;SEE IF BLEW IT CALL FUL1 MOV DPL,S_LEN ;GET STRING LENGTH, DPH = 00H DEC DPH ;DPH = 0 ; DUBSUB: CLR C MOV A,R1 SUBB A,DPL MOV R1,A MOV A,R3 SUBB A,DPH MOV R3,A ORL A,R1 RET ; ;*************************************************************** ; ;VARD - Calculate the offset base ; ;*************************************************************** ; VARB: MOV B,#FPSIZ ;SET UP FOR OPERATION ; VARD: CALL LDPTRI ;LOAD DPTR MOV A,R1 ;MULTIPLY BASE MUL AB ADD A,DPL MOV R1,A MOV A,B ADDC A,DPH MOV R3,A RET ; $EJECT ;************************************************************* ; CSY: ; Calculate a biased string address and put in R3:R1 ; ;************************************************************* ; ACALL IST_CAL ;CALCULATE IT PUSH R3B0 ;SAVE IT PUSH R1B0 MOV R7,#',' ;WASTE THE COMMA ACALL EATC ACALL ONE ;GET THE NEXT EXPRESSION MOV A,R1 ;CHECK FOR BOUNDS CJNE A,S_LEN,$+3 JNC E3XX ;MUST HAVE A CARRY DEC R1 ;BIAS THE POINTER POP ACC ;GET VALUE LOW ADD A,R1 ;ADD IT TO BASE MOV R1,A ;SAVE IT POP R3B0 ;GET HIGH ADDRESS JNC $+3 ;PROPAGATE THE CARRY INC R3 AJMP ERPAR ;WASTE THE RIGHT PAREN ; $EJECT ;*************************************************************** ; ; The statement action routine FOR ; ;*************************************************************** ; SFOR: ACALL SLET1 ;SET UP CONTROL VARIABLE PUSH R3B0 ;SAVE THE CONTROL VARIABLE LOCATION PUSH R1B0 ACALL POPAS ;POP ARG STACK AND COPY CONTROL VAR MOV R7,#T_TO ;GET TO TOKEN ACALL WE ACALL GC ;GET NEXT CHARACTER CJNE A,#T_STEP,SF2 ACALL GCI1 ;EAT THE TOKEN ACALL EXPRB ;EVALUATE EXPRESSION SJMP $+5 ;JUMP OVER ; SF2: LCALL PUSH_ONE ;PUT ONE ON THE STACK ; MOV A,#-FSIZE ;ALLOCATE FSIZE BYTES ON THE CONTROL STACK ACALL PUSHCS ;GET CS IN R0 ACALL CSC ;CHECK CONTROL STACK MOV R3,#CSTKAH ;IN CONTROL STACK MOV R1,R0B0 ;STACK ADDRESS ACALL POPAS ;PUT STEP ON STACK ACALL POPAS ;PUT LIMIT ON STACK ACALL DP_T ;DPTR GETS TEXT MOV R0,R1B0 ;GET THE POINTER ACALL T_X_S ;SAVE THE TEXT POP TXAL ;GET CONTROL VARIABLE POP TXAH MOV R4,#FTYPE ;AND THE TYPE ACALL T_X_S ;SAVE IT ; SF3: ACALL T_DP ;GET THE TEXT POINTER AJMP ILOOP ;CONTINUE TO PROCESS ; $EJECT ;************************************************************** ; ; The statement action routines - PUSH and POP ; ;************************************************************** ; SPUSH: ACALL EXPRB ;PUT EXPRESSION ON STACK ACALL C_TST ;SEE IF MORE TO DO JNC SPUSH ;IF A COMMA PUSH ANOTHER RET ; ; SPOP: ACALL VAR_ER ;GET VARIABLE ACALL XPOP ;FLIP THE REGISTERS FOR POPAS ACALL C_TST ;SEE IF MORE TO DO JNC SPOP ; RET ; ;*************************************************************** ; ; The statement action routine - IF ; ;*************************************************************** ; SIF: ACALL RTST ;EVALUATE THE EXPRESSION MOV R1,A ;SAVE THE RESULT ACALL GC ;GET THE CHARACTER AFTER EXPR CJNE A,#T_THEN,$+5 ;SEE IF THEN TOKEN ACALL GCI1 ;WASTE THEN TOKEN CJNE R1,#0,T_F1 ;CHECK R_OP RESULT ; E_FIND: MOV R7,#T_ELSE ;FIND ELSE TOKEN ACALL FINDC JZ SIF-1 ;EXIT IF A CR ACALL GCI1 ;BUMP PAST TOKEN CJNE A,#T_ELSE,E_FIND;WASTE IF NO ELSE ; T_F1: ACALL INTGER ;SEE IF NUMBER JNC D_L1 ;EXECUTE LINE NUMBER AJMP ISTAT ;EXECUTE STATEMENT IN NOT ; B_C: MOVX A,@DPTR DEC A JB ACC.7,FL3-5 RET ; $EJECT ;*************************************************************** ; ; The statement action routine - GOTO ; ;*************************************************************** ; SGOTO: ACALL RLINE ;R2:R0 AND DPTR GET INTGER ; SGT1: ACALL T_DP ;TEXT POINTER GETS DPTR ; JBC RETBIT,SGT2 ;SEE IF RETI EXECUTED ; JNB LINEB,$+6 ;SEE IF A LINE WAS EDITED LCALL RCLEAR-2 ;CLEAR THE MEMORY IF SET AJMP ILOOP-2 ;CLEAR DIRF AND LOOP ; SGT2: JBC OTI,$+8 ;SEE IF TIMER INTERRUPT ANL 34,#10111101B ;CLEAR INTERRUPTS AJMP ILOOP ;EXECUTE MOV C,ISAV MOV INPROG,C AJMP ILOOP ;RESTORE INTERRUPTS AND RET ; ; ;************************************************************* ; RTST: ; Test for ZERO ; ;************************************************************* ; ACALL EXPRB ;EVALUATE EXPRESSION CALL INC_ASTKA ;BUMP ARG STACK JZ $+4 ;EXIT WITH ZERO OR 0FFH MOV A,#0FFH RET ; $EJECT ; ;************************************************************** ; ; GLN - get the line number in R2:R0, return in DPTR ; ;************************************************************** ; GLN: ACALL DP_B ;GET THE BEGINNING ADDRESS ; FL1: MOVX A,@DPTR ;GET THE LENGTH MOV R7,A ;SAVE THE LENGTH DJNZ R7,FL3 ;SEE IF END OF FILE ; MOV DPTR,#E10X ;NO LINE NUMBER AJMP EK ;HANDLE THE ERROR ; FL3: JB ACC.7,$-5 ;CHECK FOR BIT 7 INC DPTR ;POINT AT HIGH BYTE MOVX A,@DPTR ;GET HIGH BYTE CJNE A,R2B0,FL2 ;SEE IF MATCH INC DPTR ;BUMP TO LOW BYTE DEC R7 ;ADJUST AGAIN MOVX A,@DPTR ;GET THE LOW BYTE CJNE A,R0B0,FL2 ;SEE IF LOW BYTE MATCH INC DPTR ;POINT AT FIRST CHARACTER RET ;FOUND IT ; FL2: MOV A,R7 ;GET THE LENGTH COUNTER CALL ADDPTR ;ADD A TO DATA POINTER SJMP FL1 ;LOOP ; ; ;************************************************************* ; ;RLINE - Read in ASCII string, get line, and clean it up ; ;************************************************************* ; RLINE: ACALL INTERR ;GET THE INTEGER ; RL1: ACALL GLN AJMP CLN_UP ; ; D_L1: ACALL GLN ;GET THE LINE AJMP SGT1 ;EXECUTE THE LINE ; $EJECT ;*************************************************************** ; ; The statement action routines WHILE and UNTIL ; ;*************************************************************** ; SWHILE: ACALL RTST ;EVALUATE RELATIONAL EXPRESSION CPL A SJMP S_WU ; SUNTIL: ACALL RTST ;EVALUATE RELATIONAL EXPRESSION ; S_WU: MOV R4,#DTYPE ;DO EXPECTED MOV R5,A ;SAVE R_OP RESULT SJMP SR0 ;GO PROCESS ; ; ;*************************************************************** ; CNULL: ; The Command Action Routine - NULL ; ;*************************************************************** ; ACALL INTERR ;GET AN INTEGER FOLLOWING NULL MOV NULLCT,R0 ;SAVE THE NULLCOUNT AJMP CMNDLK ;JUMP TO COMMAND MODE ; $EJECT ;*************************************************************** ; ; The statement action routine - RETI ; ;*************************************************************** ; SRETI: SETB RETBIT ;SAYS THAT RETI HAS BEEN EXECUTED ; ;*************************************************************** ; ; The statement action routine - RETURN ; ;*************************************************************** ; SRETRN: MOV R4,#GTYPE ;MAKE SURE OF GOSUB MOV R5,#55H ;TYPE RETURN TYPE ; SR0: ACALL CSETUP ;SET UP CONTROL STACK MOVX A,@R0 ;GET RETURN TEXT ADDRESS MOV DPH,A INC R0 MOVX A,@R0 MOV DPL,A INC R0 ;POP CONTROL STACK MOVX A,