// DATE 270915 // NOHALT * *** RUN MAINT. * // LOAD $MAINT,F1 // RUN // COPY FROM-READER,TO-F1,RETAIN-R,LIBRARY-S,NAME-@SPF MACRO @SPF &EXP-N .* @SPF #ERRPG ##CORE #EXMSG #GUFUD #ZTRAC #MIPPE .* .* 5703-XM1 SYSTEM PROGRAM FILE EQUATES. .* TEXT PRINT OFF AIF (&EXP EQ 'Y').ON PRINT ON REQUESTED ? AIF (&EXP EQ 'N').OFF PRINT OFF REQUESTED ? .ERR MNOTE 00,'INVALID MACRO OPTION SPECIFIED.' AGO .MEND .ON ANOP PRINT ON .OFF ANOP TITLE '@SPFEQ - SYSTEM PROGRAM FILE EQUATES' ********************************************************************** * SYSTEM PROGRAM FILE (SPF) EQUATES * ********************************************************************** * #$#0TR EQU X'0000' DISK ADDR OF ##0TRK #$$#0T EQU X'0700' CORE LOAD ADDRESS OF ##0TRK #$@#0T EQU 24 SECTOR COUNT OF ##0TRK * #$#1TR EQU X'0080' DISK ADDR OF ##1TRK #$$#1T EQU X'0000' CORE LOAD ADDRESS OF ##1TRK #$@#1T EQU 24 SECTOR COUNT OF ##1TRK * #$#DRT EQU X'0000' DISK ADDR OF ##DRTY #$$#DR EQU X'0000' CORE LOAD ADDRESS OF ##DRTY #$@#DR EQU 08 SECTOR COUNT OF ##DRTY * #$INST EQU X'0020' DISK ADDR OF #INSTD #$$INS EQU X'0600' CORE LOAD ADDRESS OF #INSTD #$@INS EQU 16 SECTOR COUNT OF #INSTD * #$BCOM EQU X'0080' DISK ADDR OF #BCOMP #$$BCO EQU X'0600' CORE LOAD ADDRESS OF #BCOMP #$@BCO EQU 24 SECTOR COUNT OF #BCOMP * #$LOAD EQU X'0100' DISK ADDR OF #LOADR #$$LOA EQU X'0600' CORE LOAD ADDRESS OF #LOADR #$@LOA EQU 19 SECTOR COUNT OF #LOADR * #$DPRI EQU X'014C' DISK ADDR OF #DPRIN #$$DPR EQU X'0700' CORE LOAD ADDRESS OF #DPRIN #$@DPR EQU 05 SECTOR COUNT OF #DPRIN * #$KGOS EQU X'0180' DISK ADDR OF #KGOSL #$$KGO EQU X'0C00' CORE LOAD ADDRESS OF #KGOSL #$@KGO EQU 02 SECTOR COUNT OF #KGOSL * #$KEDI EQU X'0188' DISK ADDR OF #KEDIT #$$KED EQU X'0C00' CORE LOAD ADDRESS OF #KEDIT #$@KED EQU 14 SECTOR COUNT OF #KEDIT * #$KENA EQU X'01C4' DISK ADDR OF #KENAB #$$KEN EQU X'0C00' CORE LOAD ADDRESS OF #KENAB #$@KEN EQU 06 SECTOR COUNT OF #KENAB * #$DREA EQU X'0200' DISK ADDR OF #DREAD #$$DRE EQU X'0889' CORE LOAD ADDRESS OF #DREAD #$@DRE EQU 01 SECTOR COUNT OF #DREAD * #$KMOU EQU X'0204' DISK ADDR OF #KMOUN #$$KMO EQU X'0C00' CORE LOAD ADDRESS OF #KMOUN #$@KMO EQU 04 SECTOR COUNT OF #KMOUN * #$KRMO EQU X'0214' DISK ADDR OF #KRMOV #$$KRM EQU X'0C00' CORE LOAD ADDRESS OF #KRMOV #$@KRM EQU 03 SECTOR COUNT OF #KRMOV * #$KPAS EQU X'0220' DISK ADDR OF #KPASW #$$KPA EQU X'0C00' CORE LOAD ADDRESS OF #KPASW #$@KPA EQU 05 SECTOR COUNT OF #KPASW * #$KEXT EQU X'0234' DISK ADDR OF #KEXTR #$$KEX EQU X'0C00' CORE LOAD ADDRESS OF #KEXTR #$@KEX EQU 03 SECTOR COUNT OF #KEXTR * #$DSPL EQU X'0240' DISK ADDR OF #DSPLY #$$DSP EQU X'2800' CORE LOAD ADDRESS OF #DSPLY #$@DSP EQU 04 SECTOR COUNT OF #DSPLY * #$TSYK EQU X'0250' DISK ADDR OF #TSYKT #$$TSY EQU X'1000' CORE LOAD ADDRESS OF #TSYKT #$@TSY EQU 03 SECTOR COUNT OF #TSYKT * #$KRNU EQU X'0280' DISK ADDR OF #KRNUM #$$KRN EQU X'0700' CORE LOAD ADDRESS OF #KRNUM #$@KRN EQU 03 SECTOR COUNT OF #KRNUM * #$KROV EQU X'028C' DISK ADDR OF #KROVL #$$KRO EQU X'0D00' CORE LOAD ADDRESS OF #KROVL #$@KRO EQU 10 SECTOR COUNT OF #KROVL * #$KOVM EQU X'0290' DISK ADDR OF #KOVME #$$KOV EQU X'0E00' CORE LOAD ADDRESS OF #KOVME #$@KOV EQU 09 SECTOR COUNT OF #KOVME * #$KWRI EQU X'02B4' DISK ADDR OF #KWRIT #$$KWR EQU X'0C00' CORE LOAD ADDRESS OF #KWRIT #$@KWR EQU 02 SECTOR COUNT OF #KWRIT * #$KREA EQU X'02BC' DISK ADDR OF #KREAD #$$KRE EQU X'0C00' CORE LOAD ADDRESS OF #KREAD #$@KRE EQU 02 SECTOR COUNT OF #KREAD * #$KWID EQU X'02C4' DISK ADDR OF #KWIDT #$$KWI EQU X'0C00' CORE LOAD ADDRESS OF #KWIDT #$@KWI EQU 02 SECTOR COUNT OF #KWIDT * #$KRUN EQU X'02CC' DISK ADDR OF #KRUNI #$$KRU EQU X'0C00' CORE LOAD ADDRESS OF #KRUNI #$@KRU EQU 03 SECTOR COUNT OF #KRUNI * #$KDNT EQU X'0300' DISK ADDR OF #KDNTE #$$KDN EQU X'0C00' CORE LOAD ADDRESS OF #KDNTE #$@KDN EQU 16 SECTOR COUNT OF #KDNTE * #$KMER EQU X'030C' DISK ADDR OF #KMERG #$$KME EQU X'0D00' CORE LOAD ADDRESS OF #KMERG #$@KME EQU 03 SECTOR COUNT OF #KMERG * #$TDCK EQU X'0350' DISK ADDR OF #TDCKT #$$TDC EQU X'1000' CORE LOAD ADDRESS OF #TDCKT #$@TDC EQU 03 SECTOR COUNT OF #TDCKT * #$KDEL EQU X'035C' DISK ADDR OF #KDELE #$$KDE EQU X'0C00' CORE LOAD ADDRESS OF #KDELE #$@KDE EQU 16 SECTOR COUNT OF #KDELE * #$KCTL EQU X'03BC' DISK ADDR OF #KCTL0 #$$KCT EQU X'0C00' CORE LOAD ADDRESS OF #KCTL0 #$@KCT EQU 09 SECTOR COUNT OF #KCTL0 * #$KLIS EQU X'0400' DISK ADDR OF #KLIST #$$KLI EQU X'0C00' CORE LOAD ADDRESS OF #KLIST #$@KLI EQU 17 SECTOR COUNT OF #KLIST * #$KLOG EQU X'0444' DISK ADDR OF #KLOGO #$$KLO EQU X'0C00' CORE LOAD ADDRESS OF #KLOGO #$@KLO EQU 08 SECTOR COUNT OF #KLOGO * #$SPSY EQU X'0484' DISK ADDR OF #SPSYN #$$SPS EQU X'0C00' CORE LOAD ADDRESS OF #SPSYN #$@SPS EQU 01 SECTOR COUNT OF #SPSYN * #$KSAV EQU X'0488' DISK ADDR OF #KSAVE #$$KSA EQU X'0C00' CORE LOAD ADDRESS OF #KSAVE #$@KSA EQU 17 SECTOR COUNT OF #KSAVE * #$SPAC EQU X'04CC' DISK ADDR OF #SPACK #$$SPA EQU X'0C00' CORE LOAD ADDRESS OF #SPACK #$@SPA EQU 04 SECTOR COUNT OF #SPACK * #$SPOV EQU X'04DC' DISK ADDR OF #SPOVL #$$SPO EQU X'0806' CORE LOAD ADDRESS OF #SPOVL #$@SPO EQU 03 SECTOR COUNT OF #SPOVL * #$KPOO EQU X'0508' DISK ADDR OF #KPOOL #$$KPO EQU X'0C00' CORE LOAD ADDRESS OF #KPOOL #$@KPO EQU 13 SECTOR COUNT OF #KPOOL * #$KCHA EQU X'053C' DISK ADDR OF #KCHAN #$$KCH EQU X'0C00' CORE LOAD ADDRESS OF #KCHAN #$@KCH EQU 12 SECTOR COUNT OF #KCHAN * #$KSVL EQU X'058C' DISK ADDR OF #KSVLA #$$KSV EQU X'0980' CORE LOAD ADDRESS OF #KSVLA #$@KSV EQU 02 SECTOR COUNT OF #KSVLA * #$KSSP EQU X'0594' DISK ADDR OF #KSSPN #$$KSS EQU X'0C00' CORE LOAD ADDRESS OF #KSSPN #$@KSS EQU 11 SECTOR COUNT OF #KSSPN * #$KNAM EQU X'05C0' DISK ADDR OF #KNAME #$$KNA EQU X'0C00' CORE LOAD ADDRESS OF #KNAME #$@KNA EQU 08 SECTOR COUNT OF #KNAME * #$KSYM EQU X'0600' DISK ADDR OF #KSYMB #$$KSY EQU X'0C00' CORE LOAD ADDRESS OF #KSYMB #$@KSY EQU 15 SECTOR COUNT OF #KSYMB * #$KPRT EQU X'063C' DISK ADDR OF #KPRTC #$$KPR EQU X'0C00' CORE LOAD ADDRESS OF #KPRTC #$@KPR EQU 09 SECTOR COUNT OF #KPRTC * #$KSET EQU X'0680' DISK ADDR OF #KSETI #$$KSE EQU X'0E00' CORE LOAD ADDRESS OF #KSETI #$@KSE EQU 04 SECTOR COUNT OF #KSETI * #$GRAP EQU X'0690' DISK ADDR OF #GRAPR #$$GRA EQU X'0889' CORE LOAD ADDRESS OF #GRAPR #$@GRA EQU 03 SECTOR COUNT OF #GRAPR * #$KALL EQU X'06A4' DISK ADDR OF #KALLO #$$KAL EQU X'0C00' CORE LOAD ADDRESS OF #KALLO #$@KAL EQU 15 SECTOR COUNT OF #KALLO * #$KRLA EQU X'0700' DISK ADDR OF #KRLAB #$$KRL EQU X'0700' CORE LOAD ADDRESS OF #KRLAB #$@KRL EQU 04 SECTOR COUNT OF #KRLAB * #$KRVL EQU X'0710' DISK ADDR OF #KRVLA #$$KRV EQU X'0800' CORE LOAD ADDRESS OF #KRVLA #$@KRV EQU 13 SECTOR COUNT OF #KRVLA * #$KDIS EQU X'0744' DISK ADDR OF #KDISP #$$KDI EQU X'0D00' CORE LOAD ADDRESS OF #KDISP #$@KDI EQU 05 SECTOR COUNT OF #KDISP * #$KDOV EQU X'0780' DISK ADDR OF #KDOVR #$$KDO EQU X'0E00' CORE LOAD ADDRESS OF #KDOVR #$@KDO EQU 12 SECTOR COUNT OF #KDOVR * #$VCRT EQU X'07B4' DISK ADDR OF #VCRTI #$$VCR EQU X'2000' CORE LOAD ADDRESS OF #VCRTI #$@VCR EQU 08 SECTOR COUNT OF #VCRTI * #$EXMS EQU X'07D4' DISK ADDR OF #EXMSG #$$EXM EQU X'0C00' CORE LOAD ADDRESS OF #EXMSG #$@EXM EQU 03 SECTOR COUNT OF #EXMSG * #$#COR EQU X'0800' DISK ADDR OF ##CORE #$$#CO EQU X'0000' CORE LOAD ADDRESS OF ##CORE #$@#CO EQU 58 SECTOR COUNT OF ##CORE * #$#ERM EQU X'0928' DISK ADDR OF ##ERMS #$$#ER EQU X'0000' CORE LOAD ADDRESS OF ##ERMS #$@#ER EQU 50 SECTOR COUNT OF ##ERMS * #$KHEL EQU X'0A30' DISK ADDR OF #KHELP #$$KHE EQU X'0C00' CORE LOAD ADDRESS OF #KHELP #$@KHE EQU 12 SECTOR COUNT OF #KHELP * #$MIPP EQU X'0A80' DISK ADDR OF #MIPPE #$$MIP EQU X'0C00' CORE LOAD ADDRESS OF #MIPPE #$@MIP EQU 13 SECTOR COUNT OF #MIPPE * #$KSOV EQU X'0AC8' DISK ADDR OF #KSOVR #$$KSO EQU X'0C20' CORE LOAD ADDRESS OF #KSOVR #$@KSO EQU 05 SECTOR COUNT OF #KSOVR * #$VXIT EQU X'0B00' DISK ADDR OF #VXITI #$$VXI EQU X'0600' CORE LOAD ADDRESS OF #VXITI #$@VXI EQU 02 SECTOR COUNT OF #VXITI * #$#VUF EQU X'0B08' DISK ADDR OF ##VUFA #$$#VU EQU X'0600' CORE LOAD ADDRESS OF ##VUFA #$@#VU EQU 02 SECTOR COUNT OF ##VUFA * #$VLOA EQU X'0B80' DISK ADDR OF #VLOAD #$$VLO EQU X'0600' CORE LOAD ADDRESS OF #VLOAD #$@VLO EQU 02 SECTOR COUNT OF #VLOAD * #$VODK EQU X'0B88' DISK ADDR OF #VODKA #$$VOD EQU X'0600' CORE LOAD ADDRESS OF #VODKA #$@VOD EQU 22 SECTOR COUNT OF #VODKA * #$TVKB EQU X'0BAC' DISK ADDR OF #TVKBT #$$TVK EQU X'0FC0' CORE LOAD ADDRESS OF #TVKBT #$@TVK EQU 01 SECTOR COUNT OF #TVKBT * #$VVMR EQU X'0C00' DISK ADDR OF #VVMRS #$$VVM EQU X'0000' CORE LOAD ADDRESS OF #VVMRS #$@VVM EQU 48 SECTOR COUNT OF #VVMRS * #$FMST EQU X'0D00' DISK ADDR OF #FMSTD #$$FMS EQU X'0200' CORE LOAD ADDRESS OF #FMSTD #$@FMS EQU 82 SECTOR COUNT OF #FMSTD * #$UEXL EQU X'0EA8' DISK ADDR OF #UEXLI #$$UEX EQU X'0C00' CORE LOAD ADDRESS OF #UEXLI #$@UEX EQU 14 SECTOR COUNT OF #UEXLI * #$UALL EQU X'0F00' DISK ADDR OF #UALLO #$$UAL EQU X'0C00' CORE LOAD ADDRESS OF #UALLO #$@UAL EQU 17 SECTOR COUNT OF #UALLO * #$KCND EQU X'0F80' DISK ADDR OF #KCNDI #$$KCN EQU X'0C00' CORE LOAD ADDRESS OF #KCNDI #$@KCN EQU 16 SECTOR COUNT OF #KCNDI * #$#CSA EQU X'1000' DISK ADDR OF #CSAV #$$#CS EQU X'0000' CORE LOAD ADDRESS OF #CSAV #$@#CS EQU 58 SECTOR COUNT OF #CSAV * #$#SSA EQU X'1128' DISK ADDR OF #SSAV #$$#SS EQU X'0000' CORE LOAD ADDRESS OF #SSAV #$@#SS EQU 01 SECTOR COUNT OF #SSAV * #$#SAV EQU X'1180' DISK ADDR OF ##SAVM #$$#SA EQU X'0000' CORE LOAD ADDRESS OF ##SAVM #$@#SA EQU 264 SECTOR COUNT OF ##SAVM * #$FIST EQU X'1700' DISK ADDR OF #FISTD #$$FIS EQU X'0E00' CORE LOAD ADDRESS OF #FISTD #$@FIS EQU 09 SECTOR COUNT OF #FISTD * #$FILN EQU X'1724' DISK ADDR OF #FILNG #$$FIL EQU X'0E00' CORE LOAD ADDRESS OF #FILNG #$@FIL EQU 09 SECTOR COUNT OF #FILNG * #$#RSP EQU X'1780' DISK ADDR OF ##RSPG #$$#RS EQU X'0000' CORE LOAD ADDRESS OF ##RSPG #$@#RS EQU 48 SECTOR COUNT OF ##RSPG * #$BOLV EQU X'1780' DISK ADDR OF #BOVLY #$$BOV EQU X'0800' CORE LOAD ADDRESS OF #BOVLY #$@BOV EQU 24 SECTOR COUNT OF #BOLVY * #$SFSY EQU X'1800' DISK ADDR OF #SFSYN #$$SFS EQU X'0C00' CORE LOAD ADDRESS OF #SFSYN #$@SFS EQU 17 SECTOR COUNT OF #SFSYN * #$SFOV EQU X'1844' DISK ADDR OF #SFOVR #$$SFO EQU X'1500' CORE LOAD ADDRESS OF #SFOVR #$@SFO EQU 03 SECTOR COUNT OF #SFOVR * #$STRO EQU X'1850' DISK ADDR OF #STROV #$$STR EQU X'1600' CORE LOAD ADDRESS OF #STROV #$@STR EQU 02 SECTOR COUNT OF #STROV * #$#FSP EQU X'1880' DISK ADDR OF ##FSPG #$$#FS EQU X'0000' CORE LOAD ADDRESS OF ##FSPG #$@#FS EQU 48 SECTOR COUNT OF ##FSPG * #$GUFU EQU X'1880' DISK ADDR OF #GUFUD #$$GUF EQU X'0C00' CORE LOAD ADDRESS OF #GUFUD #$@GUF EQU 16 SECTOR COUNT OF #GUFUD * #$ERRP EQU X'18C0' DISK ADDR OF #ERRPG #$$ERR EQU X'0C00' CORE LOAD ADDRESS OF #ERRPG #$@ERR EQU 03 SECTOR COUNT OF #ERRPG * #$#BLN EQU X'18D4' DISK ADDR OF ##BLNB #$$#BL EQU X'0000' CORE LOAD ADDRESS OF ##BLNB #$@#BL EQU 01 SECTOR COUNT OF ##BLNB * #$ECMA EQU X'1900' DISK ADDR OF #ECMAN #$$ECM EQU X'0C00' CORE LOAD ADDRESS OF #ECMAN #$@ECM EQU 06 SECTOR COUNT OF #ECMAN * #$SFLO EQU X'1918' DISK ADDR OF #SFLOA #$$SFL EQU X'0F00' CORE LOAD ADDRESS OF #SFLOA #$@SFL EQU 05 SECTOR COUNT OF #SFLOA * #$SDSY EQU X'192C' DISK ADDR OF #SDSYN #$$SDS EQU X'0C00' CORE LOAD ADDRESS OF #SDSYN #$@SDS EQU 04 SECTOR COUNT OF #SDSYN * #$SFFI EQU X'193C' DISK ADDR OF #SFFIN #$$SFF EQU X'0E00' CORE LOAD ADDRESS OF #SFFIN #$@SFF EQU 08 SECTOR COUNT OF #SFFIN * #$UPAC EQU X'1980' DISK ADDR OF #UPACK #$$UPA EQU X'0C00' CORE LOAD ADDRESS OF #UPACK #$@UPA EQU 04 SECTOR COUNT OF #UPACK * #$EFKE EQU X'1990' DISK ADDR OF #EFKEY #$$EFK EQU X'0C00' CORE LOAD ADDRESS OF #EFKEY #$@EFK EQU 02 SECTOR COUNT OF #EFKEY * #$UCNF EQU X'19B8' DISK ADDR OF #UCNFI #$$UCN EQU X'0C00' CORE LOAD ADDRESS OF #UCNFI #$@UCN EQU 09 SECTOR COUNT OF #UCNFI * #$UCPL EQU X'19DC' DISK ADDR OF #UCPLI #$$UCP EQU X'0700' CORE LOAD ADDRESS OF #UCPLI #$@UCP EQU 15 SECTOR COUNT OF #UCPLI * #$UATR EQU X'1A38' DISK ADDR OF #UATRC #$$UAT EQU X'0900' CORE LOAD ADDRESS OF #UATRC #$@UAT EQU 12 SECTOR COUNT OF #UATRC * #$UINI EQU X'1A88' DISK ADDR OF #UINIT #$$UIN EQU X'0C00' CORE LOAD ADDRESS OF #UINIT #$@UIN EQU 15 SECTOR COUNT OF #UINIT * #$UCDI EQU X'1AD8' DISK ADDR OF #UCDIS #$$UCD EQU X'0900' CORE LOAD ADDRESS OF #UCDIS #$@UCD EQU 11 SECTOR COUNT OF #UCDIS * #$UDEL EQU X'1B24' DISK ADDR OF #UDELV #$$UDE EQU X'0C00' CORE LOAD ADDRESS OF #UDELV #$@UDE EQU 14 SECTOR COUNT OF #UDELV * #$UDIS EQU X'1B5C' DISK ADDR OF #UDISV #$$UDI EQU X'0C00' CORE LOAD ADDRESS OF #UDISV #$@UDI EQU 08 SECTOR COUNT OF #UDISV * #$ZTRA EQU X'1B9C' DISK ADDR OF #ZTRAC #$$ZTR EQU X'1000' CORE LOAD ADDRESS OF #ZTRAC #$@ZTR EQU 01 SECTOR COUNT OF #ZTRAC * #$ZDUM EQU X'1BA4' DISK ADDR OF #ZDUMP #$$ZDU EQU X'1100' CORE LOAD ADDRESS OF #ZDUMP #$@ZDU EQU 08 SECTOR COUNT OF #ZDUMP * #$ZLOA EQU X'1BC4' DISK ADDR OF #ZLOAD #$$ZLO EQU X'1100' CORE LOAD ADDRESS OF #ZLOAD #$@ZLO EQU 12 SECTOR COUNT OF #ZLOAD * #$ZUTM EQU X'1C14' DISK ADDR OF #ZUTMO #$$ZUT EQU X'0C00' CORE LOAD ADDRESS OF #ZUTMO #$@ZUT EQU 20 SECTOR COUNT OF #ZUTMO * #$INLN EQU X'1C84' DISK ADDR OF #INLNG #$$INL EQU X'0600' CORE LOAD ADDRESS OF #INLNG #$@INL EQU 16 SECTOR COUNT OF #INLNG * #$KCAL EQU X'1CC4' DISK ADDR OF #KCALL #$$KCA EQU X'0C00' CORE LOAD ADDRESS OF #KCALL #$@KCA EQU 12 SECTOR COUNT OF #KCALL * #$KRSU EQU X'1D24' DISK ADDR OF #KRSUM #$$KRS EQU X'0C00' CORE LOAD ADDRESS OF #KRSUM #$@KRS EQU 10 SECTOR COUNT OF #KRSUM * #$UPTF EQU X'1D5C' DISK ADDR OF #UPTFI #$$UPT EQU X'0C00' CORE LOAD ADDRESS OF #UPTFI #$@UPT EQU 18 SECTOR COUNT OF #UPTFI * #$UPOV EQU X'1D24' DISK ADDR OF #UPOVL #$$UPO EQU X'0C00' CORE LOAD ADDRESS OF #UPOVL #$@UPO EQU 05 SECTOR COUNT OF #UPOVL * #$FMLN EQU X'1E00' DISK ADDR OF #FMLNG #$$FML EQU X'0200' CORE LOAD ADDRESS OF #FMLNG #$@FML EQU 82 SECTOR COUNT OF #FMLNG * #$#CNF EQU X'2000' DISK ADDR OF ##CNFI #$$#CN EQU X'0000' CORE LOAD ADDRESS OF ##CNFI #$@#CN EQU 01 SECTOR COUNT OF ##CNFI * #$KLLA EQU X'2004' DISK ADDR OF #KLLAY #$$KLL EQU X'0920' CORE LOAD ADDRESS OF #KLLAY #$@KLL EQU 01 SECTOR COUNT OF #KKLAY * #$ZLBM EQU X'2008' DISK ADDR OF #ZLBMA #$$ZLB EQU X'1100' CORE LOAD ADDRESS OF #ZLBMA #$@ZLB EQU 02 SECTOR COUNT OF #ZLBMA * #$ZL1M EQU X'2010' DISK ADDR OF #ZL1MA #$$ZL1 EQU X'0F00' CORE LOAD ADDRESS OF #ZL1MA #$@ZL1 EQU 07 SECTOR COUNT OF #ZL1MA * #$ZL2M EQU X'2030' DISK ADDR OF #ZL2MA #$$ZL2 EQU X'0F00' CORE LOAD ADDRESS OF #ZL2MA #$@ZL2 EQU 13 SECTOR COUNT OF #ZL2MA * #$ZL3M EQU X'2088' DISK ADDR OF #ZL3MA #$$ZL3 EQU X'0C00' CORE LOAD ADDRESS OF #ZL3MA #$@ZL3 EQU 10 SECTOR COUNT OF #ZL3MA * #$ZLVR EQU X'20B0' DISK ADDR OF #ZLVRL #$$ZLV EQU X'0F00' CORE LOAD ADDRESS OF #ZLVRL #$@ZLV EQU 06 SECTOR COUNT OF #ZLVRL * #$KKEY EQU X'2100' DISK ADDR OF #KKEYS #$$KKE EQU X'0C00' CORE LOAD ADDRESS OF #KKEYS #$@KKE EQU 06 SECTOR COUNT OF #KKEYS * #$#CKT EQU X'2118' DISK ADDR OF ##CKTB #$$#CK EQU X'0000' CORE LOAD ADDRESS OF #CKTB #$@#CK EQU 04 SECTOR COUNT OF #CKTB * #$#INV EQU X'212C' DISK ADDR OF ##INVD #$$#IN EQU X'0000' CORE LOAD ADDRESS OF ##INVD #$@#IN EQU 58 SECTOR COUNT OF ##INVD * #$#PWR EQU X'2300' DISK ADDR OF ##PWRK #$$#PW EQU X'0000' CORE LOAD ADDRESS OF ##PWRK #$@#PW EQU 192 SECTOR COUNT OF ##PWRK * END OF SYSTEM PROGRAM FILE EQUATES .* END OF MACRO; RESTORE PRINT ON. .MEND ANOP PRINT ON MEND // CEND // END * // READER CONSOLE