Beep, 990h, 3E8h/32Beep, 1000h, 3E8h/32Beep, 1010h, 3E8h/32Beep, 1020h, 3E8h/32Beep, 1030h, 3E8h/32Beep, 1040h, 3E8h /32Beep, 1050h, 3E8h/32Beep, 1060h, 3E8h/32Beep, 1070h, 3E8h/32Beep, 1080h, 3E8h/32Beep, 1090h, 3E8h/32Beep, 1100h, 3E8h/32
Beep, 900h, 3E8h/8Beep, 910h, 3E8h/16Beep, 920h, 3E8h/32Beep, 930h, 3E8h/64Beep, 940h, 3E8h/128Beep, 950h, 3E8h/264Beep, 960h , 3E8h/32Beep, 970h, 3E8h/32Beep, 980h, 3E8h/32Beep, 990h, 3E8h/32Beep, 1000h, 3E8h/32Beep, 1010h, 3E8h/32Beep, 1020h, 3E8h/32Beep, 1030h, 3E8h/32Beep, 1040h, 3E8h /32Beep, 1050h, 3E8h/32Beep, 1060h, 3E8h/32Beep, 1070h, 3E8h/32Beep, 1080h, 3E8h/32Beep, 1090h, 3E8h/32Beep, 1100h, 3E8h/32
Beep, 900h, 3E8h/8Beep, 910h, 3E8h/16Beep, 920h, 3E8h/32Beep, 930h, 3E8h/64Beep, 940h, 3E8h/128Beep, 950h, 3E8h/264Beep, 960h , 3E8h/32Beep, 970h, 3E8h/32Beep, 980h, 3E8h/32Beep, 990h, 3E8h/32Beep, 1000h, 3E8h/32Beep, 1010h, 3E8h/32Beep, 1020h, 3E8h/32Beep, 1030h, 3E8h/32Beep, 1040h, 3E8h /32Beep, 1050h, 3E8h/32Beep, 1060h, 3E8h/32Beep, 1070h, 3E8h/32Beep, 1080h, 3E8h/32Beep, 1090h, 3E8h/32Beep, 1100h, 3E8h/32 R, 0
jmp Opros
; - Введення одного символа без луни -
InputChar: GetConsoleMode, InHandle, offset Mode; збереження флаговSetConsoleMode, InHandle, 0; скасування режиму луна-виводаReadConsole, InHandle, offset InBuffer, 1, offset BytesRead, 0SetConsoleMode, InHandle, Mode ; відновлення режиму
; - Емулятор датчиків -
ReadSensors: InputChar
; - Контактні датчики-InBuffer, 'A'X1X, 00000001b: cmp InBuffer,' S'X2X, 00000010b: cmp InBuffer, 'D'X3X, 00000100b: cmp InBuffer,' F 'X4X, 00001000b: cmp InBuffer,' G'X5X, 00010000b: cmp InBuffer, 'H'X6X, 00100000b
; - Датчики битого скла -
X6: cmp InBuffer, 'Z'
jnz X7X, 01000000b: cmp InBuffer, 'X'Y0X, 10000000b: cmp InBuffer,' C'Y1Y, 00000001b: cmp InBuffer, 'V'Y2Y, 00000010b: cmp InBuffer,' B'Y3Y, 00000100b: cmp InBuffer, 'N'Y4Y, 00001000b
; - Датчик удару -: cmp InBuffer, 'Q'Y5Y, 10001111b; Удар = 0: cmp InBuffer,' W'Y6Y, 10001111bY, 00010000b; Удар = 1: cmp InBuffer, 'E'Y7Y, 10001111bY, 00100000b; Удар = 2: cmp InBuffer,' R'Y8Y, 10001111bY, 00110000b; Удар = 3: cmp InBuffer, 'T'Y9Y, 10001111bY, 01000000b; Удар = 4: cmp InBuffer,' Y 'Y10Y, 10001111bY, 01010000b; Удар = 5: cmp InBuffer,' U'Y11Y, 10001111bY, 01100000b; Удар = 6: cmp InBuffer, 'I'Y12 Y, 01110000b; Удар = 7
ret
; - Датчик обриву харчуван...
