|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 6272 (0x1880)
Types: TextFile
Names: »CCB.MAC«
└─⟦77f87173f⟧ Bits:30005981/disk3.imd Turn Key Data Entry System/Datenerfassungspaket - Vers. 1.90
└─⟦this⟧ »CCB.MAC«
;************************************************* ;* * ;* MODULE : CCB.MAC (RC-700) * ;* DATE : 01.02.82 * ;* BY : ASE GmbH , 6472 Altenstadt * ;* VERSION: 1.90 * ;* * ;************************************************* ; ; THIS MODULE (COMMON CONTROL BLOCK) PROVIDES MOST OF THE ; COMMON DECLARATIVES USED THROUGHOUT THE PACKAGE. ; PUBLIC ATTBYT PUBLIC ATTSVE PUBLIC AUTFLG PUBLIC BCPCTR PUBLIC BFNO PUBLIC BIOSBS PUBLIC CBFADD PUBLIC CBWFLG PUBLIC CCB PUBLIC CFLAG PUBLIC DEMODE PUBLIC DUPFLG PUBLIC ECRCTR PUBLIC EERCTR PUBLIC EFOFLG PUBLIC F05FLG PUBLIC FBFADD PUBLIC FFLFLG PUBLIC FILCTR PUBLIC FMDFLG PUBLIC FMFFLG PUBLIC FNCFLG PUBLIC FRMCHN PUBLIC FRMFLG PUBLIC FRMLNG PUBLIC FSFLG PUBLIC FTMFLG PUBLIC KBFADD PUBLIC KEFLG PUBLIC LFSTB PUBLIC MLNFLG PUBLIC NEFCTR PUBLIC NKECTR PUBLIC NKVCTR PUBLIC R0FLG PUBLIC R10FLG PUBLIC R11FLG PUBLIC R12FLG PUBLIC R13FLG PUBLIC R14FLG PUBLIC R15FLG PUBLIC R16FLG PUBLIC R17FLG PUBLIC R18FLG PUBLIC R19FLG PUBLIC R1FLG PUBLIC R20FLG PUBLIC R21FLG PUBLIC R22FLG PUBLIC R23FLG PUBLIC R24FLG PUBLIC R25FLG PUBLIC R2FLG PUBLIC R3FLG PUBLIC R4FLG PUBLIC R5FLG PUBLIC R6FLG PUBLIC R7FLG PUBLIC R8FLG PUBLIC R9FLG PUBLIC REGFLG PUBLIC SOFCBA PUBLIC SOFFBA PUBLIC SOFUBA PUBLIC SOKBBA PUBLIC SOZ PUBLIC UBFADD PUBLIC VCRCTR PUBLIC VERCTR PUBLIC VFCTR PUBLIC VFPCTR PUBLIC VRTCTR ; CCB: ; ACTFB: ds 1 ;actual (current) format byte ATTBYT: db 00h ;850 attribute byte ATTSVE: db 00h ;850 attribute save AUTFLG: db 00h ;authorized flag , xlated from Z. BCPCTR: dw 0000h ;backward character position counter BFLG: ds 1 ;backward flag BFNO: ds 2 ;binary field number , xlated from Z. BIOSBS: dw 0000h ;bios start address BWDFLG: ds 1 ;backward field flag C10FLG: ds 1 ;check digit 10 flag C11FLG: ds 1 ;check digit 11 flag CBFADD: ds 2 ;crt buffer start address CBWFLG: ds 1 ;character backward flag CCTR: ds 2 ;binary cursor counter CDEFLG: ds 1 ;check digit error flag CDRCTR: ds 1 ;check digit retry counter CFLAG: db 00h ;call flag (used to set temporary returns) CFWFLG: ds 1 ;character forward flag CMFLG: ds 1 ;ctrl/m flag COLFLG: ds 1 ;colon flag (num.must fill fcc) CPSCTR: ds 2 ;cursor pos ctr. (actual cursor) CURFNO: ds 2 ;current field number CX1FLG: ds 1 ;ctrl/x 1 flag CX2FLG: ds 1 ;ctrl/x 2 flag CX3FLG: ds 1 ;ctrl/x 3 flag DELFLG: ds 1 ;CTRL/D flg (delete) DEMODE: db 03h ;de-mode byte ,xlated from Z DSHFLG: ds 1 ;dash flag (num.fcc) DUPFLG: db 00h ;duplicate flag ECRCTR: dw 0000h ;number of error-flag corrections EERCTR: dw 0000h ;entry error counter EFIFLG: ds 1 ;end of field flag EFOFLG: ds 1 ;end of format flag ERRFLG: ds 1 ;error flag F05FLG: ds 1 ;field security byte flag F0FLG: ds 1 ;field zero flag FBFADD: ds 2 ;format buffer start address FCOFLG: ds 1 ;field correction flag FEXFLG: ds 1 ;field exit flag FFLFLG: ds 1 ;format full flag FFLG: ds 1 ;forward flag FILCTR: dw 0000h ;field length ctr FMDFLG: ds 1 ;format mod. flag FMFFLG: ds 1 ;field modify flag FNCFLG: db 00h ;function key flag FPTCTR: ds 2 ;field pointer counter FRMCHN: ds 4 ;format chain key FRMFLG: ds 1 ;format flag FRMLNG: ds 2 ;format length FSFLG: ds 1 ;field start flag FTMFLG: db 00h ;first time flag(allows manual entry into ;dup-fields when set) FWDFLG: ds 1 ;forward field flag HEXBYT: ds 1 ;hex-byte IMVFLG: ds 1 ;init move flag INTFLG: ds 1 ;initialized flag KBBYTE: ds 1 ;keyboard-byte KBFADD: dw 0000h ;key-buffer ptr. ***DBB ONLY*** KEFLG: db 00h ;key error flag LCFLG: ds 1 ;lower case flag LFSTB: ds 1 ;last field start byte MASTAD: ds 2 ;message area start address MAXNVF: ds 2 ;max.number of var. fields MLNCTR: ds 1 ;message length counter MLNFLG: db 00h ;message line flag MSFFLG: ds 1 ;must fill flag MSGNUM: ds 1 ;message number NEFCTR: dw 0000h ;number of error flags NKECTR: dw 0000h ;number of keys entered NKVCTR: dw 0000h ;number of keys verified. NXTFB: ds 1 ;next format byte P1FLG: ds 1 ;phase 1 flag PERFLG: ds 1 ;period flag (alpha fcc) PROFLG: ds 1 ;prepro flag R0FLG: db 00h ;register 0 flag (mul.reg.) R1FLG: db 00h ;register 1 flag R2FLG: db 00h ;register 2 flag R3FLG: db 00h ;register 3 flag R4FLG: db 00h ;register 4 flag R5FLG: db 00h ;register 5 flag R6FLG: db 00h ;register 6 flag R7FLG: db 00h ;register 7 flag R8FLG: db 00h ;register 8 flag R9FLG: db 00h ;register 9 flag R10FLG:db 00h ;register 10flag R11FLG:db 00h ;register 11 flag R12FLG:db 00h ;register 12 flag R13FLG:db 00h ;register 13 flag R14FLG:db 00h ;register 14 flag R15FLG:db 00h ;register 15 flag R16FLG:db 00h ;register 16 flag R17FLG:db 00h ;register 17 flag R18FLG:db 00h ;register 18 flag R19FLG:db 00h ;register 19 flag R20FLG:db 00h ;register 20 flag R21FLG:db 00h ;register 21 flag R22FLG:db 00h ;register 22 flag R23FLG:db 00h ;register 23 flag R24FLG: db 00h ;register 24 flag R25FLG: DB 00H ;REGISTER 25 FLAG REGFLG: db 00h ;any register flag REGNO: ds 1 ;register number SEMFLG: ds 1 ;semicolon flag (alpha must fill fcc) SFPCTR: ds 2 ;saved field pos. counter SOFCBA: ds 2 ;start of field in crt buffer SOFDBA: ds 2 ;start of field in dup-buffer SOFFBA: ds 2 ;start of field in format buffer SOFUBA: ds 2 ;start of field in user buffer SOKBBA: dw 0000h ;pointer in key-buffer ***DBB ONLY*** SOZ: ds 2 ;start of Z address SVCBAD: ds 2 ;saved crt buffer address SVFBAD: ds 2 ;saved form buffer address SVFSB: ds 1 ;saved field security byte SVFSTB: ds 1 ;saved field start byte UBFADD: ds 2 ;user buffer start address UCFLG: ds 1 ;upper case flag VCRCTR: dw 0000h ;verify correction counter VERCTR: dw 0000h ;verify ctr. VFCTR: ds 2 ;variable field counter VFPCTR: ds 2 ;variable field pos. counter VRTCTR: ds 1 ;verify retry counter WRKFBA: ds 2 ;working form. buffer address WRKFNO: ds 2 ;working field number WRKMAD: ds 2 ;working message area start address XCHAR: ds 1 ;translated character ZONFLG: ds 1 ;zoned flag ; end ; «eof»