projects / z180-stamp.git / blame
| Commit | Line | Data |
|---|---|---|
| a16ba2b0 L |
1 | ;page 255\r |
| 2 | .z80\r | |
| 3 | \r | |
| 4 | \r | |
| 5 | global $coninit\r | |
| 6 | global $cists,$ci\r | |
| 7 | global $co\r | |
| 8 | \r | |
| 9 | \r | |
| a16ba2b0 | 10 | extrn ser.init,ser.instat,ser.in,ser.out\r |
| 4caee1ec L |
11 | ; extrn f.init,f.in,f.out,f.i.st\r |
| 12 | ; extrn msg.co\r | |
| a16ba2b0 L |
13 | \r |
| 14 | \r | |
| 15 | include config.inc\r | |
| 16 | include z180reg.inc\r | |
| 17 | \r | |
| 18 | cseg\r | |
| 19 | ;\r | |
| 20 | ;\r | |
| 21 | \r | |
| 22 | $coninit:\r | |
| 4caee1ec | 23 | ; call f.init\r |
| a16ba2b0 L |
24 | call ser.init\r |
| 25 | ret\r | |
| 26 | \r | |
| 27 | $cists:\r | |
| 4caee1ec L |
28 | ; call f.i.st\r |
| 29 | ; ret nz\r | |
| a16ba2b0 L |
30 | call ser.instat\r |
| 31 | ret\r | |
| 32 | \r | |
| 33 | $ci:\r | |
| 4caee1ec L |
34 | ; call f.i.st\r |
| 35 | ; jp nz,f.in\r | |
| a16ba2b0 L |
36 | call ser.instat\r |
| 37 | jp nz,ser.in\r | |
| 38 | jr $ci\r | |
| 39 | \r | |
| 40 | ;$costs:\r | |
| 41 | ; jp f.o.st\r | |
| 42 | \r | |
| 43 | $co:\r | |
| 4caee1ec | 44 | ; call msg.co\r |
| a16ba2b0 L |
45 | jp ser.out\r |
| 46 | \r | |
| 47 | end\r | |
| 48 | \r |