Display Room Number
                             -------------------

This patch displays the current room number in the bottom right corner of
the screen. It was originally written by John Elliot, this is a slightly
optimised version. See seasip.info/Jsw/patches.html.

; Release the password code space:
8401 31 00 5C     1.\          LD  SP,&5C00     ; Initial stack
8404 C3 CA 87     CJ.          JP  &87CA        ; Jump to start

; Reuse password code space
869F CD 80 96     M..          CALL &9680       ; Print items
86A2 3A 20 84     : .          LD   A,(&8420)   ; Get room number
86A5 0E 2F        .0           LD   C,ASC"0"-1
86A7 DD 21 51 84  ]!..         LD   IX,&8451    ; IX=>digits
86AB 0C           .    DIGIT1: INC  C
86AC D6 64        Vd           SUB  A,100       ; Count hundreds
86AE 30 FB        .y           JR   NC,DIGIT1
86B0 DD 71 00     ]q.          LD   (IX+0),C    ; Store hundreds digit
86B3 C6 64        Fd           ADD  A,100       ; Restore last 100
86B5 0E 2F        .0           LD   C,ASC"0"-1  ; 
86B7 0C           .    DIGIT2: INC  C
86B8 D6 0A        V.           SUB  A,10        ; Count hundreds
86BA 30 FB        .y           JR   NC,DIGIT2
86BC DD 71 01     ]q.          LD   (IX+1),C    ; Store tens digit
86BF C6 3A        F:           ADD  A,ASC"0"+1  ; Convert to units digit
86C1 DD 77 02     ]w.          LD   (IX+2),A
86C4 0E 03        ..           LD   C,&03       ; 3 characters to print
86C6 11 FD 50     .}P          LD   DE,&50DD    ; Print location
86C9 C3 80 96     C..          JP   &9680       ; Print the room number
86CC

8A46 CD A2 86     M".          CALL &86A2       ; Print items and room number

9ADD 44 44 44     DDD          EQUB &44,&44,&44 ; Attributes for numbers

This can be applied with the following hex patch file:

:0684010031005CC3CA87D4
:20869F00CD80963A20840E2FDD2151840CD66430FBDD7100C6640E2F0CD60A30FBDD71015E
:0D86BF00C63ADD77020E0311DD50C3809630
:028A4700A28605
:029ADE004444FE
:0000000000