assembly language

Bookmarking Digg Diigo DZone Earthlink Google
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati


Author:Paul Koning
Score: (2.36 in 53 votes)
          ident  bot,ppfw
          title  bot -- 99 bottles of beer
          comment 99 bottles of beer on the wall.
***       bot -- 99 bottles of beer on the wall
*         cdc peripheral processor code version.
*         04.02.15.  paul koning.
*         dedicated to the controlfreaks group.

          sst    rds

 opl      xtext  compmac
          base   m
 ch       equ    chds        display channel number
 ref      equ    0           number of refreshes + 1 before scroll
 rr       equ    30d         refresh delay in ms
 lh       equ    24          height of a line
 charmod  equ    7001        character mode (medium chars)
 ymax     equ    660
****      direct location assignments - 
 bc       equ    20          bottle count
 rd       equ    21          refresh delay (in ms)
 rf       equ    22          refresh count
 tp       equ    23          text pointer
 xc       equ    24          x - coordinate 
 yc       equ    25          y - coordinate
 ly       equ    26          line y
 lyh      equ    27
 ms       equ    30
 yt       equ    31          y for top of scroll
 yth      equ    32

 name     micro  1,, bot 
          org    ppfw

          rjm    prs         initialize vars, obtain console eq/ch
 main1    ldc    ref
          std    rf          set refresh count per iteration
 main2    ldc    99d
          std    bc          set initial bottle count
          dcn    ch+40
          fnc    charmod,ch  left screen, medium size character mode
          acn    ch
          ldd    yt
          std    ly          set current y to top of scoll y
          ldd    yth
          std    lyh
 main3    rjm    crlf
          njn    main4       if this line not visible
          ldd    bc
          zjn    main00      if no bottles left
          rjm    bot         *nn bottles*
          ldn    l.ofb1
          oam    ofb1,ch     * of beer on the wall,*
 main4    rjm    crlf
          njn    main5       if this line not visible
          ldd    bc
          rjm    bot         *nn bottles*
          ldn    l.ofb2
          oam    ofb2,ch     *of beer.*
 main5    rjm    crlf
          njn    main6       if this line not visible
          ldn    l.pass
          oam    pass,ch     *take one down, pass it around, *
 main6    sod    bc
 main00   zjn    main0       if no more
          rjm    crlf
          njn    main7       if this line not visible
          ldd    bc
          rjm    bot         *nn bottles*
          ldn    l.ofb1
          oam    ofb3,ch     * of beer on the wall.*
 main7    rjm    crlf
          ljm    main3       do the next few lines

 main0    rjm    crlf
          njn    main8       if this line not visible
          ldn    l.nobot
          oam    nobot,ch    *no more bottles of beer on the wall*
 main8    rjm    dss         display system status  
          rjm    delay       delay and check for move/drop
          sod    rf          count refreshes
          pjn    main10      if not time to scroll yet
          ldc    ref
          std    rf          reload refresh count
          ldd    lyh
          njn    main9       if last line y off-screen
          ldd    ly
          lmc    ymax-lh
          zjn    main10      if last line at top of screen
 main9    aod    yt          advance scroll
          shn    -12d
          rad    yth
 main10   ljm    main2
          title  move down a line
*         exit   (a) = 0 if line in range, non-0 otherwise
 crlfy    ldn    1
 crlf     subr
          ldd    lyh
          shn    12d
          add    ly
          sbn    lh
          std    ly
          shn    -12d
          std    lyh
          njn    crlfx
          ldd    ly
          adc    -ymax
          pjn    crlfy
          ldd    ly
          adc    7000
          oan    ch
          ldc    6010
          oan    ch
          ldn    0
          ujn    crlfx
          title  output bottle count
*         entry (a) = count of bottles
 bot      subr
          lmn    1
          zjn    bot1
          lmn    1
          std    t0          save the value
          ldn    0
          std    t1          initialize tens
 bot2     ldd    t0
          sbn    10d
          mjn    bot3
          std    t0
          aod    t1          advance tens
          ujn    bot2

 bot3     ldd    t1          get tens
          njn    bot4        ten or more
          ldd    t0
          adc    2r 0
          ujn    bot5        send *nn bottles*

 bot4     shn    6
          add    t0
          adc    2r00
 bot5     stm    botl
          ldn    l.botl
          oam    botl,ch     *nn bottles*
          ujn    botx

 bot1     ldn    l.botl
          oam    botl1,ch    *one bottle*
          ljm    botx
          title  delay between refreshes
*         delay 30 ms, while checking for drop and storage move
 delay    subr
          ldn    rr
          std    rd          ms to delay
          ldc    rtcl
          crd    cm          get system time
          ldd    cm+4        get current ms
          std    ms
 del1     rjm    pss         check for storage move
 del2     ldc    rtcl
          crd    cm
          ldd    cm+4
          lmd    ms
          zjn    del1        if millisecond not elapsed yet
          sod    rd
          njn    del1        if 30 ms not up yet
          dcn    ch+40
          fnc    7020,ch     select input
          acn    ch
          ian    ch
          lmn    1rd         check for *d* to drop
          zjn    del9
          ljm    delayx

 del9     dcn    ch+40       leave channel inactive
 del10    rjm    dds         drop display 
 dpp      monitor dppm       drop pp  
          ljm    ppr         exit to pp resident  
 dss      space  4  
**        dss - display system status.  
*         calls  sys. 
 dss      subr               entry/exit 
          ldc    6000        set x-coordinate 
          std    xc
          dcn    ch+40       make sure console channel inactive
          rjm    sys  
          ujn    dssx 
 comdsys  space  4  
 opl      xtext  comdsys
 opl      xtext  comddsp
 opl      xtext  compcua
          title  initialization
 prs      subr               entry/exit 
          rjm    cua         check user access  
          zjn    prs1        if access allowed  
          ldc    prsa        dayfile message *illegal control card.*  
          rjm    dfm  
          monitor abtm       abort job  
          ljm    ppr         exit to pp resident  
 prs1     pause 
          ldd    fl 
          zjn    prs3        if fl = 0  
          ldd    cm+1 
          zjn    prs2        if error flag not set  
          ljm    dpp         drop pp  
 prs2     std    cm+2        set cm request 
          monitor rstm       request 0 fl 
          ujn    prs1 
 prs3     rjm    rds         request display
          ldm    /comddsp/ddsb
          lmn    ch
          njn    prs4        if not expected channel number
          std    yth         initialize scroll position
          ldn    lh
          std    yt
          ljm    prsx

 prs4     ljm    del10

 prsa     data   c*illegal control card.* 
          title  strings

 len      macro  s
 l._s     equ    *-s
 botl1    data   h*one bottle*
 botl     data   h*xx bottles*
          len    botl
 ofb1     data   h* of beer on the wall,*
          len    ofb1
 ofb2     data   h* of beer.*
          len    ofb2
 pass     data   h* take one down, pass it around,*
          len    pass
 ofb3     data   h* of beer on the wall.*
 nobot    data   h*no more bottles of beer on the wall.*
          len    nobot


Download Source | Write Comment

Alternative Versions


Download Source | Write Comment

Add Comment

Please provide a value for the fields Name, Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.

Please don't post large portions of code here! Use the form to submit new examples or updates instead!




Security Code: