Код:
prepare menu ....
02D5 ld de, aDisk ; "disk"
02D8 push de
02D9 ld a, _C7_0
02DB out (PPA_RUS), a
02DD in a, (PPA_B)
02DF rla
02E0 rla
02E1 jp nc, loc_390
02E4 ld de, _runDisk1?
02E7
02E7 loc_2E7: ; CODE XREF: 0393j
02E7 push de; куда передать управление
prepare menu continue
....
0390 ; ---------------------------------------------------------------------------
0390
0390 loc_390: ; CODE XREF: 02E1j
0390 ld de, loc_423
0393 jp loc_2E7
0393 ; ---------------------------------------------------------------------------
0423 ; ---------------------------------------------------------------------------
0423
0423 loc_423: ; DATA XREF: loc_390o
0423 nop
0424 nop
0425 nop
0426 jp loc_1800
0439 ; ---------------------------------------------------------------------------
0439
0439 _runDisk1?: ; CODE XREF: 0440j
0439 ; 045Dj
0439 ; DATA XREF: ...
0439 ld a, 0A0h ; 'á'
043B out (50h), a
043D call _dsk_Wait?
0440 jp c, _runDisk1?
0443 ld a, 23h ; '#'
0445 out (50h), a
0447 ld hl, byte_A000
044A ld c, 80h ; 'Ç'
044C
044C loc_44C: ; CODE XREF: 044Fj
044C ; 0457j
044C in a, (50h)
044E rla
044F jp nc, loc_44C
0452 in a, (51h)
0454 ld (hl), a
0455 inc hl
0456 dec c
0457 jp nz, loc_44C
045A call _dsk_Wait?
045D jp c, _runDisk1?
0460 jp byte_A000
0463
0463 ; =============== S U B R O U T I N E =======================================
0463
0463
0463 _dsk_Wait?: ; CODE XREF: 043Dp
0463 ; 045Ap ...
0463 in a, (50h)
0465 rla
0466 rla
0467 rla
0468 rla
0469 jp nc, _dsk_Wait?
046C rra
046D ret
046D ; End of function _dsk_Wait?
046D
046E ; ---------------------------------------------------------------------------
1800 ; ---------------------------------------------------------------------------
1800 loc_1800: ; CODE XREF: 0426j
1800 ld a, 0FFh
1802 out (20h), a
1804 out (21h), a
1806 out (22h), a
1808 out (23h), a
180A out (28h), a
180C out (29h), a
180E out (2Ah), a
1810 out (2Bh), a
1812 out (2Ch), a
1814 out (2Dh), a
1816 out (2Eh), a
1818 out (2Fh), a
181A ld a, 0Dh
181C out (24h), a
181E out (25h), a
1820 ld a, 7
1822 out (26h), a
1824 ld a, 0Bh
1826 out (27h), a
1828 ld a, 0
182A out (38h), a
182C ld hl, _Out12JPHL
182F ld (hl), 0D3h ; '+'
1831 inc hl
1832 ld (hl), PPA_C
1834 inc hl
1835 ld (hl), 0E9h ; 'T'
1837 ld a, _C6_0
1839 ld hl, 4000h
183C jp _Out12JPHL
BA00 ; ---------------------------------------------------------------------------
BA00
BA00 _Out12JPHL: ; CODE XREF: 183Cj
BA00 ; DATA XREF: 182Co
BA00 out (PPA_C), a
BA02 jp (hl)