A large commit.

[pdp8.git] / sw / adventure / src / PCT.RA

diff --git a/sw/adventure/src/PCT.RA b/sw/adventure/src/PCT.RA
new file mode 100644 (file)
index 0000000..967fd44
--- /dev/null
+++ b/sw/adventure/src/PCT.RA
@@ -0,0 +1,40 @@
+       SECT    PCT\r
+/       PCT(N)=RND(100).LT.N\r
+       EXTERN  RND\r
+       JA      #ST\r
+#XR,   ORG     .+10\r
+       TEXT    +PCT  +\r
+#RET,  SETX    #XR\r
+       SETB    #BASE\r
+       JA      .+3\r
+#BASE, ORG     .+6\r
+N,     ORG     .+3\r
+HUND,  F 100.0\r
+       ORG     #BASE+30\r
+       FNOP\r
+       JA      #RET\r
+       FNOP\r
+#GOBAK,        0;0\r
+#RTN,  BASE    #BASE\r
+       JA      #GOBAK\r
+#ST,   STARTD\r
+       0210\r
+       FSTA    #GOBAK,0\r
+       0200\r
+       SETX    #XR\r
+       SETB    #BASE\r
+       LDX     0,1\r
+       FSTA    #BASE\r
+       FLDA%   #BASE,1+\r
+       FSTA    N\r
+       STARTF\r
+/       RND(100)\r
+       JSR     RND\r
+       JA      .+0004\r
+       JA      HUND\r
+/       .LT. N\r
+       FSUB%   N\r
+       EXTERN  #LT\r
+       JSA     #LT\r
+       JA      #RTN\r
+       END\r