.TITLE  DemoOutputProcedures

         .EXTERNAL  InitializeOutput, OutLong, OutASCII, -
                    OutFloat, TypeOutputLine

CostMsg: .ASCII  " cost $"
LengthCostMsg = . - CostMsg              ; Length = current address
                                         ;          - address of CostMsg
Item:    .ASCII  "books"
LengthItem = . - Item
Number:  .LONG   5
Price:   .FLOAT  23.95

         .ENTRY  Demo,     0

;     Write  (Number, Item, ' cost $', Price)
         CALLS   #0, InitializeOutput    ; Initialize output
         PUSHAL  Number                  ; Output Number
         CALLS   #1, OutLong
         PUSHL   #LengthItem             ; Output Item
         PUSHAB  Item
         CALLS   #2, OutASCII
         PUSHL   #LengthCostMsg          ; Output " cost $"
         PUSHAB  CostMsg
         CALLS   #2, OutASCII
         PUSHL   #2                      ; Output Price with
         PUSHAF  Price                   ;   2 decimal places
         CALLS   #2, OutFloat
         CALLS   #0, TypeOutputLine      ; Print Buffer
         $EXIT_S

         .END    Demo