; WHEELCF.MAC ; ; ZCNFG configuration module for WHEEL.COM. The assembled version of ; this file must be named WHEELxx.CFG to be automatically recognized ; by ZCNFG. ; ; Version 1.0 -- October 19, 1990 -- Gene Pizzetta ; For WHEEL 3.3. ; ; Patch locations . . . ; QtFlag equ 016h ; quiet flag CasFlg equ 017h ; case flag EPFlag equ 018h ; echo password flag PWFlag equ 019h ; password mode flag PWord equ 01Ah ; WHEEL password ; ; ZCNFG function definitions . . . ; Switch equ 0 ; toggle bit n in a byte (n is specified) Text equ 1 ; edit text with UC conversion DUSpec equ 2 ; replace a ZCPR style DU specification (NOT DIR:!) HexRad equ 3 ; edit byte/word using HEX radix DecRad equ 4 ; edit byte/word using DECIMAL radix TextLC equ 5 ; edit text, both UC and LC FileSp equ 6 ; edit a Z3 filespec or filespec fragment Togl3 equ 7 ; toggle to one of three options: 001B, 010B, 100B ToglTF equ 8 ; toggle a byte between 0ffh and 0 ; ; ASCII characters . . . ; HON equ 1 ; highlighting on HOF equ 2 ; highlighting off TAB equ 9 ; tab LF equ 10 ; linefeed CR equ 13 ; carriage return ; MACLIB Z80 ; ; Code . . . ; rst 0 ; for safety, so .CFG file won't execute ; dw MenuA ; for relocation of addresses, this ; ..points to the NEXT location. ; ; Menu list section . . . ; MenuA: dw MenuA, MenuA, ScrnA, CaseA, HelpA ; single menu ; ; Case table section . . . ; CaseA: db (CaseAX-CaseA1)/(CaseA2-CaseA1) ; number of cases db CaseA2-CaseA1 ; length of each record ; CaseA1: db '1' ; menu selector dw ToglTF ; ZCNFG function number dw QtFlag ; patch location in file db 1 ; number of bytes to change dw ScrnA1 ; screen location dw YesNo ; string address ; CaseA2: db '2' ; menu selector dw ToglTF ; ZCNFG function number dw CasFlg ; patch location in file db 1 ; number of bytes to change dw ScrnA2 ; screen location dw YesNo ; string address ; CaseA3: db '3' ; menu selector dw ToglTF ; ZCNFG function number dw EPFlag ; patch location in file db 1 ; number of bytes to change dw ScrnA3 ; screen location dw YesNo ; string address ; CaseA4: db '4' ; menu selector dw ToglTF ; ZCNFG function number dw PWFlag ; patch location in file db 1 ; number of bytes to change dw ScrnA4 ; screen location dw SetAll ; string address ; CaseA5: db '5' ; menu selector dw TextLC ; ZCNFG function number dw PWord ; patch location in file db 8 ; number of bytes to change dw ScrnA5 ; screen location dw 0 ; not used ; CaseAX: ; for calculation of list length ; ; Case table support . . . ; YesNo: db 'YES',0 ; displayed if value is FFh (ToglTF) db ' NO',0 ; displayed if value is 00h (ToglTF) SetAll: db ' Always',0 ; displayed if value is FFh (ToglTF) db 'SET Only',0 ; displayed if value is 00h (ToglTF) ; ; Screen image section . . . ; ScrnA: db cr,lf,lf,tab,tab,tab,' WHEEL Installation Menu' db cr,lf,lf ; db tab,tab,'(1) ',1,'Default to Quiet mode? . . . . . . . ',2 ScrnA1: db ' ' ; current value db cr,lf ; db tab,tab,'(2) ',1,'Case-sensitive password? . . . . . . ',2 ScrnA2: db ' ' ; current value db cr,lf ; db tab,tab,'(3) ',1,'Echo password while entering? . . . . ',2 ScrnA3: db ' ' ; current value db cr,lf ; db tab,tab,'(4) ',1,'Require password: . . . . . . . ',2 ScrnA4: db ' ' ; current value db cr,lf ; db tab,tab,'(5) ',1,'WHEEL password: . . . . . . . . ',2 ScrnA5: db ' ' ; current value db cr,lf ; db lf,lf,lf,lf,lf, ; fill rest of screen ; db 0 ; terminator ; ; Help screen section . . . ; HelpA: DB CR,LF,LF ; DB HON,'Option (1)',HOF,' -- This option determines whether WHEEL ' DB 'defaults to quiet mode.',CR,LF DB 'Whatever is chosen here can be toggled with a "Q" option ' DB ' on the command',CR,LF DB 'line.',CR,LF DB CR,LF ; DB HON,'Option (2)',HOF,' -- If "YES" is chosen here, the password ' DB 'entered must match the',CR,LF DB 'password exactly, upper-case matching only upper-case ' DB ' and lower-case',CR,LF DB 'matching only lower-case. If there are any lower-case characters ' DB ' in your',CR,LF DB 'password, you won''t be able to enter the password on ' DB 'the command line',CR,LF DB 'unless this is set to "NO". Such a password must be entered ' DB 'interactively',CR,LF DB 'when WHEEL prompts for it.',CR,LF DB CR,LF ; DB HON,'Option (3)',HOF,' -- Select "YES" if you want WHEEL ' DB 'to echo the password to the',CR,LF DB 'screen as you type it interactively. If "NO" is selected, ' DB ' only dots will',CR,LF DB 'be echoed.',CR,LF DB CR,LF ; DB HON,'Option (4)',HOF,' -- Normally WHEEL only requires a password ' DB 'to SET the Wheel Byte',CR,LF DB '(turn it on). If "Always" is selected, WHEEL will require ' DB 'a password for',CR,LF DB 'everything, including display of the usage screen.',CR,LF DB CR,LF,LF,LF ; DB HON,'Option (5)',HOF,' -- This is the actual password ' DB 'that must be entered on the',CR,LF DB 'command line or in answer to WHEEL''s prompt. If the password ' DB ' is entered',CR,LF DB 'here in upper-case, it can be given on the command line ' DB 'even if option 2',CR,LF DB 'above is set to "YES". If option 2 is set to "NO", ' DB ' the case of the',CR,LF DB 'password is unimportant. A password also cannot be entered ' DB 'on the command',CR,LF DB 'line if it begins with a slash ("/"), or if it contains a ' DB 'colon (":") or ',CR,LF DB 'embedded spaces.',CR,LF ; DB 0 ; Terminator ; end