summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/tw1472.pp
blob: 86c78f378ae0715cb5ca225b88123c44f8ab7462 (plain)
ofshex dumpascii
0000 7b 20 25 43 50 55 3d 69 33 38 36 20 7d 0a 50 52 4f 47 52 41 4d 20 54 65 73 74 3b 0a 7b 24 61 73 {.%CPU=i386.}.PROGRAM.Test;.{$as
0020 6d 6d 6f 64 65 20 69 6e 74 65 6c 20 7d 0a 76 61 72 0a 20 20 44 6f 49 74 20 3a 20 62 6f 6f 6c 65 mmode.intel.}.var...DoIt.:.boole
0040 61 6e 3b 0a 00 0a 42 45 47 49 4e 0a 20 44 6f 49 74 3a 3d 66 61 6c 73 65 3b 0a 20 69 66 20 44 6f an;...BEGIN..DoIt:=false;..if.Do
0060 69 74 20 74 68 65 6e 0a 20 20 20 20 61 73 6d 0a 20 20 20 20 20 20 6d 6f 76 20 61 78 2c 5b 30 5d it.then.....asm.......mov.ax,[0]
0080 0a 20 20 20 20 65 6e 64 3b 0a 20 20 57 72 69 74 65 4c 6e 28 27 54 68 69 73 20 74 65 73 74 20 77 .....end;...WriteLn('This.test.w
00a0 6f 72 6b 73 27 29 3b 0a 45 4e 44 2e 0a orks');.END..