.TITLE     IORoutines
       .disable global
       .show meb

B:     .BYTE    100
W:     .WORD    2000
L:     .LONG    12345678
A:     .ASCII   /This is an ASCII message/
Char:  .Word    24
F:     .BLKL    1
GPA:   .BLKF    1
Name:  .BLKB    12
Letter:.BLKB    1
NumChar:.WORD   10

       .ENTRY  IO, 0
      Input <Enter GPA: > Float = GPA
      Input ASCII = Letter
      Input <Enter name - >, ASCII = Name, Length = #12
      Output
      Output <The student is>
      Output <Name:   >, ASCII = Name, Length = NumChar
      Output <GPA:    >, Float = GPA
      Output ASCII = Letter

       Input    <Enter a byte  :>, B
       Output   <generate error:>, B
       Input    <Enter a byte  :>, Byte = B
       Input    <Enter a word  :>, Word = W
       Input    <Enter a long  :>, Long = L
       Input    Float=F
       Input    <Enter a string:>, Length = Char, ASCII = A
       Output   <Echo a string :>, Length = Char, ASCII = A
       Input    <Enter a string:>, Length = #5, ASCII = A
       Output   <This is a label>, Byte = B
       Output   <The word =>, Word = W
       Output   <The Longword =>, Long = L
       Output   <This is a another heading>
       movl     #23,R0
       Output   <This is in R0>, R0
       Output   <This is in R0>, R0
       MOVL     #123,R5
       Output   <Hello from R5>, Word = R5
       MOVL     #999, R8
       Output   Word=R8
fff:       Output   <Floating:    >, Float = F
       Output   <Hello again  >, Long = R5
       Output   Byte = B
       Output   <ASCII ---->, Length = Char, ASCII = A
       Output   <Message   >, Length = #3, ASCII = A
       Output   <No Message>, ASCII = A
       Output   Length = #16, ASCII = A
       Output
       Input    <Enter a hex value ->, Hex=L
ggg:       Output   <Copy hex value     >, Hex=L
       Output   <Another value      >, Hex=B
       Output  <number 50>, Byte = #50
       Output  <number 600>, Word = #600
       Movl     #20, R1
       Output  <20 is in R1>, Long=r1
       $EXIT_S
       .end IO