.title syntax tables .ident /21OCT81/ contin==0 error==1 stop==2 stopsh==3 ; ; snobol function names ; .external bipdfn,dolfn,biprfn,addfn,subfn,namfn,divfn,biatfn .external mpyfn,expfn,pdfn,indfn,prfn,keyfn,strfn,mnsfn,dotfn .external slhfn,quesfn,atfn,negfn,orfn .external arowfn,barfn,biamfn,bingfn,biqsfn,plsfn ;* ;* ;* syntactic types ;* arytyp = 7 ;array reference. clntyp = 5 ;colon (goto symbol) cmatyp = 2 ;comma cmttyp = 2 ;comment card cnttyp = 4 ;continue card ctltyp = 3 ;control card dimtyp = 1 ;dimension separator eostyp = 6 ;end of statement eqtyp = 4 ;equal sign fgotyp = 3 ;failure goto ftotyp = 6 ;direct failure goto flityp = 6 ;real literal fnctyp = 5 ;function ilityp = 2 ;integer literal lptyp = 1 ;left parenthesis nbtyp = 1 ;non-break character newtyp = 1 ;new statement nsttyp = 4 ;nested expression qlityp = 1 ;quoted literel rbtyp = 7 ;right bracket rptyp = 3 ;right parenthesis sgotyp = 2 ;success goto stotyp = 5 ;success direct goto ugotyp = 1 ;unconditional goto utotyp = 4 ;unconditional direct goto vartyp = 3 ;variable .page .sbttl ---- bioptb ---- ;----------------------------------------------------------------------- ; ; ; begin bioptb ; for(plus) put(addfn) goto(tblktb) ; for(minus) put(subfn) goto(tblktb) ; for(dot) put(namfn) goto(tblktb) ; for(dollar) put(dolfn) goto(tblktb) ; for(star) put(mpyfn) goto(startb) ; for(slash) put(divfn) goto(tblktb) ; for(at) put(biatfn) goto(tblktb) ; for(pound) put(bipdfn) goto(tblktb) ; for(percent) put(biprfn) goto(tblktb) ; for(raise) put(expfn) goto(tblktb) ; for(orsym) put(orfn) goto(tblktb) ; for(keysym) put(biamfn) goto(tblktb) ; for(notsym) put(bingfn) goto(tblktb) ; for(quesym) put(biqsfn) goto(tblktb) ; else error ; end bioptb bioptb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 14, 1, 11 ; ! " # .byte 7, 12, 15, 1 ; $ % & ' .byte 1, 1, 8, 4 ; ( ) * + .byte 1, 5, 6, 9 ; , - . / .byte 1, 1, 1, 1 ; 0 1 2 3 .byte 1, 1, 1, 1 ; 4 5 6 7 .byte 1, 1, 1, 1 ; 8 9 : ; .byte 1, 1, 1, 17 ; < = > ? .byte 10, 1, 1, 1 ; @ A B C .byte 1, 1, 1, 1 ; D E F G .byte 1, 1, 1, 1 ; H I J K .byte 1, 1, 1, 1 ; L M N O .byte 1, 1, 1, 1 ; P Q R S .byte 1, 1, 1, 1 ; T U V W .byte 1, 1, 1, 1 ; X Y Z [ .byte 1, 1, 13, 1 ; \ ] ^ _ .byte 1, 1, 1, 1 ; ` a b c .byte 1, 1, 1, 1 ; d e f g .byte 1, 1, 1, 1 ; h i j k .byte 1, 1, 1, 1 ; l m n o .byte 1, 1, 1, 1 ; p q r s .byte 1, 1, 1, 1 ; t u v w .byte 1, 1, 1, 1 ; x y z { .byte 14, 1, 16, 1 ; | } ~  ; .page .sbttl ---- cardtb ---- ;----------------------------------------------------------------------- ; ; ; begin cardtb ; for(cmt) put(cmttyp) stopsh ; for(ctl) put(ctltyp) stopsh ; for(cnt) put(cnttyp) stopsh ; else put(newtyp) stopsh ; end cardtb cardtb:: .byte 21, 21, 21, 21 ; .byte 21, 21, 21, 21 ; .byte 21, 21, 21, 21 ; .byte 21, 21, 21, 21 ; .byte 21, 21, 21, 21 ; .byte 21, 21, 21, 21 ; .byte 21, 21, 21, 21 ; .byte 21, 21, 21, 21 ; .byte 21, 21, 21, 21 ; ! " # .byte 21, 21, 21, 21 ; $ % & ' .byte 21, 21, 18, 20 ; ( ) * + .byte 21, 19, 20, 21 ; , - . / .byte 21, 21, 21, 21 ; 0 1 2 3 .byte 21, 21, 21, 21 ; 4 5 6 7 .byte 21, 21, 21, 21 ; 8 9 : ; .byte 21, 21, 21, 21 ; < = > ? .byte 21, 21, 21, 21 ; @ A B C .byte 21, 21, 21, 21 ; D E F G .byte 21, 21, 21, 21 ; H I J K .byte 21, 21, 21, 21 ; L M N O .byte 21, 21, 21, 21 ; P Q R S .byte 21, 21, 21, 21 ; T U V W .byte 21, 21, 21, 21 ; X Y Z [ .byte 21, 21, 21, 21 ; \ ] ^ _ .byte 21, 21, 21, 21 ; ` a b c .byte 21, 21, 21, 21 ; d e f g .byte 21, 21, 21, 21 ; h i j k .byte 21, 21, 21, 21 ; l m n o .byte 21, 21, 21, 21 ; p q r s .byte 21, 21, 21, 21 ; t u v w .byte 21, 21, 21, 21 ; x y z { .byte 21, 21, 21, 21 ; | } ~  ; .page .sbttl ---- dqlitb ---- ;----------------------------------------------------------------------- ; ; ; begin dqlitb ; for(dquote) stop ; else contin ; end dqlitb dqlitb:: .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 2, 0 ; ! " # .byte 0, 0, 0, 0 ; $ % & ' .byte 0, 0, 0, 0 ; ( ) * + .byte 0, 0, 0, 0 ; , - . / .byte 0, 0, 0, 0 ; 0 1 2 3 .byte 0, 0, 0, 0 ; 4 5 6 7 .byte 0, 0, 0, 0 ; 8 9 : ; .byte 0, 0, 0, 0 ; < = > ? .byte 0, 0, 0, 0 ; @ A B C .byte 0, 0, 0, 0 ; D E F G .byte 0, 0, 0, 0 ; H I J K .byte 0, 0, 0, 0 ; L M N O .byte 0, 0, 0, 0 ; P Q R S .byte 0, 0, 0, 0 ; T U V W .byte 0, 0, 0, 0 ; X Y Z [ .byte 0, 0, 0, 0 ; \ ] ^ _ .byte 0, 0, 0, 0 ; ` a b c .byte 0, 0, 0, 0 ; d e f g .byte 0, 0, 0, 0 ; h i j k .byte 0, 0, 0, 0 ; l m n o .byte 0, 0, 0, 0 ; p q r s .byte 0, 0, 0, 0 ; t u v w .byte 0, 0, 0, 0 ; x y z { .byte 0, 0, 0, 0 ; | } ~  ; .page .sbttl ---- elemtb ---- ;----------------------------------------------------------------------- ; ; ; begin elemtb ; for(number) put(ilityp) goto(intgtb) ; for(letter) put(vartyp) goto(vartb) ; for(squote) put(qlityp) goto(sqlitb) ; for(dquote) put(qlityp) goto(dqlitb) ; for(leftparen) put(nsttyp) stop ; else error ; end elemtb elemtb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 25, 1 ; ! " # .byte 1, 1, 1, 24 ; $ % & ' .byte 26, 1, 1, 1 ; ( ) * + .byte 1, 1, 1, 1 ; , - . / .byte 22, 22, 22, 22 ; 0 1 2 3 .byte 22, 22, 22, 22 ; 4 5 6 7 .byte 22, 22, 1, 1 ; 8 9 : ; .byte 1, 1, 1, 1 ; < = > ? .byte 1, 23, 23, 23 ; @ A B C .byte 23, 23, 23, 23 ; D E F G .byte 23, 23, 23, 23 ; H I J K .byte 23, 23, 23, 23 ; L M N O .byte 23, 23, 23, 23 ; P Q R S .byte 23, 23, 23, 23 ; T U V W .byte 23, 23, 23, 1 ; X Y Z [ .byte 1, 1, 1, 1 ; \ ] ^ _ .byte 1, 23, 23, 23 ; ` a b c .byte 23, 23, 23, 23 ; d e f g .byte 23, 23, 23, 23 ; h i j k .byte 23, 23, 23, 23 ; l m n o .byte 23, 23, 23, 23 ; p q r s .byte 23, 23, 23, 23 ; t u v w .byte 23, 23, 23, 1 ; x y z { .byte 1, 1, 1, 1 ; | } ~  ; .page .sbttl ---- eostb ---- ;----------------------------------------------------------------------- ; ; ; begin eostb ; for(eos) stop ; else contin ; end eostb eostb:: .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; ! " # .byte 0, 0, 0, 0 ; $ % & ' .byte 0, 0, 0, 0 ; ( ) * + .byte 0, 0, 0, 0 ; , - . / .byte 0, 0, 0, 0 ; 0 1 2 3 .byte 0, 0, 0, 0 ; 4 5 6 7 .byte 0, 0, 0, 2 ; 8 9 : ; .byte 0, 0, 0, 0 ; < = > ? .byte 0, 0, 0, 0 ; @ A B C .byte 0, 0, 0, 0 ; D E F G .byte 0, 0, 0, 0 ; H I J K .byte 0, 0, 0, 0 ; L M N O .byte 0, 0, 0, 0 ; P Q R S .byte 0, 0, 0, 0 ; T U V W .byte 0, 0, 0, 0 ; X Y Z [ .byte 0, 0, 0, 0 ; \ ] ^ _ .byte 0, 0, 0, 0 ; ` a b c .byte 0, 0, 0, 0 ; d e f g .byte 0, 0, 0, 0 ; h i j k .byte 0, 0, 0, 0 ; l m n o .byte 0, 0, 0, 0 ; p q r s .byte 0, 0, 0, 0 ; t u v w .byte 0, 0, 0, 0 ; x y z { .byte 0, 0, 0, 0 ; | } ~  ; .page .sbttl ---- flitb ---- ;----------------------------------------------------------------------- ; ; ; begin flitb ; for(number) contin ; for(terminator) stopsh ; else error ; end flitb flitb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 3, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 3, 1, 1, 1 ; ! " # .byte 1, 1, 1, 1 ; $ % & ' .byte 1, 3, 1, 1 ; ( ) * + .byte 3, 1, 1, 1 ; , - . / .byte 0, 0, 0, 0 ; 0 1 2 3 .byte 0, 0, 0, 0 ; 4 5 6 7 .byte 0, 0, 1, 3 ; 8 9 : ; .byte 1, 1, 3, 1 ; < = > ? .byte 1, 1, 1, 1 ; @ A B C .byte 1, 1, 1, 1 ; D E F G .byte 1, 1, 1, 1 ; H I J K .byte 1, 1, 1, 1 ; L M N O .byte 1, 1, 1, 1 ; P Q R S .byte 1, 1, 1, 1 ; T U V W .byte 1, 1, 1, 1 ; X Y Z [ .byte 1, 3, 1, 1 ; \ ] ^ _ .byte 1, 1, 1, 1 ; ` a b c .byte 1, 1, 1, 1 ; d e f g .byte 1, 1, 1, 1 ; h i j k .byte 1, 1, 1, 1 ; l m n o .byte 1, 1, 1, 1 ; p q r s .byte 1, 1, 1, 1 ; t u v w .byte 1, 1, 1, 1 ; x y z { .byte 1, 1, 1, 1 ; | } ~  ; .page .sbttl ---- frwdtb ---- ;----------------------------------------------------------------------- ; ; ; begin frwdtb ; for(blank) contin ; for(equal) put(eqtyp) stop ; for(rightparen) put(rptyp) stop ; for(rightbr) put(rbtyp) stop ; for(comma) put(cmatyp) stop ; for(colon) put(clntyp) stop ; for(eos) put(eostyp) stop ; else put(nbtyp) stopsh ; end frwdtb frwdtb:: .byte 33, 33, 33, 33 ; .byte 33, 33, 33, 33 ; .byte 33, 0, 33, 33 ; .byte 33, 33, 33, 33 ; .byte 33, 33, 33, 33 ; .byte 33, 33, 33, 33 ; .byte 33, 33, 33, 33 ; .byte 33, 33, 33, 33 ; .byte 0, 33, 33, 33 ; ! " # .byte 33, 33, 33, 33 ; $ % & ' .byte 33, 28, 33, 33 ; ( ) * + .byte 30, 33, 33, 33 ; , - . / .byte 33, 33, 33, 33 ; 0 1 2 3 .byte 33, 33, 33, 33 ; 4 5 6 7 .byte 33, 33, 31, 32 ; 8 9 : ; .byte 33, 27, 29, 33 ; < = > ? .byte 33, 33, 33, 33 ; @ A B C .byte 33, 33, 33, 33 ; D E F G .byte 33, 33, 33, 33 ; H I J K .byte 33, 33, 33, 33 ; L M N O .byte 33, 33, 33, 33 ; P Q R S .byte 33, 33, 33, 33 ; T U V W .byte 33, 33, 33, 33 ; X Y Z [ .byte 33, 29, 33, 33 ; \ ] ^ _ .byte 33, 33, 33, 33 ; ` a b c .byte 33, 33, 33, 33 ; d e f g .byte 33, 33, 33, 33 ; h i j k .byte 33, 33, 33, 33 ; l m n o .byte 33, 33, 33, 33 ; p q r s .byte 33, 33, 33, 33 ; t u v w .byte 33, 33, 33, 33 ; x y z { .byte 33, 33, 33, 33 ; | } ~  ; .page .sbttl ---- gotftb ---- ;----------------------------------------------------------------------- ; ; ; begin gotftb ; for(leftparen) put(fgotyp) stop ; for(leftbr) put(ftotyp) stop ; else error ; end gotftb gotftb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; ! " # .byte 1, 1, 1, 1 ; $ % & ' .byte 34, 1, 1, 1 ; ( ) * + .byte 1, 1, 1, 1 ; , - . / .byte 1, 1, 1, 1 ; 0 1 2 3 .byte 1, 1, 1, 1 ; 4 5 6 7 .byte 1, 1, 1, 1 ; 8 9 : ; .byte 35, 1, 1, 1 ; < = > ? .byte 1, 1, 1, 1 ; @ A B C .byte 1, 1, 1, 1 ; D E F G .byte 1, 1, 1, 1 ; H I J K .byte 1, 1, 1, 1 ; L M N O .byte 1, 1, 1, 1 ; P Q R S .byte 1, 1, 1, 1 ; T U V W .byte 1, 1, 1, 35 ; X Y Z [ .byte 1, 1, 1, 1 ; \ ] ^ _ .byte 1, 1, 1, 1 ; ` a b c .byte 1, 1, 1, 1 ; d e f g .byte 1, 1, 1, 1 ; h i j k .byte 1, 1, 1, 1 ; l m n o .byte 1, 1, 1, 1 ; p q r s .byte 1, 1, 1, 1 ; t u v w .byte 1, 1, 1, 1 ; x y z { .byte 1, 1, 1, 1 ; | } ~  ; .page .sbttl ---- gototb ---- ;----------------------------------------------------------------------- ; ; ; begin gototb ; for(sgosym) goto(gotstb) ; for(fgosym) goto(gotftb) ; for(leftparen) put(ugotyp) stop ; for(leftbr) put(utotyp) stop ; else error ; end gototb gototb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; ! " # .byte 1, 1, 1, 1 ; $ % & ' .byte 38, 1, 1, 1 ; ( ) * + .byte 1, 1, 1, 1 ; , - . / .byte 1, 1, 1, 1 ; 0 1 2 3 .byte 1, 1, 1, 1 ; 4 5 6 7 .byte 1, 1, 1, 1 ; 8 9 : ; .byte 39, 1, 1, 1 ; < = > ? .byte 1, 1, 1, 1 ; @ A B C .byte 1, 1, 1, 1 ; D E F G .byte 1, 1, 1, 1 ; H I J K .byte 1, 1, 1, 1 ; L M N O .byte 1, 1, 1, 1 ; P Q R S .byte 1, 1, 1, 1 ; T U V W .byte 1, 1, 1, 39 ; X Y Z [ .byte 1, 1, 1, 1 ; \ ] ^ _ .byte 1, 1, 1, 1 ; ` a b c .byte 1, 1, 37, 1 ; d e f g .byte 1, 1, 1, 1 ; h i j k .byte 1, 1, 1, 1 ; l m n o .byte 1, 1, 1, 36 ; p q r s .byte 1, 1, 1, 1 ; t u v w .byte 1, 1, 1, 1 ; x y z { .byte 1, 1, 1, 1 ; | } ~  ; .page .sbttl ---- gotstb ---- ;----------------------------------------------------------------------- ; ; ; begin gotstb ; for(leftparen) put(sgotyp) stop ; for(leftbr) put(stotyp) stop ; else error ; end gotstb gotstb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; ! " # .byte 1, 1, 1, 1 ; $ % & ' .byte 40, 1, 1, 1 ; ( ) * + .byte 1, 1, 1, 1 ; , - . / .byte 1, 1, 1, 1 ; 0 1 2 3 .byte 1, 1, 1, 1 ; 4 5 6 7 .byte 1, 1, 1, 1 ; 8 9 : ; .byte 41, 1, 1, 1 ; < = > ? .byte 1, 1, 1, 1 ; @ A B C .byte 1, 1, 1, 1 ; D E F G .byte 1, 1, 1, 1 ; H I J K .byte 1, 1, 1, 1 ; L M N O .byte 1, 1, 1, 1 ; P Q R S .byte 1, 1, 1, 1 ; T U V W .byte 1, 1, 1, 41 ; X Y Z [ .byte 1, 1, 1, 1 ; \ ] ^ _ .byte 1, 1, 1, 1 ; ` a b c .byte 1, 1, 1, 1 ; d e f g .byte 1, 1, 1, 1 ; h i j k .byte 1, 1, 1, 1 ; l m n o .byte 1, 1, 1, 1 ; p q r s .byte 1, 1, 1, 1 ; t u v w .byte 1, 1, 1, 1 ; x y z { .byte 1, 1, 1, 1 ; | } ~  ; .page .sbttl ---- iblktb ---- ;----------------------------------------------------------------------- ; ; ; begin iblktb ; for(blank) goto(frwdtb) ; for(eos) put(eostyp) stop ; else error ; end iblktb iblktb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 42, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 42, 1, 1, 1 ; ! " # .byte 1, 1, 1, 1 ; $ % & ' .byte 1, 1, 1, 1 ; ( ) * + .byte 1, 1, 1, 1 ; , - . / .byte 1, 1, 1, 1 ; 0 1 2 3 .byte 1, 1, 1, 1 ; 4 5 6 7 .byte 1, 1, 1, 32 ; 8 9 : ; .byte 1, 1, 1, 1 ; < = > ? .byte 1, 1, 1, 1 ; @ A B C .byte 1, 1, 1, 1 ; D E F G .byte 1, 1, 1, 1 ; H I J K .byte 1, 1, 1, 1 ; L M N O .byte 1, 1, 1, 1 ; P Q R S .byte 1, 1, 1, 1 ; T U V W .byte 1, 1, 1, 1 ; X Y Z [ .byte 1, 1, 1, 1 ; \ ] ^ _ .byte 1, 1, 1, 1 ; ` a b c .byte 1, 1, 1, 1 ; d e f g .byte 1, 1, 1, 1 ; h i j k .byte 1, 1, 1, 1 ; l m n o .byte 1, 1, 1, 1 ; p q r s .byte 1, 1, 1, 1 ; t u v w .byte 1, 1, 1, 1 ; x y z { .byte 1, 1, 1, 1 ; | } ~  ; .page .sbttl ---- intgtb ---- ;----------------------------------------------------------------------- ; ; ; begin intgtb ; for(number) contin ; for(terminator) put(ilityp) stopsh ; for(dot) put(flityp) goto(flitb) ; else error ; end intgtb intgtb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 43, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 43, 1, 1, 1 ; ! " # .byte 1, 1, 1, 1 ; $ % & ' .byte 1, 43, 1, 1 ; ( ) * + .byte 43, 1, 44, 1 ; , - . / .byte 0, 0, 0, 0 ; 0 1 2 3 .byte 0, 0, 0, 0 ; 4 5 6 7 .byte 0, 0, 1, 43 ; 8 9 : ; .byte 1, 1, 43, 1 ; < = > ? .byte 1, 1, 1, 1 ; @ A B C .byte 1, 1, 1, 1 ; D E F G .byte 1, 1, 1, 1 ; H I J K .byte 1, 1, 1, 1 ; L M N O .byte 1, 1, 1, 1 ; P Q R S .byte 1, 1, 1, 1 ; T U V W .byte 1, 1, 1, 1 ; X Y Z [ .byte 1, 43, 1, 1 ; \ ] ^ _ .byte 1, 1, 1, 1 ; ` a b c .byte 1, 1, 1, 1 ; d e f g .byte 1, 1, 1, 1 ; h i j k .byte 1, 1, 1, 1 ; l m n o .byte 1, 1, 1, 1 ; p q r s .byte 1, 1, 1, 1 ; t u v w .byte 1, 1, 1, 1 ; x y z { .byte 1, 1, 1, 1 ; | } ~  ; .page .sbttl ---- lbltb ---- ;----------------------------------------------------------------------- ; ; ; begin lbltb ; for(alphanumeric) goto(lblxtb) ; for(blank,eos) stopsh ; else error ; end lbltb lbltb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 3, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 3, 1, 1, 1 ; ! " # .byte 1, 1, 1, 1 ; $ % & ' .byte 1, 1, 1, 1 ; ( ) * + .byte 1, 1, 1, 1 ; , - . / .byte 45, 45, 45, 45 ; 0 1 2 3 .byte 45, 45, 45, 45 ; 4 5 6 7 .byte 45, 45, 1, 3 ; 8 9 : ; .byte 1, 1, 1, 1 ; < = > ? .byte 1, 45, 45, 45 ; @ A B C .byte 45, 45, 45, 45 ; D E F G .byte 45, 45, 45, 45 ; H I J K .byte 45, 45, 45, 45 ; L M N O .byte 45, 45, 45, 45 ; P Q R S .byte 45, 45, 45, 45 ; T U V W .byte 45, 45, 45, 1 ; X Y Z [ .byte 1, 1, 1, 1 ; \ ] ^ _ .byte 1, 45, 45, 45 ; ` a b c .byte 45, 45, 45, 45 ; d e f g .byte 45, 45, 45, 45 ; h i j k .byte 45, 45, 45, 45 ; l m n o .byte 45, 45, 45, 45 ; p q r s .byte 45, 45, 45, 45 ; t u v w .byte 45, 45, 45, 1 ; x y z { .byte 1, 1, 1, 1 ; | } ~  ; .page .sbttl ---- lblxtb ---- ;----------------------------------------------------------------------- ; ; ; begin lblxtb ; for(blank,eos) stopsh ; else contin ; end lblxtb lblxtb:: .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 3, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 3, 0, 0, 0 ; ! " # .byte 0, 0, 0, 0 ; $ % & ' .byte 0, 0, 0, 0 ; ( ) * + .byte 0, 0, 0, 0 ; , - . / .byte 0, 0, 0, 0 ; 0 1 2 3 .byte 0, 0, 0, 0 ; 4 5 6 7 .byte 0, 0, 0, 3 ; 8 9 : ; .byte 0, 0, 0, 0 ; < = > ? .byte 0, 0, 0, 0 ; @ A B C .byte 0, 0, 0, 0 ; D E F G .byte 0, 0, 0, 0 ; H I J K .byte 0, 0, 0, 0 ; L M N O .byte 0, 0, 0, 0 ; P Q R S .byte 0, 0, 0, 0 ; T U V W .byte 0, 0, 0, 0 ; X Y Z [ .byte 0, 0, 0, 0 ; \ ] ^ _ .byte 0, 0, 0, 0 ; ` a b c .byte 0, 0, 0, 0 ; d e f g .byte 0, 0, 0, 0 ; h i j k .byte 0, 0, 0, 0 ; l m n o .byte 0, 0, 0, 0 ; p q r s .byte 0, 0, 0, 0 ; t u v w .byte 0, 0, 0, 0 ; x y z { .byte 0, 0, 0, 0 ; | } ~  ; .page .sbttl ---- nblktb ---- ;----------------------------------------------------------------------- ; ; ; begin nblktb ; for(terminator) error ; else stopsh ; end nblktb nblktb:: .byte 3, 3, 3, 3 ; .byte 3, 3, 3, 3 ; .byte 3, 1, 3, 3 ; .byte 3, 3, 3, 3 ; .byte 3, 3, 3, 3 ; .byte 3, 3, 3, 3 ; .byte 3, 3, 3, 3 ; .byte 3, 3, 3, 3 ; .byte 1, 3, 3, 3 ; ! " # .byte 3, 3, 3, 3 ; $ % & ' .byte 3, 1, 3, 3 ; ( ) * + .byte 1, 3, 3, 3 ; , - . / .byte 3, 3, 3, 3 ; 0 1 2 3 .byte 3, 3, 3, 3 ; 4 5 6 7 .byte 3, 3, 3, 1 ; 8 9 : ; .byte 3, 3, 1, 3 ; < = > ? .byte 3, 3, 3, 3 ; @ A B C .byte 3, 3, 3, 3 ; D E F G .byte 3, 3, 3, 3 ; H I J K .byte 3, 3, 3, 3 ; L M N O .byte 3, 3, 3, 3 ; P Q R S .byte 3, 3, 3, 3 ; T U V W .byte 3, 3, 3, 3 ; X Y Z [ .byte 3, 1, 3, 3 ; \ ] ^ _ .byte 3, 3, 3, 3 ; ` a b c .byte 3, 3, 3, 3 ; d e f g .byte 3, 3, 3, 3 ; h i j k .byte 3, 3, 3, 3 ; l m n o .byte 3, 3, 3, 3 ; p q r s .byte 3, 3, 3, 3 ; t u v w .byte 3, 3, 3, 3 ; x y z { .byte 3, 3, 3, 3 ; | } ~  ; .page .sbttl ---- numbtb ---- ;----------------------------------------------------------------------- ; ; ; begin numbtb ; for(number) goto(numctb) ; for(plus,minus) goto(numctb) ; for(comma) put(cmatyp) stopsh ; for(colon) put(dimtyp) stopsh ; else error ; end numbtb numbtb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; ! " # .byte 1, 1, 1, 1 ; $ % & ' .byte 1, 1, 1, 46 ; ( ) * + .byte 47, 46, 1, 1 ; , - . / .byte 46, 46, 46, 46 ; 0 1 2 3 .byte 46, 46, 46, 46 ; 4 5 6 7 .byte 46, 46, 48, 1 ; 8 9 : ; .byte 1, 1, 1, 1 ; < = > ? .byte 1, 1, 1, 1 ; @ A B C .byte 1, 1, 1, 1 ; D E F G .byte 1, 1, 1, 1 ; H I J K .byte 1, 1, 1, 1 ; L M N O .byte 1, 1, 1, 1 ; P Q R S .byte 1, 1, 1, 1 ; T U V W .byte 1, 1, 1, 1 ; X Y Z [ .byte 1, 1, 1, 1 ; \ ] ^ _ .byte 1, 1, 1, 1 ; ` a b c .byte 1, 1, 1, 1 ; d e f g .byte 1, 1, 1, 1 ; h i j k .byte 1, 1, 1, 1 ; l m n o .byte 1, 1, 1, 1 ; p q r s .byte 1, 1, 1, 1 ; t u v w .byte 1, 1, 1, 1 ; x y z { .byte 1, 1, 1, 1 ; | } ~  ; .page .sbttl ---- numctb ---- ;----------------------------------------------------------------------- ; ; ; begin numctb ; for(number) contin ; for(comma) put(cmatyp) stopsh ; for(colon) put(dimtyp) stopsh ; else error ; end numctb numctb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; ! " # .byte 1, 1, 1, 1 ; $ % & ' .byte 1, 1, 1, 1 ; ( ) * + .byte 47, 1, 1, 1 ; , - . / .byte 0, 0, 0, 0 ; 0 1 2 3 .byte 0, 0, 0, 0 ; 4 5 6 7 .byte 0, 0, 48, 1 ; 8 9 : ; .byte 1, 1, 1, 1 ; < = > ? .byte 1, 1, 1, 1 ; @ A B C .byte 1, 1, 1, 1 ; D E F G .byte 1, 1, 1, 1 ; H I J K .byte 1, 1, 1, 1 ; L M N O .byte 1, 1, 1, 1 ; P Q R S .byte 1, 1, 1, 1 ; T U V W .byte 1, 1, 1, 1 ; X Y Z [ .byte 1, 1, 1, 1 ; \ ] ^ _ .byte 1, 1, 1, 1 ; ` a b c .byte 1, 1, 1, 1 ; d e f g .byte 1, 1, 1, 1 ; h i j k .byte 1, 1, 1, 1 ; l m n o .byte 1, 1, 1, 1 ; p q r s .byte 1, 1, 1, 1 ; t u v w .byte 1, 1, 1, 1 ; x y z { .byte 1, 1, 1, 1 ; | } ~  ; .page .sbttl ---- snabtb ---- ;----------------------------------------------------------------------- ; ; ; begin snabtb ; for(fgosym) stop ; for(sgosym) stopsh ; else error ; end snabtb snabtb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; ! " # .byte 1, 1, 1, 1 ; $ % & ' .byte 1, 1, 1, 1 ; ( ) * + .byte 1, 1, 1, 1 ; , - . / .byte 1, 1, 1, 1 ; 0 1 2 3 .byte 1, 1, 1, 1 ; 4 5 6 7 .byte 1, 1, 1, 1 ; 8 9 : ; .byte 1, 1, 1, 1 ; < = > ? .byte 1, 1, 1, 1 ; @ A B C .byte 1, 1, 1, 1 ; D E F G .byte 1, 1, 1, 1 ; H I J K .byte 1, 1, 1, 1 ; L M N O .byte 1, 1, 1, 1 ; P Q R S .byte 1, 1, 1, 1 ; T U V W .byte 1, 1, 1, 1 ; X Y Z [ .byte 1, 1, 1, 1 ; \ ] ^ _ .byte 1, 1, 1, 1 ; ` a b c .byte 1, 1, 2, 1 ; d e f g .byte 1, 1, 1, 1 ; h i j k .byte 1, 1, 1, 1 ; l m n o .byte 1, 1, 1, 3 ; p q r s .byte 1, 1, 1, 1 ; t u v w .byte 1, 1, 1, 1 ; x y z { .byte 1, 1, 1, 1 ; | } ~  ; .page .sbttl ---- sqlitb ---- ;----------------------------------------------------------------------- ; ; ; begin sqlitb ; for(squote) stop ; else contin ; end sqlitb sqlitb:: .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; .byte 0, 0, 0, 0 ; ! " # .byte 0, 0, 0, 2 ; $ % & ' .byte 0, 0, 0, 0 ; ( ) * + .byte 0, 0, 0, 0 ; , - . / .byte 0, 0, 0, 0 ; 0 1 2 3 .byte 0, 0, 0, 0 ; 4 5 6 7 .byte 0, 0, 0, 0 ; 8 9 : ; .byte 0, 0, 0, 0 ; < = > ? .byte 0, 0, 0, 0 ; @ A B C .byte 0, 0, 0, 0 ; D E F G .byte 0, 0, 0, 0 ; H I J K .byte 0, 0, 0, 0 ; L M N O .byte 0, 0, 0, 0 ; P Q R S .byte 0, 0, 0, 0 ; T U V W .byte 0, 0, 0, 0 ; X Y Z [ .byte 0, 0, 0, 0 ; \ ] ^ _ .byte 0, 0, 0, 0 ; ` a b c .byte 0, 0, 0, 0 ; d e f g .byte 0, 0, 0, 0 ; h i j k .byte 0, 0, 0, 0 ; l m n o .byte 0, 0, 0, 0 ; p q r s .byte 0, 0, 0, 0 ; t u v w .byte 0, 0, 0, 0 ; x y z { .byte 0, 0, 0, 0 ; | } ~  ; .page .sbttl ---- startb ---- ;----------------------------------------------------------------------- ; ; ; begin startb ; for(blank) stop ; for(star) put(expfn) goto(tblktb) ; else error ; end startb startb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 2, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 2, 1, 1, 1 ; ! " # .byte 1, 1, 1, 1 ; $ % & ' .byte 1, 1, 13, 1 ; ( ) * + .byte 1, 1, 1, 1 ; , - . / .byte 1, 1, 1, 1 ; 0 1 2 3 .byte 1, 1, 1, 1 ; 4 5 6 7 .byte 1, 1, 1, 1 ; 8 9 : ; .byte 1, 1, 1, 1 ; < = > ? .byte 1, 1, 1, 1 ; @ A B C .byte 1, 1, 1, 1 ; D E F G .byte 1, 1, 1, 1 ; H I J K .byte 1, 1, 1, 1 ; L M N O .byte 1, 1, 1, 1 ; P Q R S .byte 1, 1, 1, 1 ; T U V W .byte 1, 1, 1, 1 ; X Y Z [ .byte 1, 1, 1, 1 ; \ ] ^ _ .byte 1, 1, 1, 1 ; ` a b c .byte 1, 1, 1, 1 ; d e f g .byte 1, 1, 1, 1 ; h i j k .byte 1, 1, 1, 1 ; l m n o .byte 1, 1, 1, 1 ; p q r s .byte 1, 1, 1, 1 ; t u v w .byte 1, 1, 1, 1 ; x y z { .byte 1, 1, 1, 1 ; | } ~  ; .page .sbttl ---- tblktb ---- ;----------------------------------------------------------------------- ; ; ; begin tblktb ; for(blank) stop ; else error ; end tblktb tblktb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 2, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 2, 1, 1, 1 ; ! " # .byte 1, 1, 1, 1 ; $ % & ' .byte 1, 1, 1, 1 ; ( ) * + .byte 1, 1, 1, 1 ; , - . / .byte 1, 1, 1, 1 ; 0 1 2 3 .byte 1, 1, 1, 1 ; 4 5 6 7 .byte 1, 1, 1, 1 ; 8 9 : ; .byte 1, 1, 1, 1 ; < = > ? .byte 1, 1, 1, 1 ; @ A B C .byte 1, 1, 1, 1 ; D E F G .byte 1, 1, 1, 1 ; H I J K .byte 1, 1, 1, 1 ; L M N O .byte 1, 1, 1, 1 ; P Q R S .byte 1, 1, 1, 1 ; T U V W .byte 1, 1, 1, 1 ; X Y Z [ .byte 1, 1, 1, 1 ; \ ] ^ _ .byte 1, 1, 1, 1 ; ` a b c .byte 1, 1, 1, 1 ; d e f g .byte 1, 1, 1, 1 ; h i j k .byte 1, 1, 1, 1 ; l m n o .byte 1, 1, 1, 1 ; p q r s .byte 1, 1, 1, 1 ; t u v w .byte 1, 1, 1, 1 ; x y z { .byte 1, 1, 1, 1 ; | } ~  ; .page .sbttl ---- unoptb ---- ;----------------------------------------------------------------------- ; ; ; begin unoptb ; for(plus) put(plsfn) goto(nblktb) ; for(minus) put(mnsfn) goto(nblktb) ; for(dot) put(dotfn) goto(nblktb) ; for(dollar) put(indfn) goto(nblktb) ; for(star) put(strfn) goto(nblktb) ; for(slash) put(slhfn) goto(nblktb) ; for(percent) put(prfn) goto(nblktb) ; for(at) put(atfn) goto(nblktb) ; for(pound) put(pdfn) goto(nblktb) ; for(keysym) put(keyfn) goto(nblktb) ; for(notsym) put(negfn) goto(nblktb) ; for(orsym) put(barfn) goto(nblktb) ; for(quesym) put(quesfn) goto(nblktb) ; for(raise) put(arowfn) goto(nblktb) ; else error ; end unoptb unoptb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 60, 1, 57 ; ! " # .byte 52, 55, 58, 1 ; $ % & ' .byte 1, 1, 53, 49 ; ( ) * + .byte 1, 50, 51, 54 ; , - . / .byte 1, 1, 1, 1 ; 0 1 2 3 .byte 1, 1, 1, 1 ; 4 5 6 7 .byte 1, 1, 1, 1 ; 8 9 : ; .byte 1, 1, 1, 61 ; < = > ? .byte 56, 1, 1, 1 ; @ A B C .byte 1, 1, 1, 1 ; D E F G .byte 1, 1, 1, 1 ; H I J K .byte 1, 1, 1, 1 ; L M N O .byte 1, 1, 1, 1 ; P Q R S .byte 1, 1, 1, 1 ; T U V W .byte 1, 1, 1, 1 ; X Y Z [ .byte 1, 1, 62, 1 ; \ ] ^ _ .byte 1, 1, 1, 1 ; ` a b c .byte 1, 1, 1, 1 ; d e f g .byte 1, 1, 1, 1 ; h i j k .byte 1, 1, 1, 1 ; l m n o .byte 1, 1, 1, 1 ; p q r s .byte 1, 1, 1, 1 ; t u v w .byte 1, 1, 1, 1 ; x y z { .byte 60, 1, 59, 1 ; | } ~  ; .page .sbttl ---- varatb ---- ;----------------------------------------------------------------------- ; ; ; begin varatb ; for(letter) goto(varbtb) ; for(comma) put(cmatyp) stopsh ; for(rightparen) put(rptyp) stopsh ; else error ; end varatb varatb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; ! " # .byte 1, 1, 1, 1 ; $ % & ' .byte 1, 64, 1, 1 ; ( ) * + .byte 47, 1, 1, 1 ; , - . / .byte 1, 1, 1, 1 ; 0 1 2 3 .byte 1, 1, 1, 1 ; 4 5 6 7 .byte 1, 1, 1, 1 ; 8 9 : ; .byte 1, 1, 1, 1 ; < = > ? .byte 1, 63, 63, 63 ; @ A B C .byte 63, 63, 63, 63 ; D E F G .byte 63, 63, 63, 63 ; H I J K .byte 63, 63, 63, 63 ; L M N O .byte 63, 63, 63, 63 ; P Q R S .byte 63, 63, 63, 63 ; T U V W .byte 63, 63, 63, 1 ; X Y Z [ .byte 1, 1, 1, 1 ; \ ] ^ _ .byte 1, 63, 63, 63 ; ` a b c .byte 63, 63, 63, 63 ; d e f g .byte 63, 63, 63, 63 ; h i j k .byte 63, 63, 63, 63 ; l m n o .byte 63, 63, 63, 63 ; p q r s .byte 63, 63, 63, 63 ; t u v w .byte 63, 63, 63, 1 ; x y z { .byte 1, 1, 1, 1 ; | } ~  ; .page .sbttl ---- varbtb ---- ;----------------------------------------------------------------------- ; ; ; begin varbtb ; for(alphanumeric,break) contin ; for(leftparen) put(lptyp) stopsh ; for(comma) put(cmatyp) stopsh ; for(rightparen) put(rptyp) stopsh ; else error ; end varbtb varbtb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; ! " # .byte 1, 1, 1, 1 ; $ % & ' .byte 65, 64, 1, 1 ; ( ) * + .byte 47, 1, 0, 1 ; , - . / .byte 0, 0, 0, 0 ; 0 1 2 3 .byte 0, 0, 0, 0 ; 4 5 6 7 .byte 0, 0, 1, 1 ; 8 9 : ; .byte 1, 1, 1, 1 ; < = > ? .byte 1, 0, 0, 0 ; @ A B C .byte 0, 0, 0, 0 ; D E F G .byte 0, 0, 0, 0 ; H I J K .byte 0, 0, 0, 0 ; L M N O .byte 0, 0, 0, 0 ; P Q R S .byte 0, 0, 0, 0 ; T U V W .byte 0, 0, 0, 1 ; X Y Z [ .byte 1, 1, 1, 0 ; \ ] ^ _ .byte 1, 0, 0, 0 ; ` a b c .byte 0, 0, 0, 0 ; d e f g .byte 0, 0, 0, 0 ; h i j k .byte 0, 0, 0, 0 ; l m n o .byte 0, 0, 0, 0 ; p q r s .byte 0, 0, 0, 0 ; t u v w .byte 0, 0, 0, 1 ; x y z { .byte 1, 1, 1, 1 ; | } ~  ; .page .sbttl ---- vartb ---- ;----------------------------------------------------------------------- ; ; ; begin vartb ; for(alphanumeric,break) contin ; for(terminator) put(vartyp) stopsh ; for(leftparen) put(fnctyp) stop ; for(leftbr) put(arytyp) stop ; else error ; end vartb vartb:: .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 66, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 1, 1, 1, 1 ; .byte 66, 1, 1, 1 ; ! " # .byte 1, 1, 1, 1 ; $ % & ' .byte 67, 66, 1, 1 ; ( ) * + .byte 66, 1, 0, 1 ; , - . / .byte 0, 0, 0, 0 ; 0 1 2 3 .byte 0, 0, 0, 0 ; 4 5 6 7 .byte 0, 0, 1, 66 ; 8 9 : ; .byte 68, 1, 66, 1 ; < = > ? .byte 1, 0, 0, 0 ; @ A B C .byte 0, 0, 0, 0 ; D E F G .byte 0, 0, 0, 0 ; H I J K .byte 0, 0, 0, 0 ; L M N O .byte 0, 0, 0, 0 ; P Q R S .byte 0, 0, 0, 0 ; T U V W .byte 0, 0, 0, 68 ; X Y Z [ .byte 1, 66, 1, 0 ; \ ] ^ _ .byte 1, 0, 0, 0 ; ` a b c .byte 0, 0, 0, 0 ; d e f g .byte 0, 0, 0, 0 ; h i j k .byte 0, 0, 0, 0 ; l m n o .byte 0, 0, 0, 0 ; p q r s .byte 0, 0, 0, 0 ; t u v w .byte 0, 0, 0, 1 ; x y z { .byte 1, 1, 1, 1 ; | } ~  ; ; .page .sbttl ---- vector pool ---- ;----------------------------------------------------------------------- ; ; synvec:: .long contin,0 ; 0 .long error,0 ; 1 .long stop,0 ; 2 .long stopsh,0 ; 3 .long tblktb,addfn ; 4 .long tblktb,subfn ; 5 .long tblktb,namfn ; 6 .long tblktb,dolfn ; 7 .long startb,mpyfn ; 8 .long tblktb,divfn ; 9 .long tblktb,biatfn ; 10 .long tblktb,bipdfn ; 11 .long tblktb,biprfn ; 12 .long tblktb,expfn ; 13 .long tblktb,orfn ; 14 .long tblktb,biamfn ; 15 .long tblktb,bingfn ; 16 .long tblktb,biqsfn ; 17 .long stopsh,cmttyp ; 18 .long stopsh,ctltyp ; 19 .long stopsh,cnttyp ; 20 .long stopsh,newtyp ; 21 .long intgtb,ilityp ; 22 .long vartb,vartyp ; 23 .long sqlitb,qlityp ; 24 .long dqlitb,qlityp ; 25 .long stop,nsttyp ; 26 .long stop,eqtyp ; 27 .long stop,rptyp ; 28 .long stop,rbtyp ; 29 .long stop,cmatyp ; 30 .long stop,clntyp ; 31 .long stop,eostyp ; 32 .long stopsh,nbtyp ; 33 .long stop,fgotyp ; 34 .long stop,ftotyp ; 35 .long gotstb,0 ; 36 .long gotftb,0 ; 37 .long stop,ugotyp ; 38 .long stop,utotyp ; 39 .long stop,sgotyp ; 40 .long stop,stotyp ; 41 .long frwdtb,0 ; 42 .long stopsh,ilityp ; 43 .long flitb,flityp ; 44 .long lblxtb,0 ; 45 .long numctb,0 ; 46 .long stopsh,cmatyp ; 47 .long stopsh,dimtyp ; 48 .long nblktb,plsfn ; 49 .long nblktb,mnsfn ; 50 .long nblktb,dotfn ; 51 .long nblktb,indfn ; 52 .long nblktb,strfn ; 53 .long nblktb,slhfn ; 54 .long nblktb,prfn ; 55 .long nblktb,atfn ; 56 .long nblktb,pdfn ; 57 .long nblktb,keyfn ; 58 .long nblktb,negfn ; 59 .long nblktb,barfn ; 60 .long nblktb,quesfn ; 61 .long nblktb,arowfn ; 62 .long varbtb,0 ; 63 .long stopsh,rptyp ; 64 .long stopsh,lptyp ; 65 .long stopsh,vartyp ; 66 .long stop,fnctyp ; 67 .long stop,arytyp ; 68 .sbttl ---- ---- ;----------------------------------------------------------------------- ; ; .end