Forum - The transfer numbers in decimal form. Procedure - scanner password.

<b>Forum</b> - The transfer numbers in decimal form. Procedure - scanner password.

   In conclusion - a couple of procedures.

   The first procedure is designed to convert a number in 
decimal form suitable for printing. At the entrance: the 
register HL - the original number. Output: Labeled TABLE memory 
has 5 B - tens of thousands, thousands,

hundreds, tens and ones.

   To print these cells must be increased to 48. This can be
Request procedure, removing signs
";".
140.

        ORG 40000
; Written by Max from 'Cyberax Software'.
DECIMAL LD BC, TABLE

        LD DE, 10000

        CALL COUNT

        LD DE, 1000

        CALL COUNT

        LD DE, 100

        CALL COUNT

        LD DE, 10

        CALL COUNT

        LD A, L
; ADD A, 48

        LD (BC), A

        RET
COUNT XOR A
LP PUSH HL

        SBC HL, DE

        JR C, ENDC

        INC A

        INC SP

        INC SP

        JP LP
ENDC POP HL
; ADD A, 48

        LD (BC), A

        INC BC

        RET
TABLE DEFS 5
2

   The second procedure - the scanner password. You can call it 
50 times second, for example, IM 2. On

output if the password is typed, the flag "C".

   Password is set with the tags and the PASS
has the following format: Senior
byte of the port, then the mask corresponding to the pressed 
key. If the byte mask is set MSB, it means the end of the 
password. In this example, the password is a string "ABC".

140.

        ORG 40000
; Written by Max from 'CYBERAX SOFTWARE'.
PSW LD A, 0

        LD E, 31

        AND A

        JR NZ, KBSC

        CALL KBSC

        RET Z
PSWADR LD HL, PASS

        LD B, (HL)

        INC HL

        LD D, (HL)

        INC HL

        LD (PSWADR +1), HL

        LD C, 254

        IN A, (C)

        AND D

        AND E

        JR NZ, PSW_INI

        IN A, (C)

        OR D

        CPL

        AND E

        JR NZ, PSW_INI

        BIT 7, D

        RET Z

        CALL PSW_INI

        SCF

        RET
KBSC XOR A

        IN A, (254)

        CPL

        AND E

        LD (PSW +1), A

        RET
PSW_INI LD HL, PASS

        LD (PSWADR +1), HL

        XOR A

        LD (PSW +1), A

        RET
PASS DEFB # FD, 1, # 7F, 16, # FE, 8 128
2

   Such a program can be implemented in, say, the game code and 
use the fact of a set of passwords installation / removal of 
immortality at any point in the game.


   Appropriate venue for the introduction of a procedure poll
Keys to the game, or routine maintenance IM 2.


           *