BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06
Table of contents

     2-    7	TRAP MACRO DEFINITIONS
     4-   82	JSR MACRO DEFINITIONS
     7-  390	TRAP ERROR CALLS - MACRO DEFINITIONS
     9-  478	ERROR TRAP HANDLER
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 1


      1					; CONDITIONAL TO ASSEMBLE MODULES OF BASIC
      2					;
      3		000001 			RSX11M=1
      4
      5
      6					; FOLLOWING LINE USED WITH IMPUR.MAC TO ASSEMBLE A VERSION OF
      7					; IMPUR HAVING FSR PSECTS ALONG WITH GLOBAL SYMBOL DEFINITION
      8					; ** USED TO CREATE A SINGLE USER (NON-SHARED) BASIC **
      9					;
     10		000001 			SNGUSR=1
     11
     12
     13					; FOLLOWING LINE CAUSES OF BASIC UNDER RSX11M OR IAS V 3.2 TO
     14					; DYNAMICALLY EXTEND ITSELF WHEN USER STORAGE RUNS OUT
     15		000001 			M11EXT=1
     16					;IASEXT=1
     17
     18
     19					; HEADER FILE TO DEFINE SYMBOL TASK FOR ASSEMBLING MODULE
     20					; IMPUR AS A TASK MODULE (AS OPPOSED TO SYMBOL TABLE ONLY).
     21					; ** USED FOR SHAREABLE BASIC **
     22					;
     23					;TASK=1
     24
     25
     26
     27					;DEFINE THE CONDITIONAL TO HAVE UNDEFINED VARIABLES AUTOMATICALLY
     28					;DEFINED WHEN REFERENCED
     29					;
     30		000000 			DEFVAR=0
     31
     32
     33
     34					;DEFINE THE CONDITIONAL TO GENERATE FULL ERROR MESSAGE TEXT
     35					;
     36		000000 			FULTXT=0
     37
     38
     39					;DEFINE THE DEFAULT UIC VARIABLE TO BE OTHER THAN 0 TO ENABLE THE
     40					;DEFAULT UIC OPTION WITH THE VARIABLE SET TO THE OCTAL UIC CODE, (USUALLY
     41					;1,1 OR 401, IF BASIC TRIES TO DO AN "OLD" "CHAIN", "RUN" ETC AND DOES
     42					;NOT FIND THE PROGRAM IN QUESTION UNDER THE CURRENT UIC, IT WILL ALSO
     43					;TRY TO FIND THE PROGRAM UNDER THE DEFAULT UIC. THIS ENABLES FREQUENTLY
     44					;USED PROGRAMS TO BE USED FROM ANY UIC
     45					;
     46		000401 			DEFUIC=401
     47
     48
     49					;DEFINE THE CONDITIONAL TO INCLUDE FPP EMULATION PACKAGE (FPPEMULAT)
     50					;FOR USE WITH A PDP 11/40 WITH FIS
     51					; FPPEMU=0
     52
     53
     54					;DEFINE CONDITIONAL SO THAT SPAWN TRIES SENDING COMMAND LINE TO ...MAS
     55					;IF FIRST CALL FAILS
     56					;TRYMAS=1
     57
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 1-1


     58
     59					;DEFINE CONDITIONAL SO THAT IF WE ARE RUNNING ON A PRO UNDER P/OS, WE DO
     60					;NOT DO A GETMCR COMMAND LINE DIRECTIVE, (NOT AVAILABLE UNDER P/OS)
     61					;PRO=1
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 2


      1					;*********
      2					;        *
      3					; BASIC0 *
      4					;        *
      5					;*********
      6						.TITLE BASIC0
      7						.SBTTL	TRAP MACRO DEFINITIONS
      8					;
      9					; DOS VERSION FROM WHICH THE RSX VERSION EVOLVED WAS ORIGIANLLY A DECUS
     10					; LIBRARY PROGRAM MODIFIED BY FRANK KORZENIEWSKI OF RPSLMC.
     11					;
     12					; BASIC TRAP HANDLER OBJECT MODULE 31 MAY 72
     13					; PROVIDES ONE WORD TRAP SUBROUTINE CALLS AND
     14					; ERROR HANDLING
     15					;
     16					; MODIFIED BY LARRY SIMPSON 12-SEP-75 FOR ERROR TRAPS ONLY
     17					; AND USE OF WORD ON STACK RETURNED BY RSX EXECUTIVE.
     18					;
     19					; MODIFIED FOR "MO" ERROR HANDLING
     20					; BY LARRY SIMPSON 15-OCT-75
     21					;
     22					; MODIFIED FOR "ON ERROR GOTO" USER ERROR HANDLING
     23					; BY LARRY SIMPSON 13-DEC-76
     24					;
     25					; MODIFIED FOR FLOATING POINT EXCEPTION ERROR HANDLING
     26					; BY LARRY SIMPSON 17-DEC-76
     27					;
     28					; MODIFIED FOR FLOATING POINT EMULATION (CONDITIONAL ON  'FPPEMU')              ;DSS1
     29					; FPPEMU IS DEFINED (OR NOT) IN PREFIX ASSEMBLY FILE                            ;DSS1
     30					; BY DANIEL STEINBERG 18-JAN-79                                                 ;DSS1
     31					;                                                                               ;DSS1
     32					; MODIFIED TO INCLUDE 'VARIABLE TYPE MISMATCH ERROR' (VTMERR - 52)              ;DSS1
     33					; WHEN STRING AND NUMERIC VARIABLES ARE MIXED TOGETHER  (PREVIOUSLY, THE        ;DSS1
     34					; PROGRAM TRAPPED OUT ON ODD ADDRESS OR ILLEGAL INSTRUCTION OR MEMORY FAULT)    ;DSS1
     35					; *** THIS IS NOT THE ONLY ERROR THAT CAN BE GENERATED WHEN THERE IS            ;DSS1
     36					;     A MISMATCHED EXPRESSION....THE WHOLE ERROR CODE STRUCTURE WILL            ;DSS1
     37					;     EVENTUALLY BE MODIFIED ***                                                ;DSS1
     38					; BY DANIEL STEINBERG 14-FEB-79                                                 ;DSS1
     39					;                                                                               ;DSS1
     40					; FIXED MINOR BUG IN ERROR ROUTINE UNDER RSX11M                                 ;DSS1
     41					; D.S.                                                                          ;DSS1
     42					;                                                                               ;DSS1
     43					;                                                                               ;DSS1
     44					;-355,,/;DSS1/                                                                  ;DSS1
     45					;	TV	VTMERR	;VARIABLE TYPE MISMATCH CHANGED TO #54, (FB)
     46					; DEFINE FOR RSX11D IF RSX11M IS NOT DEFINED BY HEADER FILE TO MACRO
     47					;
     48						.IF	NDF	RSX11M
     49					RSX11D=1	;DEFINE FOR RSX11D MO ERROR HANDLING
     50						.ENDC
     51					; GLOBAL PROGRAM EXTERNALS
     52					;
     53						.GLOBL	ENDSTK	STOP02	TINPT	TOTPT	INPT	OTPT
     54						.GLOBL	STUDAT	ENUDAT	DETACH	GOTO03	FPEXFL	LINEFL
     55					;
     56					; GLOBALS DEFINED HERE
     57						.GLOBL	FPERMS	CTCENT
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 2-1
TRAP MACRO DEFINITIONS

     58						.IF	DF	RSX11D
     59						.GLOBL	STRD
     60						.ENDC
     61					;
     62					; MO PARAMETER LIST GLOBALS
     63						.GLOBL	PARLST	P.ERCD	P.LINE	P.FCS	P.FLNM	P.FNAM
     64					;
     65					; MACRO CALLS
     66						.MCALL	DIR$	ASTX$S
     67						.IF DF	RSX11D
     68						.MCALL	MOUT$	MODF$	MOWA$S
     69						.ENDC
     70					;TRAP ENTRY POINT GLOBALS - FOR SVTK$ AND SFPA$ IN BASIC3
     71					;
     72						.GLOBL	TRAP00	FPEXTR
     73					;
     74					;
     75						.MACRO	TV	.SYM
     76					.SYM	=	TRAP
     77					TRAP=TRAP+1
     78						.GLOBL	.SYM
     79						.ENDM
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 4
JSR MACRO DEFINITIONS

     82						.SBTTL	JSR MACRO DEFINITIONS
     83					;
     84					; MODIFICATION BY FRANK BORGER 5-SEP-75
     85					;
     86						;CODE TO CONVERT TRAP SUBROUTINE CALLS TO NORMAL JSR'S
     87						;FOR OPERATION UNDER RSX.
     88						;
     89						;DEFINE A GENERAL MACRO TO GENERATE A SECOND MACRO WHICH
     90						;CONVERTS A TRAP NAME OF XXXXXX TO A
     91						;	JSR	PC,XXXXXX
     92						;
     93						.MACRO TRPSUB	A,B
     94						.MACRO	A
     95						JSR	PC,B
     96						.ENDM
     97						.ENDM
     98					;
     99					;	NOW ALL THE ONE-TIME TRAPS THAT BASIC USES
    100					;
    101	000000					TRPSUB	ATOF,ATOF00	;ASCII TO FLOATING
    102	000000					TRPSUB	ATOI,ATOI00	;ASCII TO INTEGER
    103	000000					TRPSUB	CLOSEF,CLOS00	;CLOSE ANY OPEN FILES
    104	000000					TRPSUB	CLRUSR,CLRU00	;CLOSE TEMP USER SPACE (IF ANY)
    105	000000					TRPSUB	CRLF,CRLF00	;DO [CR,LF]
    106	000000					TRPSUB	DIMCHK,DIMC00	;CHECK LEGALITY OF DIMENSIONS
    107	000000					TRPSUB	EVAL,EVAL00	;EVALUATE ARITHMETIC EXPRESSION
    108	000000					TRPSUB	EVALS,EVLS00	;EVALUATE STRING EXPRESSION
    109	000000					TRPSUB	FINDLN,FIND00	;FIND LINE NUMBER (IN R0)
    110	000000					TRPSUB	GETVAR,GETV00	;GET TRUNCATED VARIABLE
    111	000000					TRPSUB	ITOA,ITOA00	;CONVERT INTEGER TO ASCII
    112	000000					TRPSUB	JUNKIT,JUNK00	;SKIP OVER TRASH TO END OF LINE
    113	000000					TRPSUB	PACK,PCK00	;PACK LINE INTO WORKING STORAGE
    114	000000					TRPSUB	PRINTC,PRNT00	;PRINT CHARACTER
    115	000000					TRPSUB	PRINTL,PRN00	;PRINT LINE, R0=FBA,R1=LBA
    116	000000					TRPSUB	PRNTLN,PRLN00	;PRINT LINE NUMBER
    117	000000					TRPSUB	PUSH,PUSH00	;PUSH ONE WORD INTO USER LIST
    118	000000					TRPSUB	SCRNCH,SCR00	;DELETE N BYTES FROM USER SPACE
    119	000000					TRPSUB	SKIP,SKIP00	;SKIP OVER SPACES IN INPUT TEXT
    120	000000					TRPSUB	SQUISH,SQU00	;DELETE TEXT TO TERMINATOR AND PACK
    121	000000					TRPSUB	SRCHLF,SRCH00	;SEARCH FOR LINE FEED USING R1 AS POINTER
    122	000000					TRPSUB	SRLST,SRL00	;SEARCH FOR ITEM IN USER STORAGE
    123	000000					TRPSUB	STRLEN,STRL00	;COMPUTE STRING LENGTH
    124	000000					TRPSUB	TSTCH,TST00	;TEST CHAR (IN R2) ALPHA VS NUMERIC
    125	000000					TRPSUB	TSTOK,TSTU00	;CHECK, IS THERE ENOUGH USER SPACE
    126	000000					TRPSUB	FNMBR,FNMB00	;GET FILE NUMBER AND SET UP FILE
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 5
JSR MACRO DEFINITIONS

    128					;+1
    129					; .SKIP
    130					; .X ^INTRODUCTION
    131					; ^THIS ^^BASIC\\ FOLLOWS ^^DEC\\'S ^^BASIC-11\\ IN ITS BASIC ORIENTATION.
    132					; ^ADVANCED FEATURES TEND TO FOLLOW <RSTS <BASIC-PLUS (E.G. VIRTUAL ARRAYS).
    133					; ^PRIMARY DIFFERENCES ARE IN THE FILE ^I/^O.
    134					; ^THE ^^OPEN, PRINT\\ AND ^^INPUT\\ STATEMENTS HAVE BEEN MODIFIED
    135					; TO PROVIDE FULL ^^FILES-11\\ CAPABILITY FOR ^^ASCII\\ FILES BOTH
    136					; FIXED AND VARIABLE LENGTH AND SEQUENTIAL AND RANDOM ACCESS.
    137					; ^THE STATEMENT CONCATENATION CHARACTER IS THE COLON (:).
    138					; .S
    139					; .X <IMMEDIATE MODE
    140					; <BASIC CAN BE USED IN AN <IMMEDIATE MODE. ^ANY LEGAL COMMAND ENTERED
    141					; WITHOUT A LINE NUMBER (OR LEADING "TAB") WILL BE PERFORMED IMMEDIATELY.
    142					; ^NEARLY ALL THE <BASIC CODES PRESENTED IN THIS DOCUMENT CAN BE USED IN
    143					; THE <IMMEDIATE MODE AND A FEW CAN BE USED
    144					; ONLY IN THE <IMMEDIATE MODE.
    145					; .FG 1
    146					; ^THE OTHER <BASIC MODE IS THE <PROGRAM MODE.
    147					; ^ANY LEGAL COMMAND FOLLOWING A LINE NUMBER OR WITH A LEADING "TAB",
    148					; (EFFECTIVELY A CONTINUATION LINE,) WILL BE STORED WITH THE CURRENT
    149					; PROGRAM AND EXECUTED IN NORMAL PROGRAM FLOW.
    150					; .S
    151					; <BASIC COMES IN SEVERAL 'SIZES'. ^WHEN A USER
    152					; INVOKES <BASIC BY CALLING FOR <BAS, THE
    153					; SPACE RESERVED FOR THE PROGRAM AND DATA IN MAIN MEMORY
    154					; CONTAINS 2570 BYTES. ^THE NEXT
    155					; 'SIZE' IS <BA2, 4618 BYTES. ^THE LARGEST IS <B11, 23050 BYTES.
    156					; .S
    157					; ^IF A USER'S  PROGRAM CALLS FOR MORE THAN THE
    158					; SPACE ALLOTED TO IT, THE COMPUTER STOPS EXECUTION
    159					; AND PRINTS OUT A ^^USERS OVERFLOW\\ ERROR MESSAGE.
    160					; ^EXIT AND RE-ENTER THE <BASIC MODE AT A HIGHER
    161					; VERSION. <BASIC MAY BE CONDITIONALLY ASSEMBLED TO AUTOMATICALLY
    162					; EXTEND ITSELF IF IT RUNS OUT OF STORAGE.
    163					; .FG 1
    164					; ^ALL NUMERIC CALCULATION IS DONE IN FLOATING POINT (^^REAL*4\\ FOR YOU
    165					; ^^FORTRAN\\ BUFFS) REGARDLESS OF THE VARIABLE TYPES IN THE EXPRESSION.
    166					; .S
    167					; .HEADERLEVEL 1 ^STATEMENT AND LINE FORMAT
    168					; .X ^STATEMENT AND LINE FORMAT
    169					; .BR
    170					; ^MULTIPLE STATEMENTS MAY BE CONCATENATED ON A SINGLE LINE BY USE OF
    171					; THE COLON (:) CHARACTER.
    172					; ^A BACKSLASH (_\) IS ALSO ALLOWED FOR <BASIC-<PLUS COMPATIBILITY.
    173					; ^A LINE MAY BE CONTINUED ON THE NEXT LINE WITHOUT USING A NEW LINE
    174					; NUMBER BY STARTING THE CONTINUED LINE WITH A TAB OR TWO SPACES.
    175					; ^CONTINUED LINES ARE TREATED THE SAME WAY AS IN <BASIC-PLUS: THE
    176					; END OF A PHYSICAL LINE IS IGNORED DURING EXECUTION SO LONG AS AN
    177					; INDIVIDUAL <BASIC ELEMENT IS NOT BROKEN ACROSS LINE BOUNDARIES.
    178					; ^THE END OF LINE DOES NOT SERVE TO END A STATEMENT EXCEPT WHEN
    179					; THERE IS NO CONTINUED LINE FOLLOWING IT. ^THUS A STATEMENT WHICH
    180					; BEGINS ON A CONTINUED LINE MUST EITHER HAVE A CONCATENATION
    181					; CHARACTER AT THE START OF ITS LINE OR THE END OF THE PREVIOUS
    182					; LINE. ^THERE IS AN EXCEPTION IN THE CASE OF A COMMENT (! ONLY)
    183					; TERMINATING THE PREVIOUS LINE, IN WHICH CASE NO CONCATENATION
    184					; CHARACTER IS USED.
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 5-1
JSR MACRO DEFINITIONS

    185					; ^CARE SHOULD BE TAKEN NOT TO START AN IMMEDIATE MODE
    186					; COMMAND WITH A TAB OR DOUBLE SPACE AS IT WILL NOT BE EXECUTED BUT
    187					; ADDED TO THE EXISTING PROGRAM AS A CONTINUATION OF THE LAST ENTERED
    188					; PROGRAM LINE.
    189					; .S
    190					; ^THIS VERSION OF BASIC AUTOMATICALLY CONVERTS ALL LOWER CASE CHARACTERS
    191					; TO UPPER CASE, THUS ^PROGRAM SOURCE MAY BE IN LOWER CASE. SAVING A PROGRAM
    192					; VIA THE "SAVE" COMMAND WILL RESULT IN AN ALL UPPER CASE VERSION. ^CASE
    193					; CONVERSION DOES NOT TAKE PLACE UNDER THE FOLLOWING CONDITIONS:
    194					; .LIST
    195					; .LE ^DURING STRING INPUT.
    196					; .LE ^DURING "^^INPUT LINE\\.
    197					; .LE ^ON SOURCE TEXT ENCLOSED IN QUOTES.
    198					; .LE ^ON SOURCE TEXT IN A COMMENT FIELD.
    199					; .ENDLIST
    200					; ^NOTE THAT CHECKING OF PROGRAM STATEMENTS FOR VERB LEGALITY AS THEY
    201					; ARE READ IN BY THE INTERPRETER IS NO LONGER DONE AS IT WAS IN
    202					; EARLIER VERSIONS. ^ALL CHECKING IS NOW DONE AT RUN TIME.
    203					; .S
    204					; .HEADERLEVEL 1 ^VARIABLE NAMES
    205					; .X ^VARIABLES
    206					; .BR
    207					; ^VARIABLE NAMES MAY BE ONE OR TWO CHARACTERS OF WHICH THE FIRST IS ALPHA
    208					; AND THE SECOND (IF USED) IS ALPHANUMERIC, FOLLOWED BY AN OPTIONAL TYPE
    209					; CHARACTER. ^IF NO TYPE CHARACTER IS USED, THE TYPE IS <REAL*4. ^A $ DENOTES
    210					; A STRING VARIABLE, % IS AN INTEGER VARIABLE (16 BITS) AND _& IS A BYTE
    211					; VARIABLE (8 BITS). ^NOTE THAT UNLIKE STANDARD <BASIC, THE SECOND CHARACTER
    212					; OF THE VARIABLE NAME IS ALLOWED TO BE ALPHABETIC. ^IN ORDER TO GAIN THIS
    213					; FLEXIBILITY IN NAMING VARIABLES, SOME RESTRICTIONS HAD TO BE MADE IN THE
    214					; ALLOWED FORMAT OF THE PROGRAM TEXT: SPACES ARE NOT ALLOWED WITHIN A
    215					; VARIABLE NAME; VARIABLE NAMES MUST NOT BE THE SAME AS <BASIC KEY WORDS
    216					; (E.G. <TO AND <IF).
    217					; ^ALSO, AMBIGUITIES MAY SOMETIMES ARISE WHEN A VARIABLE  IS NEXT TO A
    218					; KEYWORD IN THE PROGRAM TEXT. ^THIS CAN USUALLY BE RESOLVED BY RE-WRITING
    219					; THE TEXT. ^ALTHOUGH IT IS THEORETICALLY POSSIBLE TO RESOLVE THESE CASES IN
    220					; THE INTERPRETER, THE EXPENSE IN TERMS OF INTERPRETER CODE LENGTH AND
    221					; EXECUTION TIME DOES NOT SEEM TO WARRANT IT. ^CONSIDER THE FOLLOWING EXAMPLE:
    222					; .NF
    223					; ^^
    224					;	100 IF A _< MT OR B=5. THEN 500
    225					; \\
    226					; .F
    227					; ^THE ^T OF <MT AND THE ^O OF <OR ARE MISINTERPRETED BY <BASIC TO FORM
    228					; THE KEYWORD <TO.
    229					; ^THE STATEMENT CAN BE REWRITTEN UNAMBIGUOUSLY AS FOLLOWS:
    230					; .NF
    231					; ^^
    232					; 	100 IF (A _< MT) OR (B=5.) THEN 500
    233					; \\
    234					; .F
    235					; .S
    236					; .HEADERLEVEL 1 ^VIRTUAL ARRAYS
    237					; .BR
    238					; .X ^VIRTUAL ARRAYS
    239					; ^VIRTAUL ARRAYS ARE USED TO STORE EXTENSIVE NUMBERS OF VARIABLE VALUES,
    240					; USUALLY MORE THAN IS PRACTICAL TO STORE IN AN IN-MEMORY ARRAY.
    241					; ^THE USE OF VIRTUAL ARRAYS INVOLVES A SPECIAL FORM OF THE <DIM STATEMENT
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 5-2
JSR MACRO DEFINITIONS

    242					; AND THE FILE <OPEN STATEMENT WITH THE BLOCK MODE SWITCH </BL.
    243					; ^SEE THE <DIM STATEMENT DOCUMENTATION FOR DETAILS OF VARIABLE MAPPING
    244					; INTO VIRTUAL ARRAY FILES.
    245					; .S
    246					; ^MECHANICS OF VIRTUAL ARRAY FILES: ^VIRTUAL ARRAY FILES ARE OPENED IN BLOCK
    247					; MODE USING THE </BL SWITCH.
    248					; ^THERE IS NO RECORD STRUCTURE SUPERIMPOSED OVER THE BASIC BLOCK STRUCTURE.
    249					; ^THEREFORE ONLY THE FILE ACCESS MODE SWITCHES CAN BE USED IN CONJUNCTION
    250					; WITH </BL. ^THIS ALSO IMPLIES THAT A VIRTUAL ARRAY FILE DOES NOT SUBTRACT
    251					; FROM THE TOTAL NUMBER OF FILES (RECORD TYPE) WHICH MAY BE OPEN SIMULTANEOUSLY
    252					; (CURRENTLY 6).
    253					; .S
    254					; ^VIRTUAL ARRAYS ARE MAINTAINED IN MEMORY ONE BLOCK AT A TIME (512 BYTES).
    255					; ^WHEN A VARIABLE IS ACCESSED, THE APPROPRIATE BLOCK IS CALCULATED AND,
    256					; IF NECESSARY, READ INTO MEMORY. ^IF ANY WRITING TO THAT BLOCK IS DONE,
    257					; A FLAG IS SET AND WHEN A DIFFERENT BLOCK NEEDS TO BE READ IN, THAT ONE
    258					; IS WRITTEN OUT. ^THIS HAS SEVERAL IMPLICATIONS: ^FIRST, ON A VIRTUAL FILE
    259					; OPENED FOR READ ONLY ACCESS, AN ILLEGAL WRITE WILL NOT BE DETECTED UNTIL
    260					; THE BLOCK AS A WHOLE ATTEMPTS TO BE WRITTEN OUT. ^ALSO, IN THE CASE THAT
    261					; THE INTERPRETER ABORTS OR THE SYSTEM CRASHES, NEW OR CHANGED DATA MAY BE
    262					; LOST FOR THAT BLOCK WHICH IS THEN IN MEMORY.
    263					; .SKIP
    264					; .HEADERLEVEL 1 ^STRING CONSTANTS
    265					; .BR
    266					; .X ^STRINGS
    267					; ^STRING CONSTANTS ARE SPECIFIED WITH DOUBLE QUOTES.
    268					; ^AT THIS POINT IT IS NOT POSSIBLE TO REPRESENT A DOUBLE QUOTE
    269					; IN A STRING CONSTANT, I.E. A STRING DELIMITED BY DOUBLE QUOTES.
    270					; ^HOWEVER, THIS LIMITATION MAY BE GOTTEN AROUND BY USING ^^INPUT\\
    271					; OR ^^READ\\ OR THE ^^CHR$\\ FUNCTION.
    272					; .SKIP
    273					; .HEADERLEVEL 1 ^DATA AND FILE PRESERVATION
    274					; .BR
    275					; .X ^^CLEAR\\
    276					; .X ^^RUN\\
    277					; .X ^FILE CLOSE
    278					; ^USER DATA IS NOW KEPT INTACT EXCEPT FOR ^^CLEAR\\ AND ^^RUN\\ COMMANDS.
    279					; ^USER FILES ARE AUTOMATICALLY CLOSED ON EXECUTION OF THE ^^RUN\\
    280					; OR ^^CLEAR\\ COMMANDS AND ON EXIT FROM ^^BASIC\\.
    281					; ^THEY REMAIN OPEN (UNLESS EXPLICITLY CLOSED BY A ^^CLOSE\\ COMMAND)
    282					; ON PROGRAM STOP FOR DEBUGGING PURPOSES.
    283					; .SL
    284					; .HEADERLEVEL 1 ^STRING VARIABLES
    285					; .BR
    286					; ^STRING VARIABLES ARE DECLARED IN A ^^DIM\\ STATEMENT AND CAN BE EITHER
    287					; FIXED OR VARIABLE LENGTH.
    288					; ^SEE ^^DIM\\ STATEMENT FOR THE SPECIFICS.
    289					; .SL
    290					; .HEADERLEVEL 1 ^EXPONENTIATION
    291					; .X ^EXPONENTIATION
    292					; .X ^POWERS OF NUMBERS
    293					; .BREAK
    294					; ^EXPONENTIATION (_^) IS DONE IN TWO WAYS.
    295					; ^IF THE EXPONENT IS AN INTEGER, THE BASE IS MULTIPLIED (OR DIVIDED)
    296					; BY ITSELF THE APPROPRIATE NUMBER OF TIMES.
    297					; ^IF THE EXPONENT CONTAINS A FRACTIONAL PART, A LOG - ANTILOG CALCULATION
    298					; SEQUENCE IS USED.
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 5-3
JSR MACRO DEFINITIONS

    299					; .SL
    300					; .HEADERLEVEL 1 ^^MCR COMMAND LINE\\
    301					; .X ^^MCR COMMAND LINE\\
    302					; .BREAK
    303					; ^^BASIC\\ IS CALLED FROM THE ^^MCR\\ BY TYPING ^^BASIC\\ (OR ^^BAS\\)
    304					; IN RESPONSE TO THE ^^MCR\\ PROMPT.
    305					; ^A _<^C^R> MAY FOLLOW FOR NORMAL INTERACTIVE USE OR ONE OF TWO OTHER
    306					; OPTIONS MAY FOLLOW BEFORE _<^C^R> FOR SPECIAL USES.
    307					; .FG 1
    308					; ^IF A SPACE AND A ? FOLLOWED BY AN ARITHMETIC EXPRESSION FOLLOWS ^^BAS\\,
    309					; THE VALUE OF THE EXPRESSION WILL BE PRINTED ON THE NEXT LINE FOLLOWED
    310					; BY A RETURN TO THE ^^MCR\\.
    311					; ^THIS IS USEFUL FOR QUICK DESK CALCULATOR TYPE CALCULATIONS.
    312					; .FG 1
    313					; ^IF A SPACE (OR TAB) AND A FILE NAME WITH AN OPTIONAL SWITCH FOLLOW,
    314					; THEN THAT FILE WILL BE READ IN AS A USER PROGRAM JUST AS IN THE ^^OLD\\
    315					; COMMAND.
    316					; .FG 1
    317					; ^IF THE SWITCH (/^R^N) IS SPECIFIED, THE PROGRAM WILL ALSO BE RUN AS
    318					; THOUGH THE ^^RUN\\ COMMAND HAD BEEN TYPED.
    319					; ^A SWITCH OF THE FORM "</RN:NNN" WILL CAUSE THE PROGRAM TO START
    320					; EXECUTION AT LINE _# <NNN.
    321					; .FG 1
    322					; ^IF THE SWITCH (/^C^O) IS ADDED, THEN THE FILE RETRIEVED WILL BE
    323					; ASSUMED TO BE PREVIOUSLY COMPILED AND A DEFAULT EXTENSION OF <BAC
    324					; WILL BE USED.
    325					; .NOTE
    326					; ^NOTE THAT NO QUOTES ARE USED HERE AS OPPOSED TO THE ^^OLD\\ AND
    327					; ^^RUN\\ COMMANDS.
    328					; .ENDNOTE
    329					; ^EXAMPLES:
    330					; .NOFILL
    331					; ^^
    332					;	MCR>{BAS}
    333					;	MCR>{BASIC PROG.BAS/RN}
    334					; 	MCR>{BAS PROG/RN:150}
    335					;	MCR>{BAS ? 4*3+2}
    336					; \\
    337					; .FILL
    338					;-
    339					;+2
    340					; ^THE SUBSET OF COMMANDS LISTED IN THIS CHAPTER IS PRIMARILY USED TO CONTROL
    341					; EXECUTION OF <BASIC PROGRAMS. ^THEIR PURPOSE IS TO LET ONE LOAD
    342					; SAVED PROGRAMS, INTERACTIVELY MODIFY/DEBUG THEM WHILE RUNNING, AND
    343					; POSSIBLY SAVE MODIFIED VERSIONS FOR LATER USE.
    344					; ^AS SUCH, THE EQUIVALENT COMMANDS NORMALLY DO NOT EXIST FOR COMPILED
    345					; LANGUAGES SUCH AS <FORTRAN.
    346					;-
    347					;+3
    348					; ^THE SUBSET OF COMMANDS LISTED IN THIS CHAPTER IS PRIMARILY USED TO
    349					; CONTROL THE FLOW OF PROGRAM EXECUTION, RESERVE
    350					; STORAGE AREA FOR VARIABLES, PERFORM ARITHMETIC CALCULATIONS, ETC.
    351					;-
    352					;+4
    353					; ^THE FUNCTIONS LISTED IN THIS CHAPTER ARE PRIMARILY ARITHMETIC IN NATURE.
    354					; ^THEY RETURN ARITHMETIC VALUES OR CERTAIN SYSTEM VALUES SUCH AS THE
    355					; ^DATE OR THE ^TIME.
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 5-4
JSR MACRO DEFINITIONS

    356					;-
    357					;+5
    358					; ^THE FUNCTIONS LISTED IN THIS CHAPTER ARE PRIMARILY CHARACTER STRING
    359					; ORIENTED. ^THEY PROVIDE WIDE CAPABILITY FOR EXAMINING AND ALTERING
    360					; VARIABLES WHICH CONTAIN CHARACTER STRINGS, AND FOR CONVERSION FROM/TO
    361					; OTHER DATA FORMATS.
    362					;-
    363					;+6
    364					; ^THE COMMANDS LISTED IN THIS CHAPTER ARE PRIMARILY CONCERNED WITH
    365					; ^INPUT AND ^OUTPUT. ^THEY PROVIDE THE CAPABILITY OF OPENING FILES,
    366					; READING/WRITING DATA IN VARIOUS FORMATS, AND CLOSING THE FILES WHEN DONE.
    367					;-
    368					;+7
    369					; ^THIS CHAPTER IS PRIMARILY CONCERNED WITH THE OPERATION OF USER WRITTEN
    370					; <MACRO SUBROUTINES. ^THE CAPABILITY OF CALLING A MACHINE LANGUAGE
    371					; SUBROUTINE TO PERFORM SOME COMPLEX CALCULATION CAN PROVIDE MUCH SIMPLER
    372					; PROGRAM OPERATION, AND/OR SIGNIFICANTLY INCREASE THE SPEED OF OPERATION.
    373					; .FG 1
    374					; ^SEVERAL SPECIAL <MACRO SUBROUTINES PROVED SO USEFUL THAT THEY WERE MADE
    375					; A PERMANENT PART OF <BASIC AND AS SUCH DO NOT HAVE TO BE LOADED.
    376					; ^THOSE ROUTINES ARE LISTED IN THIS CHAPTER.
    377					; .FG 1
    378					; ^A SAMPLE OF A <MACRO SUBROUTINE WHICH WILL REVERSE A CHARACTER STRING
    379					; ALONG WITH A DESCRIPTION OF THE INTERNAL <BASIC SUBROUTINES IT USES
    380					; IS INCLUDED IN ^APPENDICES ^B _& ^C OF THIS MANUAL.
    381					;-
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 6
JSR MACRO DEFINITIONS

    383					; BASIC TRAP AND ERROR HANDLER -
    384					;	ERROR CALLS IN BASIC ARE MADE BY TRAP CALLS; NORMAL SUBROUTINE
    385					;	TRANSFERS ARE MADE BY JSR PC'S UNDER RSX
    386					;
    387					;	SUBROUTINE CALLS ARE MADE BY MACRO'S WHICH ARE EXPANDED INTO JSR'S.
    388					;
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 7
TRAP ERROR CALLS - MACRO DEFINITIONS

    390						.SBTTL	TRAP ERROR CALLS - MACRO DEFINITIONS
    391					;
    392					; THE FOLLOWING IS A LIST OF IMPLEMENTED ERROR CALLS.  ALL ERRORS LESS
    393					;	THAN "FENCE" ARE FATAL, ALL GREATER ARE NON-FATAL.
    394					;
    395					; FATAL ERROR CALLS
    396					;
    397		104400 			TRAP=104400		;PROTOTYPE TRAP INSTR. FOR MACRO
    398	000000					TV	OVFERR	;USER STORAGE OVERFLOW - 0
    399	000000					TV	UNRERR	;UNRECOGNIZED STATEMENT - 1
    400	000000					TV	GOERR	;ILLEGAL GOTO OR GOSUB - 2
    401	000000					TV	ILCERR	;ILLEGAL CHARACTER TERMINATING STMT - 3
    402	000000					TV	RETERR	;RETURN WITHOUT GOSUB - 4
    403	000000					TV	SBSERR	;BADLY FORMED SUBSCRIPT - 5
    404	000000					TV	SUBERR	;SUBSCRIPT OUT OF RANGE - 6
    405	000000					TV	PARERR	;MISMATCHED PARENTHESES - 7
    406	000000					TV	LETERR	;ILLEGAL LET - 8
    407	000000					TV	OPRERR	;ILLEGAL RELATIONAL OPERATOR IN IF - 9
    408	000000					TV	IFERR	;ILLEGAL IF - 10
    409	000000					TV	PRNERR	;ILLEGAL PRINT - 11
    410	000000					TV	LINERR	;INPUT LINE TOO LONG - 12
    411	000000					TV	DIMERR	;BAD DIMENSION - 13
    412	000000					TV	DMVERR	;NOT ENOUGH ROOM IN STORAGE FOR THE ARRAY - 14
    413	000000					TV	DEFERR	;BADLY FORMED DEFINE - 15
    414	000000					TV	LNNERR	;ILLEGAL LINE NUMBER OR DIMENSION VALUE - 16
    415	000000					TV	DMDERR	;DIM OF PREVIOUSLY DECLARED OR USED ITEM - 17
    416	000000					TV	INPERR	;BAD VARIABLE IN INPUT LIST - 18
    417	000000					TV	REAERR	;BAD VARIABLE IN READ LIST - 19
    418	000000					TV	RE1ERR	;OUT OF DATA - 20
    419	000000					TV	RE2ERR	;BAD FORMAT IN A DATA STATEMENT - 21
    420	000000					TV	FORERR	;ILLEGAL FOR STATEMENT - 22
    421	000000					TV	NXTERR	;NO NEXT MATCHING FOR - 23
    422	000000					TV	NXMERR	;NEXT WITHOUT FOR - 24
    423	000000					TV	UNMERR	;UNMATCHED QUOTES IN STATEMENT - 25
    424	000000					TV	EXFERR	;EXTERNAL FUNCTION NOT PROPERLY SET UP - 26
    425	000000					TV	ILFERR	;ILL FORMED EXPRESSION - 27
    426	000000					TV	CSIERR	;COMMAND STRING ERROR - 28
    427	000000					TV	STRERR	;SBS FUNCTION ERROR - 29
    428	000000					TV	STXERR	;SYNTAX ERROR IN FUNCTION - 30
    429	000000					TV	OPNERR	;SYNTAX ERROR IN OPEN - 31
    430	000000					TV	CLSERR	;SYNTAX ERROR IN CLOSE - 32
    431	000000					TV	FNMERR	;INVALID FILE NUMBER - 33
    432	000000					TV	EOFERR	;END OF FILE ERROR - 34
    433	000000					TV	CLOSER	;FCS ERROR DURING CLOSE - 35
    434	000000					TV	OPENER	;FCS ERROR DURING OPEN - 36
    435	000000					TV	CALERR	;ERROR IN PROCESSING CALL STATEMENT - 37
    436	000000					TV	ARGERR	;ERROR IN PROCESSING CALL ARGUMENTS - 38
    437	000000					TV	STOERR	;ERROR IN STORE DURING CALLED ROUTINE - 39
    438	000000					TV	OPLBER	;ERROR IN SYNTAX OR LUN IN USE IN LIB OPEN - 40
    439	000000					TV	OPLFER	;FCS ERROR IN LIBRARY OPEN OR FIRST READ - 41
    440	000000					TV	SLPERR	;ERROR IN SLEEP COMMAND - 42
    441	000000					TV	WATERR	;ERROR IN WAIT COMMAND - 43
    442	000000					TV	TMOERR	;TIMEOUT ERROR ON INPUT - 44
    443	000000					TV	PRIERR	;PRIORITY ERROR - 45
    444	000000					TV	PRFERR	;PROGRAM FILE ERROR - 46
    445	000000					TV	FACERR	;FILE ACCESS MODE ERROR - 47
    446	000000					TV	LODERR	;ERROR IN LOADED USER SUBROUTINE - 48
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 7-1
TRAP ERROR CALLS - MACRO DEFINITIONS

    447	000000					TV	VFIERR	;VIRTUAL FILE ACCESS ERROR - 49
    448	000000					TV	VOPERR	;VIRTUAL FILE OPEN ERROR - 50
    449	000000					TV	SETERR	;ERROR IN SET COMMAND - 51
    450	000000					TV	COMERR	;USE OF /CO SWITCH ON NORMAL BASIC SOURCE -52
    451	000000					TV	IMMERR	;IMMEDIATE MODE COMMAND IN SOURCE PROGRAM -53
    452	000000					TV	VTMERR	;VARIABLE TYPE MIS-MATCH -54
    453		104476 			TRAP=104500-2		;SET ADDRESS FOR START OF DEBUGGING CODES
    454	000000					TV	TM1ERR	;DEBUGGING ERROR #1 - 62
    455	000000					TV	TM2ERR	;DEBUGGING ERROR #2 - 63
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 8
TRAP ERROR CALLS - MACRO DEFINITIONS

    457					;
    458					; NON-FATAL ERROR CALLS
    459					;
    460		104500 			TRAP=104500		;SET ADDRESS FOR NON-FATAL ERRORS
    461		000100 			FENCE=TRAP-104400
    462					;
    463	000000					TV	LOGERR	;LOG OF NEGATIVE OR ZERO NUMBER - 64
    464	000000					TV	SQRERR	;SQUARE ROOT OF NEGATIVE NUMBER - 65
    465	000000					TV	DVFERR	;DIV.-MUL. OVERFLOW OR UNDERFLOW - 66
    466	000000					TV	FIXERR	;NUMBER TOO LARGE TO FIX - 67
    467	000000					TV	FOFERR	;FLOATING POINT OVERFLOW - 68
    468	000000					TV	FUFERR	;FLOATING POINT UNDERFLOW - 69
    469	000000					TV	NXVERR	;NON-EXISTENT VARIABLE - 70
    470	000000					TV	IN1ERR	;TOO MUCH DATA TYPED - 71
    471	000000					TV	IN2ERR	;NOT ENOUGH DATA TYPED - 72
    472	000000					TV	IN3ERR	;ILLEGAL CHARACTERS ON INPUT - 73
    473	000000					TV	VALERR	;ERROR IN VAL FUNCTION - 74
    474					;
    475					; END OF DIAGNOSTIC CALLS
    476					;
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 9
ERROR TRAP HANDLER

    478						.SBTTL	ERROR TRAP HANDLER
    479					;
    480					;
    481					; TRAP AND ERROR HANDLER
    482					;	FATAL ERRORS WIPE OUT THE SYSTEM STACK AND RETURN TO THE
    483					;	COMMAND INTERPRETER AFTER GIVING THE DIAGNOSTIC.  NON-FATAL
    484					;	ERRORS RETURN TO THE CALLING ROUTINE.
    485					; REGISTER ASSIGNMENTS
    486					;
    487		000000 			R0	=	%0		;TEMPORARY AND PARAMETER TRANSFER
    488		000001 			R1	=	%1		;TEMPORARY AND PARAMETER TRANSFER
    489		000002 			R2	=	%2		;SCRATCH
    490		000003 			R3	=	%3		;SCRATCH
    491		000004 			R4	=	%4		;SCRATCH
    492		000005 			R5	=	%5		;USER LIST POINTER
    493		000006 			SP	=	%6		;BASIC STACK POINTER
    494		000007 			PC	=	%7		;PROGRAM COUNTER
    495					;
    496		104400 			TRAP=104400		;FOR USE BY TRAP HANDLER
    497					;
    498	000000					.PSECT	BASIC0,RW,I,LCL,REL,CON	;MAIN OF TRPHDL
    499	000000	012602 			TRAP00:	MOV	(SP)+,R2	;2*LOWER BYTE IN R2
    500	000002	012616 				MOV	(SP)+,(SP)	;SET STACK FOR POSSIBLE RTS,PC
    501	000004	006202 				ASR	R2		;LOWER BYTE OF TRAP IN R2
    502	000006	020227 	000100 			CMP	R2,#FENCE	;IS IT FATAL?
    503						.IF	DF	RSX11M
    504	000012	002021 				BGE	ERRR01		;FOR 11M
    505						.IFF
    506						BGT	ERRR01		;FOR 11D
    507						.ENDC
    508	000014	012767 	000000G	000000G		MOV	#TINPT,INPT	;RESET FILE CONTROL BLOCK ADDRESSES
    509	000022	012767 	000000G	000000G		MOV	#TOTPT,OTPT
    510	000030	005067 	000000G			CLR	LINEFL		;IN CASE BINARY OR INPUT LINE FAILED
    511	000034	016767 	000000G	000000G		MOV	ENUSAV,ENUDAT	;RESTORE OLD END OF DATA IN CASE CORRUPTED
    512	000042					CLOSEF			;IN CASE FROM OLD
    513	000046	016706 	000000G			MOV	ENDSTK,SP	;ZAP THE STACK
    514	000052	012746 	000000G			MOV	#STOP02,-(SP)	;GET NEW RETURN ADDRESS
    515	000056	010267 	000000C		ERRR01:	MOV	R2,PARLST+P.ERCD ;PUT ERROR CODE IN PARAMETER LIST
    516						.IF DF	RSX11D
    517						INC	R2		;INCREMENT TO USE FOR REC NO
    518						MOV	R2,MODPB+M.ONUM	;PUT IN DPB FOR MO
    519						MOV	MOLUN,MODPB+M.OLUN ;SET UP LUN PROPERLY
    520						.ENDC
    521	000062	016767 	000000G	000000C		MOV	LINENO,PARLST+P.LINE ;PUT CURRENT LINE NO IN PAR LIST
    522	000070	005767 	000000G			TST	ERRBRN		;ERROR HANDLING ROUTINE DEFINED?
    523	000074	003067 				BGT	ERBR		;IF SO, BRANCH
    524	000076	005067 	000000G			CLR	WTMAG		;SET FOR NO TIME OUT
    525						.IF DF	RSX11D                                                          ;DSS1
    526						CMP	R2,#FENCE+1	;SEE IF MODIFIED ERROR CODE PAST FATAL
    527						.IFF
    528	000102	020227 	000100 			CMP	R2,#FENCE	;SEE IF ERROR CODE PAST FATAL
    529						.ENDC
    530	000106	002002 				BGE	2$		;IF SO, SKIP DETACH
    531	000110	004767 	000000G			JSR	PC,DETACH	;NULLIFY ^O
    532	000114				2$:
    533						.IF DF	RSX11D
    534						DIR$	#MODPB		;PERFORM MO QIO
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 9-1
ERROR TRAP HANDLER

    535						BCS	ERRR06		;IF MO DIDN'T GO, DO REGULAR MESSAGE
    536						MOWA$S			;WAIT FOR MO TO FINISH
    537					1$:	BR	ERRR07		;IF OK EXIT ROUTINE
    538						.ENDC
    539	000114	010146 			ERRR06:	MOV	R1,-(SP)	;SAVE TEXT POINTER
    540						.IF DF	RSX11D
    541						DEC	R2		;GET CODE BACK TO ORIGINAL VALUE
    542						.ENDC
    543	000116	010201 				MOV	R2,R1
    544	000120	012700 	000000G			MOV	#ERRR02,R0	;ASCII DESTINATION
    545	000124					ITOA
    546	000130	016746 	000000G			MOV	OTPT,-(SP)	;SAVE CURR FILE CONTROL BLOCK ADDR
    547	000134	012767 	000000G	000000G		MOV	#TOTPT,OTPT	;FORCE OUTPUT TO TERMINAL
    548	000142					CRLF
    549	000146	012700 	000000G			MOV	#ERRR03,R0	;START OF MESSAGE
    550	000152					PRINTL			;PRINT THE LINE
    551	000156	012700 	000000G			MOV	#ERRR05,R0
    552	000162					PRINTL
    553	000166					PRNTLN			;AND THE LINE NUMBER
    554						.if df	fultxt
    555	000172	016602 	000002 			mov	2(sp),r2	;restore error number
    556	000176	012701 	000000G			mov	#mestbl,r1	;point to error table
    557	000202	021102 			222$:	cmp	(r1),r2		;right error number ?
    558	000204	001404 				beq	333$		;br if so
    559	000206	003007 				bgt	444$		;quit if we are past
    560	000210	062701 	000004 			add	#4,r1		;else check next
    561	000214	000772 				br	222$
    562	000216	016100 	000002 		333$:	mov	2(r1),r0	;point to error text
    563	000222					printl			;print it
    564	000226				444$:
    565						.endc
    566	000226					CRLF
    567	000232	012667 	000000G			MOV	(SP)+,OTPT	;RESTORE FILE CONTROL BLOCK POINTER
    568	000236	012601 			ERRR04:	MOV	(SP)+,R1	;RESTORE R1
    569	000240				ERRR07:                                                                         ;DSS1
    570						.IF	DF,FPPEMU	;IF FPP EMULATION                               ;DSS1
    571						.IFF			;IF NOT                                         ;DSS1
    572	000240	005767 	000000G			TST	FPEXFL		;ANY FLOATING POINT EXCEPTIONS?                 ;DSS1
    573	000244	001402 				BEQ	1$		;IF NOT, SKIP PROCESSING                        ;DSS1
    574						.IFTF			;WHETHER OR NOT                                 ;DSS1
    575	000246	004767 	000126 			JSR	PC,FPERMS	;IF SO, REPORT THEM
    576						.ENDC
    577	000252	000207 			1$:	RTS	PC		;AND RETURN
    578	000254	016700 	000000G		ERBR:	MOV	ERRBRN,R0	;ERROR ROUTINE LINE NUMBER IN R0
    579	000260	016706 	000000G			MOV	ENDSTK,SP	;ZAP THE STACK
    580	000264	005046 				CLR	-(SP)		;INDICATE EXACT LINE NUMBER WANTED
    581	000266	005067 	000000G			CLR	ERRBRN		;JUST IN CASE ERROR IN ERROR ROUTINE
    582	000272	016701 	000000G			MOV	USR,R1		;START SEARCH FROM START OF CODE
    583	000276	000167 	000000G			JMP	GOTO03		;GO TO IT
    584					;+1
    585					; .SL
    586					; .HEADERLEVEL 1 ^CONTROL ^C
    587					; .BR
    588					; .X _^^C
    589					; .X ^CONTROL ^C
    590					; ^THE BREAK KEY FOR ^^BASIC\\ IS THE ^CONTROL-^C (_^^C).
    591					; ^A _^^C TYPED AT THE KEYBOARD WHEN RUNNING WILL CAUSE THE PROGRAM
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 9-2
ERROR TRAP HANDLER

    592					; TO STOP AT THE NEXT SEQUENTIAL LINE (NOT AT A LINE ENTERED VIA
    593					; <GOTO, <GOSUB, <IF ETC.).
    594					; ^WHEN IN IMMEDIATE MODE, _^^C WILL BRING UP <MCR IF THE TERMINAL HAS
    595					; NOT BEEN SET HOSTILE.
    596					; _^^C TYPED DURING A LIST COMMAND WILL TERMINATE THE LISTING PROCESS
    597					; AFTER THE CURRENT LINE IS FINISHED PRINTING OUT.
    598					; ^IT CAUSES AN IMMEDIATE RETURN TO THE INTERPRETER AS OPPOSED TO
    599					; _^^O WHICH ONLY SUPPRESSES PRINTING WHILE THE <BASIC INTERPRETER
    600					; STILL GOES THROUGH THE MOTIONS OF COMPLETING THE LISTING.
    601					;-
    602					;
    603					; AST ENTRY FOR ^C BREAK ROUTINE
    604					;
    605	000302				CTCENT:
    606						.IF	NDF RSX11D	;CONDITIONAL CODE FOR RSX-11M
    607									;^C COMES ON STACK JUST LIKE
    608									;ANY OTHER UNSOLICITED CHAR.
    609	000302	022627 	000003 			CMP	(SP)+,#3	;WAS CHAR ^C?
    610	000306	001002 				BNE	1$		;IF NOT, IGNORE IT
    611						.ENDC
    612	000310	005267 	000000G			INC	BRFLAG
    613	000314				1$:	ASTX$S			;AST SERVICE EXIT
    614					;
    615					; CODE TO HANDLE FLOATING POINT EXCEPTION TRAPS
    616					; NO REGISTERS ARE DESTROYED
    617					;
    618						.IF	DF,FPPEMU	;IF FPP EMULATION                               ;DSS1
    619						.IFF			;IF NOT                                         ;DSS1
    620	000322	016616 	000002 		FPEXTR:	MOV	2(SP),(SP)	;MOVE FEC STATUS (OVERWRITE ADDRESS)
    621	000326	010066 	000002 			MOV	R0,2(SP)	;SAVE R0
    622	000332	012600 				MOV	(SP)+,R0	;FEC -> R0
    623	000334	010246 				MOV	R2,-(SP)	;SAVE R2
    624	000336	005002 				CLR	R2		;PREPARE FOR FUTURE USE
    625	000340	006200 				ASR	R0		;DIVIDE ERROR NUMBER BY 2
    626	000342	005300 				DEC	R0		;AND DECREMENT
    627	000344	003410 				BLE	2$		;IF ZERO OR NEG, NO ERROR
    628	000346	020027 	000004 			CMP	R0,#4		;IF > 4, ALSO
    629	000352	003005 				BGT	2$		;NO ERROR TO REPORT
    630	000354	000261 				SEC			;GET BIT READY TO SHIFT IN
    631	000356	006102 			1$:	ROL	R2		;SHIFT OVER ONE
    632	000360	077002 				SOB	R0,1$
    633	000362	050267 	000000G			BIS	R2,FPEXFL	;SET APPROPRITE FLAG BIT
    634	000366	012602 			2$:	MOV	(SP)+,R2	;RESTORE OLD R2
    635	000370	012600 				MOV	(SP)+,R0	;RESTORE OLD R0
    636	000372					ASTX$S			;EXIT FROM AST ROUTINE
    637					;
    638					; THIS SUBROUTINE SHOULD BE CALLED FOR ERROR MESSAGE PROCESSING
    639					; AFTER POSSIBLE FLOATING EXCEPTION ERRORS.
    640					; IT CHECKS THE FLOATING POINT EXCEPTION FLAGS WORD AND PRINTS
    641					; TRAPS TO THE APPROPRIATE ERROR ROUTINE (USER OR SYSTEM)
    642					; NOTE THAT IN THE CASE OF A USER ERROR ROUTINE BRANCH, ONLY
    643					; THE FIRST OF THE FOUR FLOATING POINT ERRORS WHICH OCCURS
    644					; WILL BE ACTED UPON AND RECORDED.
    645					;
    646					; REGISTERS USED - R0,R2
    647					;
    648	000400	016700 	000000G		FPERMS:	MOV	FPEXFL,R0	;GET ERROR BIT CODES IN R0
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 9-3
ERROR TRAP HANDLER

    649	000404	012702 	000432'			MOV	#2$-4,R2	;JUMP LIST ADDRESS TO R2
    650	000410	005067 	000000G			CLR	FPEXFL		;CLEAR THE FLAGS, SO WE DON'T LOOP
    651	000414	062702 	000004 		3$:	ADD	#4,R2		;STEP THROUGH THE LIST
    652	000420	006200 				ASR	R0		;AND NOW GET ERROR BIT IN 'C'
    653	000422	103003 				BCC	1$		;IF NOT SET, NO ACTION
    654	000424	010046 				MOV	R0,-(SP)	;SAVE REGISTERS IN CASE
    655	000426	010246 				MOV	R2,-(SP)	;WE COME BACK HERE
    656	000430	000112 				JMP	(R2)		;GO DO ERROR TRAP
    657	000432	001370 			1$:	BNE	3$		;IF STILL BITS LEFT, KEEP CHECKING
    658	000434	000207 				RTS	PC
    659	000436	104502 			2$:	DVFERR			;FLOATING DIVIDE BY ZERO
    660	000440	000405 				BR	5$
    661	000442	104503 				FIXERR			;FLOATING -> INTEGER CONVERSION OVFLOW
    662	000444	000403 				BR	5$
    663	000446	104504 				FOFERR			;FLOATING OVERFLOW ERROR
    664	000450	000401 				BR	5$
    665	000452	104505 				FUFERR			;FLOATING UNDERFLOW ERROR
    666	000454	012602 			5$:	MOV	(SP)+,R2	;RESTORE SAVED REGISTERS
    667	000456	012600 				MOV	(SP)+,R0
    668	000460	000755 				BR	3$
    669					;
    670						.IFT			;IF FPP EMULATION, DO IT DIFFERENTLY            ;DSS1
    671					                                                                                ;DSS1
    672					FPEXTR=0		;DEFINE FPEXTR (SO THERE WON'T BE AN UNDEFINED GLOBAL)  ;DSS1
    673					FPERMS:	MOV	R0,-(SP)	;SAVE REGS                                      ;DSS1
    674						MOV	R1,-(SP)                                                        ;DSS1
    675						STST	R1		;GET FLOATING EXCEPTION CODE, IF ANY            ;DSS1
    676						SUB	#ERRDIV,R1		;4=DIVIDE BY ZERO                       ;DSS1
    677						BLT	1$			;6=CONVERSION TO INTEGER ERROR          ;DSS1
    678						CMP	R1,#ERRUNR-ERRDIV	;8=OVERFLOW                             ;DSS1
    679						BGT	1$			;10=UNDERFLOW                           ;DSS1
    680						ASL	R1                                                              ;DSS1
    681						ADD	#5$,R1                                                          ;DSS1
    682						JSR	PC,(R1)                                                         ;DSS1
    683					1$:	MOV	(SP)+,R1	;RESTORE REGS                                   ;DSS1
    684						MOV	(SP)+,R0                                                        ;DSS1
    685						RTS	PC                                                              ;DSS1
    686					5$:	DVFERR			; 4                                             ;DSS1
    687						RTS	PC                                                              ;DSS1
    688						FIXERR			; 6                                             ;DSS1
    689						RTS	PC                                                              ;DSS1
    690						FOFERR			; 8                                             ;DSS1
    691						RTS	PC                                                              ;DSS1
    692						FUFERR			; 10                                            ;DSS1
    693						RTS	PC                                                              ;DSS1
    694					                                                                                ;DSS1
    695						.ENDC                                                                   ;DSS1
    696					                                                                                ;DSS1
    697					;-554,595,/;DSS1/                                                               ;DSS1
    698						.IF DF	RSX11D
    699					STRD:	.WORD	STR1E-STR1	;DEFINE STRING(FILENAME) LENGTH
    700						.WORD	STR1		;ADDRESS OF FILENAME STRING
    701					STR1:	.ASCIZ	/LB:[1,2]BASIC/
    702					STR1E:
    703						.ENDC
    704		000001 				.END
BASIC0	MACRO Y05.02  Wednesday 27-Aug-86 15:06  Page 9-4
Symbol table

ARGERR= 104446 G 	ERRR01  000056R     002	IMMERR= 104465 G 	OTPT  = ****** G 	SQRERR= 104501 G
BRFLAG= ****** GX	ERRR02= ****** GX	INPERR= 104422 G 	OVFERR= 104400 G 	STOERR= 104447 G
CALERR= 104445 G 	ERRR03= ****** GX	INPT  = ****** G 	PARERR= 104407 G 	STOP02= ****** G
CLOSER= 104443 G 	ERRR04  000236R     002	IN1ERR= 104507 G 	PARLST= ****** G 	STRERR= 104435 G
CLOS00= ****** GX	ERRR05= ****** GX	IN2ERR= 104510 G 	PRFERR= 104456 G 	STUDAT= ****** G
CLSERR= 104440 G 	ERRR06  000114R     002	IN3ERR= 104511 G 	PRIERR= 104455 G 	STXERR= 104436 G
COMERR= 104464 G 	ERRR07  000240R     002	ITOA00= ****** GX	PRLN00= ****** GX	SUBERR= 104406 G
CRLF00= ****** GX	EXFERR= 104432 G 	LETERR= 104410 G 	PRNERR= 104413 G 	TINPT = ****** G
CSIERR= 104434 G 	FACERR= 104457 G 	LINEFL= ****** G 	PRN00 = ****** GX	TMOERR= 104454 G
CTCENT  000302RG    002	FENCE = 000100   	LINENO= ****** GX	P.ERCD= ****** G 	TM1ERR= 104476 G
DEFERR= 104417 G 	FIXERR= 104503 G 	LINERR= 104414 G 	P.FCS = ****** G 	TM2ERR= 104477 G
DEFUIC= 000401   	FNMERR= 104441 G 	LNNERR= 104420 G 	P.FLNM= ****** G 	TOTPT = ****** G
DEFVAR= 000000   	FOFERR= 104504 G 	LODERR= 104460 G 	P.FNAM= ****** G 	TRAP  = 104400
DETACH= ****** G 	FORERR= 104426 G 	LOGERR= 104500 G 	P.LINE= ****** G 	TRAP00  000000RG    002
DIMERR= 104415 G 	FPERMS  000400RG    002	MESTBL= ****** GX	REAERR= 104423 G 	UNMERR= 104431 G
DMDERR= 104421 G 	FPEXFL= ****** G 	M11EXT= 000001   	RETERR= 104404 G 	UNRERR= 104401 G
DMVERR= 104416 G 	FPEXTR  000322RG    002	NXMERR= 104430 G 	RE1ERR= 104424 G 	USR   = ****** GX
DVFERR= 104502 G 	FUFERR= 104505 G 	NXTERR= 104427 G 	RE2ERR= 104425 G 	VALERR= 104512 G
ENDSTK= ****** G 	FULTXT= 000000   	NXVERR= 104506 G 	RSX11M= 000001   	VFIERR= 104461 G
ENUDAT= ****** G 	GOERR = 104402 G 	OPENER= 104444 G 	SBSERR= 104405 G 	VOPERR= 104462 G
ENUSAV= ****** GX	GOTO03= ****** G 	OPLBER= 104450 G 	SETERR= 104463 G 	VTMERR= 104466 G
EOFERR= 104442 G 	IFERR = 104412 G 	OPLFER= 104451 G 	SLPERR= 104452 G 	WATERR= 104453 G
ERBR    000254R     002	ILCERR= 104403 G 	OPNERR= 104437 G 	SNGUSR= 000001   	WTMAG = ****** GX
ERRBRN= ****** GX	ILFERR= 104433 G 	OPRERR= 104411 G

. ABS.	000000    000	(RW,I,GBL,ABS,OVR)
      	000000    001	(RW,I,LCL,REL,CON)
BASIC0	000462    002	(RW,I,LCL,REL,CON)
Errors detected:  0

*** Assembler statistics


Work  file  reads: 0
Work  file writes: 0
Size of work file: 8652 Words  ( 34 Pages)
Size of core pool: 19714 Words  ( 75 Pages)
Operating  system: RSX-11M/PLUS (Under VAX/VMS)

Elapsed time: 00:00:23.25
BASIC0,BASIC0/-SP=BASPRE,BASIC0