HP H8/3003 User Manual page 26

001046 FB0F
001048 7A0400002022
00104E 7A05000FF804
001054 FE20
001056 68D8
001058 0B05
00105A 1A0E
00105C 46F8
00105E 7A05000FF804
001064 6C4E
001066 68DE
001068 0B05
00106A 1A0B
00106C 46F6
00106E 409C
0FF800
0FF800 00000004
0FF804 00000100
0FF904
00001000
2-6 Getting Started
49 ;****************************************************
50 ;* An invalid command is entered.
51 ;****************************************************
52 Cmd_I
53
54 ;****************************************************
55 ;* The destination area is cleared.
56 ;****************************************************
57 Write_Msg
58 Clear_Old
59 Clear_Loop
60
61
62
63 ;****************************************************
64 ;* Message is written to the destination.
65 ;****************************************************
66
67 Write_Loop
68
69
70
71
72 ;****************************************************
73 ;* Go back and scan for next command.
74 ;****************************************************
75
76
77
78 ;****************************************************
79 ;* Command input area.
80 ;****************************************************
81 Cmd_Input
82 ;****************************************************
83 ;* Destination of the command messages.
84 ;****************************************************
85 Msg_Dest
86 Stack
87
Figure 2-1. Sample Program Listing (Cont'd)
MOV.B #End_Msgs-Msg_I,R3L
MOV.L #Msg_I,ER4
MOV.L #Msg_Dest,ER5
MOV.B #H'20,R6L
MOV.B R0L,@ER5
ADDS.L #1,ER5
DEC.B R6L
BNE Clear_Loop
MOV.L #Msg_Dest,ER5
MOV.B @ER4+,R6L
MOV.B R6L,@ER5
ADDS.L #1,ER5
DEC.B R3L
BNE Write_Loop
BRA Clear
.SECTION Data,DATA,LOCATE=H'FF800
.RES.L 1
.RES.W H'80
.END Init