title patches
        intern newpat,delpat,armpat,arlpat,scbpat,forpat
acs:    block   16
acsr:   block   13
valcell: 0
loccell: 0
p ←← 17
        extern gogtab,racs,prtall,prtdel,datm,uuo1,restr
newpat: setzm   @datm           ; instruction replaced with pushj p,newpat
        movem   3,valcell       ; value to be printed
;
        movem   15,acs+15       ; save acs
        hrrzi   15,acs
        blt     15,acs+14
; save racs
        move    15,gogtab
        move    3,uuo1(15)      ; address of caller
        hrrzm   3,loccell
        hrli    15,racs(15)
        hrri    15,acsr
        blt     15,acsr+12
        push    p,valcell
        push    p,loccell
        pushj   p,prtall
        move    15,gogtab
	move	3,loccell
	movem	3,uuo1(15)
        hrri    14,racs(15)
        hrli    14,acsr
        blt     14,racs+12(15)
        hrlzi   15,acs
        blt     15,15
        popj    p,
delpat: move	3,-1(17)		; instruction replaced with pushj p,delpat
        movem   3,valcell       ; value to be printed
;
        movem   15,acs+15       ; save acs
        hrrzi   15,acs
        blt     15,acs+14
; save racs
        move    15,gogtab
        move    3,uuo1(15)      ; address of caller
        hrrzm   3,loccell
        hrli    15,racs(15)
        hrri    15,acsr
        blt     15,acsr+12
        push    p,valcell
        pushj   p,prtdel
        move    15,gogtab
	move	3,loccell
	movem	3,uuo1(15)
        hrri    14,racs(15)
        hrli    14,acsr
        blt     14,racs+12(15)
        hrlzi   15,acs
        blt     15,15
        popj    p,
armpat:
        movem   1,valcell       ; value to be printed
;
        movem   15,acs+15       ; save acs
        hrrzi   15,acs
        blt     15,acs+14
; save racs
        move    15,gogtab
        move    3,uuo1(15)      ; address of caller
        hrrzm   3,loccell
        hrli    15,racs(15)
        hrri    15,acsr
        blt     15,acsr+12
        push    p,valcell
        push    p,loccell
        pushj   p,prtall
        move    15,gogtab
	move	3,loccell
	movem	3,uuo1(15)
        hrri    14,racs(15)
        hrli    14,acsr
        blt     14,racs+12(15)
        hrlzi   15,acs
        blt     15,15
	jrst	restr
arlpat: hrrz	2,-2(17)		; instruction replaced with pushj
        movem   2,valcell       ; value to be printed
;
        movem   15,acs+15       ; save acs
        hrrzi   15,acs
        blt     15,acs+14
; save racs
        move    15,gogtab
        move    3,uuo1(15)      ; address of caller
        hrrzm   3,loccell
        hrli    15,racs(15)
        hrri    15,acsr
        blt     15,acsr+12
        push    p,valcell
        pushj   p,prtdel
        move    15,gogtab
	move	3,loccell
	movem	3,uuo1(15)
        hrri    14,racs(15)
        hrli    14,acsr
        blt     14,racs+12(15)
        hrlzi   15,acs
        blt     15,15
        popj    p,
forpat: hrrz    1,71(15)       ; instruction replaced with pushj p,forpat
        movem   2,valcell       ; value to be printed
;
        movem   15,acs+15       ; save acs
        hrrzi   15,acs
        blt     15,acs+14
; save racs
        move    15,gogtab
        move    3,uuo1(15)      ; address of caller
        hrrzm   3,loccell
        hrli    15,racs(15)
        hrri    15,acsr
        blt     15,acsr+12
        push    p,valcell
        push    p,loccell
        pushj   p,prtall
        move    15,gogtab
	move	3,loccell
	movem	3,uuo1(15)
        hrri    14,racs(15)
        hrli    14,acsr
        blt     14,racs+12(15)
        hrlzi   15,acs
        blt     15,15
        popj    p,

scbpat: move    2,153(11)          ; instruction replaced with pushj p,scbpat
        hrrzm   11,valcell       ; value to be printed
;
        movem   15,acs+15       ; save acs
        hrrzi   15,acs
        blt     15,acs+14
; save racs
        move    15,gogtab
        move    3,uuo1(15)      ; address of caller
        hrrzm   3,loccell
        hrli    15,racs(15)
        hrri    15,acsr
        blt     15,acsr+12
        push    p,valcell
        pushj   p,prtdel
        move    15,gogtab
        move    3,loccell
	movem	3,uuo1(15)
        hrri    14,racs(15)
        hrli    14,acsr
        blt     14,racs+12(15)
        hrlzi   15,acs
        blt     15,15
        popj    p,
        end