Ассемблер и программирование для IBM PC


          

Ассемблер для IBM PC. Программы.


Ассемблер для IBM PC. Программы. 161
D>LINK
IBM Personal Computer Linker Version 2.30 (C) Copyright IBM Corp. 1981, 1985
Object Modules [.OBJ]: LINKBAS Run File [LINKBAS.EXE]: LINKBAS/HIGH List File [NUL.MAP]: CON Libraries [.LIB]: Warning: no stack segment
Start Stop Length Name Class 00000H 00011H 00012H CODESG CODE D>DEBUG BASIC.COM -R AX=0000 BX=0000 CX=0012 DX=0000 SP=FFFF BP=0000 SI=0000 DI=0000 DS=1410 ES=1410 SS=1410 CS=1410 IP=0100 NV UP EI PL NZ NA PO NC 1410:0100 E9E03E JMP 3FE3 -N D:LINKBAS.EXE -L -R AX=FFA3 BX=0000 CX=0012 DX=0000 SP=0000 BP=0000 SI=0000 DI=0000 DS=1410 ES=1410 SS=9FE0 CS=9FE0 IP=0000 NV UP EI PL NZ NA PO NC 9FE0:0000 55 -R SS SS 9FE0 :1410 -R CS CS 9FE0 :1410 -R IP IP 0000 :0100 -G Ok DEF SEG = &H9EF0 Ok BSAVE "D:CLRSCREEN.MOD",0,&H12 Ok SYSTEM Program terminated normally -Q D>BASIC IBM Personal Computer Basic Ver4sion D3.10 Copyright IBM Corp. 1981, 1985 61310 Bytes free Ok LOAD"D:BASTEST.BAS Ok 20 BLOAD "D:CLRSCREEN.MOD" 30 DEF SEG = &H9FE0 40 CLRSCRN = 0
Ассемблер для IBM PC. Программы. 162
50 CALL CLRSCRN LIST
10 CLEAR ,32768! 20 BLOAD "D:CLRSCRN.MOD" 30 DEF SEG = &H9FE0 40 CLRSCRN = 0 50 CALL CLRSCRN 60 FOR N = 1 TO 5 70 INPUT "HOURS"; H 80 INPUT "rATE"; R 90 W = H * R 100 PRINT "WAGE = " W 110 NEXT N 120 END Ok
program pascall ( input, output );
procedure move_cursor( const row: integer; const col: integer ); extern; var temp_row: integer; temp_col: integer;
begin write( 'Enter cursor row: ' ); readln( temp_row );
write( 'Enter cursor column:' ); readln( temp_col );
move_cursor( temprow, temp_col ); write( 'New cursor location' ); end.
TITLE MOVCUR Подпрограмма на ассемблере, ; вызываемая из программы на Паскале PUBLIC MOVE_CURSOR ;---------------------------------------------------------- ; MOVE_CURSOR: Устанавливает курсор ; по переданным параметрам ; Параметры: const row Строка и столбец ; const col для установки курсора ; Возвращаемое значение: Отсутствует ;---------------------------------------------------------- CODESEG SEGMENT PARA PUBLIC 'CODE'

Содержание  Назад  Вперед