int e l 9.6 ADDED LINK ROUTINES TO VERSION 1.1 LOC OBJ LINE SOURCE 27 2002 28 ORG 2002H 29 2002 5A 30 DB 5AH ; Tell basic that expansion option is 31 ; present 2048 32 ORG 2048H 33 2048 D22D 34 SETB 45 ; Set the bit that sags so 204A 22 35 RET 36 2070 37 ORG 2070H ; Set up DPTR to Jump table 38 2070 90207C 39 MOV DPTR,#VECTOR_TABLE 2073 22 40 RET 41 2078 42 ORG 2078H ; Set up DPTR to expansion table 43 2078 90207E 44 MOV DPTR,#USER_TABLE 2078 22 45 RET 46 47 VECTOR TABLE: 48 207C 2087 49 DW DO_DISPLAY ; This is the address of DISPLAY 50 51 USER TABLE:
52 207E 10 53 DB 10H ; Token for Display 207F 44495350 54 DB 'DISPLAY' ; ASCII for display 2083 4C4159 2086 FF 55 DB 0FFH ; End of table (short table) 56 57 58 59 DO DISPLAY: 60 2087 302F63 61 JNP 47,DUMMY ; make sure that MCS BASIC-52 is in 62 ; the command mode. Bit 47 is set 63 ; if it is. 64 208A 7439 65 MOV A,#57 ; Evaluate the first expression after 208C 120030 66 LCALL 30H ; the keyword display, MCS BASIC-52 67 ; will handle any errors. The value 68 ; of the expression will be on the 69 ; Argument Stack. 70 - 125 -