0028 %%FUNC Check,3,cls=2,type=0
0029 _Check:
01FD DDE5 0030 push IX
01FF DD210000 0031 ld IX,0
0203 DD39 0032 add IX,SP
0033 %%DFP 6
0034 %%SYM a,14,type=5,cls=6,val=4,size=2
0035 %%SYM b,14,type=5,cls=6,val=6,size=2
0036 %%SYM c,14,type=5,cls=6,val=8,size=2
0037 %%SYM d,14,type=5,cls=6,val=10,size=2
0038 %%SYM e,14,type=5,cls=6,val=12,size=2
0039 %%SYM f,14,type=5,cls=6,val=14,size=2
0040 %%ENDD
0041 %%BF
0042 ; - if -
0043 %%LINE 000009
0044 ;Expr(9): (b+ b+ f)!=e
0205 DD4E06 0045 ld C,(IX+6)
0208 DD4607 0046 ld B,(IX+7)
020B 60 0047 ld H,B
020C 69 0048 ld L,C
020D 09 0049 add HL,BC
020E DD4E0E 0050 ld C,(IX+14)
0211 DD460F 0051 ld B,(IX+15)
0214 09 0052 add HL,BC
0215 DD5E0C 0053 ld E,(IX+12)
0218 DD560D 0054 ld D,(IX+13)
021B B7 0055 or A
021C ED52 0056 sbc HL,DE
021E C2B602 R 0057 jr.x nz,L27
0058 ; - endif - - if -
0059 %%LINE 000010
0060 ;Expr(10): (a+ c+ e)!=12
0221 DD4E08 0061 ld C,(IX+8)
0224 DD4609 0062 ld B,(IX+9)
0227 DD6E04 0063 ld L,(IX+4)
022A DD6605 0064 ld H,(IX+5)
022D 09 0065 add HL,BC
022E 42 0066 ld B,D
022F 4B 0067 ld C,E
0230 09 0068 add HL,BC
0231 54 0069 ld D,H
0232 5D 0070 ld E,L
0233 210C00 0071 ld HL,12
0236 B7 0072 or A
0237 ED52 0073 sbc HL,DE
0239 207B 0074 jr.x nz,L27
0075 ; - endif - - if -
0076 %%LINE 000011
0077 ;Expr(11): (b+ d+ f)!=9
023B DD4E0A 0078 ld C,(IX+10)
023E DD460B 0079 ld B,(IX+11)
0241 DD6E06 0080 ld L,(IX+6)
0244 DD6607 0081 ld H,(IX+7)
0247 09 0082 add HL,BC
0248 DD4E0E 0083 ld C,(IX+14)
024B DD460F 0084 ld B,(IX+15)
024E 09 0085 add HL,BC
024F 44 0086 ld B,H
0250 4D 0087 ld C,L
0251 210900 0088 ld HL,9
0254 B7 0089 or A
0255 ED42 0090 sbc HL,BC
0257 205D 0091 jr.x nz,L27
0092 ; - endif - - if -
0093 %%LINE 000012
0094 ;Expr(12): (b+ e+ b)!=9
0259 DD4E0C 0095 ld C,(IX+12)
025C DD460D 0096 ld B,(IX+13)
025F DD6E06 0097 ld L,(IX+6)
0262 DD6607 0098 ld H,(IX+7)
0265 09 0099 add HL,BC
0266 DD4E06 0100 ld C,(IX+6)
0269 DD4607 0101 ld B,(IX+7)
026C 09 0102 add HL,BC
026D 44 0103 ld B,H
026E 4D 0104 ld C,L
026F 210900 0105 ld HL,9
0272 B7 0106 or A
0273 ED42 0107 sbc HL,BC
0275 203F 0108 jr.x nz,L27
0109 ; - endif - - if -
0110 %%LINE 000013
0111 ;Expr(13): (a+ b+ d)!=12
0277 DD4E06 0112 ld C,(IX+6)
027A DD4607 0113 ld B,(IX+7)
027D DD6E04 0114 ld L,(IX+4)
0280 DD6605 0115 ld H,(IX+5)
0283 09 0116 add HL,BC
0284 DD4E0A 0117 ld C,(IX+10)
0287 DD460B 0118 ld B,(IX+11)
028A 09 0119 add HL,BC
028B 44 0120 ld B,H
028C 4D 0121 ld C,L
028D 210C00 0122 ld HL,12
0290 B7 0123 or A
0291 ED42 0124 sbc HL,BC
0293 2021 0125 jr.x nz,L27
0126 ; - endif - - if -
0127 %%LINE 000014
0128 ;Expr(14): (c+ f+ f)!=e
0295 DD4E0E 0129 ld C,(IX+14)
0298 DD460F 0130 ld B,(IX+15)
029B DD6E08 0131 ld L,(IX+8)
029E DD6609 0132 ld H,(IX+9)
02A1 09 0133 add HL,BC
02A2 09 0134 add HL,BC
02A3 DD4E0C 0135 ld C,(IX+12)
02A6 DD460D 0136 ld B,(IX+13)
02A9 B7 0137 or A
02AA ED42 0138 sbc HL,BC
02AC 2008 0139 jr.x nz,L27
0140 ; - endif -
0141 %%LINE 000015
0142 ;Expr(15): putchar('.')
02AE 212E00 0143 ld HL,46
02B1 E5 0144 push HL
02B2 CD9001 E 0145 call _putchar
02B5 C1 0146 pop BC
0147 L27:
0148 ; RET
0149 %%LINE 000017
0150 %%EF
02B6 DDF9 0151 ld SP,IX
02B8 DDE1 0152 pop IX
02BA C9 0153 ret