:SV,4,9,IH
:** 
:**   *DATCA (HP 92903-18204 REV.1913  790131)
:** 
:**   LOADS ALL DATACAP PROGRAMS, AND SAVES THEM ON LU=2 IF REQUIRED. 
:** 
:**   IF THE USER WANTS TO SAVE PROGRAM ON LU=3, EDIT THE 
:**   TRANSFER FILE TO CHANGE THE NEXT LINE TO:   :CA,8,3 
:CA,8,2 
:CA,7,8G,*,-1 
:LL,0G
:IF,1G,EQ,,1
:IF,1G,NE,0,14
:AN,
:AN,. 
:AN,.  PLEASE ENTER THE FOLLOWING COMMAND:
:AN,. 
:AN,.     TR,*DATCA::CR,CR#,LIST LU,LOAD FLAG 
:AN,. 
:AN,.  WHERE  CR         IS THE CARTRIDGE WHERE  '*DATCA'  RESIDES. 
:AN,.         CR#        IS THE CARTRIDGE WHERE DATACAP'S MODULES RESIDE. 
:AN,.         LOAD FLAG  IS  0 TO LOAD PROGRAMS TEMPORARILY AND 
:AN,.                    NOT 0 TO SAVE PROGRAMS AS TYPE 6 FILES.
:AN,. 
:AN,
:SV,9G,,IH
::
:AN,
:AN,  ****************************************************************
:AN,  *                                                              *
:AN,  *     C R E A T I O N     O F     T Y P E   0   F I L E S      *
:AN,  *                                                              *
:AN,  ****************************************************************
:AN,
:CA,6:P,0 
::*TYPE0::1G
:IF,6P,NE,0,-24 
:CA,6,2G
:IF,6G,EQ,,1
:IF,6G,NE,0,1 
:CA,6,0G
:IF,3G,NE,,1
:CA,3,0 
:AN,
:IF,3G,NE,0,2 
:DP, FROM CR=,1G, LIST LU=,6G, PROGRAM LOADED TEMPORARILY ! 
:IF,,EQ,,1
:DP, FROM CR=,1G, LIST LU=,6G, PROGRAMS SAVED ONTO TYPE 6 FILES.
:AN,
:AN,
:AN,
:AN,
:AN,  ****************************************************************
:AN,  *                                                              *
:AN,  *     L O A D I N G       O F       D C M O N                  *
:AN,  *                                                              *
:AN,  ****************************************************************
:AN,
:OF,DCMON 
:RU,LOADR,,%DCMON::1G,6G
:IF,10G,EQ,DCMON,8
:AN,
:AN,  LOADER HAS FAILED:
:AN,  'DCMON' IS NOT READY !
:AN,
:AN,  DATACAP IS NOT READY, MUST RE-RUN THE TRANFER FILE  *DATCA
:AN,
:SV,9G,,IH
::
:AN,
:AN,  LOADER COMPLETED, 'DCMON' IS SAVED AS TYPE 6 FILE.
:AN,
:PU,DCMON::7G 
:CA,6:P,0 
:SP,DCMON::7G 
:IF,6P,EQ,0,3 
:AN,
:DP,  UNABLE TO SAVE PROGRAM 'DCMON', NO ROOM ON LU=,8G 
:IF,,EQ,,-16
:OF,DCMON 
:RP,DCMON 
:AN,
:AN,  ****************************************************************
:AN,  *                                                              *
:AN,  *     L O A D I N G       O F       T M P G N                  *
:AN,  *                                                              *
:AN,  ****************************************************************
:AN,
:OF,TMPGN 
:OF,TMPG0 
:OF,TMPG1 
:OF,TMPG2 
:OF,TMPG3 
:OF,TMPG4 
:OF,TMPG5 
:RU,LOADR,>TMPGN::1G,,6G,SS,,,15
:IF,10G,EQ,TMPGN,8
:AN,
:AN,  LOADER HAS FAILED:
:AN,  'TMPGN' IS NOT READY !
:AN,
:AN,  DATACAP IS NOT READY, MUST RE-RUN THE TRANSFER FILE  *DATCA 
:AN,
:SV,9G,,IH
::
:IF,3G,EQ,0,39
:AN,
:AN,  LOADER COMPLETED, 'TMPGN' IS SAVED AS TYPE 6 FILES. 
:AN,
:PU,TMPGN::7G 
:PU,TMPG0::7G 
:PU,TMPG1::7G 
:PU,TMPG2::7G 
:PU,TMPG3::7G 
:PU,TMPG4::7G 
:PU,TMPG5::7G 
:CA,6:P,0 
:SP,TMPGN::7G 
:SP,TMPG0::7G 
:SP,TMPG1::7G 
:SP,TMPG2::7G 
:SP,TMPG3::7G 
:SP,TMPG4::7G 
:SP,TMPG5::7G 
:IF,6P,EQ,0,3 
:AN,
:DP,  UNABLE TO SAVE PROGAM 'TMPGN', NO ROOM ON LU=,8G
:IF,,EQ,,-29
:OF,TMPGN 
:OF,TMPG0 
:OF,TMPG1 
:OF,TMPG2 
:OF,TMPG3 
:OF,TMPG4 
:OF,TMPG5 
:PU,/TMPGN::7G
:PU,\TMPGN::7G
:CA,6:P,0 
:ST,/TMPGN::1G,/TMPGN::7G 
:ST,\TMPGN::1G,\TMPGN::7G 
:IF,6P,EQ,0,3 
:AN,
:DP, UNABLE TO RESTORE FILES: /TMPGN & \TMPGN, NO ROOM ON LU=,8G
:IF,,EQ,,-45
::/TMPGN::7G
:AN,
:AN,  ****************************************************************
:AN,  *                                                              *
:AN,  *     L O A D I N G       O F       T G P                      *
:AN,  *                                                              *
:AN,  ****************************************************************
:AN,
:OF,TGP 
:OF,TGP0
:OF,TGP1
:OF,TGP2
:OF,TGP3
:OF,TGP4
:OF,TGP5
:OF,TGP6
:OF,TGP7
:OF,TGP8
:OF,TGP9
:OF,TGPI0 
:OF,TGPI1 
:OF,TGPI2 
:OF,TGPI3 
:OF,TGPI4 
:RU,LOADR,>TGP::1G,,6G,SS,,,20
:IF,10G,EQ,TGP,8
:AN,
:AN,  LOADER HAS FAILED:
:AN,  'TGP' IS NOT READY !
:AN,
:AN,  DATACAP IS NOT READY, MUST RE-RUN THE TRANSFER FILE *DATCA
:AN,
:SV,9G,,IH
::
:IF,3G,EQ,0,65
:AN,
:AN,  LOADER COMPLETED 'TGP' IS SAVED AS TYPE 6 FILES.
:AN,
:PU,TGP::7G 
:PU,TGP0::7G
:PU,TGP1::7G
:PU,TGP2::7G
:PU,TGP3::7G
:PU,TGP4::7G
:PU,TGP5::7G
:PU,TGP6::7G
:PU,TGP7::7G
:PU,TGP8::7G
:PU,TGP9::7G
:PU,TGPI0::7G 
:PU,TGPI1::7G 
:PU,TGPI2::7G 
:PU,TGPI3::7G 
:PU,TGPI4::7G 
:CA,6:P,0 
:SP,TGP::7G 
:SP,TGP0::7G
:SP,TGP1::7G
:SP,TGP2::7G
:SP,TGP3::7G
:SP,TGP4::7G
:SP,TGP5::7G
:SP,TGP6::7G
:SP,TGP7::7G
:SP,TGP8::7G
:SP,TGP9::7G
:SP,TGPI0::7G 
:SP,TGPI1::7G 
:SP,TGPI2::7G 
:SP,TGPI3::7G 
:SP,TGPI4::7G 
:IF,6P,EQ,0,3 
:AN,
:DP,  UNABLE TO SAVE PROGRAM 'TGP', NO ROOM ON LU=,8G 
:IF,,EQ,,-49
:OF,TGP 
:OF,TGP0
:OF,TGP1
:OF,TGP2
:OF,TGP3
:OF,TGP4
:OF,TGP5
:OF,TGP6
:OF,TGP7
:OF,TGP8
:OF,TGP9
:OF,TGPI0 
:OF,TGPI1 
:OF,TGPI2 
:OF,TGPI3 
:OF,TGPI4 
:PU,/TGP::7G
:PU,\TGP::7G
:CA,6:P,0 
:ST,/TGP::1G,/TGP::7G 
:ST,\TGP::1G,\TGP::7G 
:IF,6P,EQ,0,3 
:AN,
:DP, UNABLE TO RESTORE FILES: /TGP & \TGP, NO ROOM ON LU=,8G
:IF,,EQ,,-69
::/TGP::7G
:AN,
:AN,  DATACAP  IS  READY !! 
:AN,  
:RU,DCMON,0G,0,0,0,0
:SV,9G,,IH
                                                                                    