สำนักงานราชบัณฑิตยสภา

169 ศ. ดร.มงคล เดชนคริ นทร์ วารสารราชบัณฑิตยสถาน ปีที่ ๓๘ ฉบับที่ ๓ ก.ค.-ก.ย. ๒๕๕๖ - 24 - ; Page 13 ;Routine to get last-4-digit hex no. from kbd & store in DX GET_NUM PROC NEAR ... (see text of the article) ... GET_NUM ENDP ;Routine to read ascii char from mem and send it to PC S_END PROC NEAR ... (see text of the article) ... S_END ENDP ;Routine to save monitor prog's regs & flags on re-entry ENVIR PROC NEAR ... (see text of the article) ... ;Routine to display reg contents stored by ENVIR D_ENV: MOV SI,0 ;init ptr to reg data ... (see text of the article) ... ;Routine to display 5 flags D_FLG: LEA SI,FL_MSG ;offset addr of flag message ... (see text of the article) ... ENVIR ENDP ;Routine to enter D_ENV & shows flags previously saved DPR PROC NEAR JMP D_ENV DPR ENDP MAIN ENDP ;********************************************************** DATA1: HELLO DB 13,10,'8088 Monitor Prog.$' WR_BY DB 13,10,'(C)1995 J. L. Antonakos$' RENTER DB 13,10,'Re-entry by external program at [$' BR_BAK DB 13,10,'Breakpoint encountered at [$' ; data used by command recognizer (GET_COM) NUM_COM DW 14 COMS DB 'B C D E G H I L M O R S T X' ; Page 14 J_UMPS DW B_RKP, C_BRP, D_UMP, I_NIT ;segm & offs DW E_XEC, H_ELP, P_IN, L_OAD DW M_OVE, P_OUT, D_REG, S_TOP DW T_EST, E_XAM ; data used by B_RKP BP_AS DB 'Breakpoint already saved.$' BP_SA DB 'Breakpoint saved.$' ; data used by C_BRP BR_ALC DB 'Breakpoint already cleared.$' BR_CLR DB 'Breakpoint cleared.$' ; data used by I_NIT and D_ENV R_LETS DB 'AXBXCXDXBPSIDISPDSSSES' ; data used by H_ELP H_MSG DB 13,10,' Help on Monitor Program Commands:' DB 13,10,' B : Breakpoint set > B 110C (+Ret)' DB 13,10,' C : Clear brkpt > C (+Ret)' DB 13,10,' D : Dump memory > D 1000 100F (+Ret)' DB 13,10,' E : Enter reg data > E (+Ret)' DB 13,10,' G : Go xcute prog > G 0400 (+Ret)' DB 13,10,' H : Help message > H (+Ret)' DB 13,10,' I : Input from prt > I 2F (+Ret)' DB 13,10,' L : Load hex file > L (+Ret)' DB 13,10,' M : Move mem data > M 1200 12FF 1600 (+Ret)' DB 13,10,' O : Outpt thru prt > O 29 0F (+Ret)' DB 13,10,' R : Registr dsplay > R (+Ret)' DB 13,10,' S : Stop processor > S (+Ret)' DB 13,10,' T : Test anlog prt > T (+Ret)' DB 13,10,' X : eXamine mem > X 0400 (+Ret)$' ; data used by L_OAD URT DB '<< Unidentified record type >>$' ; data used by S_TOP S_MSG DB 'Placing 8088 in HALT state.$' ; data used by T_EST TST_MSG DB 'TEST not available now, use O instead.$'