SYSTEMROUTINE  WRITE(INTEGER  VALUE,PLACES)
SYSTEMROUTINESPEC  IOCP(INTEGER  A,B)
STRING (16)S
INTEGER  D0,D1,D2,D3,L
      PLACES=PLACES&15
      *LSS_VALUE; *CDEC_0
      *LD_S; *INCA_1; *STD_TOS 
      *CPB_B ;                          ! SET CC=0
      *SUPK_L =15,0,32;                 ! UNPACK & SPACE FILL
      *STD_D2; *JCC_8,<WASZERO>
      *LD_TOS ; *STD_D0;                 ! FOR SIGN INSERTION
      *LD_TOS 
      *MVL_L =15,63,0;                 ! FORCE ISO ZONE CODES
      IF  VALUE<0 THEN  BYTEINTEGER(D1)='-'
      L=D3-D1
OUT:  IF  PLACES>=L THEN  L=PLACES+1
      D3=D3-L-1
      BYTEINTEGER(D3)=L
      IOCP(15,D3)
      RETURN 
WASZERO:
      BYTEINTEGER(D3-1)='0'
      L=2; ->OUT
END