Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: XTRCMP

Package: Toolkit

Routine: XTRCMP


Information

XTRCMP ;SF-ISC/RWF - Compare two routines. ;12/30/2024

Source Information

Source file <XTRCMP.m>

Entry Points

Name Comments DBIA/ICR reference
A ;Compare two routines in account
CHECK ;
LOAD(X) ;Load Routine from Disk, Line count in XCNP.
RSEL
TEST(X) ;Test if Routine is on Disk
END
QUIT
LINE
TAPE ;Read a tape and compare to disk.
EXIT
TIN ;Read one routine from tape
DIN
CMP(S1) ;
KIN(RN) ;KIDS routine in
XPD ;Compair a KIDS install to Disk
XPDDO(XPDST) ;Do the KIDS compare

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Compares two routines"
  • Line Location: A+4
Function Call: WRITE
  • Prompt: !,"Loading Routines."
  • Line Location: A+7
Function Call: WRITE
  • Prompt: @IOF,!,RTN1,?(IOM\2),RTN2
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: !,"Routine ",X," missing."
  • Line Location: TEST+1
Function Call: WRITE
  • Prompt: !,X
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: !!,"Compares routines from tape/file with what's on disk."
  • Line Location: TAPE+4
Function Call: READ
  • Variable: X
  • Timeout: 10,Y:10
  • Line Location: TAPE+6
Function Call: WRITE
  • Prompt: !!,"Tape header",!,X,!,Y
  • Line Location: TAPE+6
Function Call: WRITE
  • Prompt: !,"Compare of routines from file (",XTAPE,") and disk",!
  • Line Location: TAPE+9
Function Call: WRITE
  • Prompt: !,"DONE"
  • Line Location: TAPE+11
Function Call: READ
  • Variable: RTN1
  • Timeout: 10
  • Line Location: TIN+2
Function Call: READ
  • Variable: X
  • Timeout: 10
  • Line Location: TIN+8
Function Call: WRITE
  • Prompt: !,"Routine ",X," not on disk"
  • Line Location: DIN+0
Function Call: WRITE
  • Prompt: !,"Routine ",RTN1,!?3,S1,?IOM\2+3,"Disk"
  • Line Location: CMP+1
Function Call: WRITE
  • Prompt: !,"Compare of routines from KIDS ",XPDNM,", and disk",!
  • Line Location: XPDDO+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XPD(9.7 - [#9.7] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call