Retro Computer Laboratory

Benutzer-Werkzeuge

Webseiten-Werkzeuge

Sie befinden sich hier: inhalt » lgp30 » samples
Zuletzt angesehen: • typos • analyticalengine
lgp30:samples

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

Nächste Überarbeitung		Vorhergehende Überarbeitung
lgp30:samples [2018-01-15 09:58] – created rainerlgp30:samples [2018-01-16 17:58] (aktuell) – [Fill and clear a track] rainer
Zeile 1: Zeile 1:
 ====== Small Programmes ====== ====== Small Programmes ======
  
-See [[loaderinput|proposal for formatting and comments]]+Blanks are significant if among the last 8 characters before a tick, see [[loaderinput|proposal for formatting and comments]]
  
 ===== Test halt on overflow ===== ===== Test halt on overflow =====
  
 As it is rather unusual that the machine stops on overflow, here is a small test program: As it is rather unusual that the machine stops on overflow, here is a small test program:
- +<code> 
-     halt on overflow +halt on overflow 
-     ;zzz0700' +;zzz0700' 
-     /zzz0700' +/zzz0700' 
-     00   b0016' get start +00   b0016'   get start 
-     01   a0017' stops if overflow +01   a0017'   stops if overflow 
-          u0001' loop +     u0001'   loop 
-     variables: +variables: 
-     ;zzz0716' +;zzz0716' 
-     ,zzz0002' +,zzz0002' 
-     16 7ww00000' start +16 7ww00000'  start 
-     17 00002000' increment +17 00002000'  increment 
-     go +go 
-     .zzz0700'     +.zzz0700'        
 +</code>
 ===== Hello ===== ===== Hello =====
  
Zeile 51: Zeile 51:
  
 Example looping program that prints a given number of asterisks: Example looping program that prints a given number of asterisks:
 +<code>
 +simple loop
 +;   0900'
 +/   0900'
 +00  xp0800' upper case
 +    xz0000' sync
 +    xp1600' CR
 +    xz0000'
 +     b0022' start value
 +     u0007' avoid data wait
 +06   b0020' get counter 
 +07   s0021' minus step 
 +     t0013'    done if negative
 +     h0020' save
 +    xp1000' print *
 +    xz0000'
 +     u0006' repeat
 +13  xz0000' halt
 +14   u0000' restart
  
-     simple loop +data: 
-     ;   0900' +;   0920' 
-     /   0900' +,000  03' 
-     00  xp0800' upper case +20 00000000' counter 
-         xz0000' sync +21 00000010' decrement 
-         xp1600' CR +22 00000050' initial 
-         xz0000' +start: 
-          b0022' start value +.   0900' 
-          u0007' avoid data wait +</code>
-     06   b0020' get counter  +
-     07   s0021' minus step  +
-          t0013'    done if negative +
-          h0020' save +
-         xp1000' print * +
-         xz0000' +
-          u0006' repeat +
-     13  xz0000' halt +
-     14   u0000' restart +
-     data: +
-     ;   0920' +
-     ,000  03' +
-     20 00000000' counter +
-     21 00000010' decrement +
-     22 00000050' initial +
-     start: +
-     .   0900' +
 ===== Printing all digits ===== ===== Printing all digits =====
  
 The following example prints all characters in numerical sequence, all digits as an example. The following example prints all characters in numerical sequence, all digits as an example.
 It shows how to modify instructions: It shows how to modify instructions:
 +<code>print 10 digits
 +;zzz0800'
 +/zzz0800'
 +00  xp0400' lower case
 +    xz0000'
 +    xp1600' CR
 +    xz0000'
 +04  xp0200' print 0
 +    xz0000' 
 +     b0004' last printed
 +     e0022' mask char code
 +     a0020' increment
 +     y0004' save 
 +     s0021' end?
 +     t0004' no
 +12  xz0400' stop for repeat  
 +     b0023'
 +     y0004' start over
 +     u0000'
 +
 +data area:
 +;zzz0820'
 +,zzz0004'
 +20 00000400' increment
 +21 00002700' last digit 9 = x26, plus 1
 +22 0000ww00' mask
 +23 00000200' digit 0 
  
-     simple loop +start here: 
-     ;   0900' +.zzz0800' 
-     /   0900' +</code> 
-     00  xp0800' upper case +===== Fill and clear a track =====
-         xz0000' sync +
-         xp1600' CR +
-         xz0000' +
-          b0022' start value +
-          u0007' avoid data wait +
-     06   b0020' get counter  +
-     07   s0021' minus step  +
-          t0013'    done if negative +
-          h0020' save +
-         xp1000' print * +
-         xz0000' +
-          u0006' repeat +
-     13  xz0000' halt +
-     14   u0000' restart +
-     data: +
-     ;   0920' +
-     ,000  03' +
-     20 00000000' counter +
-     21 00000010' decrement +
-     22 00000050' initial +
-     start: +
-     .   0900'+
  
 +Fills a track with its sector numbers, and then clears the same track again.
 +To fill in physical order, use ''0q4'' in location 34; for logical order, use ''004''
 +If Break 4 is not set, the programme waits before clear; 
 +if Break 8 is not set, it waits after clear before repeat.
 +<code>
 + fill and clear a track in physical order
 +;zzz0400'
 +/zzz0400'
 +00   c0033'    clear acc
 +     c0033'    clear sector
 +02   b0033'    get sector
 +     a0032'    add track
 +     y0005'    set destination
 +05   hzzzz'    store
 +     a0034'    advance
 +     e0035'    mask sector
 +     h0033'    save
 +     s0036'    ? >0
 +     t0012'    no, done
 +     u0002'    yes, repeat
 +12   z0400'    pause unless BR4
 +     c0033'    clear track
 +     c0033'
 +15   b0033'
 +     a0032'
 +     y0019'
 +     c0037'    discard and clear
 +19   hzzzz'    clear mem
 +     b0033'
 +     a0034'
 +     e0035'
 +     h0033'
 +     s0036'    ? >0
 +     t0027'    no, done, again
 +     u0015'    yes, repeat
 +27   z0800'    pause unless BR8
 +     u0000'
  
 +data area:
 +;zzz0432'
 +,zzz0006'
 +32 00002100' track to fill
 +33 00000000' current sector
 +34 000000q4' sector increment
 +35 000000wj' sector mask
 +36 00000002' to test for zero
 +37 00000000' trash to clear acc
 +start here:
 +.zzz0400'
 +</code>
lgp30/samples.1516006696.txt.gz · Zuletzt geändert: 2018-01-15 09:58 von rainer