| Address | Output | Source |
| D:\Documents\Visual Studio 2005\Projects\Latenite\Latenite\bin\Projects\Infrared\Source\Includes\Headers.asm |
| Page 0 |
| 9D93 | BB | .db $BB,$6D |
| 9D94 | 6D | .db $BB,$6D |
| 9D95 | C9 30 07 | ret \ jr nc,Program.Main |
| 9D98 | 53 6F 6E 79 49 52 00 | .asc "SonyIR", 0 |
| D:\Documents\Visual Studio 2005\Projects\Latenite\Latenite\bin\Projects\Infrared\Source\Program.asm |
| Program.Main |
| 9D9F | ED 56 | im 1 |
| 9DA1 | AF | xor a |
| 9DA2 | 32 4C 84 | ld (curCol),a |
| 9DA5 | 32 4B 84 | ld (curRow),a |
| 9DA8 | FD CB 0D D6 | set appAutoScroll, (iy+appFlags) |
| 9DAC | EF 8F 50 | rst rBR_CALL\ .dw _ForceFullScreen |
| D:\Documents\Visual Studio 2005\Projects\Latenite\Latenite\bin\Projects\Infrared\Source\Infrared.asm |
| Program.Infrared.Play |
| 9DAF | F3 | di |
| 9DB0 | 46 | ld b,(hl) |
| 9DB1 | 23 | inc hl |
| Program.Infrared.PlayLoop |
| 9DB2 | C5 | push bc |
| 9DB3 | 4E | ld c,(hl) |
| 9DB4 | 23 | inc hl |
| 9DB5 | 46 | ld b,(hl) |
| 9DB6 | 23 | inc hl |
| 9DB7 | CD D4 9D | call PulseOut |
| 9DBA | 4E | ld c,(hl) |
| 9DBB | 23 | inc hl |
| 9DBC | 46 | ld b,(hl) |
| 9DBD | 23 | inc hl |
| 9DBE | 0B | dec bc |
| 9DBF | 0B | dec bc |
| 9DC0 | 0B | dec bc |
| 9DC1 | 0B | dec bc |
| 9DC2 | 0B | dec bc |
| 9DC3 | 04 | inc b |
| 9DC4 | C5 | [--] → -- push bc |
| 9DC5 | 06 0B | ld b,11 |
| 9DC7 | 10 FE | [-] → - djnz {-} |
| 9DC9 | C1 | pop bc |
| 9DCA | 0D | dec c |
| 9DCB | 20 F7 | jr nz,{--} |
| 9DCD | 05 | dec b |
| 9DCE | 20 F4 | jr nz,{--} |
| 9DD0 | C1 | pop bc |
| 9DD1 | 10 DF | djnz PlayLoop |
| 9DD3 | C9 | ret |
| Program.Infrared.PulseOut |
| 9DD4 | 04 | inc b |
| 9DD5 | C5 | [--] → -- push bc |
| 9DD6 | 3E D2 | ld a,%11010010 |
| 9DD8 | D3 00 | out (bport),a |
| 9DDA | 06 03 | ld b,3 |
| 9DDC | 00 | [-] → - nop |
| 9DDD | 10 FD | djnz {-} |
| 9DDF | 00 | nop |
| 9DE0 | 3E D0 | ld a,%11010000 |
| 9DE2 | D3 00 | out (bport),a |
| 9DE4 | C1 | pop bc |
| 9DE5 | 0D | dec c |
| 9DE6 | 20 08 | jr nz,NoDecB |
| 9DE8 | 05 | dec b |
| 9DE9 | 00 | nop |
| 9DEA | 3E 00 | ld a,0 |
| 9DEC | C2 D5 9D | jp nz,{--} |
| 9DEF | C9 | ret |
| Program.Infrared.NoDecB |
| 9DF0 | 00 | nop |
| 9DF1 | 00 | nop |
| 9DF2 | 18 E1 | jr {--} |
| Program.Infrared.Record |
| 9DF4 | F3 | di |
| 9DF5 | DB 00 | [-] → - in a,(bport) |
| 9DF7 | 0F | rrca |
| 9DF8 | 38 FB | jr c,{-} |
| 9DFA | E5 | push hl |
| 9DFB | 23 | inc hl |
| 9DFC | 16 80 | ld d,128 |
| 9DFE | 1E 00 | ld e,0 |
| 9E00 | CD 12 9E | [-] → - call PulseIn |
| 9E03 | 20 08 | jr nz,TimedOut |
| 9E05 | 71 | ld (hl),c |
| 9E06 | 23 | inc hl |
| 9E07 | 70 | ld (hl),b |
| 9E08 | 23 | inc hl |
| 9E09 | 1C | inc e |
| 9E0A | 15 | dec d |
| 9E0B | 20 F3 | jr nz,{-} |
| Program.Infrared.TimedOut |
| 9E0D | E1 | pop hl |
| 9E0E | CB 3B | srl e |
| 9E10 | 73 | ld (hl),e |
| 9E11 | C9 | ret |
| Program.Infrared.PulseIn |
| 9E12 | 01 00 00 | ld bc,0 |
| 9E15 | DB 00 | [--] → -- in a,(bport) |
| 9E17 | C5 | push bc |
| 9E18 | 06 06 | ld b,6 |
| 9E1A | 10 FE | [-] → - djnz {-} |
| 9E1C | 00 | nop |
| 9E1D | C1 | pop bc |
| 9E1E | AA | xor d |
| 9E1F | 0F | rrca |
| 9E20 | 38 07 | jr c,{+} |
| 9E22 | 03 | inc bc |
| 9E23 | 78 | ld a,b |
| 9E24 | B1 | or c |
| 9E25 | 20 EE | jr nz,{--} |
| 9E27 | 04 | inc b |
| 9E28 | C9 | ret |
| 9E29 | AF | [+] → + xor a |
| 9E2A | C9 | ret |