         NAM 53,TESTBN
         DEF RUNTIM
         DEF ASCIIS
         DEF PARSE
         DEF ERMSG
         DEF INIT
RUNTIM   BYT 0,0
         DEF ADM.
         DEF SBM.
         DEF INC.
         DEF DEC.
         DEF NOT.
         DEF NEG.
PARSE    BYT 0,0
         BYT 0,0
         BYT 0,0
         BYT 0,0
         BYT 0,0
         BYT 0,0
         BYT 0,0
         BYT 377,377
ASCIIS   ASP "ADM"
         ASP "SBM"
         ASP "INC"
         ASP "DEC"
         ASP "NOT"
         ASP "NEG"
ERMSG    BYT 377
INIT     RTN
         BYT 040,056      ! string function 2 numericals parameters
ADM.     BIN
         JSB =ONER
         JSB =CONINT
         PUMD R76,+R6
         JSB =ONER
         JSB =CONINT
         POMD R66,-R6
         BCD
         ADM R66,R76
         JMP TOHEX
         BYT 040,056      ! string function 2 numerical parameters
SBM.     BIN
         JSB =ONER
         JSB =CONINT
         PUMD R76,+R6
         JSB =ONER
         JSB =CONINT
         POMD R66,-R6
         BCD
         SBM R66,R76
TOHEX    BIN
         LDM R56,=DATA-
         ADMD R56,=BINTAB
         LDB R20,=004
LOOP     BCD
         ELM R66
         CLB R21
         ELB R21
         BIN
         ADB R21,=060
         CMB R21,=072
         JNC OK 
         ADB R21,=007
OK       PUBD R21,-R56
         DCB R20
         JNZ LOOP
         LDM R43,=04D,0
         DEF DATA-
         BYT 0
         ADMD R45,=BINTAB
         PUMD R43,+R12
         RTN
         BYT 020,056      ! string function 1 numerical parameter
INC.     BIN
         JSB =ONER
         JSB =CONINT
         LDM R66,R76
         BCD
         ICM R66
         JMP TOHEX
         BYT 020,056      ! string function 1 numerical parameter
DEC.     BIN
         JSB =ONER
         JSB =CONINT
         LDM R66,R76
         BCD
         DCM R66
         JMP TOHEX
         BYT 020,056      ! string function 1 numerical parameter
NOT.     BIN
         JSB =ONER
         JSB =CONINT
         LDM R66,R76
         BCD
         NCM R66
         JMP TOHEX
         BYT 020,056      ! string function 1 numerical parameter
NEG.     BIN
         JSB =ONER
         JSB =CONINT
         LDM R66,R76
         BCD
         TCM R66
         JMP TOHEX
DATA     BSZ 020
DATA-    BSZ 0
CONBIN   DAD 4401
CONINT   DAD 45116
ONER     DAD 56777
BINTAB   DAD 104070
         FIN
