41853: Routine at A37D
| 41853 |
XOR A |
| 41854 |
LD (41000),A |
| 41857 |
LD A,(41821) |
| 41860 |
CALL 41649 |
| 41863 |
PUSH HL |
| 41864 |
POP IX |
| 41866 |
PUSH HL |
| 41867 |
CALL 41661 |
| 41870 |
CALL 50323 |
| 41873 |
CALL 50354 |
| 41876 |
POP HL |
| 41877 |
LD A,(40989) |
| 41880 |
LD C,A |
| 41881 |
PUSH HL |
| 41882 |
LD DE,6 |
| 41885 |
ADD HL,DE |
| 41886 |
CALL 43136 |
| 41889 |
POP HL |
| 41890 |
CALL 43136 |
| 41893 |
BIT 3,C |
| 41895 |
JR Z,41954 |
| 41897 |
BIT 5,C |
| 41899 |
CALL NZ,43136 |
| 41902 |
LD A,(40990) |
| 41905 |
BIT 7,A |
| 41907 |
CALL NZ,43136 |
| 41910 |
LD A,(41822) |
| 41913 |
CP 254 |
| 41915 |
JR NZ,41927 |
| 41917 |
PUSH HL |
| 41918 |
LD HL,(41007) |
| 41921 |
CALL 42009 |
| 41924 |
POP HL |
| 41925 |
JR 41954 |
| 41927 |
PUSH HL |
| 41928 |
LD HL,41014 |
| 41931 |
CP (HL) |
| 41932 |
JR NZ,41942 |
| 41934 |
LD DE,1371 |
| 41937 |
CALL 43143 |
| 41940 |
JR 41953 |
| 41942 |
LD A,(40975) |
| 41945 |
CP 5 |
| 41947 |
LD A,(41822) |
| 41950 |
CALL 42821 |
| 41953 |
POP HL |
| 41954 |
LD A,(41823) |
| 41957 |
CP 255 |
| 41959 |
JR Z,42004 |
| 41961 |
BIT 2,C |
| 41963 |
JR Z,42004 |
| 41965 |
BIT 5,C |
| 41967 |
CALL Z,43136 |
| 41970 |
LD A,(40990) |
| 41973 |
BIT 7,A |
| 41975 |
CALL Z,43136 |
| 41978 |
LD A,(41823) |
| 41981 |
CP 254 |
| 41983 |
JR NZ,41993 |
| 41985 |
LD HL,(41009) |
| 41988 |
CALL 42009 |
| 41991 |
JR 42004 |
| 41993 |
LD A,(40976) |
| 41996 |
CP 5 |
| 41998 |
LD A,(41823) |
| 42001 |
CALL 42821 |
| 42004 |
LD A,46 |
| 42006 |
JP 43447 |
| 42009 |
PUSH BC |
| 42010 |
RES 7,H |
| 42012 |
SLA L |
| 42014 |
SRL H |
| 42016 |
RR L |
| 42018 |
LD A,32 |
| 42020 |
CALL 43447 |
| 42023 |
LD DE,240 |
| 42026 |
CALL 42102 |
| 42029 |
AND A |
| 42030 |
JR Z,42050 |
| 42032 |
LD B,A |
| 42033 |
LD A,96 |
| 42035 |
CALL 43447 |
| 42038 |
CALL 42128 |
| 42041 |
LD A,L |
| 42042 |
OR H |
| 42043 |
JR Z,42087 |
| 42045 |
LD A,32 |
| 42047 |
CALL 43447 |
| 42050 |
LD DE,12 |
| 42053 |
CALL 42102 |
| 42056 |
AND A |
| 42057 |
JR Z,42089 |
| 42059 |
LD B,A |
| 42060 |
CALL 42128 |
| 42063 |
LD A,47 |
| 42065 |
CALL 43447 |
| 42068 |
LD A,L |
| 42069 |
AND A |
| 42070 |
LD B,A |
| 42071 |
JR Z,42078 |
| 42073 |
CALL 42128 |
| 42076 |
JR 42087 |
| 42078 |
LD A,45 |
| 42080 |
CALL 43447 |
| 42083 |
XOR A |
| 42084 |
LD (40998),A |
| 42087 |
POP BC |
| 42088 |
RET |
| 42089 |
LD B,L |
| 42090 |
CALL 42128 |
| 42093 |
LD A,68 |
| 42095 |
CALL 43447 |
| 42098 |
LD A,46 |
| 42100 |
JR 42080 |
| 42102 |
LD A,255 |
| 42104 |
INC A |
| 42105 |
AND A |
| 42106 |
SBC HL,DE |
| 42108 |
JR NC,42104 |
| 42110 |
ADD HL,DE |
| 42111 |
RET |
| 42112 |
CALL 42102 |
| 42115 |
ADD A,48 |
| 42117 |
DEC C |
| 42118 |
INC C |
| 42119 |
JR NZ,42125 |
| 42121 |
CP 48 |
| 42123 |
RET Z |
| 42124 |
INC C |
| 42125 |
JP 43447 |
| 42128 |
PUSH HL |
| 42129 |
PUSH DE |
| 42130 |
LD L,B |
| 42131 |
LD H,0 |
| 42133 |
LD C,H |
| 42134 |
LD DE,100 |
| 42137 |
CALL 42112 |
| 42140 |
LD DE,10 |
| 42143 |
CALL 42112 |
| 42146 |
LD A,L |
| 42147 |
ADD A,48 |
| 42149 |
CALL 43447 |
| 42152 |
POP DE |
| 42153 |
POP HL |
| 42154 |
RET |
